VBA¯à±q°õ¦æ¤@Ó¥¨¶°¤¤¸õ¨ì¥t¤@Ó¥¨¶°¶Ü?
- ©«¤l
- 96
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 125
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-3-23
- ³Ì«áµn¿ý
- 2022-8-2
|
VBA¯à±q°õ¦æ¤@Ó¥¨¶°¤¤¸õ¨ì¥t¤@Ó¥¨¶°¶Ü?
¦p¤U¨Òµ{¦¡½X¡A§Ú§Æ±æ·í°õ¦ætest1®Éº¡¨¬¬Y±ø¥ó´N¯à¸õ¨ìtest2°õ¦æ¡A¤£¹L¥H¤Uµ{¦¡½X°õ¦æ®É·|¥X²{BR¥¼©w¸q¡A½Ð¦U¦ì°ª¤âÀ°¦£¤@¤U
n«ç»ò¼g¤~¯à¦bº¡¨¬test1ªº±ø¥ó®É¸õ¨ìtest2«ü©wªºµ{§ÇÄ~Äò°õ¦æ¡H·PÁ¡I- Sub test1()
- If Range("a1").Value = 2 Then GoTo BR
- End Sub
- Sub test2()
- BR:
- Range("a2").Value = 3
- Range("a3").Value = 4
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 96
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 125
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-3-23
- ³Ì«áµn¿ý
- 2022-8-2
|
¦^´_ 2# twosix
·PÁ¦^ÂСA¤£¹L¥i¯à¬O§Úªí¹Fªº¤£°÷²M·¡¡A§Ú§Æ±æªºµ²ªG¬O·ítest1±ø¥ó¦¨¥ß®Éª½±µ¸õ¨ìtest2¬Yµ{§Ç¡A¦Ó¤£¬Otest2¾ãÓµ{§Ç¡A¦pµ{¦¡½X»¡©ú- Sub test1()
- If Range("a1").Value = 2 Then GoTo BR '·í¦¹±ø¥ó¦¨¥ß®É§Æ±æ¯à¸õ¨ìtest2ªºBR°õ¦æ±µ¤U¨Óªºµ{§Ç
- If Range("a2").Value = 3 Then GoTo MN '·í¦¹±ø¥ó¦¨¥ß®É§Æ±æ¯à¸õ¨ìtest2ªºMN°õ¦æ±µ¤U¨Óªºµ{§Ç
- End Sub
- Sub test2()
- Range("a:a").Height = 15
- Range("b:b").Width = 16
- BR:
- Range("a2").Value = 3
- MN:
- Range("a3").Value = 4
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-3-22
- ³Ì«áµn¿ý
- 2020-5-27
|
- Sub test1()
- If Range("a1").Value = 2 Then
- Call test2
- End If
-
- End Sub
- Sub test2()
- Range("a2").Value = 3
- Range("a3").Value = 4
- End Sub
½Æ»s¥N½X ¦^´_ 1# smart3135 |
|
|
|
|
|
|