Excel VBA質問箱 IV

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

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


54388 / 76732 ←次へ | 前へ→

【27138】Re:ある条件を満たしたとき、自動的に日付を表示させるには?
発言  でれすけ  - 05/7/29(金) 16:50 -

引用なし
パスワード
   こんにちは。

>コードをご教授
っていうのは、そのまま動くコードをここに書けということでしょうか。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim aRow As Range, Rng As Range

Set Rng = Range("AF2:AI20000")
Set Target = Intersect(Target, Rng, Me.UsedRange)
If Target Is Nothing Then Exit Sub
 
  With Application
   .EnableEvents = False
   .ScreenUpdating = False
   .Interactive = False
  End With
 
  On Error GoTo Err_Handler
   For Each aRow In Target.EntireRow.Rows
     If WorksheetFunction.CountA(aRow.Range("AF1:AI1")) > 0 Then
       aRow.Range("AE1").Value = Date
     Else
       aRow.Range("AE1").ClearContents
     End If
   Next
  On Error GoTo 0

Terminate:
  With Application
   .EnableEvents = True
   .ScreenUpdating = True
   .Interactive = True
  End With
 
Exit Sub
'---------------------------------
Err_Handler:
  'エラーハンドラ
Resume Terminate

End Sub

0 hits

【27135】ある条件を満たしたとき、自動的に日付を表示させるには? KK 05/7/29(金) 16:09 質問
【27138】Re:ある条件を満たしたとき、自動的に日付... でれすけ 05/7/29(金) 16:50 発言
【27177】Re:ある条件を満たしたとき、自動的に日付... KK 05/8/1(月) 10:02 質問
【27181】Re:ある条件を満たしたとき、自動的に日付... でれすけ 05/8/1(月) 11:28 発言
【27192】Re:ある条件を満たしたとき、自動的に日付... KK 05/8/1(月) 14:56 お礼

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