[B! excel] blankã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

Excelã«ã€ŒPythonã€æè¼‰æ¤œè¨Žã€€MicrosoftãŒã‚¢ãƒ³ã‚±ãƒ¼ãƒˆå®Ÿæ–½ä¸

Pythonã¯ã€æ©Ÿæ¢°å¦ç¿’ã‚„ãƒ‡ãƒ¼ã‚¿åˆ†æžã®åˆ†é‡Žã§ä¸»ã«ä½¿ã‚ã‚Œã‚‹ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã€‚ãƒ“ã‚ºãƒªãƒ¼ãƒãŒæ±‚äººæƒ…å ±ã‹ã‚‰èª¿æŸ»ã—ãŸã€å›½å†…ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžåˆ¥å¹³å‡å¹´åŽ ãƒ©ãƒ³ã‚ãƒ³ã‚°ã§ã¯ã€2016å¹´ã«1ä½ï¼ˆ651ä¸‡å††ï¼‰ã€2017å¹´ã«2ä½ï¼ˆ601ä¸‡å††ï¼‰ã¨éœ€è¦ãŒé«˜ã„ã€‚Excelã«PythonãŒæè¼‰ã•ã‚Œã‚Œã°ã€Excelã§ã‚ˆã‚Šé«˜åº¦ãªãƒ‡ãƒ¼ã‚¿åˆ†æžã‚„ãƒ“ã‚¸ãƒ¥ã‚¢ãƒ«åŒ–ãŒå¯èƒ½ã«ãªã‚‹ã¨ã„ã†è¦‹æ–¹ã‚‚ã‚ã‚‹ã€‚ é–¢é€£è¨˜äº‹ é§†é€è‰¦ã€Œå³¶é¢¨ã€ç™ºè¦‹ã‹ã€€ãƒãƒ¼ãƒ«ãƒ»ã‚¢ãƒ¬ãƒ³æ°çŽ‡ã„ã‚‹èª¿æŸ»ãƒãƒ¼ãƒ æ—§æ—¥æœ¬æµ·è»ã®é§†é€è‰¦ã€Œå³¶é¢¨ã€ã¨ã¿ã‚‰ã‚Œã‚‹æ®‹éª¸ã‚’ã€ç±³Microsoftã®å…±åŒå‰µæ¥è€…ãƒãƒ¼ãƒ«ãƒ»ã‚¢ãƒ¬ãƒ³æ°ãŒçŽ‡ã„ã‚‹æ°‘é–“ã®èª¿æŸ»ãƒãƒ¼ãƒ ãŒãƒ•ã‚£ãƒªãƒ”ãƒ³ä¸éƒ¨ã®æµ·åº•ã§ç™ºè¦‹ã—ãŸã€‚ Microsoftã€æ¤œç´¢ã‚µãƒ¼ãƒ“ã‚¹ã€ŒBingã€ã«AIæ©Ÿèƒ½ã€€Redditã¨ã®ææºã‚‚ MicrosoftãŒBingã«ãƒ‡ã‚£ãƒ¼ãƒ—ãƒ‹ãƒ¥ãƒ¼ãƒ©ãƒ«ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯æŽ¡ç”¨ã®ã€ŒIntelligent Searchã€æ©Ÿèƒ½ã‚’è¿½åŠ ã—ã€æœ€ã‚‚ä¿¡é ¼ã§ãã‚‹çµæžœã‚’ã‚«ãƒ¼ãƒ‰çŠ¶

blank 2018/06/04

ã“ã‚Œå®Ÿè£…ã•ã‚Œã‚‹ã¨ã—ãŸã‚‰ã„ã¤ã”ã‚ã ã‚ã†â€¦æ—©ãå®Ÿè£…ã—ã¦ã»ã—ã„â€¦

Excel
Python

ãƒªãƒ³ã‚¯

Excel VBAã§Webã‚µãƒ¼ãƒ“ã‚¹ - YouTube APIã§å‹•ç”»ã‚’æ¤œç´¢ã—ã‚ˆã†

ã¯ã˜ã‚ã« ä»Šå›žã¯ã€å‹•ç”»ã‚µã‚¤ãƒˆã§æœ‰åãªã€ŒYouTubeã€ã‚’æ“ä½œã™ã‚‹ãŸã‚ã®APIã‚’åˆ©ç”¨ã—ã¾ã™ã€‚å…¥åŠ›ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã‹ã‚‰ã€Excelã®VBAã§æ¤œç´¢çµæžœãƒªã‚¹ãƒˆã‚’ä½œæˆã™ã‚‹æ–¹æ³•ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆä¸Šã®ä¸€è¦§è¡¨ã«ã¾ã¨ã‚ã‚‹ã“ã¨ã§ã€ç›®çš„ã®å‹•ç”»ãŒæŽ¢ã—ã‚„ã™ããªã‚Šã¾ã™ã€‚ã‚‚ã¡ã‚ã‚“ã€ã‚¿ã‚¤ãƒˆãƒ«ã‚’ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ã¨ã€å®Ÿéš›ã®å‹•ç”»ã‚’ãƒ–ãƒ©ã‚¦ã‚¶ã§è¦‹ã‚‰ã‚Œã¾ã™ã€‚ å‹•ä½œç¢ºèªã¯ã€Windows 7ã€Excel 2010ã€VBA 7.0ãŠã‚ˆã³Windows XPã€Excel 2007ã€VBA 6.5ã§è¡Œã£ã¦ã„ã¾ã™ã€‚ Excel VBAã§Webã‚µãƒ¼ãƒ“ã‚¹ - å¤©æ°—äºˆå ±ã‚’å–å¾—ã—ã¦ã¿ã‚ˆã† Excel VBAã§Webã‚µãƒ¼ãƒ“ã‚¹ - MSNãƒžãƒãƒ¼ã‹ã‚‰æ ªä¾¡ã®æŽ¨ç§»ã‚’å–å¾—ã—ã‚ˆã† Excel VBAã§Webã‚µãƒ¼ãƒ“ã‚¹ - Excelã§æ›¸ç±æƒ…å ±ã‚’æ¤œç´¢ãƒ»å–å¾—ã—ã¦ã¿ã‚ˆã† YouTube APIã«ã‚ˆã‚‹å‹•ç”»ã®æ¤œç´¢ãƒªã‚¯ã‚¨ã‚¹ãƒˆ æ¤œç´¢ãƒªã‚¯ã‚¨ã‚¹ãƒˆã¯ã€æ¬¡ã®URLã«ã€GETãƒªã‚¯ã‚¨ã‚¹ãƒˆã‚’é€ä¿¡

blank 2017/03/02

VBAã§ã‚‚APIä½¿ãˆã‚‹ã®ã‹ã€‚

ãƒªãƒ³ã‚¯

VBAã®ã‚¤ãƒ™ãƒ³ãƒˆã§ã‚ã‚‹Workbook_Open()ã¯ã€Œä¿è·ã•ã‚ŒãŸãƒ“ãƒ¥ãƒ¼ã€ã«ã‚ˆã£ã¦é˜»å®³ã•ã‚Œã‚‹ - ãƒªã‚¯å›ã®ITãªãƒ–ãƒã‚°

ã‚¨ã‚¯ã‚»ãƒ«ãƒžã‚¯ãƒï¼ŒVBAã§ã¶ã¡å½“ãŸã£ãŸå£ã‚’å…±æœ‰ã—ã¾ã™ï¼Ž ã„ã‚ã„ã‚ãªç†ç”±ã§ï¼Œä»¥ä¸‹ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãŒã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã„ãŸæ™‚ã«è¡¨ç¤ºã•ã‚Œã¾ã™ï¼Ž ã“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã¯ã€ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆä¸Šã®å ´æ‰€ã‹ã‚‰å–å¾—ã•ã‚Œã¦ãŠã‚Šã€å®‰å…¨ã§ãªã„å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ã€‚ ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ã¨è©³ç´°ãŒè¡¨ç¤ºã•ã‚Œã¾ã™ã€‚" ã“ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã®å³å´ã«[ç·¨é›†ã‚’æœ‰åŠ¹ã«ã™ã‚‹]ã¨ã‚ã‚‹ã®ã§ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ã¨ç·¨é›†ã§ãã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã™ï¼Ž ã“ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãŒã‚ã‚‹ã¨ï¼Œæœ¬æ¥ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã„ãŸæ™‚ã«ãƒ•ãƒƒã‚¯ã•ã‚Œã‚‹Workbook_Open()ã¯æ£å¸¸ã«å‹•ä½œã›ãšï¼Œã‚¨ãƒ©ãƒ¼ã‚’åãå¯èƒ½æ€§ãŒéžå¸¸ã«é«˜ã„ã§ã™ï¼Ž ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãŒå‡ºã‚‹å ´åˆã¯ä»¥ä¸‹ã®ç†ç”±ã«è©²å½“ã—ã¦ã„ã‚‹ã¯ãšã§ã™ï¼Ž â– ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆä¸Šã®å ´æ‰€ã«ã‚ã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã„ãŸ â– ãƒ¡ãƒ¼ãƒ©ãƒ¼ã®æ·»ä»˜ãƒ•ã‚¡ã‚¤ãƒ«ã§ã‚ã‚Šï¼Œã‹ã¤ãƒãƒªã‚·ãƒ¼ã§é€ä¿¡å…ƒãŒå®‰å…¨ã§ã¯ãªã„ã¨å®šç¾©ã•ã‚Œã¦ã„ã‚‹ â– å®‰å…¨ã§ãªã„å ´æ‰€ï¼ˆãƒ•ã‚©ãƒ«ãƒ€ãªã©ï¼‰ã«ã‚ã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã„ãŸ â– ãƒ•ã‚¡ã‚¤ãƒ«åˆ¶é™æ©Ÿèƒ½ã«ã‚ˆã£ã¦åˆ¶é™ã•ã‚Œã¦ã„ã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã§ã‚ã‚‹

blank 2017/01/13

è¡¨ç´™ã‚·ãƒ¼ãƒˆã‹ã‚‰å®Ÿéš›ã«ä½¿ç”¨ã™ã‚‹ã‚·ãƒ¼ãƒˆã¸ã®ãƒªãƒ³ã‚¯ã‚’å¼µã£ã¦ãŠãã€ä½¿ç”¨ã™ã‚‹ã‚·ãƒ¼ãƒˆ_Activateã‚¤ãƒ™ãƒ³ãƒˆã§Workbook_Openã®å‡¦ç†ã‚’æ›¸ã‘ã°å¯¾å¿œã§ããã†ãªæ°—ãŒã—ã¦ããŸ

excel
vba

ãƒªãƒ³ã‚¯

Excel VBAã§é–¢æ•°åã«å¤‰æ•°ã‚’ä½¿ã†æ–¹æ³•

Excel VBAã§é–¢æ•°åã«å¤‰æ•°ã‚’ä½¿ã†æ–¹æ³•ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ ï¼‘ï¼Žå•é¡Œç‚¹ ä»•äº‹ã§ã€ã‚»ãƒ«ã«è¨å®šã—ãŸ1ã‹ã‚‰10ã®å€¤ã‚’é–¢æ•°åã®ä¸€éƒ¨ï¼ˆcall_1,call_2â€¦ï¼‰ã¨ã—ã¦èµ·å‹•ã•ã›ã‚‹å¿…è¦ãŒç”Ÿã˜ã¾ã—ãŸã€‚ å…·ä½“çš„ã«ã¯ã€æ¬¡ã®ã‚ˆã†ã«é–¢æ•°Testã®ä¸ã§ã‚»ãƒ«ã®å€¤ã‚’å¤‰æ•°nameã«ä¿æŒã—ã€ãã®å€¤ã‚’ä½¿ã£ã¦é–¢æ•°call_1ã‚„call_2ã‚’èµ·å‹•ã•ã›ãªã‘ã‚Œã°ãªã‚Šã¾ã›ã‚“ã€‚ Sub Test() Dim name As String Dim i As Integer For i = 2 To 11 name = Worksheets("Sheet1").Cells(i, 2).value '??? Next i End Sub Sub call_1() '... End Sub Sub call_2() '... End Sub ï¼ˆä¸ç•¥ï¼‰ Sub call_10() '... End Sub ã‚‚ã†å°‘ã—ç°¡å˜ãªã‚µãƒ³ãƒ—ãƒ«ã«ä¿®æ£ã—ã¦ä¸æ˜Žç‚¹

blank 2016/12/07

Excel
VBA

ãƒªãƒ³ã‚¯

ã‚¨ã‚¯ã‚»ãƒ«VBAé«˜é€ŸåŒ–æ‰‹æ³•ï½œãƒ©ãƒ³ã‚ãƒ³ã‚°

