Excel VBA質問箱 IV

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

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


47079 / 76732 ←次へ | 前へ→

【34615】範囲指定で質問させてください
質問  T  - 06/2/8(水) 11:17 -

引用なし
パスワード
   Tといいます
教えてほしいことがあるのですが
宜しくお願い致します

Const START_ROW = 6   ' データ行の最初
Const NO_COLUMN = 2   ' 番号
Const DATE_COLUMN = 3  ' 日付


Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= START_ROW _
    And Target.Column <> NO_COLUMN And Target.Column <> DATE_COLUMN Then
    If Cells(Target.Row, Target.Column) <> Empty Then
      Cells(Target.Row, NO_COLUMN).Value = Target.Row - START_ROW + 1
      Cells(Target.Row, DATE_COLUMN).Value = Date
    Else
      Cells(Target.Row, NO_COLUMN).Value = Empty
      Cells(Target.Row, DATE_COLUMN).Value = Empty
    End If
  End If
  ' イベントを再開
'  Application.EnableEvents = True
End Sub

上記を作成し、セルに文字入力すると日付と通し番号が入り、
文字を削除すると消えるようにしたのですが、
これをD列からF列の範囲で適応したいのですが
どう指定したらよいかわかりません。
教えて下さい。宜しくお願い致します
0 hits

【34615】範囲指定で質問させてください T 06/2/8(水) 11:17 質問
【34639】Re:範囲指定で質問させてください awu 06/2/8(水) 19:19 回答

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