GBKEE

¦^´_ 1# day741025
CommandButton1_Click ¬O¤u§@ªí1ªºµ{§Ç Range("A1").Select  ¬O«ü¦b¤u§@ªí1ªº .Select
Sheets("²Ä¤G­Ó").Select «á§@¥Î¤¤ªº¤u§@ªí¬O ¤u§@ªí2 ©Ò¥H·|¿ù»~
   

1. Private Sub CommandButton1_Click()
   
2.     With Sheets("²Ä¤G­Ó")
   
3.         .Select
   
4.         .Range("A1").Select
   
5.     End With
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# gkld

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Sheets("²Ä¤G­Ó").Select   '¦³¦ó§@¥Î?
   
4.     With Sheets("°õ¦æ")          '¤u§@ªí"°õ¦æ" (ª«¥ó)
   
5.         .Activate
   
6.         .Range("A1").Select
   
7.     End With
   
8. End Sub

½Æ»s¥N½X