質問編集履歴

1

実際のプログラムの抜粋を記載しました

2020/08/20 06:43

投稿

riko
riko

スコア40

test CHANGED
File without changes
test CHANGED
@@ -74,6 +74,46 @@
74
74
 
75
75
  ### 補足情報(FW/ツールのバージョンなど)
76
76
 
77
+ 実際のプログラムの抜粋は以下の通りです。
78
+
79
+ 醜く拙いプログラムですみません・・・
80
+
81
+ ::::::::::::::::::::::::::::::::::
82
+
83
+  Dim RER() As String
84
+
85
+ Dim r As Integer
86
+
87
+ Dim rnt As Integer
77
88
 
78
89
 
90
+
91
+ For r = 0 To ListBox4.ListCount - 1
92
+
93
+ If ListBox4.Selected(r) = True Then
94
+
95
+
96
+
97
+ rnt = rnt + 1
98
+
99
+ ReDim Preserve RER(1 To rnt)
100
+
101
+ RER(rnt) = ListBox4.List(r)
102
+
103
+ End If
104
+
105
+ Next r
106
+
107
+ ::::::::::::::::::::::::::::::::::
108
+
109
+ **※上記部分はJER、KER、GERと共通で書いています。**
110
+
111
+ **以下がフィルター部分のプログラムです**
112
+
113
+ Worksheets("記録表").Select
114
+
115
+
116
+
117
+ Worksheets("記録表").Range("A3").AutoFilter field:=7, Criteria1:=RER(), Operator:=xlFilterValues, Criteria2:=GER(), Operator:=xlFilterValues, Criteria3:=KER(), Operator:=xlFilterValues, Criteria4:=JER(), Operator:=xlFilterValues
118
+
79
119
  ここにより詳細な情報を記載してください。