¥¨¥¯¥»¥ë¡ÊExcel¡Ë&¥ï¡¼¥É¡ÊWord¡Ë¼ÁÌä·Ç¼¨ÈÄ

¤è¤ê¸«¤ä¤¹¤¯»È¤¤¤ä¤¹¤¤¥¨¥¯¥»¥ë·Ç¼¨ÈĤòÌܻؤ·¡¢¿·¤¿¤Ë¥¨¥¯¥»¥ë¤Î¼ÁÌä·Ç¼¨ÈĤò³«Àߤ¤¤¿¤·¤Þ¤·¤¿¡£ ¤³¤ì¤Ëȼ¤¤¡¢Åö¥µ¥¤¥È¤Ç¤Ïº£¸å¡¢¿·µ¬Åê¹Æ¤Ï¤Ç¤­¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£¡Ê±ÜÍ÷¤ÏÅöÌ̲Äǽ¤Ç¤¹¡£¡Ë
º£¸å¤Ï¿··Ç¼¨ÈĤò¤´ÍøÍѤ¤¤¿¤À¤­¤Þ¤¹¤è¤¦µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£º£¸å¤È¤â¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£
¡û¿··Ç¼¨ÈÄ
¡¦¥¨¥¯¥»¥ë¡ÊExcel¡Ë²ò·è·Ç¼¨ÈÄ

¥¨¥¯¥»¥ë¡¦¥ï¡¼¥É¤Î´ðËÜÁàºî¤Ë´Ø¤¹¤ë¼ÁÌä¤ä´Ø¿ô¤ä¥Þ¥¯¥í¤Î»È¤¤Êý¤Ê¤É¥¨¥¯¥»¥ë¤È¥ï¡¼¥É¤Ë´Ø¤¹¤ë¼ÁÌä·Ç¼¨ÈÄ¡£
Welcome Guest 
¥á¥¤¥ó¥á¥Ë¥å¡¼
¥í¥°¥¤¥ó
¥æ¡¼¥¶¡¼Ì¾:

¥Ñ¥¹¥ï¡¼¥É:


¥Ñ¥¹¥ï¡¼¥Éʶ¼º

¥Þ¥¯¥í¤Î½¤Àµ¤È¤´»ØÅ¦¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£

Á°¤ÎÅê¹Æ - ¼¡¤ÎÅê¹Æ | ¿ÆÅê¹Æ - »ÒÅê¹Æ¤Ê¤· | Åê¹ÆÆü»þ 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
Åêɼ¿ô:7 Ê¿¶ÑÅÀ:5.71
ÊÖ¿®¤¹¤ë

¤³¤Î¥È¥Ô¥Ã¥¯¤ËÅê¹Æ¤¹¤ë

Âê̾
¥²¥¹¥È̾   :
Åê¹ÆËÜʸ

  ¾ò·ï¸¡º÷¤Ø


¥¹¥Ý¥ó¥µ¡¼¥ê¥ó¥¯
¥¹¥Ý¥ó¥µ¡¼¥ê¥ó¥¯
¥¨¥¯¥»¥ë¡¦¥ï¡¼¥É¼ÁÌä/²óÅú½¸ - ¥¯¥¤¥º¡¦ÌäÂêQUUS¡ª - ̵ÎÁ±Ñ¸ì³Ø½¬ - Åê»ñ²È¡¦¥È¥ì¡¼¥À¡¼·Ç¼¨ÈÇ
°ÙÂØ(FX)¥Æ¥¯¥Ë¥«¥ëʬÀÏÆþÌç - ¥¨¥¯¥»¥ë(EXCEL)³Ø½¬¡¦ÆþÌç - Word(¥ï¡¼¥É)¤Î»È¤¤Êý/³èÍÑ¡¦ÆþÌç
Copy right(c) 2006-2010 ¥¨¥¯¥»¥ë¡õ¥ï¡¼¥É¼ÁÌä·Ç¼¨ÈÄ all right reserved