[發問] checkbox新增及更名

小弟現在要做一個新增checkbox新增及同時改名之commonbottom
並且在按的同時刪除舊有的checkbox 並新增新的checkbox
以第三列為listname
不過在第二次按下此bottom時會產生無法盡數刪除情形
會留下第一個checkbox無法更名  造成後面之checkbox名字皆錯
求解!! 感激不盡

CK刪除為刪除現有ckbox
函式如下
Sub CK刪除()
Dim CK As Object
For Each CK In ActiveSheet.OLEObjects
If CK.Name Like "CheckBox*" Then
      CK.Delete
End If
Next
End Sub

以下為程式碼

Private Sub CommandButton1_Click() '資料篩選
Call CK刪除

Range("A4:K4").Select
Range("A4:K4", Selection.End(xlDown)).Select

If Selection.Count > 999999 Then '不接受低於二筆資料處理
      MsgBox ("資料表輸入資料太少，請確認。")
      Exit Sub
End If

'2013/07/31 Test
Range("A3").Select
Range("A3", Selection.End(xlToRight)).Select
ListCount = Selection.Columns.Count
ComboBox1.Clear
ReDim listname(ListCount - 1) As String
For i = 0 To ListCount - 1
      If i <= 25 Then
         listname(i) = Range(Chr(65 + i) & "3").Text
      Else
         listname(i) = Range("A" & Chr(65 + i - 25) & "3").Text
      End If
      ComboBox1.AddItem listname(i)
Next i

   '新增checkbox

   For i = 0 To ListCount - 1
      OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
      DisplayAsIcon:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5).Select
   Next i

'checkbox改名
   ReDim listname1(ListCount) As String
   For i = 1 To ListCount
      If i <= 25 Then
         listname1(i) = Range(Chr(64 + i) & "3").Text
      Else
         listname1(i) = Range("A" & Chr(64 + i - 25) & "3").Text
      End If
Next i

   For i = 1 To ListCount
   Sheets("資料").OLEObjects("CheckBox" & i).Object.Caption = listname1(i)
   Next i

樓主熱帖

rick4615

小學生 Rank: 1

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

2^#

發表於 2013-8-9 16:09 | 只看該作者

對了補充一下如果我把call ck刪除
獨立一個bottom出來處理就不會有這個情況
合在一起才出現的

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-8-9 17:13 | 只看該作者

回復 2# rick4615

Sub Test()
Dim ar, obj, i As Long
With Sheets("資料")
'Combobox
ar = Application.Transpose(Application.Transpose(.Range(.[A3], .[A3].End(xlToRight)).Value))
.ComboBox1.List = ar
'刪除checkbox
For Each obj In .OLEObjects
If obj.Name Like "CheckBox*" Then obj.Delete
Next
'新增checkbox
For i = 1 To UBound(ar)
With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=0 + 93.5 * (i - 1), Top:=126, Width:=90, Height:=22.5)
.Object.Caption = ar(i) '改名
End With
Next
End With
End Sub

複製代碼

TOP

rick4615

小學生 Rank: 1

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

4^#

發表於 2013-8-9 17:33 | 只看該作者

感謝大大的解答!
似乎把改名跟新增這兩個動作一起做的時候就不會出現這種問題??
如果分開寫有解嗎@@?

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2013-8-9 20:02 | 只看該作者

本帖最後由 stillfish00 於 2013-8-9 20:05 編輯

回復 4# rick4615

　.OLEObjects("CheckBox" & i) 　
不是一個安全的方法取得ActiveX物件，有時會發生 Run-time error 1004, Unable to get Object Property of OLEObject class

　改用　.OLEObjects(n) 取得（n為數字）比較安全，再另外判斷名字是否含CheckBox。

TOP