ï¼¨ï¼¯ï¼ï¼¥ > VBAé«˜é€ŸåŒ– > ãƒ©ãƒ³ã‚ãƒ³ã‚° VBAé«˜é€ŸåŒ–ãƒ©ãƒ³ã‚ãƒ³ã‚°ä¸€è¦§ ä»¥ä¸‹ã¯ã€ã€ŒGo Go ã‚¨ã‚¯ã‚»ãƒ«ãƒžã‚¯ãƒã‚’ã¯ã˜ã‚ã‚ˆã†ï¼ã€ã‚’é‹å–¶ã™ã‚‹WATã‚¨ã‚¯ã‚»ãƒ«ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚ºã‚»ãƒ³ã‚¿ãƒ¼ãŒå®Ÿæ–½ã—ãŸé€Ÿåº¦è¨ˆæ¸¬ ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ãƒ†ã‚¹ãƒˆã«ã‚ˆã‚‹çµæžœã‚’åŸºã«ã—ãŸé«˜é€ŸåŒ–æ‰‹æ³•ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã‚’é †ä½ä»˜ã‘ã—ã¦ç™ºè¡¨ã™ã‚‹ã‚‚ã®ã§ã™ã€‚ ç¬¬1ä½ 154ç§’â†’11ç§’ã«ã€åœ§å€’çš„ãªå®Ÿã«14å€ã®å·®ãŒå‡ºã¾ã—ãŸã€‚ãƒ»ãƒ»ãƒ»ç”»é¢æ›´æ–°ã®éžè¡¨ç¤º ã§ã‚‚ã€ã¡ã‚‡ã£ã¨è¦‹ã›ã‚‹å·¥å¤«ã‚‚ã—ã¦ã¿ã‚‹ã€‚ãƒ»ãƒ»ãƒ»ç”»é¢æ›´æ–°ã®ã€ŒåŠã€éžè¡¨ç¤º ç¬¬2ä½ è¶…è£ã‚ã–ã§ã€2ä¸‡è¡ŒãŒ6ç§’ã«çŸç¸®ã™ã‚‹ã€‚ãƒ»ãƒ»ãƒ»CSVã®é«˜é€Ÿå–ã‚Šè¾¼ã¿ ç¬¬3ä½ Excelã‚’ä½¿ãˆã°ã€åœ§å€’çš„ã«é€Ÿããªã‚‹ã€‚ãƒ»ãƒ»ãƒ»å¤§é‡ãƒ‡ãƒ¼ã‚¿ã®ã‚½ãƒ¼ãƒˆ ç¬¬4ä½ Rangeã§ãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã«å€¤ã‚’å–ã‚Šå‡ºã™ã€‚ãƒ»ãƒ»ãƒ»ã‚»ãƒ«ã®æŒ‡å®š ç¬¬5ä½ ã‚µãƒ³ãƒ—ãƒ«ï¼‘ã§ã¯34ç§’ãŒã€ã‚µãƒ³ãƒ—ãƒ«ï¼’ã¯1.3ç§’ã§ã—ãŸã€‚ãƒ»ãƒ»ãƒ»ä¸è¦è¡Œã®å‰Šé™¤ é‡è¦ï¼ ãƒžã‚¯ãƒé«˜é€ŸåŒ–ã®æ£ã—ã„æ‰‹é †ã¨VBAã®æ›¸ãæ–¹ãƒ»ãƒ»ãƒ»é«˜é€ŸåŒ–ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ã®æ‰‹é † ç•ª

blank 2013/07/09

QueryTables.Add ã“ã‚“ã©ã‚„ã£ã¦ã¿ã‚ˆã†â€¦ã€‚

excel
vba

ãƒªãƒ³ã‚¯

Office TANAKA - VBAã®å®Ÿè¡Œæ™‚ã‚¨ãƒ©ãƒ¼[â—‹â—‹ã‚¯ãƒ©ã‚¹ã®Ã—Ã—ãƒ¡ã‚½ãƒƒãƒ‰ãŒå¤±æ•—ã—ã¾ã—ãŸã€‚(ãªã©)(ã‚¨ãƒ©ãƒ¼ç•ªå·ï¼š1004)]

Sub Sample1() Range("A1").AutoFit End Sub ã„ã‚ã„ã‚ãªã‚±ãƒ¼ã‚¹ã§ç™ºç”Ÿã™ã‚‹ã‚¨ãƒ©ãƒ¼ã§ã™ã€‚ ä¸Šã®ã‚³ãƒ¼ãƒ‰ã¯ã€ã‚»ãƒ«A1ã«å¯¾ã—ã¦"åˆ—å¹…ã®è‡ªå‹•èª¿æ•´(AutoFitãƒ¡ã‚½ãƒƒãƒ‰)"ã‚’å®Ÿè¡Œã—ã‚ˆã†ã¨ã—ãŸãŸã‚ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã¾ã—ãŸã€‚AutoFitãƒ¡ã‚½ãƒƒãƒ‰ã¯ã€è¡Œå˜ä½ã¾ãŸã¯åˆ—å˜ä½ã«å¯¾ã—ã¦å®Ÿè¡Œã—ãªã„ã¨ã„ã‘ãªã„ã‹ã‚‰ã§ã™ã€‚æ£ã—ãã¯ã€æ¬¡ã®ã‚ˆã†ã«ã—ã¾ã™ã€‚ Sub Sample1() Range("A1").Columns.AutoFit End Sub ã¾ãŸã¯ Sub Sample1() Range("A1").EntireColumn.AutoFit End Sub ã¿ãŸã„ã«ã€‚ Excel 2007ã®VBAã§ã¯[ãƒ˜ãƒ«ãƒ—]ãƒœã‚¿ãƒ³ã‚’ã‚¯ãƒªãƒƒã‚¯ã—ã¦ã‚‚ã€è§£èª¬ãƒšãƒ¼ã‚¸ãŒé–‹ãã¾ã›ã‚“ã§ã—ãŸã€‚ Excel 2003ã®VBAãƒ˜ãƒ«ãƒ—ã§ã¯ã€æ¬¡ã®ã‚ˆã†ã«è¨˜è¼‰ã•ã‚Œã¦ã„ã¾ã™ã€‚ ãƒžã‚¯ãƒ ã‚¨ãƒ©ãƒ¼ å®Ÿè¡Œä¸ã®ãƒžã‚¯ãƒã«ã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¾ã—

blank 2013/05/16

å®Ÿè¡Œæ™‚ã‚¨ãƒ©ãƒ¼1004ã§ã®ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ä¸€è¦§ä½œã‚ŠãŸã„â€¦ã€‚ Accessã ã¨ AccessErrorãƒ¡ã‚½ãƒƒãƒ‰ã£ã½ã„ã®ã ãŒã€‚

excel
vba

ãƒªãƒ³ã‚¯

Excel 2007 ã«ãŠã‘ã‚‹ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã®æ”¹å–„

ã“ã®ãƒ–ãƒ©ã‚¦ã‚¶ãƒ¼ã¯ã‚µãƒãƒ¼ãƒˆã•ã‚Œãªããªã‚Šã¾ã—ãŸã€‚ Microsoft Edge ã«ã‚¢ãƒƒãƒ—ã‚°ãƒ¬ãƒ¼ãƒ‰ã™ã‚‹ã¨ã€æœ€æ–°ã®æ©Ÿèƒ½ã€ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£æ›´æ–°ãƒ—ãƒã‚°ãƒ©ãƒ ã€ãŠã‚ˆã³ãƒ†ã‚¯ãƒ‹ã‚«ãƒ« ã‚µãƒãƒ¼ãƒˆã‚’åˆ©ç”¨ã§ãã¾ã™ã€‚ Charles Williams (Decision Models Limited) 2006 å¹´ 10 æœˆ é©ç”¨å¯¾è±¡: Microsoft Office Excel 2007 Microsoft Office Excel 2003 Microsoft Excel 2002ã€Microsoft Excel 2000 è¦ç´„: Microsoft Office Excel 2007 ã§ã®ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆå®¹é‡ã®æ‹¡å¤§ã¨ã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¨è¨ˆãŠã‚ˆã³ä½œæˆã™ã‚‹éš›ã€è¨ˆç®—ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã‚’æ”¹å–„ã™ã‚‹ãŸã‚ã«åˆ©ç”¨ã§ãã‚‹ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã«ã¤ã„ã¦å¦ã³ã¾ã™ã€‚ ç›®æ¬¡ ã¯ã˜ã‚ã« Excel 2007 ã® "å¤§ããªã‚°ãƒªãƒƒãƒ‰" ã¨ä¸Šé™ã®æ‹¡å¤§ è¨ˆç®—é€Ÿåº¦ãŒé‡è¦ã§ã‚

blank 2013/04/10

