Excel VBA質問箱 IV

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

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


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

9526 / 76738

←次へ　｜　前へ→


	【72773】複数条件のif構文がうまく機能しない

トウジ - 12/9/18(火) 19:33 -


	引用なし

	パスワード

Sub 指数別傾向()

Application.ScreenUpdating = False

Dim i As Long　

Dim h1 As Long
Dim h2 As Long
Dim j1 As Long
Dim j2 As Long
Dim k1 As Long
Dim k2 As Long
Dim l1 As Long
Dim l2 As Long
Dim m1 As Long
Dim m2 As Long
Dim n1 As Long
Dim n2 As Long
Dim o1 As Long
Dim o2 As Long　

Dim x As Long
Dim y As Long　

i = 3

h1 = InputBox("項目1は何以上ですか？", Title:="項目1の数(下限)")
h2 = InputBox("項目1は何以下ですか？", Title:="項目1の数(上限)")
j1 = InputBox("項目2は何以上ですか？", Title:="項目2の数(下限)")
j2 = InputBox("項目2は何以下ですか？", Title:="項目2の数(上限)")
k1 = InputBox("項目3は何以上ですか？", Title:="項目3の数(下限)")
k2 = InputBox("項目3は何以下ですか？", Title:="項目3の数(上限)")
l1 = InputBox("項目4は何以上ですか？", Title:="項目4の数(下限)")
l2 = InputBox("項目4は何以下ですか？", Title:="項目4の数(上限)")
m1 = InputBox("項目5は何以上ですか？", Title:="項目5の数(下限)")
m2 = InputBox("項目5は何以下ですか？", Title:="項目5の数(上限)")
n1 = InputBox("項目6は何以上ですか？", Title:="項目6の数(下限)")
n2 = InputBox("項目6は何以下ですか？", Title:="項目6の数(上限)")
o1 = InputBox("項目7は何以上ですか？", Title:="項目7の数(下限)")
o2 = InputBox("項目7は何以下ですか？", Title:="項目7の数(上限)")
p1 = InputBox("項目8は何以上ですか？", Title:="項目8の数(下限)")
p2 = InputBox("項目8は何以下ですか？", Title:="項目8の数(上限)")
q1 = InputBox("項目9は何以上ですか？", Title:="項目9の数(下限)")
q2 = InputBox("項目9は何以下ですか？", Title:="項目9の数(上限)")

MsgBox "項目1は" & h1 & "～" & h2 & "です"
& vbCrLf & "項目2は" & j1 & "～" & j2 & "です"
& vbCrLf & "項目3は" & k1 & "～" & k2 & "です"
& vbCrLf & "項目4は" & l1 & "～" & l2 & "です"
& vbCrLf & "項目5は" & m1 & "～" & m2 & "です"
& vbCrLf & "項目6は" & n1 & "～" & n2 & "です"
& vbCrLf & "項目7は" & o1 & "～" & o2 & "です"
& vbCrLf & "項目8は" & p1 & "～" & p2 & "です"
& vbCrLf & "項目9は" & q1 & "～" & q2 & "です"
& vbCrLf & "これでよろしいですか？", vbYesNo

Do
　
x = i - 1
y = x + 5
　　　　
If (h1 <= Sheets(1).Cells(i, "W") And Sheets(1).Cells(i, "W") <= h2) And
(j1 <= Sheets(1).Cells(i, "X") And Sheets(1).Cells(i, "X") <= j2) And
(k1 <= Sheets(1).Cells(i, "Y") And Sheets(1).Cells(i, "Y") <= k2) And
(l1 <= Sheets(1).Cells(i, "Z") And Sheets(1).Cells(i, "Z") <= l2) And
(m1 <= Sheets(1).Cells(i, "AA") And Sheets(1).Cells(i, "AA") <= m2) And
(n1 <= Sheets(1).Cells(i, "AB") And Sheets(1).Cells(i, "AB") <= n2) And
(o1 <= Sheets(1).Cells(i, "AC") And Sheets(1).Cells(i, "AC") <= o2) And
(p1 <= Sheets(1).Cells(i, "AD") And Sheets(1).Cells(i, "AD") <= p2) And
(q1 <= Sheets(1).Cells(i, "AE") And Sheets(1).Cells(i, "AE") <= q2) Then

Else
Sheets(1).Rows(x & ":" & y).Hidden = True　'表示しない行(i-x)から行((i+5)-x)"
End If
i = i + 6
Loop Until Sheets(1).Cells(i, "D").Value = ""

Application.ScreenUpdating = True

End Sub

----------------------------------------------------------------
上記のようなコードをつくったところ、自分で入力した条件に当てはまっていても、Sheets(1).Rows(x & ":" & y).Hidden = True となり行が非表示となってしまいます。なぜでしょうか？アドバイスをいただければと思います。よろしくお願い致します。

0 hits

▼

【72773】複数条件のif構文がうまく機能しない トウジ 12/9/18(火) 19:33

≪