¾¦³ØÉô´¤ÎÍý·Ï¥ò¥¿¥¯¡£¤ÎÃÎŪÀ¸»º¥Ö¥í¥°

·Ð±Ä³Ø¤ä²ñ¼ÒË¡¤ä¥¨¥¯¥»¥ëVBA¤ä¤½¤Î¤Û¤«¶½Ì£¤Î¤¢¤ë¤³¤È

¥¨¥¯¥»¥ë¤ÈVBA

[ ¥ê¥¹¥È | ¾ÜºÙ ]

µ­»ö¸¡º÷
¸¡º÷

Á´1¥Ú¡¼¥¸

[1]

¤¤¤ä¤¡¡¢¤Û¤ó¤È¤Ó¤Ã¤¯¤ê¤¹¤ë¤Û¤É¤¢¤ê¤Þ¤¹¤Í¡£
ÀäÂлȤ¤¤³¤Ê¤»¤Þ¤»¤ó¡£¡£¡£

No. Ctrl Alt Shift ¾¤Î¥­¡¼ µ¡Ç½ µ¡Ç½
1 Ctrl 0 Îó¤òÈóɽ¼¨¤Ë¤¹¤ë ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
2 Ctrl Shift 0 Èóɽ¼¨¤ÎÎó¤òºÆÉ½¼¨ ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
3 Ctrl 1 ¡Î½ñ¼°ÀßÄê¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨ ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
4 Ctrl 2 ¡ÎÂÀ»ú¡Ï¤ÎÀßÄꡦ²ò½ü ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
5 Ctrl 3 ¡Î¼ÐÂΡϤÎÀßÄꡦ²ò½ü ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
6 Ctrl 4 ¡Î²¼Àþ¡Ï¤ÎÀßÄꡦ²ò½ü ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
7 Ctrl 5 ¼è¤ê¾Ã¤·Àþ¤ÎÀßÄꡦ²ò½ü ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
8 Ctrl 8 ¥¢¥¦¥È¥é¥¤¥óµ­¹æ¤Îɽ¼¨¡¦Èóɽ¼¨ ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
9 Ctrl 9 ¹Ô¤òÈóɽ¼¨¤Ë¤¹¤ë ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
10 Ctrl Shift 9 Èóɽ¼¨¤Î¹Ô¤òºÆÉ½¼¨ ¡Ê¥Æ¥ó¥­¡¼ÉԲġË
11 Ctrl A Á´¤ÆÁªÂò
12 Ctrl B ¡ÎÂÀ»ú¡Ï¤ÎÀßÄꡦ²ò½ü
13 Ctrl C ¡Î¥³¥Ô¡¼¡Ï¤Î¼Â¹Ô
14 Ctrl D ¾å¤Î¥»¥ë¤Î¥³¥Ô¡¼¡õޤêÉÕ¤±
15 Ctrl F ¡Î¸¡º÷¡Ê¤ÈÃÖ´¹¡Ë¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
16 Ctrl G ¡Î¥¸¥ã¥ó¥×¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
17 Ctrl H ¡Î¡Ê¸¡º÷¤È¡ËÃÖ´¹¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
18 Ctrl I ¡Î¼ÐÂΡϤÎÀßÄꡦ²ò½ü
19 Ctrl K ¡Î¥Ï¥¤¥Ñ¡¼¥ê¥ó¥¯¤ÎÁÞÆþ¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
20 Ctrl N ¥Ö¥Ã¥¯¤Î¿·µ¬ºîÀ®
21 Ctrl O ¡Î¥Õ¥¡¥¤¥ë¤ò³«¤¯¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
22 Ctrl P ¡Î°õºþ¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
23 Ctrl R º¸¤Î¥»¥ë¤Î¥³¥Ô¡¼¡õޤêÉÕ¤±
24 Ctrl S ¡Î¾å½ñ¤­Êݸ¡Ï¤Î¼Â¹Ô
25 Ctrl U ¡Î²¼Àþ¡Ï¤ÎÀßÄꡦ²ò½ü
26 Ctrl V ¡ÎޤêÉÕ¤±¡Ï¤Î¼Â¹Ô
27 Ctrl W ¡ÎÊĤ¸¤ë¡Ï¤Î¼Â¹Ô
28 Ctrl X ¡ÎÀÚ¤ê¼è¤ê¡Ï¤Î¼Â¹Ô
29 Ctrl Y ľÁ°¤ÎÁàºî¤Î·«¤êÊÖ¤·
30 Ctrl Z ľÁ°¤ÎÁàºî¤ò¸µ¤ËÌ᤹
31 Alt Shift ' ¡Î¥¹¥¿¥¤¥ë¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨ ¡Ê¥·¥ó¥°¥ë¥¯¥ª¡¼¥Æ¡¼¥·¥ç¥ó¡Ë
32 Ctrl - ¥»¥ë¡¦¹Ô¡¦Îó¤Îºï½ü
33 Alt Shift = SUM´Ø¿ô¤òÁÞÆþ
34 Ctrl Shift ! ¡Î·å¶èÀÚ¤ê¡Ï¥¹¥¿¥¤¥ë¤òÀßÄê
35 Ctrl Shift # ¡ÎÆüÉÕ¡Ï¥¹¥¿¥¤¥ë¤òÀßÄê
36 Ctrl Shift $ ¡ÎÄ̲ߡÏɽ¼¨¥¹¥¿¥¤¥ë¤òÀßÄê
37 Ctrl Shift % ¡Î¥Ñ¡¼¥»¥ó¥È¡Ï¥¹¥¿¥¤¥ë¤òÀßÄê
38 Ctrl Shift & ¡Î³°ÏȡϷÓÀþ¤òÀßÄê
39 Ctrl Shift * ¥Ç¡¼¥¿¤¬ÆþÎϤµ¤ì¤Æ¤¤¤ëÈϰϤòÁªÂò ¡Ê¥Æ¥ó¥­¡¼¤Î¡Î*¡Ï¤Ê¤é¡ÎShift¡ÏÉÔÍסË
40 Ctrl : ¸½ºß¤Î»þ¹ï¤òÆþÎÏ ¡Ê¥³¥í¥ó¡Ë
41 Ctrl ; º£Æü¤ÎÆüÉÕ¤òÆþÎÏ ¡Ê¥»¥ß¥³¥í¥ó¡Ë
42 Ctrl @ ¡Î»þ¹ï¡Ï¥¹¥¿¥¤¥ë¤òÀßÄê
43 Ctrl Shift _ ·ÓÀþ¤Îºï½ü ¡Ê¥¢¥ó¥À¡¼¥Ð¡¼¡Ë
44 Ctrl Shift ~ ÆüÉեǡ¼¥¿¤Î¥·¥ê¥¢¥ëÃÍɽ¼¨ ¡Ê¥Á¥ë¥À¡Ë
45 Ctrl + ¥»¥ë¡¦¹Ô¡¦Îó¤ÎÁÞÆþ
46 Ctrl BackSpace ¥¢¥¯¥Æ¥£¥Ö¥»¥ë¤Îɽ¼¨
47 Ctrl End ºÇ¸å¤Î¥»¥ë¤Ë¥¸¥ã¥ó¥×
48 Ctrl Shift End ¥¢¥¯¥Æ¥£¥Ö¥»¥ë¤«¤éºÇ¸å¤Î¥»¥ë¤Þ¤ÇÁªÂò
49 Ctrl Enter Ê£¿ô¥»¥ë¤ËƱ¤¸¥Ç¡¼¥¿¤ÎÆþÎÏ
50 Ctrl Home ÀèÆ¬¤Î¥»¥ë¤Ë¥¸¥ã¥ó¥×
51 Ctrl PageDown ¼¡¤Î¥·¡¼¥È¤òɽ¼¨
52 Ctrl PageUp Á°¤Î¥·¡¼¥È¤òɽ¼¨
53 Ctrl ¥¹¥Ú¡¼¥¹ Îó¤òÁªÂò
54 Shift ¥¹¥Ú¡¼¥¹ ¹Ô¤òÁªÂò
55 Ctrl ¢¬¢­¢«¢ª ¥Ç¡¼¥¿¤ÎÅÓÀÚ¤ì¤ë¥»¥ë¤Ë¥¸¥ã¥ó¥×
56 Ctrl Shift ¢¬¢­¢«¢ª ¥Ç¡¼¥¿¤ÎÅÓÀÚ¤ì¤ë¥»¥ë¤Þ¤ÇÁªÂò
57 Alt ¢­ ¥ê¥¹¥È¤Îɽ¼¨
58 F1 ¥Ø¥ë¥×¡¦Office¥¢¥·¥¹¥¿¥ó¥È¤Îɽ¼¨
59 Shift F1 ¥Ý¥Ã¥×¥Ò¥ó¥È¤Îɽ¼¨
60 Alt F1 ¿·µ¬¥°¥é¥Õ¥·¡¼¥È¤Ø¥°¥é¥Õ¤ÎºîÀ®
61 F2 ÊÔ½¸¥â¡¼¥É¤Ø¤ÎÀÚ¤êÂØ¤¨
62 Shift F2 ¥³¥á¥ó¥È¤ÎÁÞÆþ
63 Ctrl F3 ¡Î̾Á°¤ÎÄêµÁ¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
64 F4 ÁêÂС¦ÀäÂС¦Ê£¹ç»²¾È¤ÎÀÚ¤êÂØ¤¨
65 Alt F4 Excel¤Î½ªÎ»
66 F5 ¡Î¥¸¥ã¥ó¥×¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
67 F7 ¡Î¥¹¥Ú¥ë¥Á¥§¥Ã¥¯¡Ï¤Î¼Â¹Ô
68 F8 ³ÈÄ¥¥â¡¼¥É¤Ø¤ÎÀÚ¤êÂØ¤¨
69 Shift F8 ADO¥â¡¼¥É¤Ø¤ÎÀÚ¤êÂØ¤¨
70 Alt F8 ¡Î¥Þ¥¯¥í¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
71 F9 ³«¤¤¤Æ¤¤¤ë¥Ö¥Ã¥¯¤ÎºÆ·×»»¤ò¼Â¹Ô
72 Shift F9 ¥¢¥¯¥Æ¥£¥Ö¥ï¡¼¥¯¥·¡¼¥È¤ÎºÆ·×»»¤ò¼Â¹Ô
73 F11 ¿·µ¬¥°¥é¥Õ¥·¡¼¥È¤Ø¥°¥é¥Õ¤ÎºîÀ®
74 Shift F11 ¿·µ¬¥·¡¼¥È¤ÎÁÞÆþ
75 Alt F11 Visual Basic Editor¤Îµ¯Æ°
76 F12 ¡Î̾Á°¤òÉÕ¤±¤ÆÊݸ¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨
77 Shift F12 ¡Î¾å½ñ¤­Êݸ¡Ï¤Î¼Â¹Ô
78 Ctrl F12 ¡Î¥Õ¥¡¥¤¥ë¤ò³«¤¯¡Ï¥À¥¤¥¢¥í¥°¤Îɽ¼¨

