注册    登录
今天看啥  ›  专栏  ›  完美Excel

列出用户窗体中所有控件

完美Excel  · 公众号  · Excel  · 2024-04-11 13:21
学习Excel技术，关注微信公众号：excelperfect标签：VBA，用户窗体下面的过程能够在指定工作表中列出指定用户窗体中所有控件的名称：Sub ListControls() Dim lCntr As Long Dim aCtrls() As Variant Dim ctlLoop As MSForms.Control '修改用户窗体名称为实际名称 For Each ctlLoop In UserForm1.Controls lCntr = lCntr + 1 ReDim Preserve aCtrls(1 To lCntr) aCtrls(lCntr) = ctlLoop.Name Next ctlLoop '修改工作表名称为实际名称Worksheets("Sheet1").Range("A1").Resize(UBound(aCtrls)).Value = Application.Transpose(aCtrls)End Sub你需要将代码中用户窗体名称UserForm1修改为你想要列出控件的用户窗体实际名称，将工作表名称Sheet1修改为你想要放置所列控件名称的工作表实际名称。这段程序代码很简洁，但使用了数组及实时调整数组大小并保留数组原内容、给工作表单元格区 ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  几个常用公式，效率提升1.2%左右
2 天前
Excel之家ExcelHome  ·  这些统计汇总公式，日常工作经常用
3 天前
Excel之家ExcelHome  ·  排序排错了能不能回到最开始的样子？让我教你月光宝盒的技术
3 天前
Excel之家ExcelHome  ·  这样标记销售排名，效果还不错
3 天前
Excel之家ExcelHome  ·  做表不用Ctrl键，天天加班八点半
1 周前
院长技术  ·  K8s定时备份MySQL并发送到指定邮箱
4 月前
赛博攻防悟道  ·  被世界低估的黑客Z世代
2 年前
杨角风发作  ·  水浒传：西门庆武艺高强，一招就踢飞了武松的刀，为何还是败了？
3 年前
澎湃新闻  ·  央行发布房贷新规
4 年前
PT邀请码网  ·  【CherryKiss (CK)】开放注册中
6 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号