VBA
ä»åã¯ãå¯è¦ã»ã«ã®ã¿ãåå¾ããSpecialCells(xlCellTypeVisible)ã¡ã½ãã使ç¨æã®ãã°ã¨ããã¯ã®åé¿æ¹æ³ã«ã¤ãã¦èãã¦ã¿ããã¨æãã¾ãã VBAçã§ã¯æåï¼ãªã®ãã©ããåããã¾ããããé表示ã®è¡ã¾ãã¯åãã·ã¼ãå ã«1以ä¸ããç¶æ ã§ãåä¸ã»ã«å¯¾ãã¦Speâ¦
ä»åã¯ãªã¼ããã£ã«ã¿ã§çµãè¾¼ãã§ããå°å·ãããã¨ããä½æ¥ãèªååãã¦ã¿ããã¨æãã¾ãããããªã¤ã¡ã¼ã¸ã ãã®è¡¨ã®ååã®åã§ã "ãã¼ã·ã§ã³"ã§çµã込㿠å°å· "éã®é"ã§çµã込㿠å°å· "ãã§ããã¯ã¹ã®å°¾"ã§çµã込㿠å°å· "ã¨ãªã¯ãµã¼"ã§çµã込㿠å°å· â¦
ä»åã¯æå®æååã®å·¦å´ã¾ãã¯å³å´ãåãåºãã³ã¼ããèãã¦ã¿ããã¨æãã¾ããä¾ãã°ãæ°åãããã¹ãã¼ã¹ãå¢ã«ãã¦å§ã¨åãåãåºããã・・・・・・ãã¨ãããã ããããªã®ã¯æ¢ã«ä¸ã®ä¸ã«ããæ°ãããã®ã§ãããããåæ©é²ãã å¦çãèãã¦ã¿ããã¨æãã¾ãã â¦
ã¨ã¯ã»ã«ã使ç¨ãã¦ããã¨ãè¡ã®é«ããåã®å¹ ãã³ãã¼ãã¦ä»ã®è¡ã»åã«é©ç¨ãããã¨ããããã¾ãããããªã¨ãã¯ã©ãããã°ããã§ããããï¼ ç®æ¬¡ å½¢å¼ãé¸æãã¦è²¼ãä»ãããæ¹æ³ é«ããå¹ ã確èªãã¦ãããä»ã®è¡ã»åã«è¨å®ããæ¹æ³ ãã¯ãã§é©ç¨ããæ¹æ³ å½¢â¦
ååã¯è¤æ°ã®æåã®è²ã§ããããä»åã¯è¤æ°ã®ã»ã«ã®è²ã§ãã£ã«ã¿ãªã³ã°ãã¦ã¿ã¾ããããå 容ã¯ä¸é¨ãååã¨éè¤ãã¾ãã®ã§ãäºæ¿ãã ããã kouten0430.hatenablog.com ã¨ã¯ã»ã«ã®ãªã¼ããã£ã«ã¿ã¼ã¯ã»ã«ã®è²ã§ãã£ã«ã¿ã¼ãããããã¨ãã§ãã¾ãããè²ã¯ä¸ã¤â¦
ã¨ã¯ã»ã«ã®ãªã¼ããã£ã«ã¿ã¼ã¯æåã®è²ã§ãã£ã«ã¿ã¼ãããããã¨ãã§ãã¾ãããè²ã¯ä¸ã¤ããæå®ã§ãã¾ãããã¾ããè¤æ°ã®ã»ã«ãé¸ãã§å³ã¯ãªãã¯ããããã£ã«ã¿ã¼ãâãé¸æããã»ã«ã®ãã©ã³ãè²ã§ãã£ã«ã¿ã¼ãããããã¨ãã¦ããè¤æ°ã®é¸æç¯å²ã«å¯¾ãã¦ã¯å®â¦
ä»åã¯é£æ¥ããã»ã«ã®ãã¼ã¿ãåãã§ããã°ãã»ã«çµåãããã¨ããã³ã¼ããä½ã£ã¦ã¿ããã¨æãã¾ãã ãããã ãã»ã«çµåã¯ãªãã¹ãé¿ããã¹ãã ãããã«ã»ã«çµåããããæ°ã¯æ» ãã§ã»ããã ãæåãããã®æ©è½ãç¡ããã°ããã£ãã ã¨ããããããªå£°ããâ¦
ä»åã¯æååã®éä¸ï¼ãããã¯å é ãæ«å°¾ï¼ã«åå¨ããæ°åã«ãæå®å¤ãå æ¸ç®ããã¦ã¿ããã¨æãã¾ãããã§ãã¤ãã§ã«æå®å¤ã§ã¤ã³ã¯ãªã¡ã³ãã»ãã¯ãªã¡ã³ããªããããããããå¦çã®ã¤ã¡ã¼ã¸ã¯ãããªã®ã 欲ãè¨ãã°ãå ¨è§æ°åã§ãå¦çã§ããããã«ããããâ¦
ä»åã¯ãã¨ã¯ã»ã«ã®ã·ã¼ãä¸ã«ã»ã«ã®èæ¯è²ã使ã£ã¦ããããããç»åãæç»ãã¦ã¿ããã¨æãã¾ããæä½æ¥ã§1ã»ã«ãã¤ã¡ã¾ã¡ã¾ã¨ï½¥ï½¥ï½¥ï½¥ï½¥ï½¥ã§ã¯ãªãVBAã§ãã§ããä½æ ãããããããã¨æã£ãã®ãã¯èªåã§ãè¬ã§ãã ã§ã¯ããã£ã¦ã¿ã¾ãããï¼ ãããããããã¡ã¤â¦
ä»åã¯VBAã使ã£ã¦ãã¨ã¯ã»ã«ã«å ¥åãããæååã®ãã¡ãã«ã¿ã«ãï¼ã¾ãã¯æ°åã»è±åã»è¨å·ï¼ã®ã¿ãå ¨è§ï¼ã¾ãã¯åè§ï¼ã«ãã¦ã¿ããã¨æãã¾ãããããã©ããªæã«å½¹ç«ã¤ãã¨ããã¨ï½¥ï½¥ï½¥ï½¥ï½¥ï½¥ãã«ã¿ã«ããè±åãæ°åãè¨å·ã®ã¿ãåè§å ¨è§ã«ãããæã§ã(*ï½ã»Ïã»)â¦
å æ¥ãæ°ããï¼°ï¼£ãè³¼å ¥ããã®ã§æ§ï¼°ï¼£ããExcel.officeUIã¨å人ç¨ãã¯ãããã¯ã移æ¤ãã¾ãããããããã«é¢é£ãã¦çºçããã¨ã©ã¼ã«ã¤ãã¦åå ã¨å¯¾å¦æ³ãã¡ã¢ãã¦ããã¾ãã ãã®åã«ãofficeUIã¨ã¯ãªãã³ãã¯ã¤ãã¯ã¢ã¯ã»ã¹ãã¼ã«ãã¼ã®ã¦ã¼ã¶ã¼è¨å®ãè¨é²â¦
ä»åã¯ä»¥ä¸ã®è¨äºã®ç¶ãã§ãã kouten0430.hatenablog.com Option Compare Textã宣è¨ãã¦æååæ¯è¼ãè¡ã£ãå ´åãæåã³ã¼ããåããã®ä»¥å¤ã«ã©ããªæååãé¡ç¸ã®æåã¨ãã¦ãããããã®ã・・・・・・ãååã¯æ¯è¼ãµã³ãã«ãå°ãªãä¸ååã ã£ãã®ã§ãä»åã¯æâ¦
注ï¼ä»åã®ã話㯠VBA ã«ãã£ãããã®ã¾ã¾é©ç¨ã§ããããããã¾ãããä¸è¬çãªã話ã¨ãã¦èªãã§ããã ããã°å¬ããã§ãã ååãã¡ã¢ãªå é¨ãããªãã¸ã§ã¯ããã¨ã ã表ç¾ãã¾ããããã£ãããªã®ã§ã¡ã¢ãªå é¨ãããå°ãæ¡å¤§ãã¦è¦³å¯ãããã¨æãã¾ãã ã¡ã¢ãªâ¦
ã¯ã©ã¹ãå®ä½åãããã¨ã®æ¯å©ã¨ãã¦ããããç¼ãã®åãã¨ãããç¼ããã®è©±ããã°ãã°ç¨ãããã¾ããããããã®æ¯å©ã§ããªãã»ã©ï¼ããã ã£ãã®ããã¨ä¸çºã§ç解ã§ãã人ã¯ä½äººããã®ã§ããããï¼åãéãããè²ã ãªè§åº¦ããèããå·¡ããã¦ç解ã«è³ã£ã人ãâ¦
ãVBAã§ãéããã¾ã¾ã®ããã¯ãããã¼ã¿ã転è¨ããæ¹æ³ã¯ç¡ããã«ãã¼ãã¨æã£ã¦ãã人ã®ããã«ãä»å㯠ExecuteExcel4Macro ã¡ã½ãããç´¹ä»ãã¾ãã ExecuteExcel4Macroï¼ ããã¯ä½ãã®æå 端æè¡ã§ããï¼ ãããéãã¾ãã æ°ãããã¼ã¸ã§ã³ã® Excel ã§ã â¦
VBAã§ã¯æååãã¼ã¿ã®æ¯è¼æ¹æ³ã以ä¸ã® Option Compare ã¹ãã¼ãã¡ã³ãã§å®£è¨ãããã¨ãã§ãã¾ãã Option Compare Binaryï¼åã¯çç¥ï¼ åæååã®æåã³ã¼ãæ°å¤ãæ¯è¼ããã¾ãã Option Compare Text ã·ã¹ãã ã®ãã±ã¼ã«ã«ãã£ã¦æ±ºå®ãããèªå½çæå³ã«åºâ¦
VBA ã§ã¯RegExpã¯ã©ã¹ãå©ç¨ããã°æ£è¦è¡¨ç¾ã使ç¨ãããã¨ãã§ãã¾ããããããã¾ã§ããªãã¨ã Likeæ¼ç®åã使ã£ã¦æ£è¦è¡¨ç¾ã®ãããªãã¿ã¼ã³ãããã³ã°ããããã¨ãã§ãã¾ãã è¦ãããã¨ãå°ãªãã®ã§åå¿è ã«ã¯ãªã¹ã¹ã¡ã§ãããçµã¿åãã次第ã§ã¯ãããªãâ¦
ä»å㯠Word ã® Range ã«ã¤ãã¦ã§ãã ååãåãã§ç¨éãä¼¼ã¦ãã¾ãããExcelã® Range ã¨ã¯ããã°ã©ã ä¸ã¾ã£ããã®å¥ç©ã§ãã Range ã®å¼æ°ã¯ã¯ã¤ãã¯ãã³ãã«è¡¨ç¤ºãããããã« Startï¼éå§æåä½ç½®Endï¼çµäºæåä½ç½® ã§æå®ãã¾ãã ä¸ã®ãµã³ãã«ã§å®éã«â¦
ä¹ ãã¶ãã«ã³ã¼ããæ¸ãã¨ãRangeã®å¼æ°ã§:ï¼ã³ãã³ï¼ã使ãã°è¯ãã®ã,ï¼ã«ã³ãï¼ã使ãã°è¯ãã®ãè¿·ã£ã¦ãã¾ãæãããã¾ã(ï¼ _ï¼ ;)ãªã®ã§ãèªåã®è³å æ´çã試ã¿ããã¨æãã¾ãã Rangeã®å¼æ°ã¯ Range(å¼æ°1,å¼æ°2) ã®ããã«2ã¤ã¾ã§æå®ãããã¨ãã§ãã¾â¦
ååã¯æ®µè½ã®ä¸¡ç«¯ã«å¯¾ãã¦ã®å¦çã§ããããä»åã¯æ®µè½ã®å å´ã«ã¢ããã¼ããã¦ã¿ããã¨æãã¾ããã¨ãããã¨ã§ãå·¦ããã®æåæ°æå®ã§å段è½ã®å å´ãç½®æãããã¯ããä½ã£ã¦ã¿ã¾ããã ååã¨åãããã«ä»»æã®ç¯å²ãé¸æãã¾ããä»®ã«å·¦ãã5æåç®ãç½®æéå§â¦
ææ¸ã®å段è½ã®å é ãæ«å°¾ã«æåãã¾ã¨ãã¦è¿½å ãããå ´é¢ã£ã¦ããã¾ãããï¼ã俺ï¼ç§ï¼ã«ãããªå ´é¢ã¯ãªãã£ï¼ãã£ã¦æ¹ã«ã¯ãããããä¸ã®è¨äºã¯ç¡ç¨ã®é·ç©ã§ããä»ã®å ´æã« GoTo ãã¦ä¸ããã ã¨ãããã¨ã§ãä»åã¯é¸æç¯å²å ã«ããå段è½ï¼ã®å é ã¾ãã¯æ«â¦
ä»å㯠Word ã§éãã¦ãããã¹ã¦ã®ææ¸ã®åãè¡ï¼å³å¯ã«ããã¨æ®µè½â»ï¼ã«ã¯ãªãããã¼ãã®ãã¼ã¿ãè²¼ãä»ãããã¦ã¿ããã¨æãã¾ãã ã¤ã¡ã¼ã¸ã¨ãã¦ã¯ãããªæãã ãã¯ãå®è¡æã«ã¢ã¯ãã£ããªææ¸ï¼æåé¢ã«ããææ¸ï¼ã®ã«ã¼ã½ã«ä½ç½®ãèªã¿åãããã¹ã¦ã®æâ¦
ã¿ã¤ãã«ã®éããä»å㯠Word ã®ææ¸ã§éé£ç¶ãªä½ç½®ã«ã¯ãªãããã¼ãã®ãã¼ã¿ãè²¼ãä»ããã¨ãããã¨ããã£ã¦ã¿ããã¨æãã¾ãã ã¨ããã£ã¦ãéé£ç¶ãªä½ç½®ã«å¯¾ãã¦ã©ããã£ã¦ãã¯ãã§å¦çããã®ã・・・・・・ãå°ãèããçµæã以ä¸ã®ããã«ãã£ã¦ã¿ããã¨ã«ãã¾â¦
ä»å㯠Word 㧠VBEãèµ·åããæ¹æ³ æ¨æºã¢ã¸ã¥ã¼ã«ã«ã³ã¼ããè¨è¿°ããæ¹æ³ ãã¯ããå®è¡ããæ¹æ³ ãé çªã«èª¬æãããã¨æãã¾ãããã®è¾ºã¯ Excel ã¨ã»ã¨ãã©åããªã®ã§å®å¿ãã¦ä¸ããã Word ã®ããã©ã«ãã§ã¯ VBE ãèµ·åããããã®ãã¿ã³ãé表示ã«ãªã£ã¦ãâ¦
é表示ã»ã«ãçµåã»ã«ãå«ãã ç¯å²ãæ®éã«ã³ãã¼ããä»ã®ã»ã«ã¸å¤è²¼ãä»ãããã・・・・・・ã ä¸ã®ããã«ãå¤ãé£ã³é£ã³ã«ãªã£ã¦ãã¾ãã¾ãã ãããããã¯ãã§é£ã³é£ã³ã«ãªããªãããã«ãã¦ã¿ã¾ãããã ã³ã¼ãã¯ãã¡ãã§ãã Sub Tabæ¹è¡åºåãã§ã¯ãªãããã¼â¦
ã¨ã¯ã»ã«ã§ãåãAAAã§è¡ã30000ã®ã»ã«ãã表示ãã¦ä¸ãããã¨è¨ãããããä½ç§ä»¥å ã«è¡¨ç¤ºã§ããã§ããããï¼ç§ããã£ã¦ã¿ãã¨ãã・・・・・・A1ã»ã«ã表示ããç¶æ ãããé常ã®ã¹ã¯ãã¼ã«ã®ã¿ã§1å以ä¸ãããã¾ãããæéãããããã¨ã¨ãåãæ°åãã¢ã«ãã¡ããâ¦
ä»åã¯ããã¬ã¼ã ã«ã¤ãã¦ã§ãã社å ã·ã¹ãã ã§ã¯æªã ã«ä½¿ããã¦ãããããã®ã§ããã¡ããæ¸ãã¨ãã¾ãããã ãã¬ã¼ã ã¨ã¯ï¼ è¤æ°åã«åå²ããç»é¢ã«ãããããå¥ã®ãã¼ã¸ã表示ããæ©è½ã§ããä¸ã®ä¾ã§ã¯ã3ã¤ã®HTMLãã¡ã¤ã«ãç¨æããã¾ãã ã»æ§æ.htmlï¼â¦
ä»åã¯ãå¤æ°ã«åå¾ããDOï¼ãè¦ç´ ãããã¼ã¸ç§»åå¾ãã©ããªæåã«ãªãã調ã¹ã¦ã¿ã¾ãããã¼ã¸ã移åããå¾ãDOï¼ããªã¼æ§é ãå¤ããã®ã§ãååå¾ããå¿ è¦ãããã ãã・・・・・・ã¨äºæ³ã§ãã¾ããããå®éã¯ã©ããªã®ããæ¸ç±ããããããè ã«è½ã¡ãæ å ±ãè¦â¦
VBAã§IEãæä½ãã¦ããéä¸ããããã¢ãããéç¥ãã¼ãåºã¦ãããã©ãããã°ããã§ããããï¼ä»åã¯ããã®è¾ºã«ç¦ç¹ããã¦ã¦ã¿ããã¨æãã¾ãã ãããã¢ãããéç¥ãã¼ãåºãããé¸æè¢ãé¸ãã§æ¬¡ã¸é²ãã ãããã¡ã¤ã«ãä¿åããããã・・・・・・ããããªãã¸ã§â¦
ä»åã¯IEã®æä½ãè¡ã£ãå¾ã«çºçããå¦çããã³èªã¿è¾¼ã¿ãå¾ ã£ã¦ã次ã®æä½ãè¡ãã¨ãã£ããã¨ã«ç¦ç¹ãå½ã¦ã¦è©±ãé²ãã¦ããããã¨æãã¾ããååãæ¸ãã¾ããããèªã¿è¾¼ã¿å®äºãå¾ ããã«æ¬¡ã®æä½ãè¡ã£ã¦ã空æ¯ãããå ´åãããã®ã§ãä½ããã®å½¢ã§å¦çãå¾ â¦