Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10192 / 76734

←次へ　｜　前へ→


	【72092】複数セルからパターンを調べたい

けい

- 12/5/28(月) 19:23 -


	引用なし

	パスワード

いつも助けていただいてますが今日もよろしくお願いします。

ある一覧表があり、B列が●であるデータを対象とし、S列を基準にS～Y列に日付が入ってる場合、パターン1～４のどれかに当てはまるかをAR列に結果を入力したいのですがうまくいきません。
パターン1＝S,T,Yに日付がある場合
パターン2＝S,T,Uに日付がある場合
パターン3＝S,Tに日付がある場合
パターン1＝S,T,W,Xに日付がある場合

Sub 日付チェック()
　　Dim mRow As Long
　　Dim p As Long
　　Dim c As Range　

　　Application.ScreenUpdating = False
　
　　With Sheets("★★★")
　　　　mRow = WorksheetFunction.Max(.Range("B" & .Rows.Count).End(xlUp).Row)
　　　　　
　　　　For Each c In .Range("S4:S" & mRow)

　　　　　 If c.Offset(0, -17) = "●" And c.Value >= 1 And c.Offset(0, 1).Value >= 1 And c.Offset(0, 6).Value >= 1 Then
　　　　　　　　
　　　　　　　 c.Offset(0, 25).Value = 1

　　　　　 ElseIf c.Offset(0, -17) = "●" And c.Value >= 1 And c.Offset(0, 1).Value >= 1 And c.Offset(0, 2).Value >= 1 Then
　　　　　　　　　　　　　　　
　　　　　　　 c.Offset(0, 25).Value = 2
　　　　　　　　
　　　　　 ElseIf c.Offset(0, -17) = "●" And c.Value >= 1 And c.Offset(0, 1).Value >= 1 Then
　　　　　　　　　　　　　　　
　　　　　　　 c.Offset(0, 25).Value = 3
　　　　　　　
　　　　　 ElseIf c.Offset(0, -17) = "●" And c.Value >= 1 And c.Offset(0, 1).Value >= 1 And c.Offset(0, 4).Value >= 1 And c.Offset(0, 5).Value >= 1 Then　　　　　　　　　　　　　　
　　　　　　　 c.Offset(0, 25).Value = 4
　　　　　 End If
　　　　 Next　　　　
　　 End With
　　　
　　Application.ScreenUpdating = True

End Sub

どうしたらうまく判別させて結果を出せるのでしょうか。

3 hits

▼

【72092】複数セルからパターンを調べたい けい 12/5/28(月) 19:23

≪