質問編集履歴
1
実際のプログラムの抜粋を記載しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -36,5 +36,25 @@
|
|
|
36
36
|
ここに問題に対して試したことを記載してください。
|
|
37
37
|
|
|
38
38
|
### 補足情報（FW/ツールのバージョンなど）
|
|
39
|
+
実際のプログラムの抜粋は以下の通りです。
|
|
40
|
+
醜く拙いプログラムですみません・・・
|
|
41
|
+
：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
|
|
42
|
+
Dim RER() As String
|
|
43
|
+
Dim r As Integer
|
|
44
|
+
Dim rnt As Integer
|
|
39
45
|
|
|
46
|
+
For r = 0 To ListBox4.ListCount - 1
|
|
47
|
+
If ListBox4.Selected(r) = True Then
|
|
48
|
+
|
|
49
|
+
rnt = rnt + 1
|
|
50
|
+
ReDim Preserve RER(1 To rnt)
|
|
51
|
+
RER(rnt) = ListBox4.List(r)
|
|
52
|
+
End If
|
|
53
|
+
Next r
|
|
54
|
+
：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
|
|
55
|
+
**※上記部分はJER、KER、GERと共通で書いています。**
|
|
56
|
+
**以下がフィルター部分のプログラムです**
|
|
57
|
+
Worksheets("記録表").Select
|
|
58
|
+
|
|
59
|
+
Worksheets("記録表").Range("A3").AutoFilter field:=7, Criteria1:=RER(), Operator:=xlFilterValues, Criteria2:=GER(), Operator:=xlFilterValues, Criteria3:=KER(), Operator:=xlFilterValues, Criteria4:=JER(), Operator:=xlFilterValues
|
|
40
60
|
ここにより詳細な情報を記載してください。
|