ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD