これは、VBA でのみ実現できます。ワークシートのモジュールに次のコードをコピーします (例: Sheet1
)。
Private mBlnIsRunning As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Me.Range("A1:B1")) _
Is Nothing Then Sub を終了
'無限ループを防ぐ
mBlnIsRunning の場合は Sub を終了します
mBlnIsRunning = True
If Target.Address(False, False) = "A1" Then
Me.Range("B1") = Negative(Target.Value)
そうしないと
Me.Range("A1") = Negative(Target.Value)
終了条件
mBlnIsRunning = False
サブ終了
Private Function Negative (varValue As Variant) As Variant
'必要に応じてこの関数を変更してください
varValue = "yes" の場合
負 = "-"
ElseIf varValue = "-" その後
否定=「はい」
そうしないと
Negative = "はいまたは - のいずれかを入力してください!"
終了条件
終了機能