Question

我有3个自动形状按钮（BTN1; BTN2; BTN3），点击每个按钮将切换是，否，可能。

如果一个或多个按钮切换为“否”，则单元格A1值为“否”，否则单元格值为“是”。

Answer 1

你可以使用=and(ceiling(BTN1),ceiling(BTN2),ceiling(BTN3))对maybes进行舍入，这样一个No将导致零。

Answer 2

我试图修改下面的代码以满足我的需要，但仍然不完全，原始代码将复制＆＃39; shape.textframe.text＆＃39; ＆＃39;值＆＃39;到一个＆＃39;小区＆＃39;但我需要的价值是'是＆＃39;如果＆＃39;形状值是可能＆＃39;。

Sub TextBox()
    Dim txBox As Shape
    Set txBox = ActiveSheet.Shapes("Btn1")
    With Range("A1").Value = txBox.TextFrame.Characters.Text
    If txBox.TextFrame.Characters.Text = "N/A" Then Range("A1").Value = "Yes"
    End With
    End Sub

单元格值是/否基于自动形状按钮是/否值

2 个答案: