VBAのIF文 あるセルがTRUEの場合

質問

VBAの初心者です。

Sub Sample1()
If ActiveCell.Value = "新宿" Then
MsgBox "新宿です"
Else
MsgBox "新宿ではありません"
End If
End Sub

上記の記述は以下のページにあったサンプル
https://www.moug.net/tech/exvba/0140043.html

このマクロを登録したボタンを作成して、A1セルに「新宿」と入力し、A1が選択された状態でボタンを押すと正しく実行されます。

これをActiveCellではなくて、指定したセルがTRUEの場合と変更したいのですが、どのように記述すればいいのでしょうか。

また、"新宿"の部分を別の文字に変更したいのですが、入力の途中で文字が勝手に確定されてしまい、漢字変換できません。
入力中に何か勝手に処理が行われているようですが、どうすればいいのでしょうか。

回答No.2

ushi2015 · ベストアンサー

こんにちは
Sub Sample1()
　　Dim s As Boolean
　　s = True
　　If Range("A1").Value = s Then
　　　　MsgBox s & "です"
　　Else
　　　　MsgBox s & "ではありません"
　　End If
End Sub
に変更して下さい。
画面がチカチカするとか、変換が確定されるとかは分かりません。
何かイベントマクロが設定されてないですか？

お礼

教えていただいた方法で解決しました。
文字の入力が勝手に確定される件も解決しました。別のシートで自動でマクロが実行されていました。

新規のエクセルシートでやったら何も問題なく出来ました。

ありがとうございました。

回答No.1

ushi2015

こんにちは
指定したセル----どのように指定するつもりですか？
コードの中で良いなら、
Sub Sample1()
　　Dim s As String
　　s = "渋谷"
　　If Range("A1").Value = s Then
　　　　MsgBox s & "です"
　　Else
　　　　MsgBox s & "ではありません"
　　End If
End Sub
Range("A1")が指定したセルとしてます。
文字の指定は、s = "渋谷"　の渋谷を変更してみて下さい。

補足

ご回答ありがとうございます。

チェックボックスで「リンクするセル」をA1に指定し、TRUEとFALSEで切り替わるようにしました。
そして、教えていただいたコードのｓを"TRUE"にしてみたのですが、これにすると、A1がTRUEになっていても、常にElseの方しか実行されません。

アルファベットの場合は何か別の方法にしないと駄目なのでしょうか。

また、VBAのウインドウ上部が（実行中）という文字がチカチカします。これが(実行中)となると、入力中の文字列が確定されてしまい、漢字変換する前に文字が確定されてしまうのですが、この実行中を止めるにはどうすればいいのでしょうか。