ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[Âà¶K] ¦p¦ó¤À¿ë¼Ò²Õ¤Î¥þ°ìÅܼƩO¡H

[Âà¶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¾Ç¥H­P¥Î¤ñ¸û­«­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

¤@¯ë¼Ò²Õ
Public Const mystr = "¶W¤H"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# basarasy


    Public Const i As Integer = 100
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD