我使用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
并将它们全部添加到分组框中。这种方法工作了很长时间,然后停止工作。在目前的情况下,它针对每个问题将所有选项作为单个组而不是小型个体组。
请告知。