- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 174
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-7-18
               
|
[Âà¶K] ¦p¦ó¤À¿ë¼Ò²Õ¤Î¥þ°ìÅܼƩO¡H
Q:
VBA¦³¤TºØÅܼÆ
°Ï°ì¡B¼Ò²Õ¡B¥þ°ìÅܼƦ@¤TºØ
¤p§Ì¹ï©ó¼Ò²Õ©M¥þ°ìÅܼƤÀ¿ë¤£²M
¤£ª¾n¦p¦ó°Ï¤À©O¡H
A:
«Å§iÅܼƪº°ò¥»»yªk¦p¤U¡A¤£ª¾þ¸Ì¤£À´?
Dim variable_name [As variable_type]
¦b¼Ò²Õ¼h¦¸ùØ¥H Dim ©Ò«Å§iªºÅܼơA¸Ó¼Ò²Õ©Ò¦³ªºµ{§Ç¬Ò¥i¨Ï¥Î¡C
¦bµ{§Ç¼h¦¸«Å§iªºÅܼơA«h¥u¥i¦b¸Óµ{§Ç¤¤¨Ï¥Î¡C
Private variable_name [As variable_type]
¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i¨p¦³ÅܼơA¨Ã°t¸mÀx¦sªÅ¶¡¡C
Private Åܼƥu¾A¥Î©ó«Å§i¥¦Ìªº¼Ò²Õ¤¤¡C
Public variable_name [As variable_type]
¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i¤½¥ÎÅܼơA¨Ã°t¸mÀx¦sªÅ¶¡¡C
¨Ï¥Î Public ³¯z¦¡«Å§iªºÅܼơA¥i¥H¦b©Ò¦³¼Ò²ÕùبϥΠ(°£«D¨Ï¥Î Option Private Module)¡F¦ý·|¨ÏÅܼƥu¦b¥¦Ì©Ò¦bªº±M®×ùج°¤½¥Îªº¡C
ª`·N Public ³¯z¦¡µLªk¦bª«¥óÃþ§O¼Ò²Õùثŧi©T©wªø«×ªº¦r¦êÅܼơC
´£¿ô±z¡AÀ´±o¾Ç¥HP¥Î¤ñ¸û«n¡A¤£»Ý©ëªd¦b¦Wµü¤W¡C
Q:
¦pªG§Ún«Å§i¤@Ó¥þ°ìÅܼơA
¤@¶}¾÷³oÓÅܼƴN¦s¦b¡A
¨º»ò§Ún¦p¦ó«Å§i©O¡H
¥H¤U¬O§Úªº¼gªk¡A¤£ª¾¹D¹ï¤£¹ï
Public s1 As Integer
'³o¬O¦bThisWorkBook¤¤ªºµ{§Ç
Private Sub Workbook_Open()
s1 = Sheet1.Range("A65535").End(xlUp).Row
End Sub
A:
§A¬O¦bª«¥óÃþ§O¼Ò²ÕThisWorkbook«Å§iÅܼƪº¡A
Sheet1¤]¬Oª«¥óÃþ§O¼Ò²Õ¡C
¦pªGÅܼÆn¦b¤£¦Pªº¼Ò²Õ¤§¶¡¶Ç»¼/Ū¨ú¡A
½Ð¦b¤@¯ë¼Ò²Õ«Å§i¤½¥ÎÅܼơC |
|