我在EXCEL裡Sheet1設了8個CHECKBOX ，Sheet2有8個人的資料
還有一個按鈕，按下去後會自動複製有勾選的人的資料到Sheet1
可是就卡在檢查那關，程式如下
Private Sub CommandButton1_Click()
Dim x, y, z, a As String
Dim i, j As Integer
Sheet1.Range("A2:C9").Value = "" '清空資料處
j = 2
For i = 1 To 8
If ("CheckBox" & i) = True Then
x = Sheet2.Cells(i + 1, 1).Value 這幾行是複製資料
Sheet1.Cells(j, 1).Value = x
y = Sheet2.Cells(i + 1, 2).Value
Sheet1.Cells(j, 2).Value = y
z = Sheet2.Cells(i + 1, 3).Value
Sheet1.Cells(j, 3).Value = z
j = j + 1
End If
Next
End Sub
有看過之前文章裡面有用 If Me.c????l("CheckBox" & i)
^^^^^忘了
可是照著貼上又警告沒有宣告之類的
PS:我直接放在EXCEL，沒有製作USERFORM
請各位先進指點
謝謝 |
發表於 2013-2-6 15:42
| 
