Excel VBA質問箱 IV

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

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


54119 / 76732 ←次へ | 前へ→

【27414】Re:手入力している列の指定を自動で探せるようにしたいのですが・・・
質問  すてぃっち  - 05/8/8(月) 18:17 -

引用なし
パスワード
   別の質問なのですが、シートの構成が上記と異なる場合(以下の表)のコードについてアドバイスをいただけたら幸いです。

L列に"結果"→M,O,Q,S列での結果が入る列(数式)
M列("確認項目")に入力があったときに、N列に"日付表示"
O列("確認項目")に入力があったときに、P列に"日付表示"
Q列("確認項目")に入力があったときに、R列に"日付表示"
S列("確認項目")に入力があったときに、S列に"日付表示"

U列に"結果"→V,X,Z.AB列での結果が入る列(数式)
V列("確認項目")に入力があったときに、W列に"日付表示"
X列("確認項目")に入力があったときに、Y列に"日付表示"
Z列("確認項目")に入力があったときに、AA列に"日付表示"
AB列("確認項目")に入力があったときに、AC列に"日付表示"

AD〜AE列に"備考1"、"備考2"がそれぞれ入っています

AF列に"結果"→AG,AI,AK列での結果が入る列(数式)
AG列("確認項目")に入力があったときに、AH列に"日付表示"
AI列("確認項目")に入力があったときに、AJ列に"日付表示"
AK列("確認項目")に入力があったときに、AL列に"日付表示"

AM列に"結果"→AN,AP,AR列での結果が入る列(数式)
AN列("確認項目")に入力があったときに、AO列に"日付表示"
AP列("確認項目")に入力があったときに、AQ列に"日付表示"
AR列("確認項目")に入力があったときに、AS列に"日付表示"

AT〜AU列に"備考1"、"備考2"がそれぞれ入っています

これも以下のようなコードを作成してみました。
"確認"、"日付"の文字列を検索して、自動的に日付が入るようにしたいです。

∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Excel.Range) '自動日付入力

  With Target
    If .Cells.Count > 1 Then Exit Sub '変更されるセルは1個に限定
     
    Select Case .Column
     '各OS,言語ごとの入力列を指定(R1C1参照形式)
     Case 13, 15, 17, 19, 22, 24, 26, 28, 33, 35, 37, 40, 42, 44
     Case Else
     Exit Sub
    End Select
     
    If .Value <> "" Then '"確認列"が空欄でないとき
      .Offset(, 1).Value = Format(Date, "yyyy/mm/dd") '"右隣のセル:日付列"に当日日付を表示
     Else
      .Offset(, 1).Value = "" '"確認列"が空欄になる(="入力列"を空欄にする)場合に日付を消去
    End If
  End With
  
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
是非、アドバイスをお願いします。

0 hits

【27304】手入力している列の指定を自動で探せるようにしたいのですが・・・ すてぃっち 05/8/4(木) 16:59 質問
【27311】Re:手入力している列の指定を自動で探せる... [名前なし] 05/8/4(木) 23:04 発言
【27320】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/5(金) 11:42 質問
【27324】Re:手入力している列の指定を自動で探せる... でれすけ 05/8/5(金) 12:59 回答
【27335】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/5(金) 16:31 質問
【27339】Re:手入力している列の指定を自動で探せる... でれすけ 05/8/5(金) 18:49 発言
【27413】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/8(月) 18:14 お礼
【27414】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/8(月) 18:17 質問
【27457】同様の処理を行いたいのですが、表の作りが... すてぃっち 05/8/9(火) 19:46 質問
【27460】Re:同様の処理を行いたいのですが、表の作... りん 05/8/9(火) 20:13 回答
【27462】Re:同様の処理を行いたいのですが、表の作... すてぃっち 05/8/9(火) 20:45 発言
【27463】Re:同様の処理を行いたいのですが、表の作... りん 05/8/9(火) 22:31 回答
【27502】無事解決致しました。ありがとうございまし... すてぃっち 05/8/10(水) 15:00 お礼
【27505】最初の質問に対して回答いただいたコードを... すてぃっち 05/8/10(水) 15:05 質問
【27519】Re:最初の質問に対して回答いただいたコー... りん 05/8/10(水) 18:36 回答
【27535】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/11(木) 8:55 質問
【27569】Re:最初の質問に対して回答いただいたコー... りん 05/8/12(金) 9:14 回答
【27572】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/12(金) 10:38 質問
【27574】Re:最初の質問に対して回答いただいたコー... りん 05/8/12(金) 11:13 回答
【27585】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/12(金) 15:02 お礼
【27586】感謝。 すてぃっち 05/8/12(金) 15:05 お礼

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