[發問] 我的Checkbox沒辦法動

iceandy6150

我在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
請各位先進指點
謝謝

mark15jill

回復 3# iceandy6150


    If Sheet1.OLEObjects("CheckBox" & i).Object.Value = True Then

這個方法說簡單點就是
在Sheet1 內 尋找 物件名稱是 Checkbox 的物件

kimbal

回復  Hsieh


    喔麥尬~太神奇了
終於可以正常運作了
太感謝大大了

只是為什麼要加一些....很奇 ...
iceandy6150 發表於 2013-2-6 18:13

"CheckBox" & i  只是一個字符串, 跟 "123" "abc" 同一類
如果想把找出那一個控件是這個名字是 這個字符串的, 就可以通過 OLEObjects(...)找出
控件的原形就是一個OLEObject

iceandy6150

回復 2# Hsieh


    喔麥尬~太神奇了
終於可以正常運作了
太感謝大大了

只是為什麼要加一些....很奇怪的東西才能運作咧?
不太懂

Hsieh

回復 1# iceandy6150


    If Sheet1.OLEObjects("CheckBox" & i).Object.Value = True Then