[B! vba] sippuã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

sippu id:sippu

vbaã«é–¢ã™ã‚‹sippuã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (5)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

OpenOfficeã®ãƒžã‚¯ãƒã§ãƒ€ã‚¤ã‚¢ãƒã‚°ã‚’é–‹ãã«ã¯ï¼Ÿ OpenOfficeã®Calcã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚â€¦
OpenOfficeã®ãƒžã‚¯ãƒã§ãƒ€ã‚¤ã‚¢ãƒã‚°ã‚’é–‹ãã«ã¯ï¼Ÿ OpenOfficeã®Calcã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚ãƒžã‚¯ãƒã«ã¤ã„ã¦è³ªå•ã§ã™ã€‚ Excelãƒžã‚¯ãƒã®VBAã§ã€ãƒ€ã‚¤ã‚¢ãƒã‚°ãƒœãƒƒã‚¯ã‚¹ã‚’é–‹ãã®ã«ä¸‹è¨˜ã‚³ãƒ¼ãƒ‰ã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚ dlgAnswer = Application.Dialogs(xlDialogOpen).Show If dlgAnswer = False Then Exit Sub End If ã“ã®ã‚³ãƒ¼ãƒ‰ã¯ã€OpenOffice.orgï¼ˆGo-oo 3.1.0ï¼‰ã§ã¯å‹•ä½œã—ã¾ã›ã‚“ã€‚1è¡Œç›®ã§ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã¾ã™ã€‚ OpenOffice.orgã§å‹•ä½œã™ã‚‹ã‚³ãƒ¼ãƒ‰ã¯ã©ã®ã‚ˆã†ã«ãªã‚‹ã§ã—ã‚‡ã†ã‹ï¼Ÿ æ¡ä»¶ã¨ã—ã¦ã¯ã€ ãƒ»Excelã¨OpenOffice.org(Go-ooï¼‰ã®ä¸¡æ–¹ã§å‹•ä½œã™ã‚‹ ãƒ»ãƒœã‚¿ãƒ³ã‚’æŠ¼ã™ã¨ã‚ªãƒ¼ãƒ—ãƒ³ãƒ€ã‚¤ã‚¢ãƒã‚°ãŒé–‹ãã€ãƒ•ã‚¡ã‚¤ãƒ«åã‚’è¿”ã™ï¼ˆã‚‚ã—ãã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ãï¼‰ ã¨ã„ã†ãƒžã‚¯ãƒã§ã™ã€‚
sippu 2009/10/22
openoffice

excel

vba
ãƒªãƒ³ã‚¯
Office TANAKA - Excel VBA Tips[ãƒ–ãƒƒã‚¯ã‚’é–‹ã‹ãªã„ã§ã‚»ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã‚’èªã‚€]
ã“ã®ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã¯ã€ã‹ãªã‚Šæ˜”ã«æ›¸ãã¾ã—ãŸã€‚æ£ç¢ºãªæ™‚æœŸã¯è¦šãˆã¦ã„ã¾ã›ã‚“ãŒã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®å¤§ãã•ãŒ65,536è¡Œã‚ˆã‚Šå°ã•ã„ãƒ–ãƒƒã‚¯ã«é–¢ã—ã¦è§¦ã‚Œã¦ã„ã¾ã—ãŸã®ã§ã€ãŠãã‚‰ã1998å¹´å‰å¾Œã«æ›¸ã„ãŸã®ã§ã¯ãªã„ã‹ã¨ã€‚22å¹´å‰ã‹ãâ€¦ï½— å†…å®¹ã‚‚ã¡ã‚‡ã£ã¨ã‚¢ãƒ¬ã§ã™ã—ã€æ›¸ãè¶³ã—ãŸã„ã“ã¨ã‚‚ã‚ã‚Šã¾ã™ã®ã§ã€å…¨é¢çš„ã«æ›¸ãç›´ã—ã¾ã™ã€‚ã¡ãªã¿ã«ä»Šã¯ã€2020å¹´9æœˆã§ã™ã€‚ ãªãŠã€æœ¬ç¨¿ã¨"ã»ã¼"åŒã˜å†…å®¹ã‚’YouTubeã®å‹•ç”»ã§å…¬é–‹ã—ã¦ã„ã¾ã™ã€‚æœ¬ç¨¿ã¨ã¯é•ã„ã€100å€‹ã®ãƒ–ãƒƒã‚¯ã‹ã‚‰èªã¿è¾¼ã‚“ã§æ‰€è¦æ™‚é–“ã‚’è¨ˆæ¸¬ã—ã¦ã„ã¾ã™ã®ã§ã€èˆˆå‘³ã®ã‚ã‚‹æ–¹ã¯ã”è¦§ãã ã•ã„ã€‚æœ¬ç¨¿ã¯ã€1ã¤ã®ãƒ–ãƒƒã‚¯ã‹ã‚‰èªã¿è¾¼ã‚€ã¨ã„ã†åŸºæœ¬çš„ãªæ–¹æ³•ã¨ã€å‹•ç”»ã§ã¯ä¼ãˆãã‚Œãªã‹ã£ãŸ"åˆ¶ç´„"ã«é–¢ã—ã¦è©³ã—ãè§£èª¬ã—ã¾ã™ã€‚ Excel 4.0ãƒžã‚¯ãƒã§èªã¿è¾¼ã‚€ åŽŸå‰‡ã¨ã—ã¦Excelã®VBAã¯ã€Excelä¸Šã«èªã¿è¾¼ã‚“ã ãƒ–ãƒƒã‚¯ã‚’æ‰±ã„ã¾ã™ã€‚Excelä¸Šã«é–‹ã„ã¦ã„ãªã„ãƒ–ãƒƒã‚¯ã¯ã€åŽŸå‰‡ã¨ã—ã¦æ“ä½œã§ãã¾ã›ã‚“ã€‚ã“ã®åŽŸå‰‡ã¯ã€ã—
sippu 2009/05/27
excel

vba
ãƒªãƒ³ã‚¯
VBAå¿œç”¨(ãƒ•ã‚©ãƒ«ãƒ€å†…ã®ãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ã®å–å¾—)
å˜ä¸€ãƒ•ã‚©ãƒ«ãƒ€ã¨é…ä¸‹ã®ãƒ•ã‚©ãƒ«ãƒ€ã‚’å«ã‚ãŸãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ã‚’å–å¾—ã—ã¾ã™ã€‚ ã“ã“ã§ã¯ã€å¤ãã‹ã‚‰ã‚ã‚‹Diré–¢æ•°ã‚’ç”¨ã„ãŸå˜ä¸€ãƒ•ã‚©ãƒ«ãƒ€å†…ã®ãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ã®å–å¾—ã‚’è¡Œãªã†ã‚µãƒ³ãƒ—ãƒ«ã¨ã€FileSystemObject(FSO)ã‚’ä½¿ã£ã¦æŒ‡å®šãƒ•ã‚©ãƒ«ãƒ€ã‹ã‚‰é…ä¸‹ã®å…¨ã‚µãƒ–ãƒ•ã‚©ãƒ«ãƒ€ã‚‚å«ã‚ã¦ãƒ•ã‚¡ã‚¤ãƒ«ã®ä¸€è¦§ã‚’å–å¾—ã™ã‚‹2ã¤ã®ã‚µãƒ³ãƒ—ãƒ«ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ ã¾ãšã¯ã€Diré–¢æ•°ã‚’ç”¨ã„ãŸå˜ä¸€ãƒ•ã‚©ãƒ«ãƒ€å†…ã®ãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ã®å–å¾—ã§ã™ã€‚ ãƒ•ã‚©ãƒ«ãƒ€ã®æŒ‡å®šã¯InputBoxã§å…¥åŠ›ã—ã¦ã‚‚ã‚‰ã†ã“ã¨ã«ã—ã¾ã™ã€‚å®Ÿéš›ã®ä¸€è¦§å–å¾—ã¨ã‚·ãƒ¼ãƒˆã¸ã®å±•é–‹ã‚’è¡Œãªã£ã¦ã„ã‚‹è¨˜è¿°ã¯ä¸‹åŠåˆ†ã ã‘ã§ã™ã€‚ '*************************************************************************************************** ' æŒ‡å®šã—ãŸãƒ•ã‚©ãƒ«ãƒ€å†…ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®ä¸€è¦§ã‚’å–å¾— Module1(Module) ' ' ä½œæˆè€…:
sippu 2009/05/27
excel

vba
ãƒªãƒ³ã‚¯
â– - ã¿ãŠã‚“ã“ã€€-ã€€ã»ã¼VBãƒ¡ãƒ¢
ãˆï¼Ÿã‚‚ã†çŸ¥ã£ã¦ã‚‹ã£ã¦ï¼Ÿ ãã‚“ãªå¥´ã¯ãã‚‹ãªï¼ ã¨ã„ã†ã‚ã‘ã§ExecuteExcel4Macro ãŒã™ã”ã„ã‚“ã§ã™ã‚ˆã€‚ æœ€è¿‘ä½œã£ãŸVBAã§ã€Œå°åˆ·ãƒšãƒ¼ã‚¸ã‚’å–å¾—ã€ã£ã¦ã®ãŒã‚„ã‚ŠãŸã‹ã£ãŸã‚“ã§ã™ãŒ ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã¨ã‹ã€€ã“ã‚“ãªã“ã¨è¨€ã„ã‚„ãŒã‚‹ã‚“ã§ã™ã‚ˆ ï¼ˆ2002ç‰ˆã§ã™ãŒï¼‰ '-------------------------------------------------------------------------- ' ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£åï¼š ChangeToolbarProperties ' ã“ã®ã‚µãƒ³ãƒ—ãƒ«ã¯ã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆ Sheet1(ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆå :Sheet1) ã‚’å°åˆ·ã—ãŸ ' æ™‚ã®å°åˆ·ãƒšãƒ¼ã‚¸ã®ç·æ•°ã‚’ MsgBox é–¢æ•°ã‚’ä½¿ç”¨ã—ã¦è¡¨ç¤ºã—ã¾ã™ã€‚ ' '-------------------------------------------------------------------------- Su
sippu 2009/05/27
excel

vba

tips
ãƒªãƒ³ã‚¯
ã‚¨ã‚¯ã‚»ãƒ«ã§ã€è¤‡æ•°ã®ãƒ–ãƒƒã‚¯ã®å„ã‚·ãƒ¼ãƒˆåã®å¤‰æ›´ã‚’ãƒžã‚¯ãƒã§ã‚„ã‚ŠãŸã„ã§ã™ã€‚ãŠçŸ¥æµã‚’ãã ã•ã„ã€‚ - â‘ ãƒ–ãƒƒã‚¯ãŒè¤‡æ•°ï¼ˆ2000è¿‘ãï¼‰ã‚ã‚‹ãŸ... - Yahoo!çŸ¥æµè¢‹
åŒã˜ãƒ•ã‚©ãƒ«ãƒ€ãƒ¼ã«é›†ç´„ã—ã¦ åˆ¥ã®ãƒ–ãƒƒã‚¯ã«ä¸‹è¨˜ã®ã‚³ãƒ¼ãƒ‰ã‚’è¨˜è¼‰ã—ã¦å®Ÿè¡Œã—ã¦ä¸‹ã•ã„ã€‚ å°šã€ã‚³ãƒ¼ãƒ‰ã‚’è¨˜è¼‰ã—ãŸãƒ–ãƒƒã‚¯ã¯å¯¾è±¡å¤–ã¨ã—ã¦ã€åˆã€ï¼©ï¼•ã‚»ãƒ«ãŒç©ºç™½ã®å ´åˆã¯ã‚¹ã‚ãƒƒãƒ—ã—ã¦å‡¦ç†ã—ã¾ã™ã€‚ ------------------- Sub test() Dim path$, wb As Workbook, wbName$ Dim ws As Worksheet, i& path = ThisWorkbook.path & "\" wbName = Dir(path & "*.xls") Do Until wbName = "" If wbName <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & wbName) i = 2 For Each ws In wb.Worksheets If Trim(ws.Range("I5")) <> "" The
sippu 2009/05/27
excel

vba
ãƒªãƒ³ã‚¯
1