º£²ó¤Ï¥¨¥¯¥»¥ë¤«¤éGoogle¸¡º÷¤ò¹Ô¤¦¥Þ¥¯¥í¤Ç¤¹¡£

¤³¤Î¥Þ¥¯¥í¤Ï¥¨¥¯¥»¥ë¾å¤ÇÁªÂò¤·¤¿¥»¥ë¤ËÆþÎϤµ¤ì¤Æ¤¤¤ëʸ»úÎó¤òGoogle¤Ë¸¡º÷¤µ¤»¤ë¤È¤¤¤¦¤â¤Î¤Ç¤¹¡£

¤¿¤À¤·¡¢ÁªÂò¤Ç¤­¤ë¥»¥ë¤Ï£±¤Ä¤À¤±¤Ç¤¹¡£

º£²ó¤â»°Î®·¯VBA
http://www.ken3.org/vba/
¤ò»²¹Í¤Ë¤·¤Þ¤·¤¿¡£

Sub Google¸¡º÷()

Dim objIE As Object '£É£Å¥ª¥Ö¥¸¥§¥¯¥È
Dim kensakugyou as long
Dim kensakuretu as long

kensakugyou = Selection.Row
kensakuretu = Selection.Column

'IE¤òµ¯Æ°¤¹¤ë
Set objIE = CreateObject("InternetExplorer.application") 'IE¤Î¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ë
objIE.Visible = True '¸«¤¨¤ë¤è¤¦¤Ë¤¹¤ë

objIE.Navigate "http://google.co.jp" '.Navigate ¤Ç »ØÄꤷ¤¿URL¤ò³«¤¯


'ɽ¼¨½ªÎ»¤Þ¤ÇÂÔ¤Ä .Busy(Ë»¤·¤¤)´Ö ¤È.ReadyState(¥¹¥Æ¡¼¥¿¥¹)¤¬£´°Ê³°¤Î»þ ¥ë¡¼¥×
Do While objIE.Busy = True
DoEvents 'ÆÃ¤Ë²¿¤â¤·¤Ê¤¤¤Ç.Busy¤Î¾õÂÖ¤¬ÊѤï¤ë¤Þ¤ÇÂÔ¤Ä
Loop
Do While objIE.ReadyState <> 4
DoEvents 'ÆÃ¤Ë²¿¤â¤·¤Ê¤¤¤Ç.ReadyState¤Î¾õÂÖ¤¬£´¤ËÊѤï¤ë¤Þ¤ÇÂÔ¤Ä
Loop

objIE.Document.forms(0).Item("q").Value = Cells(kensakugyou, kensakuretu)


Do While objIE.Busy = True
DoEvents 'ÆÃ¤Ë²¿¤â¤·¤Ê¤¤¤Ç.Busy¤Î¾õÂÖ¤¬ÊѤï¤ë¤Þ¤ÇÂÔ¤Ä
Loop
Do While objIE.ReadyState <> 4
DoEvents 'ÆÃ¤Ë²¿¤â¤·¤Ê¤¤¤Ç.ReadyState¤Î¾õÂÖ¤¬£´¤ËÊѤï¤ë¤Þ¤ÇÂÔ¤Ä
Loop

objIE.Document.forms(0).submit

End Sub

VBA¤ò³Ø¤ÖºÇ½é¤Î1Êâ

¥¤¥á¡¼¥¸ 1

Â缤¢¤Ä¤· (2004)¡Ø¤«¤ó¤¿¤ó¥×¥í¥°¥é¥ß¥ó¥° Excel2003 VBA ´ðÁÃÊÔ¡Ùµ»½ÑɾÏÀ¼Ò


¥¨¥¯¥»¥ëVBA¤ò³Ø¤Ü¤¦¤È»×¤¦¤±¤É¡¢»²¹Í½ñ¤¬¤¢¤ê¤¹¤®¤Æº¤¤ë¤È¤¤¤¦¿Í¤¬Â¿¤¤¤È»×¤¤¤Þ¤¹¡£

¤½¤¦¤¤¤¦¿Í¤Ë¤Ï¤³¤ÎËܤò¤ª¤¹¤¹¤á¤·¤Þ¤¹¡£»ä¤â¤¤¤í¤¤¤í¤ÊVBA¤ÎËܤòÆÉ¤ß¤Þ¤·¤¿¤¬
ºÇ½é¤Ë³Ø¤Ö¤Î¤Ë¤³¤ì¤Û¤ÉºÇŬ¤ÊËܤϤۤ«¤Ë¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£
¤½¤ì¤Û¤É¤ª¤¹¤¹¤á¤Ç¤­¤ëÎɽñ¤Ç¤¹¡£


ÀâÌÀ¤Ï¤«¤æ¤¤¤È¤³¤í¤Þ¤Ç¼ê¤¬ÆÏ¤­¡¢½é¿´¼Ô¤¬¤Ä¤Þ¤Å¤¯¤Ç¤¢¤í¤¦¥Ý¥¤¥ó¥È¤Ë¤âµ¤¤òÇۤäƤ¤¤Þ¤¹¡£
¤³¤ÎËܤÇVBA¤Î´ðÁäò¿È¤Ë¤Ä¤±¤ì¤ÐVBA¤Î¹Í¤¨Êý¤Ë¤â¿ïʬ´·¤ì¤Æ¤¤¤ë¤³¤È¤¬¤Ç¤­¤ë¤È»×¤¤¤Þ¤¹¡£
¤½¤Î¤³¤í¤Ë¤Ï¤º¤¤¤Ö¤ó»×¤¤Ä̤ê¤Î¤³¤È¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ë¤È»×¤¤¤Þ¤¹¡£
²¿¤è¤ê¤¢¤È¤ÏÆÈÎϤÇVBA¤ò³Ø¤Ù¤ë¤Î¤Ë½½Ê¬¤ÊÃÏÎϤ¬¿È¤ËÉÕ¤¤¤Æ¤¤¤ë¤Ï¤º¤Ç¤¹¡£

¤³¤ÎËܤϥ·¥ê¡¼¥º¤Ç¾¤Ë2ºý¸ºß¤·¤Þ¤¹¡£
¡ù¥³¥ó¥È¥í¡¼¥ë´Ø¿ôÊÔ
¡ù±þÍÑÊÔ
¾õ¶·¤Ë±þ¤¸¤ÇÆÉ¤ß¿Ê¤á¤Æ¹Ô¤±¤Ð¤è¤¤¤È»×¤¤¤Þ¤¹¡£

°Ê²¼¤ÎÆâÍÆ¤Ï
»°Î®·¯VBA
http://www.ken3.org/cgi-bin/group/vba_ie.asp
¤ò»²¹Í¤Ë»ä¤¬¥¢¥ì¥ó¥¸¤·¤¿¤â¤Î¤Ç¤¹¡£


<ÍÑÅÓ>
¥Í¥Ã¥È¾å¤Ë¤¢¤ë¥³¥ó¥Æ¥ó¥Ä¤Ç¡¢¥Ç¥£¥ì¥¯¥È¥ê¤¬Ê¬¤±¤é¤ì¤Æ¤¤¤ë¤¬É½¼¨ÊýË¡¤¬Åý°ì¤Î¥Ç¡¼¥¿¤ò°ì³ç¤Ç¼ê¤ËÆþ¤ì¤¿¤¤¤È¤­¤Ë»È¤¦¡£
Î㤨¤Ð¡¢¹ñ¸ò¾Ê¹ÔÀ¯½èʬ
http://www3.mlit.go.jp/cgi-bin/searchmenu.cgi?jigyoubunya=kensetugyousya
¤Ë´Þ¤Þ¤ì¤ë¤¹¤Ù¤Æ¤Î¾ðÊó¤ò¼«Æ°Åª¤Ë¼ê¤ËÆþ¤ì¤ë¾ì¹ç¤Ê¤É¤Ë»ÈÍѤ·¤Þ¤¹¡£


<»È¤¤Êý>
­¡¥¨¥¯¥»¥ë¥·¡¼¥È¤Î£±Îó¤Ë¾ðÊó¤ò¼èÆÀ¤·¤¿¤¤¥¢¥É¥ì¥¹¤òÆþÎϤ·¤Æ¤ª¤¯

