Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2308|回复: 8

[已解决]有没有办法让1个ComboBox自动变成10个???

[复制链接]
发表于 2017-7-23 22:53 | 显示全部楼层 |阅读模式
本帖最后由 ygzt 于 2017-7-23 22:58 编辑

有没有办法让1个ComboBox自动变成10个

2017-07-23_225644.jpg


生成ComboBox.rar (10.39 KB, 下载次数: 3)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-7-24 08:17 | 显示全部楼层
回复

使用道具 举报

发表于 2017-7-24 09:47 | 显示全部楼层
当然可以实现,我就是好奇你这么做的目的是什么?
如果是为了实际应用的话,请把需要说出来,说不定不需要这么多combobox也能达到同样效果。
回复

使用道具 举报

 楼主| 发表于 2017-7-24 10:19 | 显示全部楼层
大灰狼1976 发表于 2017-7-24 09:47
当然可以实现,我就是好奇你这么做的目的是什么?
如果是为了实际应用的话,请把需要说出来,说不定不需要 ...

请老师帮我实现生成10个的问题吧

我是用于在ListView控件中做数据修改编辑的。

因为数据的项目类别太多,如在窗体添加N个ComboBox控件,对以后维护会造成困扰。
如这个问题能得以解决,那真是太感谢您了!

回复

使用道具 举报

发表于 2017-7-24 10:33 | 显示全部楼层
附件请测试

test.zip

12.33 KB, 下载次数: 6

回复

使用道具 举报

发表于 2017-7-24 10:38 | 显示全部楼层    本楼为最佳答案   
用你的附件加工了一个。

生成ComboBox.zip

10.46 KB, 下载次数: 16

回复

使用道具 举报

 楼主| 发表于 2017-7-24 12:29 | 显示全部楼层
本帖最后由 ygzt 于 2017-7-24 12:33 编辑
大灰狼1976 发表于 2017-7-24 10:38
用你的附件加工了一个。

谢谢老师!帮忙~!你真是太棒了!

如果我想生成的ComboBox名称是以下这种怎么修改?
For i = 1 To 10
With Controls.Add("Forms.ComboBox.1"&"W")

ComboBox1W
ComboBox2W
ComboBox3W
ComboBox4W
ComboBox5W
ComboBox6W
ComboBox7W
ComboBox8W
ComboBox9W
ComboBox10W

回复

使用道具 举报

发表于 2017-7-24 12:37 | 显示全部楼层
  With Controls.Add("Forms.ComboBox.1")
    .Visible = True
    .Name = "Combobox" & i & "W"
    .Top = tp
    .Left = lft
    .Height = hgt
    .Width = wid
    lft = lft + .Width
  End With
回复

使用道具 举报

 楼主| 发表于 2017-7-24 13:26 | 显示全部楼层
大灰狼1976 发表于 2017-7-24 12:37
With Controls.Add("Forms.ComboBox.1")
    .Visible = True
    .Name = "Combobox" & i & "W"

谢谢您~!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 13:53 , Processed in 1.106184 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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