ãƒªãƒ³ã‚¯

ã‚¨ã‚¯ã‚»ãƒ«VBA ScreenUpdatingã¨EnableEventsã‚’æˆ»ã—å¿˜ã‚Œãªã„ã‚¯ãƒ©ã‚¹ - ãƒãƒªãƒšãƒ‚ã‚£ã‚¢

å‡¦ç†é€Ÿåº¦çš„ã«ç”»é¢æ›´æ–°ã‚’åœã‚ãŸãã¦Application.ScreenUpdatingã‚’åˆ‡ã£ãŸã‚Šã€ã‚»ãƒ«ãƒã‚§ãƒ³ã‚¸ã‚¤ãƒ™ãƒ³ãƒˆã®ç™ºç”ŸãŒå¾ªç’°ã—ãŸã‚‰ã‚¤ãƒ¤ãƒ³ãªæ™‚ã«Application.EnableEventsã‚’åˆ‡ã‚‹ã“ã¨ãŒè‰¯ãã‚ã‚Šã¾ã™ã€‚ä¸€æ–¹ã€ã‚¨ãƒ©ãƒ¼ãªã©è¤‡é›‘ãªåˆ†å²ã§Exit Subã‚’ã‚„ã‚‹ã¨ã€ã—ã‚‡ã£ã¡ã‚…ã†ã©ã£ã‹ã§æˆ»ã—å¿˜ã‚Œã¦ã—ã¾ã„ã¾ã™ï¼ˆç§ã ã‘ï¼Ÿï¼‰Application.EnableEventsãªã‚“ã‹ã¯ã¨ãã«ã€Œã‚¢ãƒ¬ã€ã‚¢ãƒ¬ãƒ¬ï¼Ÿã€ãªã“ã¨ã«ãªã‚Šã¾ã™ï¼ˆã‚¢ãƒ¬ã‚„ã£ã±ã‚Šç§ã ã‘ï¼Ÿ æ³¨æ„åŠ›ã®è©±ã¯ã¨ã‚‚ã‹ãæ—¢çŸ¥ã®ãƒ’ãƒ¥ãƒ¼ãƒžãƒ³ã‚¨ãƒ©ãƒ¼ã‚’æ”¾ç½®ã™ã‚‹ã®ã¯è‰¯ããªã„ã®ã§ã€ã“ã‚“ãªæ™‚ã“ãã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ã€‚å‡¦ç†ã®é€”ä¸ã§å‘¼ã³å‡ºã—ãŸã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã‚„é–¢æ•°ãŒãã®ä¸ã§å†ã³ã‚¯ãƒ©ã‚¹ã‚’å¤šé‡ç”Ÿæˆã—ã¦ã‚‚å¤§ä¸ˆå¤«ãªã€å‚ç…§ã‚«ã‚¦ãƒ³ã‚¿ã‚¯ãƒ©ã‚¹ã®ã‚ˆã†ãªã‚‚ã®ã‚’ä½œã£ã¦ã¿ã¾ã—ãŸã€‚ã‚¯ãƒ©ã‚¹ã®ç”Ÿæˆæ™‚ã«ã‚°ãƒãƒ¼ãƒãƒ«ãªã‚«ã‚¦ãƒ³ã‚¿ã‚’å›žã—ã€ãã®éš›ã‚«ã‚¦ãƒ³ã‚¿ãŒã‚¼ãƒã ã£ãŸã‚‰ScreenUpdatingã‚’Falseã«ã—ã¾ã™

blank 2013/04/10

ä¾¿åˆ©ã‹ã‚‚

excel
vba

ãƒªãƒ³ã‚¯

HYPERLINKé–¢æ•°ã§ã€åŒã˜ãƒ–ãƒƒã‚¯å†…ã®ã‚·ãƒ¼ãƒˆã«ãƒã‚¤ãƒ‘ãƒ¼ãƒªãƒ³ã‚¯:Excel(ã‚¨ã‚¯ã‚»ãƒ«)ã®é–¢æ•°ãƒ»æ•°å¼ã®ä½¿ã„æ–¹/æ¤œç´¢ãƒ»è¡Œåˆ—

ä¸Šè¨˜ã®è¨˜è¿°ã‚’ã™ã‚‹ã¨å…¥åŠ›ã—ãŸã‚»ãƒ«ã«ã¯ã€Œâ– ã€ãŒè¡¨ç¤ºã•ã‚Œã€ãƒªãƒ³ã‚¯ãŒè¨å®šã•ã‚Œã¾ã™ã€‚ ã‚·ãƒ¼ãƒˆåã€ŒSheet1ã€ã®å‰ã«ã€ã€Œ#ã€ã‚’è¨˜è¿°ã™ã‚‹ã¨ã“ã‚ãŒãƒã‚¤ãƒ³ãƒˆã§ã™ã€‚ ã€ŒSheet1!A1ã€ã¯Sheet1ã®A1ã‚»ãƒ«ã‚’å‚ç…§ã™ã‚‹ã¨ãã«ç”¨ã„ã‚‹è¨˜è¿°å½¢å¼ã§ã™ã‹ã‚‰ã€ã¤ã„ã€Œ=HYPERLINK("Sheet1!A1","â– ")ã€ã¨ã‚„ã£ã¦ã—ã¾ã„ãŒã¡ã§ã™ãŒã€ã“ã‚Œã§ã¯ãƒªãƒ³ã‚¯ã¯æ£ã—ãè¨å®šã•ã‚Œãšãƒªãƒ³ã‚¯ã‚’ã‚¯ãƒªãƒƒã‚¯ã—ãŸã¨ãã«ã‚¨ãƒ©ãƒ¼ã¨ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ HTMLã®è¨˜è¿°ã§ã€åŒã˜ãƒ•ã‚¡ã‚¤ãƒ«å†…ã«ãƒªãƒ³ã‚¯ã‚’å¼µã‚‹ã¨ãã«ã€Œ<a href="#name">ã€ã¨ã„ã£ãŸè¨˜è¿°ã‚’ã™ã‚‹ã‚ã‘ã§ã™ãŒã€ãã‚Œã¨åŒã˜ã“ã¨ã§ã€Œ#ã€ã‚’ã¤ã‘ãªã‘ã‚Œã°ã„ã‘ã¾ã›ã‚“ã€‚ ã‚·ãƒ¼ãƒˆåä¸€è¦§ã‚’ä½œæˆã—ã¦ãŠã„ã¦ã‹ã‚‰HYPERLINKé–¢æ•°ã‚’åˆ©ç”¨ã™ã‚Œã°ã€ãƒªãƒ³ã‚¯ã‚’ã‚¯ãƒªãƒƒã‚¯ã—ã¦è©²å½“ã™ã‚‹ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¡¨ç¤ºã•ã›ã‚‹Wordã®ç›®æ¬¡ã®ã‚ˆã†ãªã‚·ãƒ¼ãƒˆã‚’ä½œã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚ ä¾‹ãˆã°Båˆ—ã«ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆåãŒè¡¨ç¤ºã•ã‚Œã¦ã„ã‚‹ã¨ãã«ã€A

blank 2013/04/05

ã‚«ãƒƒã‚³ã¨ã‹ä½¿ã‚ã‚Œã¦ã„ã‚‹å ´åˆã¯ã©ã†ã™ã‚‹ã‚“ã ã‚ã†ã€‚

excel
Tips

ãƒªãƒ³ã‚¯

Excelã®ã‚ªãƒ¼ãƒˆã‚·ã‚§ã‚¤ãƒ—ä¸ã®æ–‡å—ã‚’æ¤œç´¢ã™ã‚‹æ–¹æ³• - ãã‚ˆãã‚‰ã®å‚™å¿˜éŒ²

Mizoæ°ã¨IMä¼šè©±ä¸ã€è‰¯ãã‚ã‚‹ã€Œä»•æ§˜æ›¸ã‚’Excelã§æ›¸ãã®ä½•ã¨ã‹ãªã‚‰ã‚“ã‹ãã€ç³»ã®ãƒœãƒ¤ã‚è©±ã®æµã‚Œã§ã€ŒåŸ‹ã‚è¾¼ã‚“ã ã‚ªãƒ¼ãƒˆã‚·ã‚§ã‚¤ãƒ—ã®æ–‡å—ã£ã¦æ¤œç´¢ã—ã«ãã„ã—ãã€œã€‚ã€ã¨ç™ºè¨€ã—ãŸã¨ã“ã‚ã€ã€ŒExcelã«åŸ‹ã‚è¾¼ã‚“ã ã‚ªãƒ¼ãƒˆã‚·ã‚§ã‚¤ãƒ—ä¸ã®æ–‡å—ã£ã¦ã©ã†ã‚„ã£ã¦æ¤œç´¢ã™ã‚‹ã®ï¼Ÿã€ã¨ã„ã†è³ªå•ãŒã€‚ æ¨ªæ–æ¤œç´¢ç³»ï¼ˆï¼Ÿï¼‰*1ã¨ã‹ã§ãªãã€ã‚‚ã†ã¡ã‚‡ã£ã¨æ‰‹è»½*2ãªæ–¹æ³•ã‚’ä¼ãˆãŸã¨ã“ã‚ã€çµæ§‹ãƒ’ãƒƒãƒˆã—ãŸã‚ˆã†ãªåå¿œã‚’é ‚ã„ãŸã®ã§ã€æ„å¤–ã«çŸ¥ã‚‰ã‚Œã¦ã„ãªã„ã®ã‹ãªã¨æ€ã„ã€ã“ã“ã«æ›¸ã„ã¦ã¿ã‚‹ãƒ†ã‚¹ãƒˆ*3ã€‚ å¤§ã—ãŸã“ã¨ã§ã¯ãªãã¦ã€å˜ã« 1.æ¤œç´¢ã—ãŸã„Excelã‚’é–‹ã 2.htmlã¨ã—ã¦ä¿å˜ã™ã‚‹ 3.IEã§é–‹ã„ã¦æ¤œç´¢ã™ã‚‹ãªã‚Šã€grepã‹ã‘ã‚‹ãªã‚Šã”éšæ„ã« ã¨ã„ã†æ„Ÿã˜ã€‚ å˜ä¸€ã‚·ãƒ¼ãƒˆã ã¨IEã§é–‹ãã¨WYSWYGã§æ¤œç´¢ã§ãã‚‹ã‘ã©ã€è¤‡æ•°ã‚·ãƒ¼ãƒˆã«ã‚ãŸã‚‹å ´åˆã¯å¾®å¦™ã§ã™ã€‚ ãŒã€ã¾ã‚ã¨ã‚Šã‚ãˆãšgrepã‹ã‘ã‚Œã‚‹ã ã‘ã§çµæ§‹ç´ æ•µãªã‚±ãƒ¼ã‚¹ã‚‚ã‚ã‚‹ã®ã§ã€å’„å—Ÿã®å ´åˆã«ã¯é‡å®ã—ã¦ãŠã‚Šã¾ã™ã€‚ PDF

blank 2013/03/25

HTMLåŒ–ã—ã¡ã‚ƒã†ã¨ã¯ã€‚ãªã‚‹ã»ã©ã€‚

excel

ãƒªãƒ³ã‚¯

æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã§ãƒ‡ãƒ¼ã‚¿ãŒãªã„æ‰€ã‚’ï¼ã¨ã—ãªã„ | ã‚¨ã‚¯ã‚»ãƒ«è¡“

ã¡ã‚‡ã£ã¨ã‚ã‹ã‚Šã«ãã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã®ã§ã€ã¾ãšä¸‹ã®è¡¨ã¨æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã‚’è¦‹ã¦ãã ã•ã„ã€‚ ã“ã®ã‚°ãƒ©ãƒ•ã¯5è¡Œç›®ã®é™ç•Œåˆ©ç›ŠçŽ‡ã‚’æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã«ã—ãŸã‚‚ã®ã§ã™ãŒã€3æœˆã«æ³¨ç›®ã€‚å£²ä¸Šé«˜ã€å¤‰å‹•åŽŸä¾¡ãŒå…¥ã£ã¦ã„ãªã„ç‚ºã«è¨ˆç®—å¼ã§ç®—å‡ºã—ã¦ã„ã‚‹5è¡Œç›®ã®é™ç•Œåˆ©ç›ŠçŽ‡ã¯#DIV/0!ã¨ãªã£ã¦ã„ã¾ã™ã€‚ï¼ˆG5ã®è¨ˆç®—å¼ã¯=G4/G2ï¼‰ ãã‚Œæ•…ã«3æœˆã®æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã¯0ã¨ãªã£ã¦å³è‚©ä¸‹ãŒã‚Šãªå°è±¡ã‚’å—ã‘ã¦ã—ã¾ã„ã¾ã™ã€‚ã¾ãŸã€é¡žä¼¼æ›²ç·šã‚’è¡¨ç¤ºã•ã›ãŸå ´åˆã«ã¯ï¼ã‚’å«ã‚“ã é¡žä¼¼æ›²ç·šã«ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ ã§ã¯æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã‚’2æœˆã¾ã§ã§åˆ‡ã£ã¦3æœˆã‚’è¡¨ç¤ºã—ãªã„ã‚ˆã†ã«ã™ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰è‰¯ã„ã§ã—ã‚‡ã†ã‹ã€‚ ã„ã˜ã£ãŸã‚»ãƒ«ã®å®¿å‘½ ä¸Šã®ä¾‹ã§ã¯G5ã¯#DIV/0!ã‚¨ãƒ©ãƒ¼ã«ãªã£ã¦ã¾ã™ã€‚0ã§å‰²ã‚‹ã“ã¨ã¯å‡ºæ¥ã¾ã›ã‚“ã‹ã‚‰ã€‚ã§ã¯#DIV/0!ã˜ã‚ƒãªã‹ã£ãŸã‚‰å¤§ä¸ˆå¤«ãªã®ã‹ï¼Ÿ ã„ã„ãˆã€ä»®ã«IFã§â€â€ï¼ˆãƒ‡ãƒ¼ã‚¿ç„¡ï¼‰ã¨ã—ãŸã‚Š0ã¨è¡¨ç¤ºã•ã›ã¦ã‚‚ã‚°ãƒ©ãƒ•ã¯0ã¨è¡¨ç¤ºã—ã¦ã—ã¾ã„ã¾ã™ã€‚ =IF(G2=â€â€,â€â€,G

