VBAコードについて教えてください。

下記のコードは以前教えて頂いたコードです
If Not Intersect(Range("ER3"), Target) Is Nothing And Target.Value = "■" Then Call Accessシート表示
指定セル値に指定文字「■」が表示されるとマクロが実行できます。
このコードを
指定セル値に「■」では無く、不特定の文字が表示されたときにマクロを実行出来るように変更する方法を教えてください。
又、マクロは「Call Accessシート表示」ですが、複数のマクロ（例えば：テスト1・テスト2）を設定したいのですが、
よろしくお願いいたします。

No.1 ベストアンサー 回答者： PowerCheck 回答日時： 2024/07/02 12:49

If Not Intersect(Range("ER3"), Target) Is Nothing And Target.Value <> "" Then

Call Accessシート表示
call テスト1
call テスト2
end if

でどうでしょうか。

この回答へのお礼

回答ありがとうございます。
上手くできました。

お礼日時：2024/07/02 15:29

No.3 回答者： Qchan1962 回答日時： 2024/07/02 12:56

＞又、マクロは「Call Accessシート表示」ですが、複数のマクロ（例えば：テスト1・テスト2）

＞これは　テスト1・テスト2の課題です
読み違えました

＃１様を支持します

No.2 回答者： Qchan1962 回答日時： 2024/07/02 12:53

空白以外

If Not Intersect(Range("ER3"), Target) Is Nothing And Not Target.Value <> "" Then Call Accessシート表示


あれ全角文字が入ったらではなかったっけ　一応　文字列可
Dim length1, length2, ChkFlg
If Target.Value = "" Then Exit Sub
length1 = LenB(StrConv(Target.Value, 128))
length2 = Len(Target.Value)
ChkFlg = length1 <> length2 And length1 <> length2 * 2
If Not Intersect(Range("ER3"), Target) Is Nothing And ChkFlg Then Call Accessシート表示

＞又、マクロは「Call Accessシート表示」ですが、複数のマクロ（例えば：テスト1・テスト2）

これは　テスト1・テスト2の課題です

この回答へのお礼

回答ありがとうございます。
上手くできました
複数のマクロは＃１様を採用させて頂きまします。

お礼日時：2024/07/02 15:31