|
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 となり行が非表示となってしまいます。なぜでしょうか?アドバイスをいただければと思います。よろしくお願い致します。
|
|