blank 2013/03/25

ã‚ãˆã¦ã‚¨ãƒ©ãƒ¼ã«ã™ã‚‹ã®ã‹ã€‚

excel
Graph

ãƒªãƒ³ã‚¯

Excelï¼š ãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ã«ãƒ¦ãƒ¼ã‚¶ãƒ¼å®šç¾©ã®é›†è¨ˆãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã‚’è¿½åŠ ã™ã‚‹ã«ã¯ - æ•™ãˆã¦ï¼HELPDESK

ãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ã«ã¯ã€å…ƒãƒ‡ãƒ¼ã‚¿ã«ã¯ãªã„é›†è¨ˆãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã‚’è¿½åŠ ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ä¾‹ â†“ã®ã‚ˆã†ã«ã€ç¤¾å“¡åˆ¥ã®ä½¿ç”¨é‡‘é¡ã®åˆè¨ˆã‚’å‡ºã—ãŸãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ãŒã‚ã‚‹ã¨ã—ã¾ã™ã€‚ ã€Œ3ä¸‡å††ã¾ã§ã¯ä¼šç¤¾ã§å‡ºã—ã¦ãã‚Œã‚‹ã€ã®ã§ã€ãã‚Œä»¥ä¸ŠãŒç¤¾å“¡ã®å€‹äººè² æ‹…ã¨ãªã‚Šã¾ã™ã€‚ å€‹äººè² æ‹…é‡‘ãŒã„ãã‚‰ãªã®ã‹ã€ã‚’è¡¨ç¤ºã™ã‚‹ã€Œå€‹äººè² æ‹…ã€ãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã‚’è¿½åŠ ã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ ãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ã‚’é¸æŠž ã€Œã‚ªãƒ—ã‚·ãƒ§ãƒ³ã€ã‚¿ãƒ–ï¼ã€Œãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰/ã‚¢ã‚¤ãƒ†ãƒ /ã‚»ãƒƒãƒˆâ–¼ã€ï¼ã€Œé›†è¨ˆãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã€ã‚’ã‚¯ãƒªãƒƒã‚¯ ã€Œåå‰ã€ãƒœãƒƒã‚¯ã‚¹ã«ã€Œå€‹äººè² æ‹…ã€ã¨å…¥åŠ› ã€Œæ•°å¼ã€ãƒœãƒƒã‚¯ã‚¹ã«ã‚«ãƒ¼ã‚½ãƒ«ã‚’ç½®ãã€ã€Œä½¿ç”¨é‡‘é¡ã€ã‚’é¸æŠžã—ã¦ã€Œãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ã®æŒ¿å…¥ã€ã‚’ã‚¯ãƒªãƒƒã‚¯ "-30000"ã¨å…¥åŠ›ã—ã¦ã€æ•°å¼ãŒã€Œ= ä½¿ç”¨é‡‘é¡-30000ã€ã¨ãªã£ã¦ã„ã‚‹ã“ã¨ã‚’ç¢ºèªã—ã¦ã€ŒOKã€ã‚’ã‚¯ãƒªãƒƒã‚¯ â†“â†“ãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ã«å€‹äººè² æ‹…ãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰ãŒè¿½åŠ ã•ã‚Œã€å€‹äººè² æ‹…é‡‘ãŒé›†è¨ˆã•ã‚Œã¾ã—ãŸã€‚ ï¼ˆãƒ¬ã‚¤ã‚¢ã‚¦ãƒˆã¯ç•°ãªã‚‹å ´åˆãŒã‚ã‚Šã¾ã™ï¼‰ â˜… ãƒ¦ãƒ¼ã‚¶ãƒ¼å®šç¾©

blank 2013/03/21

ãƒ”ãƒœãƒƒãƒˆãƒ†ãƒ¼ãƒ–ãƒ«ã«æ•°å¼å…¥ã‚Œã‚‰ã‚Œã‚‹ã®ã‹ã€‚ãŸã ã€ã¡ã‚‡ã£ã¨ã‚¯ã‚»ãŒã‚ã‚Šãã†ã

excel
PIVOT

ãƒªãƒ³ã‚¯

[Excel] çµåˆã‚»ãƒ«ã‚’å«ã‚“ã è¡Œã®é«˜ã•ã‚’è‡ªå‹•èª¿æ•´ã™ã‚‹VBA - ã‚¤ãƒ³ãƒ•ãƒ©ãƒ¡ãƒ³ã‚³

[Excel] çµåˆã‚»ãƒ«ã‚’å«ã‚“ã è¡Œã®é«˜ã•ã‚’è‡ªå‹•èª¿æ•´ã™ã‚‹VBA Mar022010 Author: ã‚´ãƒªä¸¸ Categories: ãã®ä»–, ITé–¢é€£ Tags: Excel, VBA, å¤‰æ› Bookmarks: äººãŒç™»éŒ² Prev Page: Thunderbirdã§URLã‚’ã‚¯ãƒªãƒƒã‚¯ã—ã¦ã‚‚ãƒ–ãƒ©ã‚¦ã‚¶ãŒé–‹ã‹ãªããªã£ãŸå ´åˆã®å¯¾å‡¦ Excelã®ä»•æ§˜ã§ã€çµåˆã‚»ãƒ«ã‚’å«ã‚“ã è¡Œã«å¯¾ã—ã¦ã¯ã€é«˜ã•ã®è‡ªå‹•èª¿æ•´ãŒã†ã¾ãå‹•ä½œã—ã¾ã›ã‚“ã€‚ VBAã§ã¯Rangeã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã«AutoFitãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚Šã¾ã™ãŒã€ã“ã‚Œã‚‚çµåˆã‚»ãƒ«ã§ã¯åŒã˜ãæ£å¸¸ã«å‹•ä½œã—ã¾ã›ã‚“ã€‚ ãã‚Œã‚’è§£æ±ºã™ã‚‹VBAã‚’ä½œã‚Šã¾ã—ãŸã€‚ã¨ã„ã£ã¦ã‚‚ã€å…ƒãƒã‚¿ã¯ä»¥ä¸‹ã®ãƒšãƒ¼ã‚¸ã®ã‚³ãƒ¼ãƒ‰ã§ã™ã€‚ ã‚¨ã‚¯ã‚»ãƒ«ã§çµåˆã—ãŸã‚»ãƒ«ã®é«˜ã•ã®è‡ªå‹•èª¿æ•´æ–¹æ³•ï¼Ÿ(1/1) | OKWave ã„ãã¤ã‹æ”¹å–„ã—ãŸãƒã‚¤ãƒ³ãƒˆãŒã‚ã‚Šã¾ã™ã€‚ è¡Œå…¨ä½“é¸æŠžã€åˆ—å…¨ä½“é¸æŠžã€ã‚·ãƒ¼ãƒˆå…¨ä½“é¸æŠžæ™‚ã§ã‚‚ã€å‡¦ç†å¯¾è±¡ã‚»ãƒ«ãŒè†¨å¤§ã«ãªã‚‰ãªã„

blank 2013/03/08

excel
vba

ãƒªãƒ³ã‚¯

ã‚¨ã‚¯ã‚»ãƒ«ã§æ•°å¼ã‚’ãã®ã¾ã¾ä»–ã®ã‚»ãƒ«ã«è²¼ã‚Šä»˜ã‘ã‚‹æ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„ã€‚ - ãŸã¨ãˆã°ï¼¡ï¼‘ã®ã‚»ãƒ«ã«ã€=A2+A3ã¨ã„ã†æ•°å¼ãŒã‚ã£ãŸã¨ã—ã¾ã™ã€‚... - Yahoo!çŸ¥æµè¢‹

æ•°å¼ã®æ•°ãŒå¤šã„ã®ã§ æ•°å¼ã®ã‚³ãƒ”ãƒ¼ãŒVBAã§ã‚‚ã‚ˆã‘ã‚Œã°ã€ä¸‹è¨˜ã®ã‚ˆã†ã«ã™ã‚‹ã¨ã§ãã‚‹ã¨æ€ã„ã¾ã™ã€‚ EXCELã®ç”»é¢ã§ã€ã‚·ãƒ¼ãƒˆåã®ã¨ã“ã‚ï¼ˆé€šå¸¸Sheet1ã¨ãªã£ã¦ã„ã‚‹ã¨ã“ã‚ï¼‰ã‚’å³ã‚¯ãƒªãƒƒã‚¯ã€ã‚³ãƒ¼ãƒ‰ã®è¡¨ç¤ºã‚’é¸æŠžã—ã¾ã™ã€‚ VBEã®ç”»é¢ãŒé–‹ãã¾ã™ã®ã§ã€ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‚ˆã‚Šã€ŒæŒ¿å…¥ã€â†’ã€Œæ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€ã‚’é¸æŠžã—ã¾ã™ã€‚ ä¸‹è¨˜ã®ã‚³ãƒ¼ãƒ‰ã‚’å³ä¸‹ã®åºƒã„ã¨ã“ã‚ã«è²¼ã‚Šä»˜ã‘ã¾ã™ã€‚ ------------------------------------------------- Sub æ•°å¼ã‚³ãƒ”ãƒ¼() Dim A As Variant Dim Res As Range On Error Resume Next Set Res = Application.InputBox(Prompt:="è²¼ã‚Šä»˜ã‘å…ˆã‚’æŒ‡å®šã—ã¦ãã ã•ã„ã€‚", Type:=8) If Err.Number Then Exit Sub If Selection.Count

blank 2013/03/08

æ•°å¼ã®=ã‚’ç½®æ›ã™ã‚‹ã¨ã„ã†ç™ºæƒ³ã¯ãªã‹ã£ãŸï½—

excel

ãƒªãƒ³ã‚¯

http://yaplog.jp/purplish-blog/archive/1838

blank 2013/02/19

excel
vba

ãƒªãƒ³ã‚¯

Excel VBA ã§æ¡ä»¶ä»˜ãæ›¸å¼ãŒãšã‚Œã‚‹ | ITãƒ—ãƒãƒ‡ãƒ¥ãƒ¼ã‚¹ç†Šæœ¬

ã‚ã‚‹æ¡ˆä»¶ã§ã€Excelã‚·ãƒ¼ãƒˆã‚’å…¨è‡ªå‹•ã§ä½œã‚‹å¿…è¦ãŒå‡ºã¾ã—ãŸã€‚ ã¾ã‚ã€ãã®ç¨‹åº¦ã¯VBAã§è§£æ±ºãƒ»ãƒ»ãƒ»ã€ã¨æ€ã£ãŸã‚‰ã€æ¡ä»¶ä»˜ãæ›¸å¼ã«æŒ‡å®šã—ãŸå¼ãŒãšã‚Œã¦ã—ã¾ã†ãƒ»ãƒ»ãƒ»ã€‚ åˆã‚ã¯å‡¡ãƒŸã‚¹ã‹ã¨æ€ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’ç¢ºèªã—ã¦ã‚‚ã€ãŠã‹ã—ãªç‚¹ã¯è¦‹å½“ãŸã‚‰ãªã„ã€‚ ã§ã€ãƒãƒƒãƒˆã§èª¿ã¹ã¦ã¿ãŸã‚‰ã€ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆå…¬èªã®Excelã®ãƒã‚°ã§ã—ãŸã€‚ ãƒã‚°ã®æ¦‚è¦ ãƒã‚°ãŒç™ºç”Ÿã™ã‚‹æ¡ä»¶ã¯ã€ Excel2000ä»¥é™ï¼ˆå°‘ãªãã¨ã‚‚2007ã§ã¯ç™ºç”Ÿï¼‰ æ¡ä»¶ä»˜ãæ›¸å¼ã¯VBAã§æŒ‡å®šã™ã‚‹ æ¡ä»¶ã¯ ç›¸å¯¾ã‚»ãƒ«å‚ç…§ ã§æŒ‡å®šã™ã‚‹ é¸æŠžã—ãŸã‚»ãƒ«ä»¥å¤–ã«æ¡ä»¶ä»˜ãæ›¸å¼ã‚’æŒ‡å®šã™ã‚‹ ã¨ã„ã†ã‚‚ã®ã€‚è©³ç´°ã¯ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã®ãƒšãƒ¼ã‚¸ã‚’ã¿ã¦ãã ã•ã„ã€‚ å›žé¿æ–¹æ³• ä»Šå›žã®æ¡ˆä»¶ã§ã¯ã€ä¸Šã®3ã¤ã¯ã©ã†ã—ã¦ã‚‚å›žé¿ã§ããªã„é …ç›®ã§ã—ãŸã€‚ ï¼ˆãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã®ãƒšãƒ¼ã‚¸ã§ã¯ã€ã€ŒVBAä½¿ã†ãªã€ã¨ã‹ã€Œçµ¶å¯¾å‚ç…§ã§æ›¸ã‘ã€ãªã‚“ã¦å›žé¿æ–¹æ³•ãŒç´¹ä»‹ã•ã‚Œã¦ã¾ã—ãŸï¼‰ ã§ã‚‚ã€æœ€å¾Œã®ã€Œé¸æŠžã—ãŸã‚»ãƒ«ä»¥å¤–ã«ï½žã€ã¨ã„ã†é …ç›®ã¯å›žé¿ã§ãã¾ã™ã€‚ è¦ã¯ã€

blank 2013/02/15

ãƒªãƒ³ã‚¯

Office 2013(ã‚ªãƒ•ã‚£ã‚¹2013)ã®ä½¿ã„æ–¹

