返回列表 上一主題 發帖

[發問] checkbox新增及更名

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-9 15:32 | 只看該作者

[發問] 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

帖子
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

帖子
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
  1. Sub Test()
  2.   Dim ar, obj, i As Long
  3.   
  4.   With Sheets("資料")
  5.     'Combobox
  6.     ar = Application.Transpose(Application.Transpose(.Range(.[A3], .[A3].End(xlToRight)).Value))
  7.     .ComboBox1.List = ar
  8.    
  9.     '刪除checkbox
  10.     For Each obj In .OLEObjects
  11.       If obj.Name Like "CheckBox*" Then obj.Delete
  12.     Next
  13.    
  14.     '新增checkbox
  15.     For i = 1 To UBound(ar)
  16.       With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
  17.         DisplayAsIcon:=False, Left:=0 + 93.5 * (i - 1), Top:=126, Width:=90, Height:=22.5)
  18.         .Object.Caption = ar(i)   '改名
  19.       End With
  20.     Next
  21.   End With
  22. End Sub
複製代碼

TOP

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
4#
發表於 2013-8-9 17:33 | 只看該作者
感謝大大的解答!
似乎把改名跟新增這兩個動作一起做的時候就不會出現這種問題??
如果分開寫有解嗎@@?

TOP

stillfish00

帖子
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

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題