[µo°Ý] ¨Ï¥ÎActiveX Button°õ¦æµ{¦¡½X¡ARange("A1").SelectµLªk¥¿±`°õ¦æ

day741025

¨Ï¥ÎActiveX Button°õ¦æµ{¦¡½X¡ARange("A1").SelectµLªk¥¿±`°õ¦æ¡Aµ{¦¡½X¦p¤U¡G

Private Sub CommandButton1_Click()
Sheets("²Ä¤G­Ó").Select      '--->³o¤@¬q¥i¥H¥¿±`°õ¦æ
Range("A1").Select      '--->³o¤@¬q·|µLªk¥¿±`°õ¦æ¡A¥B·|¥X²{¿ù»~°T®§¡A¦p¤U¹Ï©Ò¥Ü¡C
End Sub

½Ð°Ý³o¬O¬°¤°»ò¡HÁÂÁ¡I:(

¤U¸ü (12.58 KB)
¥X¿ùªº¿ù»~°T®§

2011-7-20 06:49

¨Ï¥Îbutton°õ¦æselect°ÝÃD.zip (10.47 KB)

¨Ï¥Îbutton°õ¦æselect°ÝÃD
¤U¸ü¦¸¼Æ: 17

2011-7-20 06:48

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

day741025

¦^´_ 2# GBKEE


¶â¡A¤w¸gÀ´¤F¡I
ÁÂÁÂGBKEEªO¥D²LÅã©öÀ´ªº¸ÑÄÀ^^

dino1978

¥d¤F«Ü¤[ªº°ÝÃD²×©óÀò±o¤F¸Ñ¨M! ·PÁÂGBKEEª©¥D

gkld

¦^´_ 2# GBKEE


    ½Ð°ÝªO¤j¡A¦P¤W¨Ò¡A¦pªG¬O­n§ï­n¿ï¨ú sheets("°õ¦æ")ªºrange("a1")

    ¬O¤£¬O¥u³Ñ¦h¥[¦æ¡ySheets("°õ¦æ").Activate¡z
   
    ³o­Ó¤èªk¡H

1. Private Sub CommandButton1_Click()
   
2. Sheets("²Ä¤G­Ó").Select
   
3. Sheets("°õ¦æ").Activate
   
4. Sheets("°õ¦æ").Range("A1").Select
   
5. 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

oppj2327

·Pı¦n¹³«Ü§xÃø...ÁÂÁÂGBKEEªO¥D