ワークシートチェンジで曜日を表示する方法

いつもお世話になっております
下記のコードを利用して
Ｂ列が日付ならＥ列に曜日が表示されるようにしたいのですが
わかる方おしえてくれませんでしょうか

下記のコードは途中で挫折してしまいました。
よろしくお願いいたします。

Dim st As String
With Target
st = .Address(False, False)
st = Left(.Address(0, 0), IIf(.Address(0, 0) Like "[A-Z][A-Z]*", 2, 1))

j = Weekday()？

Select Case st
Case "B"

Case 1
.Offset(, 1).Value = "日曜日"
Case 2
.Offset(, 1).Value = "月曜日"

End Select
End With

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/03/04 22:16

こんばんは

マクロの回答ではありません。

E列にあらかじめ
　=IF(OR(B1="",ISERROR(VALUE(B1))),"",B1*1)
のような数式を設定しておいて、表示形式をaaa等にしておくのではダメなのでしょうか？

この回答へのお礼

いつもお世話になっております
この表示形式でわかりました。

お礼日時：2023/03/04 22:21