今月ã®æœˆã®æœ€å¾Œã®æ—¥(月ã®æœ«æ—¥)を調ã¹ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
エクセルＶＢＡã§ã„ãã¤ã‚‚アプリケーションを作ã£ã¦ã„ã‚‹ã¨ã€ エクセルＶＢＡã®æ—¥ä»˜å‡¦ç†ã§æœˆã®æœ€å¾Œã®æ—¥ã‚’調ã¹ãŸã„ã¨ã(日付ã®æƒ…å ±ã‚’ å–å¾—ã—ãŸã„ã¨ã)ãŒå‡ºã¦ãã‚‹ã¨æ€ã„ã¾ã™ã€‚ãŸã¨ãˆã°ã€ç‰¹å®šã«ã‚»ãƒ«ã«ã€ 指定ã—ã¦æœˆã®æœ«æ—¥ã‚’表示ã•ã›ãŸã„å ´åˆãªã©ã€‚月ã®æœ«æ—¥ã‚’調ã¹ã‚‹ã®ã¯ã€ DateSerial関数を使ãˆã°ã€å‰²ã¨ç°¡å˜ãªè¨˜è¿°ã§èª¿ã¹ã‚‰ã‚Œã¾ã™ã€‚ [記述例]　月ã®æœ€å¾Œã®æ—¥(月末)を調ã¹ã‚‹VBA記述 Sub test() '変数ã®å®£è¨€ Dim a As Date '月ã®æœ€å¾Œã®æ—¥ã‚’調ã¹ã‚‹ a = DateSerial(Year(Now), Month(Now) + 1, 1) - 1 '最後ã®æ—¥ã‚’表示ã™ã‚‹ MsgBox a End Sub [動作ã¨ãƒ—ãƒã‚°ãƒ©ãƒ ã®èª¬æ˜Ž] VBAプãƒã‚°ãƒ©ãƒ ã®å‹•ä½œã¯å˜ç´”ã§ã™ã€‚実行ã™ã‚‹ã¨ã€æœˆã®æœ€å¾Œã®æ—¥ä»˜ã‚’表示ã—ã¾ã™ã€‚ ã¾ãšã€å¤‰æ•°ã‚’宣言ã—ã€ãã®å¤‰æ•°ã«DateSerial関数を使ã£ã¦èª¿ã¹ãŸæ—¥ä»˜ã‚’ 代入ã—
ワークシートã®æž ç·šã‚’éžè¡¨ç¤ºã«ã—ãŸã‚Šã€å†è¡¨ç¤ºã•ã›ãŸã‚Šã™ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
エクセルã®ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã«è¡¨ç¤ºã•ã‚Œã¦ã„ã‚‹æž ç·šã‚’Excel VBAã¯ã€ éžè¡¨ç¤ºã«ã—ãŸã‚Šã€å†è¡¨ç¤ºã•ã›ãŸã‚Šã™ã‚‹ã“ã¨ãŒç°¡å˜ã«ã§ãã¾ã™ã€‚ エクセルＶＢＡã§ä½•ã‹ã‚¢ãƒ—リケーションを作りã€ã€Œãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆä¸Šã§ã¯ã€ å¿…è¦éƒ¨åˆ†ä»¥å¤–ã¯æž 線を表示ã•ã›ãŸããªã„ãªã。ã€ã¨æ€ã†ã“ã¨ãŒ ã‚ã‚‹ã¨æ€ã„ã¾ã™ã€‚一応ã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®æž ç·šã®è¡¨ç¤ºï¼éžè¡¨ç¤ºã®è¨å®šæž ã¯ã€ 別ã«ã€Excel VBAã§ã‚„らãªãã¦ã‚‚ã€ã‚ªãƒ—ションã®ãƒ€ã‚¤ã‚¢ãƒã‚°ã‹ã‚‰ã€ 自由ã«è¡¨ç¤ºï¼éžè¡¨ç¤ºã®è¨å®šãŒã§ãã¾ã™ã€‚ã—ã‹ã—ã€ï¼¶ï¼¢ï¼¡ã§ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã® æž ç·šã®è¡¨ç¤ºï¼éžè¡¨ç¤ºã‚’制御ã—ãŸæ–¹ãŒã€è‡ªåˆ†ã§ã‚¨ã‚¯ã‚»ãƒ«ã®ã‚¢ãƒ—リケーションを ä½œã‚‹å ´åˆã¯ã€ã„ã‚ã„ã‚ã¨éƒ½åˆãŒè‰¯ã‹ã£ãŸã‚Šã—ã¾ã™ã€‚今回ã¯ã€Excel VBA㧠ワークシートã®æž ç·šã®è¡¨ç¤ºï¼éžè¡¨ç¤ºã®åˆ¶å¾¡ã®è¨˜è¿°ã‚’æ•™ãˆãŸã„ã¨æ€ã„ã¾ã™ã€‚ [記述例]　ワークシートã®æž ç·šã‚’éžè¡¨ç¤ºã«ã—ãŸã‚Šã€å†è¡¨ç¤ºã•ã›ãŸã‚Šã™ã‚‹VBA記述 Sub test() 'ワークシートã®æž ç·šã‚’éžè¡¨ç¤º
æ–°ã—ã„ワークシート(Sheet)をブック(Book)ã«è¿½åŠ ã™ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
Excel(エクセル)ã®ãƒ–ック(Book)ã«ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã—ãŸã„å ´åˆã¯ã€ ワークシート(Sheet)タブ上ã‹ã‚‰å³ã‚¯ãƒªãƒƒã‚¯ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‚’表示ã•ã›ã¦ã€ 「挿入ã€ã‚’é¸ã³ã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã™ã‚Œã°è‰¯ã„ã®ã§ã™ãŒã€ Excel VBAã§ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®è¿½åŠ æ“作を行ã†VBAã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ 作りãŸã„å ´åˆãŒã‚ã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“。今回ã¯ã€ã‚¨ã‚¯ã‚»ãƒ«ã®ãƒ–ック㫠新ã—ã„ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã—ãŸã„å ´åˆã€Excel VBAã§ã©ã®ã‚ˆã†ã« 記述ã™ã‚Œã°ã„ã„ã®ã‹æ•™ãˆãŸã„ã¨æ€ã„ã¾ã™ã€‚ãã®è¨˜è¿°ã¯ã€å‰²ã¨ç°¡å˜ã§ã™ã€‚ [記述例]　新ã—ã„ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã™ã‚‹VBA記述 Sub test() 'アクティブシートã®å¾Œã‚ã«æ–°ã—ã„ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã™ã‚‹ Worksheets.Add after:=ActiveSheet 'メッセージを表示 MsgBox "アクティブシートã®å¾Œã‚ã«æ–°ã—ã„ã‚·ãƒ¼ãƒˆã‚’è¿½åŠ ã—ã¾ã—ãŸã€‚" End Sub [動作ã¨ãƒ—ãƒã‚°ãƒ©ãƒ ã®èª¬æ˜Ž] å‹•
表ã®æŒ‡å®šã—ãŸåˆ—(連続ã—ãŸãƒ‡ãƒ¼ã‚¿)ã®æœ€çµ‚è¡Œ(下端ã®ã‚»ãƒ«)を調ã¹ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
エクセルã®ã‚·ãƒ¼ãƒˆä¸Šã«è¡¨ãŒã‚ã£ã¦ã€ãã®è¡¨ã®ã‚る指定ã—ãŸåˆ—ã®æœ€çµ‚è¡Œ (連続ã—ãŸãƒ‡ãƒ¼ã‚¿ã®ä¸‹ç«¯ã®ã‚»ãƒ«)を調ã¹ãŸã„å ´åˆãŒã‘ã£ã“ã†ã‚ã‚‹ã¨æ€ã„ã¾ã™ã€‚ 個人的ã«ã¯è¡¨ã®æœ€å¾Œã®ã‚»ãƒ«ã‚’調ã¹ã‚‹(移動ã™ã‚‹)VBAマクãƒã¯è‰¯ã使ã„ã¾ã™ã€‚ ã©ã†ã„ã†æ™‚ã«ä½¿ã†ã‹ã¨è¨€ã†ã¨ã€ãŸã¨ãˆã°ã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ãƒ•ã‚©ãƒ¼ãƒ ã§ãƒ†ã‚スト㮠入力フォームを表示ã•ã›ã€ãã“ã«ãƒ‡ãƒ¼ã‚¿ã‚’入力ã•ã›ã¦ã€ ãã®å…¥åŠ›ã•ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã‚’表ã®æœ€å¾Œã«è¿½åŠ ã—ãŸã‚Šã¨ã‹ã€‚ ã¾ãŸã€æœ€æ–°ã®ãƒ‡ãƒ¼ã‚¿ãŒè¡¨ã®ä¸€ç•ªä¸‹ã«ã‚ã‚‹å ´åˆãªã©ã«çž¬æ™‚㫠最後ã®ãƒ‡ãƒ¼ã‚¿ã‚’å–り出ã—ãŸã‚Šã€ãƒ‡ãƒ¼ã‚¿ã®æœ€å¾Œã«ã‚«ãƒ¼ã‚½ãƒ«ã‚’移動ã•ã›ãŸã‚Šã§ãã¾ã™ã€‚ ã“ã®ã‚ˆã†ã«è¤‡é›‘ãªå‡¦ç†ã‚’ã‚„ã‚ŠãŸã„å ´åˆã«ã€é€£ç¶šã—ãŸãƒ‡ãƒ¼ã‚¿ã®æœ€å¾Œã‚’調ã¹ã‚‹å‡¦ç†ã¯ çµæ§‹ä½¿ã„ã¾ã™ã€‚ãã‚Œã§ã¯ã€è¡¨ã®æŒ‡å®šã—ãŸåˆ—(連続ã—ãŸãƒ‡ãƒ¼ã‚¿)ã®æœ€çµ‚行を調ã¹ã‚‹ VBAã®è¨˜è¿°ã§ã™ã€‚(連続ã—ãŸãƒ‡ãƒ¼ã‚¿ã®ä¸‹ç«¯ã®ã‚»ãƒ«ã‚’調ã¹ã‚‹VBAã®è¨˜è¿°ã§ã™ã€‚) [記述例]　表ã®æŒ‡å®šã—ãŸåˆ—ã®æœ€çµ‚行を調ã¹ã‚‹VBA記述 Sub te
指定ã—ãŸã‚»ãƒ«ç¯„囲をé¸æŠžçŠ¶æ…‹ã«ã™ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
Excel VBA(エクセルＶＢＡ)ã§ã€ä»»æ„ã®æŒ‡å®šã—ãŸã‚»ãƒ«ç¯„囲をé¸æŠžçŠ¶æ…‹ã«ã™ã‚‹ ＶＢＡã®è¨˜è¿°ã§ã™ãŒã€Selectメソッドã‹ã€Activateメソッドを使ãˆã°ã€ ã™ã”ãç°¡å˜ã«ã‚»ãƒ«ã®ç¯„囲をé¸æŠžçŠ¶æ…‹ã«ã§ãã¾ã™ã€‚セルã®é¸æŠžã¨ã„ㆠå˜ç´”ãªå‹•ä½œã§ã™ãŒã€Excel VBAプãƒã‚°ãƒ©ãƒ ã§ç‰¹åˆ¥ãªå‹•ä½œã‚’ã•ã›ãŸã„ã¨ã㫠セルã®ä»»æ„ã®é¸æŠžç¯„囲をé¸æŠžçŠ¶æ…‹ã«ã—ãŸã‚Šã™ã‚‹ã“ã¨ã¯è‰¯ã使ã†ã®ã§ã€ 是éžã¨ã‚‚覚ãˆã¦ãŠããŸã„Excel VBAプãƒã‚°ãƒ©ãƒ テクニックã®ï¼‘ã¤ã§ã™ã€‚ [記述例]　指定ã—ãŸã‚»ãƒ«ç¯„囲をé¸æŠžçŠ¶æ…‹ã«ã™ã‚‹VBA記述 Sub test() 'Selectメソッドを使ã£ã¦ã€æŒ‡å®šã—ãŸç¯„囲ã®ã‚»ãƒ«ã‚’é¸æŠžçŠ¶æ…‹ã«ã™ã‚‹ Range("A1:E5").Select 'メッセージを表示 MsgBox "Selectメソッドを使ã£ã¦ã€ã‚»ãƒ«ã‚’é¸æŠžçŠ¶æ…‹ã«ã—ã¾ã—ãŸã€‚" 'Activateメソッドを使ã£ã¦ã€æŒ‡å®šã—ãŸç¯„囲ã®ã‚»ãƒ«ã‚’é¸æŠžçŠ¶æ…‹ã«ã™ã‚‹ Ran
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
処ç†ã‚’一定時間æ¢ã‚ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
マウスカーソルã§é¸æŠžã•ã‚Œã¦ã„る範囲ã®ã‚»ãƒ«ã®æ•°ã‚’調ã¹ã‚‹(カウントã™ã‚‹)Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
カーソルãŒç§»å‹•ã§ãる範囲をè¨å®šã™ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
表ã®æŒ‡å®šã—ãŸè¡Œ(連続ã—ãŸãƒ‡ãƒ¼ã‚¿)ã®æœ€çµ‚列(å³ç«¯ã®ã‚»ãƒ«)を調ã¹ã‚‹Excel VBAã®è¨˜è¿°ï¼šExcel NAVI（エクセル ナビ）
Excel2010ã§é–‹ç™ºã‚¿ãƒ–を表示ã•ã›ã‚‹æ–¹æ³•ï¼šExcel NAVI（エクセル ナビ）
{{#tags}}- {{label}}
{{/tags}}