このトピックに書きこむ |
---|
Re[2]: A列に変更があったさいにB列にその日の日付を入力したい | |
---|---|
[196272] Re[2]: A列に変更があったさいにB列にその日の日付を入力したい- ■ / 記事引用/メール受信=OFF■ □投稿者/ ひるぎ -(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のコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |