- ©«¤l
- 12
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2022-2-1
- ³Ì«áµn¿ý
- 2022-12-29
|
¦^´_ 1# y54161212 - Private Sub CommandButton1_Click() '<--** Sheet2 ªºµ{§Ç**
- Dim sht As Worksheet, sht2 As Worksheet
- Dim i As Integer, j As Integer, k As Integer
- Set sht = Worksheets("Sheet1")
- Set sht2 = Worksheets("Sheet2")
- Application.Goto sht.Range("A1")
- ' CommandButton1_Click <-- °õ¦æªº¬OSheet2 ªºµ{§Ç
- '** CommandButton1_Click ³o¬OSheet2 ªºµ{§Ç
- '** ¤@ª½¦b ¤@ª½¦a¦A «½Æ°õ¦æSheet2 ªºCommandButton1_Click µ{§Ç
- '** ¿ù»~½X 28 ªí°ïÅ|ªÅ¶¡¤£°÷¥Î¤F *****
- 'Private Sub ªí¨p¥Îªºµ{§Çn¥Î Run ¨Ó©I¥s °õ¦æªºµ{§Ç
- Run "Sheet1.CommandButton1_Click" '**°õ¦æSheet1 ªºµ{§Ç**
- End Sub
½Æ»s¥N½X |
|