我做了个Excel复选框控件,一不小心挤成一团了,如何把它们分开?

kkrish

花了一天的功夫整理的数据,全部挤在一起了,想得头疼也没搞出来.
如何把这些挤在一起的控件分开? 十分感谢大家!
可以在 复选框困惑 表格中 按Ctrl+G, 定位对象,就能看到这些挤在一起的小控件,分也分不开,痛苦死了!
求大家帮帮我,谢谢!!

kkrish

有高手在吗? 谢谢.

kkrish

看来都不知道怎么做的啊

山菊花

1、右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

1. Sub czfxk()
   
2.     Dim dx As Shape
   
3.     Dim m%, n%
   
4.     For Each dx In Me.Shapes
   
5.         If dx.Left < 10 Then
   
6.             m = m + 1
   
7.             dx.Top = Rows(m).Top
   
8.         Else
   
9.             n = n + 1
   
10.             dx.Top = Rows(n).Top
    
11.             dx.Left = Range("b1").Left + 10 '水平位置，根据实际需要修改
    
12.         End If
    
13.         dx.Height = 10
    
14.         dx.Width = 10
    
15.     Next
    
16. End Sub

复制代码

2、按F5运行程序（从第1行开始，每行两个复选框）

kkrish

谢谢老师,可惜呀,我看到的晚了,已经离开那里啦.