標題: [發問] [請各位大大幫忙] VBA input 表格製作 [打印本頁]

---

作者: myfbee    時間: 2017-3-6 21:46     標題: [請各位大大幫忙] VBA input 表格製作

本帖最後由 myfbee 於 2017-3-6 21:49 編輯

想寫段VBA，做成下圖的效果，感謝萬分！！！
[attach]26772[/attach]

---

作者: carloslin0316    時間: 2017-12-28 00:26

回復 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

[attach]28169[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)