ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > E问E答 > Excel VBA > 如何获取当前工作表中存在的窗体控件类型清单

如何获取当前工作表中存在的窗体控件类型清单

作者：绿色风 分类： 时间：2022-08-17 浏览：147
楼主
yjzstar		 Q:如何获取当前工作表中存在的窗体控件类型清单?

A:利用shaped对象的Type属性和Formcontroltype属性便可轻松获得当前工作表中存在的窗体控件清单！具体如下：
  1. Sub 获取窗体控件类型清单()
  2.     Dim ws As Worksheet
  3.     Dim myshape As Shape
  4.     Dim arr()
  5.     Dim str As String
  6.     For Each myshape In ActiveSheet.Shapes
  7.         With myshape
  8.             If .Type = msoFormControl Then
  9.                 Select Case .FormControlType
  10.                     Case 0
  11.                         str = "按钮"
  12.                     Case 1
  13.                         str = "复选框"
  14.                     Case 2
  15.                         str = "组合框"
  16.                     Case 3
  17.                         str = "分组框"
  18.                     Case 4
  19.                         str = "标签"
  20.                     Case 5
  21.                         str = "列表框"
  22.                     Case 6
  23.                         str = "单选按钮"
  24.                     Case 7
  25.                         str = "滚动条"
  26.                     Case 8
  27.                         str = "微调按钮"
  28.                 End Select
  29.             End If
  30.         End With
  31.         n = n + 1
  32.         ReDim Preserve arr(1 To n)
  33.         arr(n) = str
  34.     Next
  35.     Range("a1").Resize(n, 1) = Application.WorksheetFunction.Transpose(arr)
  36.     End Sub

获取窗体控件清单.rar
2楼
亡者天下		 学习一下！
3楼
水星钓鱼		 学习了
4楼
芐雨		 学习了
5楼
老糊涂		 学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap