多个组中的Excel选项按钮作为单个组运行

时间:2016-12-19 18:35:07

标签: excel vba excel-vba

我使用VBA在Excel中创建了一个问卷,在运行时加载问题和选项。每当我更改字体/格式化/或(不确切知道所有内容)时,就会发生这个奇怪的问题。

我用代码创建单选按钮:

With btn1
        .Name = QuestionNum & "_" & FoundCell.Offset(0, 2).Address & "_" & NestedQuestions & "_" & FoundCell.Offset(0, 1).Address
        .Caption = Space(5) & FoundCell.Offset(0, 1).Text
        .OnAction = "ChangeAnswer"
        .Display3DShading = True
        .Width = 290
End With
  Set grbox = ThisWorkbook.Worksheets(1).GroupBoxes.Add(t.Left + 20, t.Top, t.Width + 10, t.Height)
  With grbox
        .Caption = QuestionNum
        .Text = QuestionNum & "GB"
        .Visible = False
    End With

并将它们全部添加到分组框中。这种方法工作了很长时间,然后停止工作。在目前的情况下,它针对每个问题将所有选项作为单个组而不是小型个体组。

请告知。

0 个答案:

没有答案