[已解决]利用GroupBox建立OptionButtons為何無法構成一個群組?

e2solo

各位大大 我使用以下代碼利用GroupBox建立OptionButtons時可以完成是非題的選項
Sub box_make1()
   
    For i = 0 To 24
        k = "e" & i + 5
        ActiveSheet.GroupBoxes.Add(1.8, 165 + i * 120, 115, 23).Select
        Selection.Characters.Text = ""
        ActiveSheet.OptionButtons.Add(6.6, 170 + i * 120, 42, 5).Select
        Selection.Characters.Text = "對"
        ActiveSheet.OptionButtons.Add(65.4, 170 + i * 120, 42, 5).Select
        Selection.Characters.Text = "錯"
        With Selection
            .Value = xlOff
            .LinkedCell = k
            .Display3DShading = False
        End With
   
    Next
    Range("C5").Select
End Sub
但是為什麼使用以下代碼卻無法將每個"對" "錯"組成一個群組?
因為我想當儲存格的高度不一樣時也可保持在正中間
Sub box_make2()
   
    For i = 0 To 24
        k = "e" & i + 5
      m = "a" & i + 1
        ActiveSheet.GroupBoxes.Add(Range(m).Left, Range(m).Top, Range(m).Width, Range(m).Height).Select
        Selection.Characters.Text = ""
        ActiveSheet.OptionButtons.Add(Range(m).Left, Range(m).Top, Range(m).Width, Range(m).Height).Select
        Selection.Characters.Text = "對"
        ActiveSheet.OptionButtons.Add(Range(m).Left + 10, Range(m).Top, Range(m).Width, Range(m).Height).Select
        Selection.Characters.Text = "錯"
        With Selection
            .Value = xlOff
            .LinkedCell = k
            .Display3DShading = False
        End With
   
    Next
    Range("C5").Select
End Sub
有勞大大

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-28 18:41

e2solo 发表于 2011-9-28 17:14
謝謝大大
只是不明白為什麼使用width  ,height就不行，一定要使用數字
因我的儲存格每個題目的高度並不一 ...

能使用width  ,height。因为不知你的附件，所以我才用数字，好测试。如果要用width  ,height，最好提供附件。

要能组合，我觉得生成时，包含在分组框里的选项按钮，就不能和其它选项按钮或分组框重叠（即存在相交的区域）。

跳转到最佳答案楼层

爱疯

1. Sub box_make2()
   
2.     Dim i, k, m
   
3.     Application.ScreenUpdating = False
   
4.     For i = 0 To 24
   
5.         k = "e" & i + 5
   
6.         m = "a" & i + 1
   
7. '        ActiveSheet.GroupBoxes.Add(Range(m).Left, Range(m).Top, 109, 13).Select '不行
   
8.         ActiveSheet.GroupBoxes.Add(Range(m).Left, Range(m).Top, 109, 13).Select '行
   
9.         Selection.Characters.Text = ""
   
10.         ActiveSheet.OptionButtons.Add(Range(m).Left, Range(m).Top, 50, 13).Select
    
11.         Selection.Characters.Text = "對"
    
12.         ActiveSheet.OptionButtons.Add(Range(m).Left + 60, Range(m).Top, 50, 13).Select
    
13.         Selection.Characters.Text = "錯"
    
14.         With Selection
    
15.             .Value = xlOff
    
16.             .LinkedCell = k
    
17.             .Display3DShading = False
    
18.         End With
    
19.     Next
    
20.     Range("C5").Select
    
21. End Sub

复制代码

工作簿1.rar (25.81 KB, 下载次数: 11)

2011-9-28 13:24 上传

点击文件名下载附件



试了下，我觉得代码本身没错误。
不能组合的原因，可能是GroupBox与OptionButton的位置关系所导致的。

蓝，表示分组框，这里简称是父
红，表示选项按钮，这里简称是子
绿，表示选项按钮，这里简称是子

因为没一一测试，所以我猜当子与父或其它的子存在交集，就不能组合。如下图，最上面（第1个）行，下面3个不行，不行的还有其它样式。

e2solo

謝謝大大
只是不明白為什麼使用width  ,height就不行，一定要使用數字
因我的儲存格每個題目的高度並不一致

爱疯

e2solo 发表于 2011-9-28 17:14
謝謝大大
只是不明白為什麼使用width  ,height就不行，一定要使用數字
因我的儲存格每個題目的高度並不一 ...

能使用width  ,height。因为不知你的附件，所以我才用数字，好测试。如果要用width  ,height，最好提供附件。

要能组合，我觉得生成时，包含在分组框里的选项按钮，就不能和其它选项按钮或分组框重叠（即存在相交的区域）。

e2solo

太感謝大大了
"分组框里的选项按钮，就不能和其它选项按钮或分组框重叠（即存在相交的区域）"
就是這句話，終於可以實行了
謝謝  謝謝  謝謝
可以再請教一個問題嗎
要如何一次刪除這些物件?

爱疯

e2solo 发表于 2011-9-28 19:15
太感謝大大了
"分组框里的选项按钮，就不能和其它选项按钮或分组框重叠（即存在相交的区域）"
就是這句話 ...

1. Private Sub CommandButton1_Click()
   
2.     Dim x As Object
   
3.     For Each x In ActiveSheet.Shapes
   
4.         '如果是窗体控件，那么删除
   
5.         If x.Type = msoFormControl Then
   
6.             x.Delete
   
7.         End If
   
8.     Next x
   
9. End Sub

复制代码

工作簿2.rar (28.66 KB, 下载次数: 6)

2011-9-28 19:45 上传

点击文件名下载附件

e2solo

感謝 感謝再感謝
謝謝大大