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

[µo°Ý] For Next°j°é

[µo°Ý] For Next°j°é


Book1.rar (4.6 KB)

ªì¯AVBA

·íA1¶ñ¤J10
§Æ±æBÄæ¨ìEÄ檺µ²ªG : ¦pªþ¥ó
½Ð°Ýµ{¦¡½X¦p¦ó¼g¡H
ÁÂÁ¦U¦ì¡I

Sub ¥[´î¼Æ()
    For i = 1 To [a1]
        Cells(i, "B") = i
        Cells(i, "C") = [a1] + 1 - i
        Cells(i, "D") = i - 1
        Cells(i, "E") = [a1] - i
    Next
End Sub

§@·~­n¦Û¤v¼g¤~·|¶i¨B
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089
§A»~·|¤F¡A³o¤£¬O§@·~°Õ
§Ú¦³¤WG¤j¯«¬d¾\¸ê®Æ
¦ý³QFor I=1 To 10 ©M  For I=1 To 10 Step -1 ©Î+1
·d©üÀY¤F~~~
ÁÂÁ§AªºÀ°¦£!

TOP

¦^´_ 2# ML089
   http://forum.twbts.com/thread-23400-1-1.html   
½Ð±z«ü¾É¡CÁÂÁ±z!

¤£¦n·N«ä¡A¦]¬°µLÅvµo"µu®ø®§"¡A©Ò¥H¥H"¦^´_"Áܽбz¡A©|½Ð¨£½Ì¡CÁÂÁ±z!

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD