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

laoyebin

去掉object，和上面一样，能运行不报错，但什么也没改变

tqnacrux

看不太懂啊，为什么有的窗体上的要用Control，而工作表中的控件要用OLEObject？
高手解释一下啊

alzeng

以下代码经测试无误：

1. 
   
2. Private Sub UserForm_Click()
   
3.     Dim Cmd As Control
   
4.     For Each Cmd In UserForm1.Controls
   
5.         If Cmd.Caption = Cmd.Name Then
   
6.             Cmd.Caption = "Cmd"
   
7.         Else
   
8.             Cmd.Caption = Cmd.Name
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码

alzeng

laoyebin

恩，这样放在userform事件里确实有效，换成UserForm_Initialize也可以


但我的本意是想问：有没有办法在模块里写个SUB过程能改commandbutton的caption

alzeng

原帖由 laoyebin 于 2009-7-28 08:38 发表
恩，这样放在userform事件里确实有效，换成UserForm_Initialize也可以


但我的本意是想问：有没有办法在模块里写个SUB过程能改commandbutton的caption

同理，当然可以。记得有一个按钮两种用法的贴子，你搜一下……

mineshine

我测试的结果，可能改変当下可见的CommandButton的Caption，但实际在UserFrom里，並沒有改变。

laoyebin

原帖由 alzeng 于 2009-7-28 09:16 发表

同理，当然可以。记得有一个按钮两种用法的贴子，你搜一下……

我的意思好像不是这个一个按钮两种用法，请再看看

laoyebin

原帖由 mineshine 于 2009-7-28 09:26 发表
我测试的结果，可能改変当下可见的CommandButton的Caption，但实际在UserFrom里，並沒有改变。

打开时候提示模块丢失，请再上传个哦

alzeng

我的意思好像不是这个一个按钮两种用法，请再看看

韧皮部下按钮后，Caption变化，功能也变化，这就说明这个Caption是能修改的。