excel VBA 迴圈更改控件名稱

t0020497

請問,在excel VBA裡,我試著拉出10個Commandbutton
預設名稱為Commandbutton1~Commandbutton10
如果要改名子~寫成Commandbutton1.caption="xxx"之類的
,但太多個一個一個寫很麻煩
想利用迴圈一次性直接寫成Commandbutton1.caption=1
Commandbutton2.caption=2....以下類推
但都會顯示異常
是否Commandbutton這個控件,無法使用迴圈控制呢?

是否有精通的大德,可以教導
...

瀏覽完整內容，請先 註冊 或 登入會員

天蓬元帥

因為不知道最後你的用意在哪，如果只是單純過程會用到
有一個不是辦法的辦法....先用迴圈寫出Commandbutton1.caption="XXX"的程式碼
之後再匯入(或貼上就好)
Sub Macro2()
For i = 1 To 10
Sheets("123").Cells(i, 1) = "Commandbutton" & i & ".caption=" & "XXX"
Next i
...

瀏覽完整內容，請先 註冊 或 登入會員

t0020497

天蓬元帥 發表於 2018-7-7 09:48 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

因為不知道最後你的用意在哪，如果只是單純過程會用到
有一個不是辦法的辦法....先用迴圈寫出Commandbutton ...

謝謝   我試試看                  
...

瀏覽完整內容，請先 註冊 或 登入會員

tryit244178

記得以前VB6有個控制項的物件可以用，不知VBA有沒有…試試這個

1. For i = 1 To 3
   
2.    Controls("CommandButton" & i).Caption = "Test" & i
   
3. Next i

複製代碼

天蓬元帥

一樣顯示物件不支援此屬性或方法
網路爬文還沒找到解答
另外後來想想，其實也不用用迴圈，EXCEL直接公式拉就好 冏

Waroger

1. Dim a As Object, i As Integer
   
2. On Error Resume Next
   
3. 
   
4. For Each a In ActiveSheet.OLEObjects
   
5.     If TypeName(a.Object) = "CommandButton" Then
   
6.        If Left(a.Object.Caption, 13) = "CommandButton" Then
   
7.           a.Object.Caption = "Test" & i
   
8.           i = i + 1
   
9.        End If
   
10.     End If
    
11. Next

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員