No.2ベストアンサー
- 回答日時:
No.1です。
すみません、縦横を間違えていましたか。これは失礼しました。
書き換える所はいっぱいあるので、とりあえずマクロを以下のものに置きかえていただけますか?(データの入力範囲の箇所だけ修正してください)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRng As Range, R As Range, L As Range
Dim LastUpdated As Integer
Set MyRng = Intersect(Target, Range("B2:D6"))
If MyRng Is Nothing Then Exit Sub
Set L = Rows(1).Find("最終更新日")
If L Is Nothing Then Exit Sub
LastUpdated = L.Column
For Each R In MyRng.Rows
Cells(R.Row, LastUpdated) = Now
Next
End Sub
できました!
ご親切に二度もお答えくださってありがとうございました。
大変に分かりやすかったです。
本当にありがとうございました。
No.1
- 回答日時:
A列に項目名が入っており、「最終更新日」という項目名が書いてあるとします。
シートタブを右クリックし、「コードの表示」を選択するとVBAの画面が出るので、右の画面に以下のマクロをコピーして貼り付けてください。その際、3行目の"B2:D6"は実際にデータが入るセル範囲に書き換えてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRng As Range, R As Range, L As Range
Dim LastUpdated As Integer
Set MyRng = Intersect(Target, Range("B2:D6"))
If MyRng Is Nothing Then Exit Sub
Set L = Columns("A").Find("最終更新日")
If L Is Nothing Then Exit Sub
LastUpdated = L.Row
For Each R In MyRng.Columns
Cells(LastUpdated, R.Column) = Now
Next
End Sub
Alt+F11でExcelの画面に戻り、セルに入力をすると最終更新日が自動的に更新されます。
最終更新日の行はあらかじめ日付と時刻に書式設定しておいてください。
この回答への補足
できました!
ありがとうございます。
差し支えなければ教えていただきたいのですが、
「A列に項目名が入っている表」ではなく「1行目に項目名が入っている表」だった場合は
どこを書き換えればよいのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excelでのデータ管理 6 2022/12/24 09:33
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 更新前と更新後の差分をVBAを使って抜き出したい 5 2023/06/01 14:35
- その他(Microsoft Office) エクセルでテーブルの最終行が自動追加されない 1 2023/01/04 15:09
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) エクセル テーブル機能の不明点 2 2022/04/14 14:10
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
エクセル マクロ等を利用した各列ごとのセル最終更新日の自動入力について
Excel(エクセル)
-
☆Excelエクセルで入力した日の日付を表示したいです☆
Excel(エクセル)
-
-
4
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
5
エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります
Excel(エクセル)
-
6
excelでシート毎の最終更新日を所定の場所に表示
Excel(エクセル)
-
7
Excelで更新日時と更新者を表示させる
Excel(エクセル)
-
8
マクロ無しで時間自動で記入をしていきたい
Excel(エクセル)
-
9
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
10
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
11
ExcelでTODAY関数を更新させない方法
Excel(エクセル)
-
12
EXCELのNOW()関数の値の固定する方法は?
Excel(エクセル)
-
13
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
14
参照先セルに値が入っていない時に、「0」や「1900/01/00」などが入らないようにしたいのですが
Excel(エクセル)
-
15
エクセルで参照しているデータを常に最新の状態にしたい
Excel(エクセル)
-
16
エクセルで入力時間を更新させずに表示させたい
Excel(エクセル)
-
17
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
18
◆ EXCEL自動入力日付を自動で変わらないようにする方法
Excel(エクセル)
-
19
【エクセル】補足質問:行の最終更新日を、あるセルに自動で入力させる方法。
Excel(エクセル)
-
20
ハイパーリンクされているファイルの更新日付を取得するユーザー関数
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】行の最終更新日を...
-
excelからexcelへの差し込み印刷
-
VLOOKUP関数について、文字列と...
-
エクセルでオートシェイプをデ...
-
EXCELで入力したセルを変更でき...
-
エクセルのフィルタ検索で、空...
-
ワードパッドからエクセルへ
-
行数の違う表への数式のコピー...
-
エクセルVBAのリストボックスに...
-
エクセル シート内の一番下の...
-
音声認識を利用したExcelの操作
-
エクセルマクロ、空白行(セル...
-
MacのNumbersで列ごと、行ごと...
-
エクセルで縦に順に数字入力を...
-
エクセルを使い ホステスの給...
-
【エクセル】フィルタの「再適...
-
excelデータの表示形式を文字列...
-
エクセル IF関数を教えてくださ...
-
エクセル表でフィールドに選択...
-
エクセルで自動的に連続番号が...
おすすめ情報