EXCEL / VBA HELP ---- Есть ли способ показать флажок в Excel на основе ввода других ячеек? - PullRequest
0 голосов
/ 03 мая 2018

Если ячейка A1 содержит значение A, появится флажок A. Если ячейка A1 содержит значение B, появится флажок B. Это возможно?

1 Ответ

0 голосов
/ 03 мая 2018

Что-то вроде:

Sub ShowHide()
    With ActiveSheet
    Select Case Range("A1").Value
        Case "A"
            .Shapes("CheckboxA").Visible = True
            .Shapes("CheckboxB").Visible = False
        Case "B"
            .Shapes("CheckboxA").Visible = False
            .Shapes("CheckboxB").Visible = True
        End Select
     End With
End Sub

Если вы хотите, чтобы это происходило автоматически при изменении A1 , вставьте логику в макрос события Calculate или макрос Worksheet_Change.

В целях тестирования я использовал это для создания полей:

Sub Macro1()

    ActiveSheet.CheckBoxes.Add(171, 18, 72, 65.25).Select
    Selection.Name = "CheckboxA"

    ActiveSheet.CheckBoxes.Add(180, 81, 54, 54.75).Select
    Selection.Name = "CheckboxB"

End Sub
...