primary9
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 74
|
VBA¦³¤TºØÅÜ¼Æ °Ï°ì¡B¼Ò²Õ¡B¥þ°ìÅܼƦ@¤TºØ ¤p§Ì¹ï©ó¼Ò²Õ©M¥þ°ìÅܼƤÀ¿ë¤£²M ¤£ª¾n¦p¦ó°Ï¤À©O¡H ÁÂÁ 
|
|
|
|
|
¤w°O¿ý
|
|
|
|
leonchou
½×¾ÂºûÅ@¸s
Â÷½u
¤å³¹: 1160
|
«Å§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
|
|
|
|
|
¤w°O¿ý
|
|
|
|
primary9
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 74
|
·PÁ±zªº¦^µª  ¦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
|
|
|
|
|
¤w°O¿ý
|
|
|
|
leonchou
½×¾ÂºûÅ@¸s
Â÷½u
¤å³¹: 1160
|
|
|
|
|
|
¤w°O¿ý
|
|
|
|
primary9
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 74
|
·PÁÂ¥S¥x³o»ò§Öªº¦^µª¡C ©êºp¡A §Ú¥´¿ù¤F¡A §Únªº¬O¤@¶}excelªº³oÓÀɮɡA µM«á´N¥i¥H¥Îªº¥þ°ìÅܼơC
|
|
|
|
|
¤w°O¿ý
|
|
|
|
|
|
leonchou
½×¾ÂºûÅ@¸s
Â÷½u
¤å³¹: 1160
|
³o¬O¤p§Ì¼gªº¤@Óµ{¦¡ °õ¦æ«á¡AµLªk¦b§Y®É¹Bºâµøµ¡¤¤²£¥ÍÈ ¤£ª¾¹D³o¼Ë¼gªº¥þ°ìÅܼƹ藍¹ï
§A¬O¦bª«¥óÃþ§O¼Ò²ÕThisWorkbook«Å§iÅܼƪº¡A Sheet1¤]¬Oª«¥óÃþ§O¼Ò²Õ¡C ¦pªGÅܼÆn¦b¤£¦Pªº¼Ò²Õ¤§¶¡¶Ç»¼/Ū¨ú¡A ½Ð¦b ¤@¯ë¼Ò²Õ«Å§i¤½¥ÎÅܼơC
|
|
|
|
|
¤w°O¿ý
|
|
|
|
primary9
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 74
|
§Ú²×©ó¤F¸Ñ ÁÂÁ³á¡I 
|
|
|
|
|
¤w°O¿ý
|
|
|
|
|