Excel VBA質問箱 IV

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

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


54074 / 76732 ←次へ | 前へ→

【27460】Re:同様の処理を行いたいのですが、表の作りが違うのです・・・
回答  りん E-MAIL  - 05/8/9(火) 20:13 -

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

>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"がそれぞれ入っています
常に確認項目の隣に日付表示があるので、
1行目に、それぞれ確認項目、日付表示という見出しセルがあるとして。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Count = 1 Then
   If Target.Row > 1 Then '1行目はパス
     With ActiveSheet.Cells(1, Target.Column)'1行目が見出し
      If .Value = "確認項目" Then 'Changeした列の1行目の値が確認項目
        If .Offset(0, 1).Value = "日付表示" Then 'その隣の値が日付表示(念のため)
         Application.EnableEvents = False 'イベントがおきないように
         '上記分岐をパスしたTargetセルの右隣のセルの内容
         With Target.Offset(0, 1)
           Select Case Target.Value
            Case "": .ClearContents
            Case Else: .Value = Date
           End Select
         End With
         Application.EnableEvents = True 'イベント可
        End If
      End If
     End With
   End If
  End If
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 お礼

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