單元值是/否基於自動定形按鈕是/否值

-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

單元值是/否基於自動定形按鈕是/否值

回答

相關問題