­¢¤½¤Î¥¢¥É¥ì¥¹¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ë´Þ¤Þ¤ì¤ë¥Æ¥­¥¹¥È¤ò¤½¤Î¥¢¥É¥ì¥¹¤Î¤¢¤ë¹Ô¤Î±¦¤Î¥»¥ë¡Ê£³ÎóÌܤ«¤é¡Ë¤Ë¤É¤ó¤É¤ó½ñ¤­½Ð¤·¤Æ¤¤¤¯

­£¤È¤ê¤¢¤¨¤º¡¢½ñ¤­½Ð¤·¤¿¤¢¤È¥Ç¡¼¥¿¤ò²Ã¹©¤¹¤ë¡£


Dim objIE As Object¡¡¡¡¡¡'£É£Å¥ª¥Ö¥¸¥§¥¯¥È
Dim i As Integer¡¡¡¡¡¡¡¡¡¡¡Ç·«¤êÊÖ¤·ÍѤÎÊÑ¿ô
Dim yline As Integer ¡¡¡¡'¸¡º÷·ë²Ì¤òޤêÉÕ¤±¤ëÎó
Dim objA As Object

Sub ¥Í¥Ã¥È¾å¤Î¾ðÊó¼èÆÀ()
¡¡¡¡Application.ScreenUpdating = False
¡¡¡¡Set objIE = CreateObject("InternetExplorer.application")
¡¡¡¡objIE.Visible = True
¡¡¡¡For i = 1 To cells(rows.count,1).end(xlup).row
¡¡¡¡¡¡¡¡objIE.Navigate Cells(i, 1)
¡¡¡¡¡¡¡¡IE¤òÂÔ¤Ä
¡¡¡¡¡¡¡¡yline = 3 '¥»¥Ã¥È³«»Ï¤ÎÎó¤òÂåÆþ¤¹¤ë
¡¡¡¡¡¡¡¡For Each objA In objIE.Document.Body.All
¡¡¡¡¡¡¡¡¡¡¡¡If yline = 3 Then
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Cells(i, 4) = Left(objA.innertext, 500)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Exit For
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End If
¡¡¡¡¡¡¡¡¡¡¡¡yline = yline + 1 '¥»¥Ã¥È°ÌÃÖ(Îó)¤ò¡Ü1¤¹¤ë
¡¡¡¡¡¡¡¡Next
¡¡¡¡Next i
¡¡¡¡Application.ScreenUpdating = True
¡¡¡¡objIE.Quit
End Sub

Sub IE¤òÂÔ¤Ä()
¡¡¡¡Do While objIE.Busy = True
¡¡¡¡¡¡¡¡DoEvents
¡¡¡¡Loop
¡¡¡¡Do While objIE.ReadyState <> 4
¡¡¡¡¡¡¡¡DoEvents
¡¡¡¡Loop
End Sub

VBAº¸Ã¼Îó¤òÊá¤Þ¤¨¤ë¡£

¥¤¥á¡¼¥¸ 1

¤è¤¯Ëº¤ì¤Æ¤·¤Þ¤¦¤Î¤ÇÈ÷˺µ­Ï¿¤ò¤Î¤³¤·¤Æ¤ª¤­¤Þ¤¹¡£

Sub ±¦Ã¼Îó¤òÊá¤Þ¤¨¤ë()
Dim rihgt_end As Integer '±¦Ã¼Îó¤òǼ¤á¤ëÊÑ¿ô

right_end = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox right_end

End Sub

Á´1¥Ú¡¼¥¸

[1]


¤è¤·¤â¤È¥Ö¥í¥°¥é¥ó¥­¥ó¥°

¤â¤Ã¤È¸«¤ë

¤ß¤ó¤Ê¤Î¹¹¿·µ­»ö