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

ÀRºAÅܼƪº¨Ï¥Î

ÀRºAÅܼƪº¨Ï¥Î

½Ð±Ð¦U¦ì°ª¤â
§Úªºµ{¦¡½X¦p¤U

sub ½Æ»s()
x=cells(1,1)
end sub

sub ¶K¤W()
cells(2,2) = x
end sub

·Q½Ð°ÝÀRºAÅܼÆÀ³¸Ó­n¦b­þÃä«Å§i,ÅܼÆx¤~¯à¦b¨â­Ó¥¨¶°¶¡¶Ç»¼?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-30 10:40 ½s¿è

¦^´_ 1# gogotony
¦b¼Ò²Õ ªº³»­B ³]¥ß     ¤½¥ÎÅÜ¼Æ ->  Public   x    ©Î  ¨p¥ÎÅܼÆ->  Dim   x     
¼Ò²Õ¤ºªºµ{§Ç³£¥i©I¥s , ¼Ò²Õ¥~ªºµ{§Ç¥u¥i©I¥s ¤½¥ÎÅÜ¼Æ (Public)
«D¤@¯ë¼Ò²Õ(Module)¤ºªº¤½¥ÎÅܼÆ,¦b©I¥s®É »Ý«ü©ú ª«¥ó¼Ò²Õªº¦WºÙ ¦p Sheet2.x
sub Ex()
Dim x   ->µ{¦¡¤ºªº ¨p¥ÎÅܼƠ ¥u¥i¦bµ{¦¡¤º¨Ï¥Î
End Sub

TOP

GBKEE ¤j»¡ªº¤j·§¬O³o¼Ë:
§â«Å§i©ñ¦b¥~­±,

public x as integer

sub ½Æ»s()
x=cells(1,1)
end sub

sub ¶K¤W()
cells(2,2) = x
end sub

sub ¹B§@()
   call ½Æ»s()
   call ¶K¤W()
end sub
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÀRºAÅܼƥu¦b³æ¤@¼Ò²Õ¤º¨Ï¥Î
¥HStatic«Å§i
¦p¥H¤U¡G
Sub test()
Static x%
x = x + 1
[a65536].End(3)(2) = x
End Sub
µ{¦¡­«½Æ°õ¦æ®ÉÅܼƷ|¤@ª½«O«ù°O¾Ð¡Aª½¨ìÀÉ®×Ãö³¬
­n¦b¨â­Ó¥¨¶°¶¡¶Ç»¼«h¥Î¤½¦@ÅܼÆpublic«Å§i¡A¦p¼Ó¤W©Ò¥Ü¡C

TOP

§Ú¥ý«e³£¬O§Q¥Î Àx¦s®æ¨Ó§@¡C
sub ½Æ»s()
cells(3,3)=cells(1,1)
end sub

sub ¶K¤W()
cells(2,2) = cells(3,3)
end sub
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD