Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
C5のセルに入力されるとI3に日付を表示
投稿日時: 19/05/30 15:39:45
投稿者: 園 日暮

いつもお世話になります。
 
vbaの構文で行き詰まっています。
 
下記の構文で、
C5に入力するとI3に本日の日付を表示をしたいのですがうまく行きません。
 
If Target.Address(5, 3) がだめかと思い試してもうまく行きません。
 
ご指導を戴けませんか。
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address(5, 3) = "C5" Then
 
If Range("C5") <> "" Then Range("I3") = Format(Date, "m/d aaa")
 
End If
 
End Sub

回答
投稿日時: 19/05/30 16:04:51
投稿者: bi

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$C$5" Then Exit Sub
    
    If Range("C5").Value = "" Then
       Range("I3").ClearContents
       Exit Sub
    Else
       Range("I3").Value = Format(Date, "m/d aaa")
    End If

End Sub

ということでしょうか?

投稿日時: 19/05/30 18:28:02
投稿者: 園 日暮

早速のご指導をありがとうございました。
 
結果的にはうまくできました。
というのもご指導頂いた構文を楽しみに挿入したところ最初はうまく行かず困りました。
 
 1 エクセルがなぜかダメなようでエクセルのUp-Dateしました
     やはりだめでした
 2 C5 I3をクリアしそれぞれのセルに別のセルからコピー&貼り付けの結果、
     マクロは作動しました