質問編集履歴
2
実現したいことなど文章を変更しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBA チェックボックスにチェックが入ったときに対象項目の数値以上で
|
|
1
|
+
VBA チェックボックスにチェックが入ったときに対象項目の数値以上で比較を行いたい
|
test
CHANGED
|
@@ -1,19 +1,21 @@
|
|
|
1
1
|
■実現したいこと
|
|
2
2
|
|
|
3
|
+
・画像1の手順③について
|
|
4
|
+
|
|
3
|
-
|
|
5
|
+
チェックボックスにチェックが入った場合、手順①で入力したH Sample数値以上で比較を実現させたいです。
|
|
4
|
-
|
|
6
|
+
|
|
5
|
-
|
|
7
|
+
このチェックを行うことで、手順②で行った読み込み一覧ファイルのH Sample項目だけその数値以上で比較されます。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|
|
9
11
|
■現状
|
|
10
12
|
|
|
13
|
+
手順③以外のプログラムは作成できました。
|
|
14
|
+
|
|
15
|
+
各シートについて
|
|
16
|
+
|
|
11
17
|
・[数値比較]シート
|
|
12
18
|
|
|
13
|
-
①～④までの手順を作成しました。
|
|
14
|
-
|
|
15
|
-
手順③以外のプログラムは作成できました。
|
|
16
|
-
|
|
17
19
|
|
|
18
20
|
|
|
19
21
|
以下、手順の説明になります。
|
|
@@ -28,13 +30,13 @@
|
|
|
28
30
|
|
|
29
31
|
|
|
30
32
|
|
|
31
|
-
手順③：項目H Sampleで入力された数値以上で
|
|
33
|
+
手順③：項目H Sampleで入力された数値以上で比較したい場合は、チェックを入れます。
|
|
32
|
-
|
|
34
|
+
|
|
33
|
-
例：H Sampleに100と入力された場合は、それ以上で
|
|
35
|
+
例：H Sampleに100と入力された場合は、それ以上で比較するようになります。
|
|
34
|
-
|
|
35
|
-
|
|
36
|
-
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
37
|
-
手順④：①と②を[順位付け]シートで比較し、29行目から33行目に結果が表示されます。
|
|
39
|
+
手順④：①と②を[順位付け]シートで比較し、手順②の比較対象データファイルの近いデータを29行目から33行目に結果が表示されます。
|
|
38
40
|
|
|
39
41
|
上位5位表示になります。
|
|
40
42
|
|
|
@@ -74,7 +76,7 @@
|
|
|
74
76
|
|
|
75
77
|
コメント部分に今回のチェックボックスにチェックを入れた動作を書いたのですが、
|
|
76
78
|
|
|
77
|
-
上手く
|
|
79
|
+
上手く比較できない状態です。。
|
|
78
80
|
|
|
79
81
|
|
|
80
82
|
|
|
@@ -212,7 +214,7 @@
|
|
|
212
214
|
|
|
213
215
|
' With wshOrd.Range("A2:I22")
|
|
214
216
|
|
|
215
|
-
' .AutoFilter Field:=9, Criteria1:="" 'どうやって
|
|
217
|
+
' .AutoFilter Field:=9, Criteria1:="" 'どうやって比較設定したらいいか分からない
|
|
216
218
|
|
|
217
219
|
' End With
|
|
218
220
|
|
1
コードを変更しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -260,6 +260,6 @@
|
|
|
260
260
|
|
|
261
261
|
|
|
262
262
|
|
|
263
|
-
ご教授いただけると幸いです。
|
|
263
|
+
ご教授いただけると幸いです。
|
|
264
264
|
|
|
265
265
|
よろしくお願いいたします。
|