| このトピックに書きこむ |
|---|
| Re[2]: A列に変更があったさいにB列にその日の日付を入力したい | |
|---|---|
[196272] Re[2]: A列に変更があったさいにB列にその日の日付を入力したい- ■ □投稿者/ ひるぎ -(2024/07/30(09:30)) □U R L/ 半平太様 2の方法で解決しました。 大変ありがとうございました。 | |
[196271] Re[1]: A列に変更があったさいにB列にその日の日付を入力したい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2024/07/29(17:08)) □U R L/ >「Visual Basic」をクリックして、VBAエディタを開きます。 >対象のワークシートをダブルクリックして、以下のコードを入力します。 1.そのアドバイス通りにやりましたか? (コードはシートモジュールに書く必要がある、と言う意味なのですが) 2.その意味が分からない場合は、以下の手順でコードを貼り付ける。 シートタブを右クリックして、「コードの表示」を選択してVBE画面に行く。 画面中央の白いエリアに、提示されたコードを貼り付ける。 | |
[196270] A列に変更があったさいにB列にその日の日付を入力したい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ひるぎ -(2024/07/29(14:04)) □U R L/ 質問です。。
A列の仕事の一覧が並べてあり、その仕事が進むとその日の日付をB列に入力してほしいです。
イメージはA1を編集したら、その日の日付をB1に自動入力、同じくA2を編集したら、その日の日付をB2に自動入力。
Copilotに質問すると、下の回答がありました。
ExcelでA列に入力した際に、その日の日付をB列に自動的に入力する方法を説明しますね。以下の手順を試してみてください:
VBA(Visual Basic for Applications)を使用する方法:
Excelの「開発」タブをクリックします(表示されていない場合は、オプションから有効にしてください)。
「Visual Basic」をクリックして、VBAエディタを開きます。
対象のワークシートをダブルクリックして、以下のコードを入力します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
If Target.Cells.Count = 1 Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
以上、ですが。まったく反応が起きません。
マクロは有効にしてあります。
アドバイスいただけますか?この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |