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

[µo°Ý] [½Ð¦U¦ì¤j¤jÀ°¦£] VBA input ªí®æ»s§@

[µo°Ý] [½Ð¦U¦ì¤j¤jÀ°¦£] VBA input ªí®æ»s§@

¥»©«³Ì«á¥Ñ myfbee ©ó 2017-3-6 21:49 ½s¿è

·Q¼g¬qVBA¡A°µ¦¨¤U¹Ïªº®ÄªG¡A·PÁ¸U¤À¡I¡I¡I
HELLO

¦^´_ 1# myfbee


    Private Sub CommandButton1_Click()
Dim row As Integer
Dim col As Integer
Dim count1 As Integer

For count1 = 1 To 10
    For row = 1 To 100
        For col = 5 To 100
            str1 = "Input " & count1
            If (Cells(row, col) = str1) Then
                For number1 = 1 To Cells(row + 5, col + 2)
                    startrow = Range("A3").End(xlDown).row + 1
                    Cells(startrow, 1) = Cells(row + 2, col + 2)
                    Cells(startrow, 2) = Cells(row + 3, col + 2)
                    Cells(startrow, 3) = Cells(row + 4, col + 2)
                    Cells(startrow, 4) = number1
                Next
            End If
        Next
    Next
Next

End Sub

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD