Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8458 / 76735

←次へ　｜　前へ→


	【73848】Re:データが追加された日を表示

kanabun - 13/2/20(水) 10:46 -


	引用なし

	パスワード

▼nonoka さん： >B列にデータが入力されたら、 >同じ行のA列にTODAYを自動入力したいです。ﾃｷｽﾄにする必要がある？シートのChangeイベントというのを利用するといいです。シートタブ（シート見出し）を右クリックすると出てくる「コードの表示」からVBE画面に以下を貼り付けてみてください。 'B列にデータが入力されたら、A列に日付け Private Sub Worksheet_Change(ByVal Target As Range) 　　If Target.Column = 2 Then 　　　　Application.EnableEvents = False 　　　　Cells(Target.Row, 1).Value = Date 'Today 　　　　Application.EnableEvents = True 　　End If End Sub