ã€Žã‚¤ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ãƒ¼ã®ãƒã‚¿å¸³ã€ã§ã¯ã€2003å¹´10æœˆã‹ã‚‰Microsoft Officeã®ä½¿ã„æ–¹ãªã©ã‚’ç´¹ä»‹ã—ç¶šã‘ã¦ã„ã¾ã™ã€‚ PowerPoint VBA æœ¬ã¯ã€å®Ÿã¯ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãƒ–ãƒ©ã‚¦ã‚¶ãƒ¼ã®ä½¿ã„æ–¹ã‚’å¾¹åº•çš„ã«è§£èª¬ã—ãŸæœ¬ã§ã™â†“â†“ ã€Žã‚¤ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ãƒ¼ã®ãƒã‚¿å¸³ã€ã‚’é‹å–¶ã™ã‚‹ä¼Šè—¤æ½”äººãŒã€åˆã‚ã¦æ›¸ã‹ã›ã¦ã„ãŸã ã„ãŸæ›¸ç±ã§ã™â†“â†“ æ—¥çµŒBPç¤¾ã‹ã‚‰å‡ºç‰ˆã•ã‚ŒãŸã€Excel VBAãƒ¦ãƒ¼ã‚¶ãƒ¼å‘ã‘ã®Pythonè¶…å…¥é–€æ›¸ã§ã™â†“â†“ ä¸Šè¨˜ã®ã€ŽExcel VBAãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ãŸã‚ã®Pythonãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã€ã®ã€å…ƒã«ãªã£ãŸã‚ãƒ³ãƒ‰ãƒ«æœ¬ã§ã™â†“â†“ å›³å½¢ã‚’æ“ä½œã™ã‚‹Excel VBAã®åŸºæœ¬ã‚’è§£èª¬ã—ãŸã‚ãƒ³ãƒ‰ãƒ«æœ¬ã‚’å‡ºã—ã¾ã—ãŸâ†“â†“ ã‚°ãƒ©ãƒ•ã‚’æ“ä½œã™ã‚‹Excel VBAã®åŸºæœ¬ã‚’è§£èª¬ã—ãŸã‚ãƒ³ãƒ‰ãƒ«æœ¬ã§ã™â†“â†“ Pythonã®æ–‡å—åˆ—ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã®åŸºæœ¬ã‚’ã‚ãƒ³ãƒ‰ãƒ«æœ¬ã¨ã—ã¦ã¾ã¨ã‚ã¾ã—ãŸâ†“â†“ å°æ•°ã¨Pythonã®decimalãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®åŸºæœ¬ã‚’ã‚ãƒ³ãƒ‰ãƒ«æœ¬ã¨ã—ã¦ã¾ã¨ã‚ã¾ã—ãŸ

blank 2013/02/06

excel
office

ãƒªãƒ³ã‚¯

ç§ã¯ä»•äº‹ã§ã‚¨ã‚¯ã‚»ãƒ«ã‚’ä½¿ã„VBAãƒžã‚¯ãƒã‚’ã‚ˆããƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã™ã‚‹ãŒã€ä¸€å®šæ™‚é–“ã”ã¨ã«å‡¦ç†ã—ãŸã„ã¨ããªã©ãŒã‚ˆãã‚ã‚‹ã€‚ å‡¦ç†ã—ãŸå¾Œã§Application.OnTimeã‚’ä½¿ãˆã°å¯èƒ½ã§ã‚ã‚‹ã®ã ãŒã€ãã®åº¦ã«ä¸€çž¬ç ‚æ™‚è¨ˆã«ãªã£ãŸã‚Šã€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‰ã˜ã¦ã‚‚ã¾ãŸèµ·å‹•ã—ãŸã‚Šã€ã¨ã€ã‚ã¾ã‚Šç§ã¯å¥½ãã§ã¯ãªã„ã€‚ ã¨ã“ã‚ãŒã€ã“ã®å‰Win32ã®SetTimeré–¢æ•°ã‚’åˆ©ç”¨ã—ã¦ãƒžã‚¯ãƒã®é–¢æ•°ã‚’å‘¼ã³å‡ºã™ã“ã¨ãŒã§ãã‚‹ã“ã¨ã‚’çŸ¥ã‚Šã€è©¦ã—ã«ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã—ã¦ã¿ãŸã€‚ (æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«) Public Declare Function SetTimer Lib "USER32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTi

blank 2012/11/28

#EXCEL #VBA settimerå¼·çƒˆã ãªã€‚ãŸã ã€ã†ã¾ãæ¢ã‚ã‚‰ã‚Œãªã„...ã€‚

ãƒªãƒ³ã‚¯

ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã›

ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“ã‚¹ã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“ã‚¹ã‚’çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ ä»Šå¾Œã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”æ„›é¡§ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚

blank 2012/08/01

WORKDAYé–¢æ•°ã¯Excel2003ç’°å¢ƒã§ã®åˆ©ç”¨ã‚’æƒ³å®šã™ã‚‹ã¨ä½¿ãˆãªã„ã€‚ä»£æ›¿æ–¹æ³•ã‚’æŽ¢ã—ã¦ã„ã‚‹ã€‚WORKDAYé–¢æ•°ã‚’ä½¿ç”¨ã—ã¦å–¶æ¥æ—¥ãƒžã‚¹ã‚¿ã‚’ä½œæˆâ†’VLOOKUPã•ã›ã¦ã„ã‚‹ãŒã€ã“ã£ã¡ã®æ–¹ãŒã‚¹ãƒžãƒ¼ãƒˆã‹ãªãã€‚

Excel

ãƒªãƒ³ã‚¯

ã‚¨ã‚¯ã‚»ãƒ«ã®VBAã§æ–°ã—ããƒ–ãƒƒã‚¯ã‚’é–‹ã„ãŸä¸Šã§ã•ã‚‰ã«â€¦ - OKWAVE

ç‰¹åˆ¥ã«å…¬é–‹ã—ã¾ã™ã€‚ 'â˜…â˜…â˜†ã€€ãƒžã‚¯ãƒã«ãƒžã‚¯ãƒã‚’ä½œã‚‰ã›ã‚‹ã€€â˜†â˜…â˜… Option Explicit Sub start() 'æ–°ã—ã„ãƒ–ãƒƒã‚¯ä½œæˆ Workbooks.Add [C1] = "ç§ã®åå‰ã¯ " & ActiveWorkbook.Name & " ã§ã™" [C1].Font.ColorIndex = 3 'ãƒžã‚¯ãƒèµ·å‹•ç”¨ãƒœã‚¿ãƒ³ã®ä½œæˆ ActiveSheet.Buttons.Add(50, 30, 320, 30).Select Selection.OnAction = ActiveWorkbook.Name & "!SUMPLE" Selection.Characters.Text = "ç§ã¯æ–°ãƒ–ãƒƒã‚¯ã«æ–°ã—ãä½œã‚‰ã‚ŒãŸæ–°ãƒžã‚¯ãƒå®Ÿè¡Œãƒœã‚¿ãƒ³ã§ã™" [A1].Select 'æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’æŒ¿å…¥ ActiveWorkbook.VBProject.VBComponents.Add vbext_ct

blank 2012/07/13

excel
VBA

ãƒªãƒ³ã‚¯

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

ã‚¿ã‚°

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (26)

excelã«é–¢ã™ã‚‹blankã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (55)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬3é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬2é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´2æœˆï¼‰

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

ã‚¿ã‚°

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (26)

excelã«é–¢ã™ã‚‹blankã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (55)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬3é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬2é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2025å¹´2æœˆï¼‰

å…¬å¼Twitter

ã‚­ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

é–¢é€£ã‚¿ã‚°ã§çµžã‚Šè¾¼ã‚€ (26)

excelã«é–¢ã™ã‚‹blankã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (55)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬3é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´3æœˆç¬¬2é€±ï¼‰

æœˆé–“ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´2æœˆï¼‰

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