小编Mog*_*hen的帖子

我已经在另一个问题的答案的帮助下生成了单选按钮,如何在VBA中将自动生成的单选按钮设置为true？.

我的要求是将自动生成的选项按钮设置为"True"当另一个工作表中存在值"x"时.请参考图片.

图1:检查值的来源,

图2:Mark'x'应反映为True的工作表.

对于2行和2列中的选项按钮,生成的单选按钮的索引为OB2_2.

这是我一直在尝试的代码,

Private Sub AddOptionButtons(ByRef TargetRange As Range)

Dim m As Variant
m = Sheets("ALLO").Range("D23").Value + 1

Sheets("Final").Range("A2:A" & m).Copy Destination:=Sheets("Int_Result").Range("A2:A" & m)

Dim oCell As Range
For Each oCell In TargetRange
    oCell.RowHeight = 20
    oCell.ColumnWidth = 6
    Dim oOptionButton As OLEObject
    Set oOptionButton = TargetRange.Worksheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=oCell.Left + 1, Top:=oCell.Top + 1, Width:=15, Height:=18)
    oOptionButton.Name = "OB" & oCell.row & "_" & oCell.Column
    oOptionButton.Object.GroupName = "grp" & oCell.Top

Next
Call OB2_Click(oCell)

End …