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

[µo°Ý] ½Ð°Ý¦bvba¦p¦ó¨ú±oÄæ¦ì¥N¸¹¡H

[µo°Ý] ½Ð°Ý¦bvba¦p¦ó¨ú±oÄæ¦ì¥N¸¹¡H

for x=1 to 20
¡@¡@y=sheet1.cells(1,x)
¡@¡@if condition then ¡H¡H¡H
next x
½Ð°Ý¦b¡H³B¸Ó«ç»ò¼g¡A¤~¯à¦^¶Çsheet1.cells(1,x)ªºÄæ¦ì¡H
·PÁÂ
¤£¶i«h°h

For x = 1 To 20
   MsgBox "³o¬O" & Split(Cells(1, x).Address(1, 0), "$")(0) & "Äæ"
Next x

TOP

·PÁª©¥D«ü¾É¡A¦A½Ð°Ý¤@¤U¡Asplit()¬O·|¥t¶}¤@­Ó°}¦C¨Ó¦s¨ú¦^¶ÇªºÄ渹¶Ü¡H
¦Ó§Ú·Q·í¤¤ªº"$"¬O¥Nªí¥Î$¨Ó¤À¹j¤l¦r¦ê¡H(0)§Ú´N¬Ý¤£À´¤F
¤£¶i«h°h

TOP

split("a$1","$")(0)="a"
split("a$1","$")(1)=1

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD