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

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
For Each cmd In UserForm1.Controls
If Left(cmd.Name, 7) = "Command" Then cmd.Caption = "CB2"
Next cmd
UserForm1.Show
End Sub

zldccmx · 发表于 2009-7-28 09:51

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

两者的方法是不一样的

laoyebin · 发表于 2009-7-28 09:55

原帖由 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 · 发表于 2009-7-28 09:56

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

两者的方法是不一样的

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

biaotiger1 · 发表于 2009-7-28 10:03

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

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

zldccmx · 发表于 2009-7-28 11:05

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

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

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

zldccmx · 发表于 2009-7-28 11:11

估计楼主就是这个意思吧

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.Name Like "Command*" Then cb.Caption = Replace(cb.Name, "CommandButton", "按钮")
Next
End Sub

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

laoyebin · 发表于 2009-7-28 11:19

原帖由 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 · 发表于 2009-11-23 11:38

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

		自动登录	找回密码
密码			免费注册

[求助] 怎样批量改一个表里的按钮的caption

回复 19楼 laoyebin 的帖子