怎样批量改一个表里的按钮的caption

laoyebin

如附件，怎样批量改这个表里的按钮的caption，即把commandbutton2的caption改成commandbutton2，依此类推

alzeng

在VBA中不能修改工作表中控件的Caption属性，等高手解决。

laoyebin

哦，那再等等

那不在工作表中，在USERFORM中可以吗？

chentx

在USERFORM中是可以修改BUTTON的CAPTION的。

laoyebin

原帖由 chentx 于 2009-7-27 17:09 发表
在USERFORM中是可以修改BUTTON的CAPTION的。

哦，谢谢，我试试去
继续等第一个问题答案

mineshine

1楼我的测试结果，可行：

Option Explicit
Sub test()
Dim cbm As OLEObject
For Each cbm In Sheet1.OLEObjects
     cbm.Object.Caption = "CommandButton2"
Next cbm
End Sub

alzeng

学习应用一下楼上的代码：

1. 
   
2. Sub test()
   
3.     Dim cbm As OLEObject
   
4.     For Each cbm In Sheet1.OLEObjects
   
5.         If cbm.Object.Caption <> cbm.Name Then
   
6.             cbm.Object.Caption = cbm.Name
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

laoyebin

我本来也是Dim cbm As OLEObject，但我是直接写的cbm.caption，没有加object，所以一直没成功，原来只差成功就一步啊，真郁闷

谢谢楼上两位了

laoyebin

再问个问题，如果这27个按钮在userform中该怎么改？
我是这么写的，能运行不出错但没改变
Sub test()
Dim cmb As Control
For Each cmb In UserForm1.Controls
    cmb.Object.Caption = cmb.Name
Next
End Sub

alzeng

原帖由 laoyebin 于 2009-7-27 21:48 发表
再问个问题，如果这27个按钮在userform中该怎么改？
我是这么写的，能运行不出错但没改变
Sub test()
Dim cmb As Control
For Each cmb In UserForm1.Controls
    cmb.Object.Caption = cmb.Name
Next
End S ...

这个要把Object去掉吧？