質問編集履歴
3
画像を変更しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -70,17 +70,9 @@
|
|
70
70
|
|
71
71
|
|
72
72
|
|
73
|
-
![イメージ説明](
|
73
|
+
![イメージ説明](4773e1ef9b8251cbb10aac946b562baf.jpeg)
|
74
74
|
|
75
75
|
画像3 比較一覧表.xlsの画面
|
76
|
-
|
77
|
-
|
78
|
-
|
79
|
-
画像の関係上一つのシートで纏めした。
|
80
|
-
|
81
|
-
実際には、シート2は、"2_比較一覧"、シート3は、"3_比較一覧"に記載しています。
|
82
|
-
|
83
|
-
この比較一覧表のタイプ一覧を含めてランク付けしたいです。
|
84
76
|
|
85
77
|
|
86
78
|
|
2
分からないところ再編集
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,7 +10,9 @@
|
|
10
10
|
|
11
11
|
・チェックボックスにチェックを入れた後、
|
12
12
|
|
13
|
-
ファイル(比較一覧表.xls)の中にあるタイプ一覧項目をどうやってチェックし、
|
13
|
+
ファイル(比較一覧表.xls)の中にあるタイプ一覧項目をどうやってチェックし、
|
14
|
+
|
15
|
+
手順①の緑枠Sampleデータと比較一覧表ファイルのSampleデータを比較しているか分からないです。
|
14
16
|
|
15
17
|
|
16
18
|
|
1
質問したいことが伝わりづらかったため再編集しました。
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VBA チェックボックスにチェック
|
1
|
+
VBA チェックボックスにチェックした項目だけ選んで、その中でランク付けをしたい
|
test
CHANGED
@@ -1,24 +1,30 @@
|
|
1
|
-
|
1
|
+
■実現したいことは以下になります。
|
2
2
|
|
3
|
-
|
3
|
+
・手順②(画像1)で指定したファイル(比較一覧表.xls)の中にあるタイプ一覧項目(画像3)を
|
4
4
|
|
5
|
-
前回、読み込んだデータと他ブックを比較しランク付けを行い、全ての項目に対して比較を行い、上位7位まで表示させました。
|
6
|
-
|
7
|
-
|
5
|
+
手順③で必要なタイプ一覧だけにチェックし、その中でランク付けし、黄色枠にも結果を表示させたい
|
8
6
|
|
9
7
|
|
10
8
|
|
11
|
-
|
9
|
+
■分からないこと
|
12
10
|
|
13
|
-
|
11
|
+
・チェックボックスにチェックを入れた後、
|
14
12
|
|
15
|
-
|
13
|
+
ファイル(比較一覧表.xls)の中にあるタイプ一覧項目をどうやってチェックし、比較しているか分からないです。
|
16
|
-
|
17
|
-
3':比較後、黄色枠タイプ一覧にも表示させるようにしたいです。
|
18
14
|
|
19
15
|
|
20
16
|
|
17
|
+
■前提
|
18
|
+
|
19
|
+
・今までは、タイプ一覧項目を作らずに手順①の緑枠(画像1)のSampleデータと
|
20
|
+
|
21
|
+
手順②のSampleデータを比べてランク付けをしました。
|
22
|
+
|
23
|
+
|
24
|
+
|
25
|
+
|
26
|
+
|
21
|
-
|
27
|
+
画像が以下になります。
|
22
28
|
|
23
29
|
|
24
30
|
|
@@ -28,21 +34,15 @@
|
|
28
34
|
|
29
35
|
|
30
36
|
|
31
|
-
手順③に比較したい項目にチェックを入れ、その中で比較をしたいです。
|
32
|
-
|
33
|
-
比較後、黄色枠にも比較した項目を入れて表示させたいです。
|
34
|
-
|
35
|
-
|
36
|
-
|
37
37
|
![イメージ説明](d23247cb485ca81cc22691c7f4775d20.jpeg)
|
38
38
|
|
39
39
|
画像2 自動比較ツール.xlsmの画面 順位付けシート
|
40
40
|
|
41
41
|
|
42
42
|
|
43
|
-
データ比較シートの緑枠と手順②
|
43
|
+
データ比較シートの緑枠(画像1)のSampleデータと手順②のSampleデータを絶対値の差で比較しました。
|
44
44
|
|
45
|
-
差を出した後、P2~V16で点数評価し、合計が一番少ないのがランク上位に表示させています。
|
45
|
+
差を出した後、P2~V16でRANK関数で点数評価し、合計が一番少ないのがランク上位に表示させています。
|
46
46
|
|
47
47
|
i2=ABS(B2-I$1)
|
48
48
|
|
@@ -164,44 +164,4 @@
|
|
164
164
|
|
165
165
|
```
|
166
166
|
|
167
|
-
|
168
|
-
|
169
|
-
```VBA
|
170
|
-
|
171
|
-
'標準モジュールからチェックボックスのコードを入れたのですが、
|
172
|
-
|
173
|
-
'ここからどうやってチェックしたものに対して比較したらいいのか分からないです。
|
174
|
-
|
175
|
-
'文字列比較方法が分からないです。
|
176
|
-
|
177
|
-
Option Explicit
|
178
|
-
|
179
|
-
|
180
|
-
|
181
|
-
Sub abc_1_Click()
|
182
|
-
|
183
|
-
|
184
|
-
|
185
|
-
End Sub
|
186
|
-
|
187
|
-
Sub abc_2_Click()
|
188
|
-
|
189
|
-
|
190
|
-
|
191
|
-
End Sub
|
192
|
-
|
193
|
-
Sub def_1_Click()
|
194
|
-
|
195
|
-
|
196
|
-
|
197
|
-
End Sub
|
198
|
-
|
199
|
-
Sub def_2_Click()
|
200
|
-
|
201
|
-
|
202
|
-
|
203
|
-
End Sub
|
204
|
-
|
205
|
-
```
|
206
|
-
|
207
167
|
よろしくお願いいたします。
|