Excel (VBA)

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

 
(Windows 10 Home : Excel 2016)
日付と時間の自動入力について
投稿日時: 18/06/27 16:27:02
投稿者: (いしかわ)

 | A       | B   |  C
ーーーーーーーーーーーーーーーーーーーーー
1|yyyy/mm/dd| [hh:mm] | 数値入力
ーーーーーーーーーーーーーーーーーーーーー
 
ABは自動入力
上記のエクセル表で、
c列に数値が入ると、a欄にはcが入力された日にち
c列に数値が入ると、b欄には
 
cが入力された時間
 
というVBAを試してますが、うまくいきません。。。
名前が適切ではありませんというエラーが出てしまいます。
どうか、お力をお貸しください。。。
 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Application.Intersect(Range("c1:c10000"), Target) Is Nothing Then Exit Sub
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then
.Offset(, -1).ClearContents
Else
.Offset(, -1).Value = Format(Now, "hh:mm")
 
End If
End With
End Sub
ーーーーーーーーーーーーーーーーーーー
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tim As Date
tim = Format(Now, "yyyy/mm/dd")
Cells(Target.Row, -2) = tim
End Sub

投稿日時: 18/06/27 16:38:05
投稿者: (いしかわ)

すみません。
なんとか自力でできました。
 
ありがとうございました。