VBA动态生成多选框checkbox

10307951261

留个脚印   

卿相

优秀作品，谢谢！

233437599

如果添加到第25个到28个选项的时候，就会只显示前20个噢..添加到第29个开始往后继续添加又正常了.. 求搞手解决哦... 我也遇到这个问题了

233437599

小霞_JISUXIA 发表于 2015-11-24 16:46
学习了，先用了，慢慢学。。。

其中有一个问题：我在用的时候，发现如果SHEET3的A列行数/10如果大于0.5 ...

按您的改了 还是没解决这个问题

赟宝赟儿

作者的代码有错误，sheet3如果有二十多行就不显示了，其实就是一个判断出了错。

Private Sub UserForm_Initialize()
'先计算有多少个控件，每10个换列
If Sheet3.Range("A2").End(xlDown).Row / 10 > Round(Sheet3.Range("A2").End(xlDown).Row / 10, 0) Then
    counts = Round(Sheet3.Range("A2").End(xlDown).Row / 10, 0) + 1
Else
     counts = Round(Sheet3.Range("A2").End(xlDown).Row / 10, 0)
End If

YZC51

赟宝赟儿 发表于 2020-6-19 18:23
作者的代码有错误，sheet3如果有二十多行就不显示了，其实就是一个判断出了错。

Private Sub UserForm_I ...

试试
     counts = -Int(-Sheet3.Range("A2").End(xlDown).Row / 10)

YZC51

试试
程序_动态多选框-.zip (31.72 KB, 下载次数: 130)

2020-6-19 20:39 上传

点击文件名下载附件

YZC51

代码

1. Private Sub UserForm_Initialize()
   
2.                                     '先计算有多少个控件，每10个换列
   
3.     counts = -Int(-Sheet3.Range("A2").End(xlDown).Row / 10)
   
4.                                     '设置窗体高度和宽度
   
5.     UserForm1.Width = 150 * counts  '每增加1列宽度加150。没有判断是否会超过屏幕的宽度，
   
6.                                     '如果数据量太多可以调整每列显示的个数
   
7.     UserForm1.Height = 260
   
8.     CommandButton1.Width = 150 * counts - 15
   
9.     For X = 1 To counts
   
10.         Y = 10 * X                  '每列显示10个控件
    
11.         If X = 1 Then               '开始第1列显示
    
12.             Start = 2
    
13.             Ends = 11
    
14.         Else                        '换列显示
    
15.             Start = Ends + 1
    
16.             Ends = Y + 1
    
17.         End If
    
18.         If Ends > Sheet3.Range("A2").End(xlDown).Row Then '防止溢出
    
19.         Ends = Sheet3.Range("A2").End(xlDown).Row
    
20.         End If
    
21.         For I = Start To Ends       '循环生成控件
    
22.             Set ChkBox = UserForm1.Controls.Add("Forms.CheckBox.1", "Chk" & Str(I))
    
23.             If I > 11 Then
    
24.                 tops = 2 + 20 * (I - Y + 8) '换列后的控件高度坐标
    
25.             Else
    
26.                 tops = 2 + 20 * (I - 2)
    
27.             End If
    
28.             ChkBox.Top = tops
    
29.             ChkBox.Height = 25      '控件的高度
    
30.             ChkBox.Width = 200      '控件的宽度
    
31.             ChkBox.Left = 20 + 150 * (X - 1) '220 换列后的横坐标
    
32.             ChkBox.Caption = Sheet3.Cells(I, 1) '控件显示的标题
    
33.             Set ChkBox = Nothing
    
34.         Next
    
35.     Next
    
36. End Sub

复制代码

YZC51

233437599 发表于 2020-3-22 18:51

参考 36、37楼！

YZC51

优化下

1. Private Sub UserForm_Initialize()
   
2.     myr = Sheet3.Range("A2").End(xlDown).Row
   
3.     arr = Sheet3.Range("A2:A" & myr).Value
   
4.     counts = -Int(-UBound(arr) / 10)   '先计算有多少个控件，每10个换列
   
5.                                         '设置窗体高度和宽度
   
6.     UserForm1.Width = 150 * counts      '每增加1列宽度加150。没有判断是否会超过屏幕的宽度，
   
7.                                         '如果数据量太多可以调整每列显示的个数
   
8.     UserForm1.Height = 260
   
9.     CommandButton1.Width = 150 * counts - 15
   
10.     For X = 1 To counts
    
11.         y = 10 * X - 9                  '每列显示10个控件
    
12.         Start = y
    
13.         Ends = y + 9
    
14.         If Ends > UBound(arr) Then Ends = UBound(arr)
    
15.         For I = Start To Ends           '循环生成控件
    
16.             Set ChkBox = Me.Controls.Add("Forms.CheckBox.1", "Chk" & Str(I))
    
17.             tops = 20 * (I - y)
    
18.             ChkBox.Top = tops
    
19.             ChkBox.Height = 25          '控件的高度
    
20.             ChkBox.Width = 200          '控件的宽度
    
21.             ChkBox.Left = 20 + 150 * (X - 1) '220 换列后的横坐标
    
22.             ChkBox.Caption = arr(I, 1)  '控件显示的标题
    
23.             Set ChkBox = Nothing
    
24.         Next
    
25.     Next
    
26. End Sub

复制代码