現在A1に入力したらB1に自動的に入力時間を入れられるマクロは見つかりましたので、下記のものをしようしています。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
If r.Column = 2 Then
r.Offset(0, 1).Value = Format(Now, "hh:mm:ss")
End If
Next r
End Sub
ここにさらに、C1に文字が入力されたらD1に入力時間が自動挿入されるようにしたい場合はどのようにしたらよいのでしょうか。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは。
C1とD1だけなら、下記でも良いかと思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) <> "C1" Then Exit Sub
Range("D1").Value = Format(Now, "hh:mm:ss")
End Sub
C列とD列全てなら、下記が良いかと思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Target.Offset(, 1).Value = Format(Now, "hh:mm:ss")
End Sub
No.2
- 回答日時:
こんにちは
>現在A1に入力したらB1に自動的に入力時間を入れられるマクロ
何か違うような・・・
A1に入力しても何も起こらないのでは?
ご提示のコードだと、「B列の値を変更すると右隣(=C列)のセルに時刻を表示する」ようになっていませんか?
>C1に文字が入力されたらD1に入力時間が自動挿入される
C列は、すでに時刻表示に使っているのではないかと思いますけれど・・?
また、対象は1行目だけってことにしたいのでしょうか?
いずれにしろ、
>If r.Column = 2 Then
の部分で対象範囲を限定していますので、ここをご希望の内容に変更すれば宜しいでしょう。
ちなみに、上記では「2列目(=B列)」のチェックを行っていますので、B列のどのセルであっても、値が変更されれば処理がされるようになっています。
No.1
- 回答日時:
>If r.Column = 2 Then
で「A1に入力したら」になりますか?
「B1に入力したらC1に・・・」の間違いではありませんか?
これを
If r.Column = 1 or r.Column = 3 Then
に書きかえれば、「A1またはC1に入力したら・・・」
になるはずです。
ただし、Column は列をしめすプロパティーですので、A1やC1のように1行目のみを対象としていません。つまり他の行でもその右隣に作業時刻を入力することになっている気がします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ワークシートチェンジ 1 2022/02/01 11:19
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) ワークシート内 検索 HITしたら すべて選択する 6 2021/11/11 22:50
- Excel(エクセル) エクセル セルに文字を入力したら別のセルに入力した時間が表示されるようにしたい 3 2023/10/19 03:42
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Excel(エクセル) Rangeメソッドは失敗しました。globalオブジェクトについて 6 2021/11/21 21:54
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
教えて For Each R In Target
Excel(エクセル)
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
-
4
エクセルで、日付を入力すると、別のセルに文字を自動的に表示させるようにするには。
Excel(エクセル)
-
5
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
6
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
7
エクセル マクロで セルの範囲を指定する方法
Visual Basic(VBA)
-
8
エクセル セルに文字を入力したら別のセルに入力した時間が表示されるようにしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAの日付チェックでオーバーフ...
-
autocad 数値が表示されなくな...
-
ドロップダウンリスト 自動表...
-
「ATOK」で、変換で表示さ...
-
エクセルで半角カナや特殊文字...
-
Excelについて
-
特殊漢字「はし」(橋のつくり...
-
エクセルVB ポップアップウィ...
-
Excelで日報を自動で作成したい...
-
excelで第二金曜日を…
-
求人情報で「SAP入力可能な方」...
-
キーボードの文字入力がおかしい
-
【スプレッドシート】時間入力...
-
ACCESSで日付型のフィールドにY...
-
バッククォートの入力方法
-
弥生会計05、「摘要」入力について
-
エクセルVBAのエディターが上書...
-
PCのキーボドで「ヲ」と言う...
-
ファンクションキー F7
-
ローマ字入力で「-」の入れ方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
Excelについて
-
autocad 数値が表示されなくな...
-
ドロップダウンリストを2列で...
-
VBAの日付チェックでオーバーフ...
-
Excelで日報を自動で作成したい...
-
特殊漢字「はし」(橋のつくり...
-
excelのInputBoxで日本語入力OF...
-
マクロ 入力規則は残し文字の...
-
エクセルの検索関数でシート内...
-
求人情報で「SAP入力可能な方」...
-
【スプレッドシート】時間入力...
-
excelで第二金曜日を…
-
エクセル 日付超過でポップアッ...
-
バーコードリーダーを使ってフ...
-
エクセルのマクロの使い方
-
エクセルVB ポップアップウィ...
-
小数点以下の入力規則
-
エクセル COUNTIF関数 検索条...
-
バッククォートの入力方法
おすすめ情報