ã€VBA】テーブルã®ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã¨è§£é™¤ã€AutoFilterã¨ShowAutoFilterを使ã†ã€‘
Excel VBAã§ã€ãƒ†ãƒ¼ãƒ–ルã®ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã¨ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã‚’解除ã™ã‚‹ã«ã¯ã€ã€Œ.AutoFilterã€ã¨ã€Œ.ShowAutoFilterã€ã‚’使ã„ã¾ã™ã€‚「見出ã—ã€ã‚’使ã£ã¦ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã™ã‚‹ã¨ã€åˆ—を移動ã—ã¦ã‚‚ã€åŒã˜VBAコードã§ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã§ãã‚‹ã®ã§ä¾¿åˆ©ã§ã™ã€‚VBAã§ã®ãƒ†ãƒ¼ãƒ–ルæ“作をマスターã—ã¦ã„ãã¾ã—ょã†ã€‚
モダンãªVBAã®æ›¸ãæ–¹
「糞VBAコードã®ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ãŒæ¸›ã‚Šã¾ã™ã‚ˆã†ã«ã€‚ãªã‚€ãªã‚€ã€ VBAã¯ã€éžå¸¸ã«å¤ã„(VB6ベース)ã®è¨€èªžãªã®ã§ã€æ—¢å˜ã®ã‚³ãƒ¼ãƒ‰ã¯ã€éžå¸¸ã«èªã¿é›£ã„物ãŒå¤šã„ã§ã™ã€‚ã—ã‹ã—ã€æœ€è¿‘ã€ã¡ã‚‡ã£ã¨ã—ãŸã“ã¨ã‚’VBAã§æ›¸ã„ã¡ã‚ƒã†ã¨ã„ã†ã‚½ãƒªãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã¯ã€æ¡ˆå¤–一般的ã«ãªã‚Šã¤ã¤ã‚るよã†ã«æ€ã„ã¾ã™(ã“れ自体ã¯æ‚ªã„ã“ã¨ã§ã¯ãªã„ã¨æ€ã†)。新ã—ã書ãVBAã®ã‚³ãƒ¼ãƒ‰ã‚’ã©ã†æ›¸ãã¹ãã‹ï¼Ÿã¨ã„ã†è‡ªåˆ†ãªã‚Šã®æ„見をçºã‚ã¦ã¿ã¾ã—ãŸã€‚ã“ã‚Œã¯ã€VBAã§å®Œå…¨ãªOOPã‚’ã—ã‚ã¨è¨€ã£ã¦ã„ã‚‹ã‚‚ã®ã§ã¯ãªãã€å˜ç´”ãªæ§‹é€ 化ã•ã‚ŒãŸå°ã•ã„関数を組ã¿åˆã‚ã›ã¦ãƒ—ãƒã‚°ãƒ©ãƒ を書ãæ–¹é‡(関数型言語ã®ã“ã¨ã§ã¯ãªã„)を勧ã‚ã‚‹ã‚‚ã®ã§ã™ã€‚ 変数宣言を強制ã™ã‚‹ï¼ ã“ã‚Œã¯ã€è‡ªåˆ†ã®ãŸã‚。ã¨ã«ã‹ã書ã。オプションã§è¨å®šã—ã¦ãŠã‘ã°è‡ªå‹•ã§æŒ¿å…¥ã•ã‚Œã‚‹ã€‚ 変数宣言ã¯ã€å¿…è¦ã«ãªã£ãŸã¨ã“ã‚ã§å®£è¨€ã™ã‚‹ï¼ ãã®ã‚³ãƒ¼ãƒ‰ã‚’èªã‚€äººã«ã€ã„ã¡ã„ã¡ã€é–¢æ•°ã®å…ˆé ã¾ã§ã‚¹ã‚¯ãƒãƒ¼ãƒ«ã•ã›ã‚‹ãªã€‚変数ã®æœ‰åŠ¹ç¯„囲をãªã‚‹ã¹ãç‹ãã™ã‚‹ã“
第5回　WshShellオブジェクトã®è©³ç´°ï¼ˆ1）
FCã®ã‚ˆã†ãªã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ãƒ»ãƒ„ールを実行ã™ã‚‹å ´åˆã«ã¯ã€Execメソッドを利用ã™ã‚‹æ–¹æ³•ã‚‚ã‚る。Execメソッドもã€ãƒ‘ラメータã¨ã—ã¦å®Ÿè¡Œã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ を指定ã™ã‚‹ç‚¹ã§ã¯Runメソッドã¨é•ã„ã¯ãªã„。ã—ã‹ã—å‰è¿°ã—ãŸã¨ãŠã‚Šã€Execメソッドを利用ã™ã‚Œã°ã€çµ‚了コードã®å–å¾—ã ã‘ã§ãªãã€æ¨™æº–入出力を通ã—ã¦ã‚³ãƒžãƒ³ãƒ‰ã«ã‚ªãƒ—ションを与ãˆãŸã‚Šã€ã‚³ãƒžãƒ³ãƒ‰å®Ÿè¡Œã®çµæžœã‚’å–å¾—ã—ãŸã‚Šã§ãるよã†ã«ãªã‚‹ã€‚ ã¾ãŸExecメソッドã¯ã€æˆ»ã‚Šå€¤ã¨ã—ã¦WshScriptExecオブジェクトを返ã™ã€‚å‰è¿°ã—ãŸã‚¯ãƒ©ã‚¹æ§‹æˆå›³ã‹ã‚‰åˆ†ã‹ã‚‹ã¨ãŠã‚Šã€WshScriptExecオブジェクトã«ã¯Statusã€StdInã€StdOutã€StdErrã€ExitCodeã€ProcessIDã®6ã¤ã®ãƒ—ãƒãƒ‘ティãŒã‚る。
第5回　WshShellオブジェクトã®è©³ç´°ï¼ˆ1）
ãã‚Œã§ã¯ã€WshShellã®ãƒ¡ã‚½ãƒƒãƒ‰ã‚„プãƒãƒ‘ティã«ã¤ã„ã¦è©³ã—ã見ã¦ã„ãã“ã¨ã«ã—よã†ã€‚ã¾ãšã¯Runメソッドã¨Execメソッドã§ã‚る。ã“れら2ã¤ã¯ã€ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’èµ·å‹•ã™ã‚‹ãŸã‚ã®ãƒ¡ã‚½ãƒƒãƒ‰ã§ã‚る。 Runメソッドã¨Execメソッド Office製å“ã‚„Internet Explorerãªã©ã€COMオブジェクトã¨ã—ã¦æä¾›ã•ã‚Œã¦ã„ã‚‹ã‚‚ã®ã¯ã€WScriptオブジェクトã®CreateObjectメソッドやGetObjectメソッドを利用ã—ã¦ã‚ªãƒ–ジェクトを生æˆã—ã€ç”Ÿæˆã—ãŸã‚ªãƒ–ジェクトを直接æ“作ã—ãŸæ–¹ãŒãã‚ç´°ã‹ã„処ç†ãŒè¡Œãˆã‚‹ãŒã€ã“ã®æ–¹æ³•ã¯COMオブジェクトãŒæä¾›ã•ã‚Œãªã„プãƒã‚°ãƒ©ãƒ ã§ã¯ä½¿ãˆãªã„。Windows標準ã®ãƒ†ã‚スト・エディタã§ã‚るメモ帳やã€æ¯”較的å°è¦æ¨¡ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã§ã¯ã€COMオブジェクトã¨ã—ã¦ã®ã‚¢ã‚¯ã‚»ã‚¹æ–¹æ³•ãŒæä¾›ã•ã‚Œã¦ã„ãªã„å ´åˆãŒå¤šã„。ã“ã‚Œã«å¯¾ã—RunメソッドやExecメソッドã§ã¯ã€å®Ÿè¡Œå½¢å¼ã®ãƒ•ã‚¡ã‚¤ãƒ«ã•ãˆã‚
Office TANAKA - Excel VBA Tips[MS-DOSコマンドã®æ¨™æº–出力をå–å¾—ã™ã‚‹]
ã¾ãŸã‚‚や「Excel VBAã¨é–¢ä¿‚ãã‡ã˜ã‚ƒãーã‹ï¼ã€ã¨è¨€ã‚ã‚Œãã†ã§ã™ãŒã€ä»Šå›žã¯MS-DOSコマンドã®æ¨™æº–出力を変数ã«å–å¾—ã™ã‚‹æ–¹æ³•ã‚’解説ã—ã¾ã™ã€‚ã“ã‚Œã¯ã‚‚ã†ã€Excelã¨ã¯é–¢ä¿‚ãªã„VBç³»ã®ãƒã‚¿ãªã‚“ã§ã™ã。ãŸã 実行環境ãŒExcelã£ã¦ã ã‘ã§(^^; ã¾ã€ã„ーや書ã„ã¡ã‚ƒãˆã€‚MS-DOSã£ã¦ä½•ã®ã“ã¨ã ã‹ã‚ã‹ã‚‰ãªã„人ã¯ã€è‡ªåˆ†ã§èª¿ã¹ã¦ãã ã•ã„(^^; ãªãŠã€ã“ã“ã§ã¯Windows XP Home Editionを例ã«è§£èª¬ã—ã¾ã™ã€‚ MS-DOSã®ã‚³ãƒžãƒ³ãƒ‰ã«ã¯ä»Šã§ã‚‚便利ã«ä½¿ãˆã‚‹ã‚‚ã®ãŒå¤šã„ã§ã™ã—ã€ä½•ã‚ˆã‚Šãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã‚’管ç†ã•ã‚Œã¦ã„ã‚‹æ–¹ã¯å¿…é ˆã‚³ãƒžãƒ³ãƒ‰ã§ã™ã€‚VBã‚„VBAã‹ã‚‰MS-DOSコマンドを実行ã™ã‚‹ã¨ãã«ã¯ã€å•é¡ŒãŒ2ã¤ã‚ã‚Šã¾ã™ã€‚1ã¤ã‚ã¯Shell関数ã§èµ·å‹•ã§ããªã„ã“ã¨ã§ã™ã€‚MS-DOSコマンドã¯ã„ã‚ゆるDOS窓ã§èµ·å‹•ã™ã‚‹ä»•çµ„ã¿ã«ãªã£ã¦ã„ã¾ã™ã®ã§ã€Shell関数ã§ã¯èµ·å‹•ã§ãã¾ã›ã‚“。2ã¤ã‚ã®å•é¡Œã¯ã€å®Ÿè¡Œçµæžœã‚‚DOS
EXCELã®VBAã§
＞ã¾ãŸã€æ–‡å—ã®å‰å¾Œã«ã¤ã„ã¦ã„ã‚‹ã€"（ダブルコーテーション）を外ã—ã¦ã€ 以下ã®ã‚³ãƒ¼ãƒ‰ã§ã¯ã€ãƒ€ãƒ–ルコーテーションãŒå¿…è¦ãªå ´æ‰€ã«ã¯ä»˜ä¸Žã•ã‚Œã¾ã™ãŒã€ãã‚Œã¯CSVã‚’æ£ã—ã出力ã™ã‚‹ãŸã‚ã«å¿…è¦ãŒã‚ã‚‹ã‹ã‚‰ã§ã™ã€‚例ãˆã°ã€æ”¹è¡Œã‚³ãƒ¼ãƒ‰ã‚’å«ã‚€ãƒ‡ãƒ¼ã‚¿ã‚’CSV出力ã™ã‚‹ã¨ã€ã“ã®ãƒ€ãƒ–ルコーテーションãŒç„¡ã„ã¨ã†ã¾ã出力ã•ã‚Œã¾ã›ã‚“。 コードã§ã™ãŒã€å‹¿è«– Open ã§é–‹ã„ã¦ä¸€è¡Œãšã¤å‡¦ç†ã—ã¦ã„ã£ã¦ã‚‚OKãªã®ã§ã™ãŒã€EXCELã«ã¯CSV出力機能ãŒã‚ã‚‹ã®ã ã‹ã‚‰ã€ã“れを利用ã—ã¾ã—ãŸã€‚コードãŒå˜ç´”化ã•ã‚Œã¾ã™ã€‚ ã¾ãŸã€å‡¦ç†ä»¶æ•°ãŒå¤šã„å ´åˆã€VBAã§è‡ªåŠ›ã§ã‚´ãƒªã‚´ãƒªã‚„るよりã¯ã€ã‚³ãƒ³ãƒ‘イルã•ã‚ŒãŸEXCELã®æ©Ÿèƒ½ã‚’利用ã™ã‚‹æ–¹ãŒé«˜é€Ÿã§ã™ã€‚ Sub EXPORT_CSV() Dim TargetArea As Range Dim WB As Workbook '対象範囲を定義 Set TargetArea = Sheets("Sheet1").Rang
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}