¥Þ¥¯¥í¤Î½¤Àµ¤È¤´»ØÅ¦¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£
- depth:
- 0
Á°¤ÎÅê¹Æ
-
¼¡¤ÎÅê¹Æ
|
¿ÆÅê¹Æ
-
»ÒÅê¹Æ¤Ê¤·
|
Åê¹ÆÆü»þ 2015-6-3 18:07
¥¿¥ó¥Ý¥Ý¥Ý¥±¥Ã¥È
¥Þ¥¯¥í½é¿´¼Ô¤Ç¤¹¤¬¡¢»Å»ö¤Ç¤É¤¦¤·¤Æ¤âɬÍפˤʤ俤Τǥޥ¯¥í¤òºîÀ®¤·¤Æ¤¤¤Þ¤¹¡£¤è¤í¤·¤±¤ì¤Ð¡¢¥Þ¥¯¥í¤Î½¤Àµ¡¢¤´»ØÅ¦¤¤¤¿¤À¤¤¿¤¤¤Ç¤¹¡£
¡Ö¥Ü¥¿¥ó¤ò²¡¤¹¤È¡¢¥Ü¥¿¥ó̾¤È¥·¡¼¥È̾¤¬°ìÃפ¹¤ë¥·¡¼¥È¤¬¥¢¥¯¥Æ¥£¥Ö¤Ë¤Ê¤ë¡×¤È¤¤¤¦¥Þ¥¯¥í¤ò¼Â¹Ô¤·¤¿¤¤¤Ç¤¹¡£
²¼µ¤Î¥Þ¥¯¥í¤ò¼Â¹Ô¤¹¤ë¤È¡¢
¡¥·¡¼¥È¤Î£±ËçÌܤˡ¢¥Ü¥¿¥ó¤¬ºîÀ®¡Ê¥·¡¼¥È¤ÎËç¿ôʬ¡Ë¤µ¤ì¡¢³Æ¥·¡¼¥È¤Î̾Á°¤¬É½¼¨¤µ¤ì¤ë¡£
¢¤Þ¤¿¡¢¤½¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢Ì¾Á°¤¬Æ±¤¸¥·¡¼¥È¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤¹¤ë¡£
¤È¤Ê¤ëͽÄê¤Ç¤·¤¿¡£
¼Â¹Ô¤·¤Æ¤ß¤ë¤È¡¢
¥·¡¼¥È̾¤Ë¡ÖÂçʸ»ú¤Î±Ñ¸ì¡×¤¬»È¤ï¤ì¤Æ¤¤¤ë¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤Ã¤¿¡£
¢¨Â¾¤Î´Á»ú¤ä¥«¥¿¥«¥Ê¤Ê¤É¤Î¥·¡¼¥È̾¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¤¤Á¤ó¤È¥¢¥¯¥Æ¥£¥Ö¤Ë¤Ê¤ë¡£
¤È¤Ê¤ê¤Þ¤·¤¿¡£
¸¶°ø¤È¤·¤Æ¹Í¤¨¤é¤ì¤ë»ö¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤¡¢²¼µ¤Î¥Þ¥¯¥í¤ò½¤Àµ¤·¤Æ¤¤¤¿¤À¤¤¿¤¤¤Ç¤¹¡£
¢ã¥Þ¥¯¥í¤ÎÀâÌÀ¢ä
»ØÄê¤Î¥·¡¼¥È¤òÁªÂò¤¹¤ë¡Ö¥·¡¼¥ÈÁªÂò¡×¤È¸À¤¦¥Þ¥¯¥í¤òÍѰդ·¡¢
¥Ü¥¿¥óÀßÃ֤λþ¤Ë¤½¤Î¥Þ¥¯¥í¤Ë°ú¿ô¤Ç¥·¡¼¥È̾¤òÅϤ¹ÍͤËÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£
Worksheets(n).Name¤Ç¥·¡¼¥È̾¤¬¼èÆÀ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦
Sub ¥Ü¥¿¥óÀßÃÖ()
¡¡¡¡With Worksheets(1)
¡¡¡¡¡¡¡¡For i = 1 To (Worksheets.Count - 1)
¡¡¡¡¡¡¡¡¡¡¡¡nX = 145 * (1 + ((i - 1) Mod 8))
¡¡¡¡¡¡¡¡¡¡¡¡nY = 30 * (1 + Int(i / 8))
¡¡¡¡¡¡¡¡¡¡¡¡sName = Worksheets(i + 1).Name
¡¡¡¡¡¡¡¡¡¡¡¡With .Buttons.Add(nX, nY, 140, 20)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡.Text = sName
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡.OnAction = "'¥·¡¼¥ÈÁªÂò""" & sName & """'"
¡¡¡¡¡¡¡¡¡¡¡¡End With
¡¡¡¡¡¡¡¡Next i
¡¡¡¡End With
End Sub
Sub ¥·¡¼¥ÈÁªÂò(sShtName As String)
¡¡¡¡Worksheets(sShtName).Select
End Sub
¡Ö¥Ü¥¿¥ó¤ò²¡¤¹¤È¡¢¥Ü¥¿¥ó̾¤È¥·¡¼¥È̾¤¬°ìÃפ¹¤ë¥·¡¼¥È¤¬¥¢¥¯¥Æ¥£¥Ö¤Ë¤Ê¤ë¡×¤È¤¤¤¦¥Þ¥¯¥í¤ò¼Â¹Ô¤·¤¿¤¤¤Ç¤¹¡£
²¼µ¤Î¥Þ¥¯¥í¤ò¼Â¹Ô¤¹¤ë¤È¡¢
¡¥·¡¼¥È¤Î£±ËçÌܤˡ¢¥Ü¥¿¥ó¤¬ºîÀ®¡Ê¥·¡¼¥È¤ÎËç¿ôʬ¡Ë¤µ¤ì¡¢³Æ¥·¡¼¥È¤Î̾Á°¤¬É½¼¨¤µ¤ì¤ë¡£
¢¤Þ¤¿¡¢¤½¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢Ì¾Á°¤¬Æ±¤¸¥·¡¼¥È¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤¹¤ë¡£
¤È¤Ê¤ëͽÄê¤Ç¤·¤¿¡£
¼Â¹Ô¤·¤Æ¤ß¤ë¤È¡¢
¥·¡¼¥È̾¤Ë¡ÖÂçʸ»ú¤Î±Ñ¸ì¡×¤¬»È¤ï¤ì¤Æ¤¤¤ë¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤Ã¤¿¡£
¢¨Â¾¤Î´Á»ú¤ä¥«¥¿¥«¥Ê¤Ê¤É¤Î¥·¡¼¥È̾¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¤¤Á¤ó¤È¥¢¥¯¥Æ¥£¥Ö¤Ë¤Ê¤ë¡£
¤È¤Ê¤ê¤Þ¤·¤¿¡£
¸¶°ø¤È¤·¤Æ¹Í¤¨¤é¤ì¤ë»ö¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤¡¢²¼µ¤Î¥Þ¥¯¥í¤ò½¤Àµ¤·¤Æ¤¤¤¿¤À¤¤¿¤¤¤Ç¤¹¡£
¢ã¥Þ¥¯¥í¤ÎÀâÌÀ¢ä
»ØÄê¤Î¥·¡¼¥È¤òÁªÂò¤¹¤ë¡Ö¥·¡¼¥ÈÁªÂò¡×¤È¸À¤¦¥Þ¥¯¥í¤òÍѰդ·¡¢
¥Ü¥¿¥óÀßÃ֤λþ¤Ë¤½¤Î¥Þ¥¯¥í¤Ë°ú¿ô¤Ç¥·¡¼¥È̾¤òÅϤ¹ÍͤËÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£
Worksheets(n).Name¤Ç¥·¡¼¥È̾¤¬¼èÆÀ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦
Sub ¥Ü¥¿¥óÀßÃÖ()
¡¡¡¡With Worksheets(1)
¡¡¡¡¡¡¡¡For i = 1 To (Worksheets.Count - 1)
¡¡¡¡¡¡¡¡¡¡¡¡nX = 145 * (1 + ((i - 1) Mod 8))
¡¡¡¡¡¡¡¡¡¡¡¡nY = 30 * (1 + Int(i / 8))
¡¡¡¡¡¡¡¡¡¡¡¡sName = Worksheets(i + 1).Name
¡¡¡¡¡¡¡¡¡¡¡¡With .Buttons.Add(nX, nY, 140, 20)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡.Text = sName
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡.OnAction = "'¥·¡¼¥ÈÁªÂò""" & sName & """'"
¡¡¡¡¡¡¡¡¡¡¡¡End With
¡¡¡¡¡¡¡¡Next i
¡¡¡¡End With
End Sub
Sub ¥·¡¼¥ÈÁªÂò(sShtName As String)
¡¡¡¡Worksheets(sShtName).Select
End Sub
Åêɼ¿ô:7
Ê¿¶ÑÅÀ:5.71
ÊÖ¿®¤¹¤ë
¤³¤ÎÅê¹Æ¤ËÊÖ¿®¤¹¤ë
Åê¹Æ¥Ä¥ê¡¼
-
¥Þ¥¯¥í¤Î½¤Àµ¤È¤´»ØÅ¦¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£ (¥¿¥ó¥Ý¥Ý¥Ý¥±¥Ã¥È, 2015-6-3 18:07)