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

mineshine

Sub test()
    Dim cbn As OLEObject
    Dim cmd As Control
    For Each cbn In Sheet1.OLEObjects
         If Left(cbn.Object.Caption, 7) = "Command" Then cbn.Object.Caption = "CB2"
    Next cbn
    For Each cmd In UserForm1.Controls
        If Left(cmd.Name, 7) = "Command" Then cmd.Caption = "CB2"
    Next cmd
    UserForm1.Show
End Sub

zldccmx

问题的关键：
你是要修改工作表中按钮的caption还是窗体中按钮的Caption

两者的方法是不一样的

laoyebin

原帖由 mineshine 于 2009-7-28 09:44 发表
Sub test()
    Dim cbn As OLEObject
    Dim cmd As Control
    For Each cbn In Sheet1.OLEObjects
         If Left(cbn.Object.Caption, 7) = "Command" Then cbn.Object.Caption = "CB2"
    Next cbn
...

是的呀，userform里面的cmd表面上是改了，但实际是并没有改变实际的caption
我的问题就在于此，怎样才能在一个模块的SUB过程里实际改变userform的cmd的caption属性

laoyebin

原帖由 zldccmx 于 2009-7-28 09:51 发表
问题的关键：
你是要修改工作表中按钮的caption还是窗体中按钮的Caption

两者的方法是不一样的

工作表的按钮的问题解决了
现在主要是问userform里的按钮caption

biaotiger1

一个按钮两种功能，两个caption，这个简单，我以前做过一个按钮就实现了这个功能哈
制作userform会使文件增大，没用过。

旁边看着高手讨论，学习下

zldccmx

原帖由 laoyebin 于 2009-7-28 09:56 发表



工作表的按钮的问题解决了
现在主要是问userform里的按钮caption

已经设计好了的窗体，可以动态修改其属性，但是一旦窗体关闭之后就会恢复到原始状态，也就是说，在代码中很难真正修改已经设计好了的窗体及其控件属性
估计唯一的办法是用代码设计窗体、设计控件。

zldccmx

估计楼主就是这个意思吧

zldccmx

      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-28 上午 11:12:12
Private Sub UserForm_Initialize()
    Dim cb As Object
    For Each cb In Me.Controls
        If cb.Name Like "Command*" Then cb.Caption = Replace(cb.Name, "CommandButton", "按钮")
    Next
End Sub


这段代码，只能实现修改在运行过程中窗体控件的属性，一旦窗体关闭之后，其属性就恢复到原始设计状态。

laoyebin

原帖由 zldccmx 于 2009-7-28 11:13 发表
      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-28 上午 11:12:12
Private Sub UserForm_Initialize()
    Dim cb As Object
    For Each cb In Me.Controls
        If cb ...

这个问题13楼的代码已经可以解决了
我是想永久改变其caption，而不是加载userform时候改变，卸载后又变回原样

ldy

在设计时定义好名称及个属性值就不用这么麻烦了。
一定要改的话，用VBE编程的方法来操作，就是俗称的用代码写代码。搜搜 VBE编程，Qee用的精华贴。