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

¦U¦ì«e½ú¦n, ½Ð°Ý¤@¤U, §Ú·Q³]­p¤@­ÓÂù°j°éªºmacro

¦U¦ì«e½ú¦n, ½Ð°Ý¤@¤U, §Ú·Q³]­p¤@­ÓÂù°j°éªºmacro

¦U¦ì«e½ú¦n,

¤p§Ì¹ï©óexcel ¬O·s¤â, ½Ð¦h¥]²[«ü±Ð.



§Ú·Q­n³]­p¤@­Óexcel®æ¦¡¦p¹Ï,
¥\¯à¬O ·í¤Ä¿ï¥ª¤èªº²M³æ®É,
¦b¥kÃ䪺¶Â¦â®Ø®Ø½d³ò¤º, ·|¥ý«ö¦æ ¦A«ö¦C
´M§äªÅ¥Õ³B, ¶ñ¤J¤Ä¿ï¶µ¥Øªº¤å¦r.

½Ð°Ý³oºØ³]­p¬O­n¥Î Do while ÁÙ¬O¥Î For°j°é©O?
¦³¨S¦³«e½ú¥i¥H´£¨Ñ½d¨Ò°Ñ¦Ò©O?
·P®¦³á~~


WesleyTsao

ÁÙ¬O¥Î For°j°é¤è«K¡I§A¥i¥H¤W¶Ç§Aªºªþ¥ó¡AvbaµLªk¦b¹Ï¤W¾Þ§@¡C

TOP

oobird¤j§A¦n,

§Ú©ñ¤@­Ó¤§«e¼gªº¨ä¤¤¤@­Ó¤¸¥óªºmacro, ·í®É¬O¥ÎDo while¤è¦¡.., ½Ð±zªÈ¥¿¤@¤U,
¦]¬°¶]°_¨Ó©Ç©Çªº, §Ú´N¤£ª¾¹D«ç»ò¼g¤U¥h¤F..
¦]¬°¥¦·|§â¤@¾ã¦æµ¹¶ñ§¹, ¦Ó§Ú¥u­n¶ñ§ä¨ìªº²Ä¤@­ÓªÅ¥ÕÄæ¦ì..

Sub do_while_test()
Dim i, j As Integer
i = 1
j = 0

For j = 0 To 2
j = j + 1

Do While i <= 10 And Cells(i, j) = ""
Cells(i, j) = "AAA"
i = i + 1
Loop
Next

End Sub

·PÁ·PÁÂ~~
WesleyTsao

TOP

¨Ò¦p¡G
Sub do_while_test()
For c = 1 To 5
For r = 3 To 4
If Cells(r, c) = "" Then Cells(r, c) = "AAA": Exit Sub
Next
Next
End Sub

TOP

·PÁÂ oobird¤j,

¤w¸g·f°t¤@­Ó¤Ä¿ï¤¸¥ó, ¥i¥H°µ
¤Ä¿ï- ªÅ¥Õcell¦Û°Ê¥[¤J¤å¦r   ©M
¨ú®ø¤Ä¿ï- ¤w¿é¤J¦r¦ê²M°£ªº°Ê§@~

±µ¤U¨Ó¦A¸Õ¸Õ¦h­ÓCheckBox, ¬Ý¬Ý·|¤£·|¦³Bug..

·P®¦·P®¦~~  

WesleyTsao

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD