ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 Office 365免费试用,报名现在开始! 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 70|回复: 1

[求助] 增加动态命令按钮指定名称

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-7-13 10:36 | 显示全部楼层 |阅读模式
Private SubCmd_add_Click()
  With Me
    If .Cmd_add.Caption = "增加" Then
      .Cmd_add.Caption = "增加>"
      For i = 1 To 3
        Set mybutton =.Controls.Add("Forms.commandButton.1")
        With mybutton
          .Name = "Cmd_" & i
          .Caption = "按钮" & i
          .Left = 100
          .Height = 25
          .Width = 100
          .Top = 60 + (i - 1) * 30
        End With
      Next
    Else
      .Cmd_add.Caption = "增加"
      For i = 1 To 3
        .Controls.Remove "Cmd_" &i
      Next
    End If
  End With
End Sub
这样才能把按钮名称:按钮1、按钮2、按钮3,改成学习、恢复、提高。并在新增按钮内分别写入不同执行命令.(一般按钮Private SubCommandButton1_Click()     End Sub)不知道新按钮是什么) 具体见附件                                                请老师帮忙写一下。谢谢!

窗体增加命令按钮.rar

159 KB, 下载次数: 0

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-16 08:27 | 显示全部楼层
那位老师帮忙一下,急》》》》》》》》》》
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-8-18 12:35 , Processed in 0.068408 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表