Excel VBA質問箱 IV

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

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


3116 / 13646 ツリー ←次へ | 前へ→

【64126】データ入力したセルの下に自動で時間を表示するにはどうしたらいいですか 北辰王 10/1/20(水) 22:32 質問[未読]
【64131】Re:データ入力したセルの下に自動で時間を... seg 10/1/21(木) 9:59 発言[未読]
【64136】Re:データ入力したセルの下に自動で時間を... 北辰王 10/1/21(木) 15:36 質問[未読]
【64150】Re:データ入力したセルの下に自動で時間を... seg 10/1/22(金) 9:10 発言[未読]
【64172】Re:データ入力したセルの下に自動で時間を... 北辰王 10/1/23(土) 0:54 お礼[未読]

【64126】データ入力したセルの下に自動で時間を表...
質問  北辰王  - 10/1/20(水) 22:32 -

引用なし
パスワード
   アルバイト君の勤怠管理をしようとしてます。
A3のシート(横)に三枚ほどに渡って2行で1名×90名分の1月間の業務管理シートを作ってます。
D列から右に日付を入れ、各人の上セルに販売量を入れたら下のセルにその販売量を入力した時点の時間が自動的に入力されるようにしたいのです。

未だぜんぜん初心者のためお知恵を拝借したいと思います。
私がいろいろなサイトで検索して、自分なりのマクロを組んでみたんですが、なぜか90行以降の分がエラーになります。
※それと、マクロが長くて・・・・(各行を"4:4,6:6"のように記述してるので・・)。これがわるいのでしょうか?

いずれにせよ上手くいきません。
何せマクロど素人ですので、まどろっこしい質問になりましたが、ご教授よろしくお願いします。

【64131】Re:データ入力したセルの下に自動で時間...
発言  seg  - 10/1/21(木) 9:59 -

引用なし
パスワード
   ▼北辰王 さん:
何かよく解んないけど、こういうこと?

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If (Target.Column <> 4) Then Exit Sub

  Cells(182, Target.Column) = Time

End Sub

182:2行×90人+余白

【64136】Re:データ入力したセルの下に自動で時間...
質問  北辰王  - 10/1/21(木) 15:36 -

引用なし
パスワード
   ありがとうございます。
すいません。質問が要領を得なかったですね。

つまり偶数行(今回作っている表ならF4〜AJ4までのセル)に数値を入力したらその入力したセルの直下(F5〜AJ5までのセル)にその入力した日時(今回は時間)が勝手にでるようにしたいのです。(まるでCtrl+:を押すみたいに・・・)

89行(F89〜AJ89の行)までは何とかできるんですが、それより下の奇数行でも出るようにしたいのですが、エラーが出てしまって・・・・・

すいません。これで質問わかってもらえますでしょうか?

何かいい方法ありますでしょうか??

【64150】Re:データ入力したセルの下に自動で時間...
発言  seg  - 10/1/22(金) 9:10 -

引用なし
パスワード
   ▼北辰王 さん:
>>89行(F89〜AJ89の行)までは何とかできるんですが、それより下の奇数行でも出るようにしたいのですが、エラーが出てしまって・・・・・

の、意味が解りませんが

Private Sub Worksheet_Change(ByVal Target As Range)
  
  ' F4〜AJ4まで
  If (6 <= Target.Column And Target.Column <= 36) Then
    ' 奇数行だけ記入
    If ((Target.Row Mod 2) = 0) Then Cells(Target.Row + 1, Target.Column) = Time
  End If

End Sub

【64172】Re:データ入力したセルの下に自動で時間...
お礼  北辰王  - 10/1/23(土) 0:54 -

引用なし
パスワード
   ありがとうございました。

無事に時間が出ました。
本当は私が理解していないと、いけないんだろうと思うのですが・・・

とにもかくにもお礼の言葉もありません。

ありがとうございました。

3116 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free