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

-2

我有3个自动定形按钮（BTN1; BTN2; BTN3），单击时每个都会切换是，否，也许。单元值是/否基于自动定形按钮是/否值

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

来源

2015-05-18 André Dias

您可以使用=and(ceiling(BTN1),ceiling(BTN2),ceiling(BTN3))四舍五入为maybes，这样一个单一的No将导致零。

来源

2015-05-18 12:52:44

搜索关于这个方法，谢谢埃德。 –

好有趣，但我正在寻找与VBA实现这一点。我一直在摆弄这段代码，但它只能手动运行。任何建议感激。 'Private Sub Worksheet_Change（ByVal Target As Range） If Worksheet.Shapes.Range（Array（“Btn1”，“Btn2”，“Btn3”））。TextFrame.Characters.Text =“No”Then Range（“A1” ）.Value =“No” 否则：范围（“A1”）。Value =“是” End Sub' –

对不起，假设您只是从您的问题询问excel。我不是VGA方面的专家，但你应该定义你的宏（检查它做你需要什么 - 你可以在VGA中使用'和'等）。然后右键点击autoshape按钮并分配宏'Private Sub Worksheet_Change'在点击运行... –

我试图修改下面的代码以适应我的需要，但仍然不是那样，原始代码会将'shape.textframe.text''值'复制到'cell'，但我需要'value如果'形状值是可能的'则为'是'。

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

来源

2015-05-18 23:17:20

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

回答

相关问题