Использование TextBox для вставки формулы

Question

Я надеюсь, что кто-то может помочь мне с этим кодированием.

ActiveCell.Formula = “=“”&IF TextBox3.Value = 1 Then “Z_End” Else “Z_Origin””

Я хочу, чтобы формула активных ячеек выглядела примерно как =Z_End или =Z_Origin.

Answer 1

Используйте IIf:

 ActiveCell.Formula = IIf(TextBox3.Value = 1, "=Z_End", "=Z_Origin")

Answer 2

Option Explicit

Private Sub TextBox3_Change()
    MsgBox TextBox3.Value
    If TextBox3.Value = 1 Then
        ActiveCell.Formula = "=Z_End"
    Else
        ActiveCell.Formula = "=Z_Origin"
    End If
End Sub