質問編集履歴
2
実現したいことなど文章を変更しました。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA チェックボックスにチェックが入ったときに対象項目の数値以上で
|
|
1
|
+
VBA チェックボックスにチェックが入ったときに対象項目の数値以上で比較を行いたい
|
body
CHANGED
|
@@ -1,11 +1,12 @@
|
|
|
1
1
|
■実現したいこと
|
|
2
|
+
・画像1の手順③について
|
|
2
|
-
|
|
3
|
+
チェックボックスにチェックが入った場合、手順①で入力したH Sample数値以上で比較を実現させたいです。
|
|
3
|
-
|
|
4
|
+
このチェックを行うことで、手順②で行った読み込み一覧ファイルのH Sample項目だけその数値以上で比較されます。
|
|
4
5
|
|
|
5
6
|
■現状
|
|
7
|
+
手順③以外のプログラムは作成できました。
|
|
8
|
+
各シートについて
|
|
6
9
|
・[数値比較]シート
|
|
7
|
-
①～④までの手順を作成しました。
|
|
8
|
-
手順③以外のプログラムは作成できました。
|
|
9
10
|
|
|
10
11
|
以下、手順の説明になります。
|
|
11
12
|
手順①：それぞれの項目に対して手動入力を行うところです。
|
|
@@ -13,10 +14,10 @@
|
|
|
13
14
|
手順②：比較対象データファイルをセットするところです。
|
|
14
15
|
①の項目が集約されたデータ一覧表です。
|
|
15
16
|
|
|
16
|
-
手順③：項目H Sampleで入力された数値以上で
|
|
17
|
+
手順③：項目H Sampleで入力された数値以上で比較したい場合は、チェックを入れます。
|
|
17
|
-
例：H Sampleに100と入力された場合は、それ以上で
|
|
18
|
+
例：H Sampleに100と入力された場合は、それ以上で比較するようになります。
|
|
18
19
|
|
|
19
|
-
手順④：①と②を[順位付け]シートで比較し、29行目から33行目に結果が表示されます。
|
|
20
|
+
手順④：①と②を[順位付け]シートで比較し、手順②の比較対象データファイルの近いデータを29行目から33行目に結果が表示されます。
|
|
20
21
|
上位5位表示になります。
|
|
21
22
|
|
|
22
23
|
・[順位付け]シート
|
|
@@ -36,7 +37,7 @@
|
|
|
36
37
|
|
|
37
38
|
コードが以下になります。
|
|
38
39
|
コメント部分に今回のチェックボックスにチェックを入れた動作を書いたのですが、
|
|
39
|
-
上手く
|
|
40
|
+
上手く比較できない状態です。。
|
|
40
41
|
|
|
41
42
|
```VBA
|
|
42
43
|
Private Sub CommandButton2_Click()
|
|
@@ -105,7 +106,7 @@
|
|
|
105
106
|
' '----- H Sampleのフィルター設定
|
|
106
107
|
' If l >= 0 Then
|
|
107
108
|
' With wshOrd.Range("A2:I22")
|
|
108
|
-
' .AutoFilter Field:=9, Criteria1:="" 'どうやって
|
|
109
|
+
' .AutoFilter Field:=9, Criteria1:="" 'どうやって比較設定したらいいか分からない
|
|
109
110
|
' End With
|
|
110
111
|
' End If
|
|
111
112
|
|
1
コードを変更しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -129,5 +129,5 @@
|
|
|
129
129
|
|
|
130
130
|
```
|
|
131
131
|
|
|
132
|
-
ご教授いただけると幸いです。
|
|
132
|
+
ご教授いただけると幸いです。
|
|
133
133
|
よろしくお願いいたします。
|