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

[µo°Ý] ¤£¯àCALL¥X¨Ó ½Ð°Ý¦³¤j¤j¯àÀ°¦£¸Ñµª¶Ü

[µo°Ý] ¤£¯àCALL¥X¨Ó ½Ð°Ý¦³¤j¤j¯àÀ°¦£¸Ñµª¶Ü

³Â·Ð¦U¦ì¤j¤j¤F

¥¼©R¦W.jpg (271.85 KB)

¥¼©R¦W.jpg

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-13 08:41 ½s¿è

¦^´_ 1# jason77456
µ{¦¡°Ï¦³«Ü¦h¬Û¦Pªº´£°Ý,(·s·|­û½Ð¦h·j¯Á,¤F¸Ñ.)
CALL°õ¦æ ¤u§@ªíª«¥ó¼Ò²Õ¤¤ªºµ{¦¡.¥²¶·«ü©ú©Ò°õ¦æµ{¦¡ªº¤u§@ªíª«¥ó¼Ò²Õ¦WºÙ.
CALL°õ¦æ ¤@¯ë¼Ò²Õ¤¤ªºµ{¦¡,¦p¬°¤½¥Îµ{¦¡«h¤£»Ý«ü©ú¼Ò²Õ¦WºÙ
Sheet1ªºµ{¦¡
  1. Option Explicit
  2. Sub Ex()
  3.     Module1_A
  4.     Sheet2.EX_A
  5.     Call Sheet2.EX_A
  6.     Run "Sheet2.EX"             'Run ¥i©I¥s¨p¥Îµ{¦¡
  7.     Run "Module1.Module1_B"     'Run ¥i©I¥s¨p¥Îµ{¦¡
  8. End Sub
½Æ»s¥N½X
Sheet2ªºµ{¦¡
  1. Option Explicit
  2. Private Sub Test()
  3.     Ex             '°õ¦æ³o¼Ò²Õ¤ºªº ¨p¥Îµ{¦¡
  4. End Sub
  5. Private Sub Ex()  'Private  '¼Ò²Õ¨p¥Îµ{¦¡¶È³o¼Ò²Õªºµ{¦¡¥i CALL
  6.     MsgBox "Sheet2   Private ¨p¥Îµ{¦¡"
  7. End Sub
  8. Sub EX_A()         'Public ¥i¬Ù²¤   ¤½¥Îªº '©Ò¦³µ{¦¡³£¥i CALL
  9.     MsgBox "Public ¤½¥Îµ{¦¡"
  10. End Sub
½Æ»s¥N½X
¤@¯ë¼Òªý Module1ªºµ{¦¡
  1. Option Explicit
  2. Sub Module1_A()
  3.     MsgBox "Module1_A "
  4. End Sub
  5. Private Sub Module1_B()
  6.     MsgBox "Private  Module1_B"
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD