質問編集履歴
3
コードの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -11,6 +11,11 @@
|
|
11
11
|
参考書で確認したところ「すべてのモジュールで有効な変数はブックを閉じたりモジュールの編集を行ったりしない限り、リセットされません。」との記載がありました。
|
12
12
|
リストに変更があった時のために作成したマクロを登録して更新ボタンを作成したいため、何か解決策がありましたらご教授ください。
|
13
13
|
|
14
|
+
【追記2】
|
15
|
+
諸事情によりコードは一部分を記載いたしました。
|
16
|
+
「○○」、「△△」の部分等は具体的な名称から変更しております。
|
17
|
+
非常に分かりにくいと思いますが、何かご指摘いただければ幸いです。
|
18
|
+
|
14
19
|
|
15
20
|
### 発生している問題・エラーメッセージ
|
16
21
|
|
@@ -20,8 +25,48 @@
|
|
20
25
|
|
21
26
|
### 該当のソースコード
|
22
27
|
|
23
|
-
```
|
28
|
+
```vba
|
29
|
+
Option Explicit
|
30
|
+
Public a, b, a1, b1
|
31
|
+
Public bosu As Integer '参照元(リスト)の母数
|
32
|
+
Public ○○ As Integer '○○の人数
|
33
|
+
Public △△ As Integer '△△の人数
|
34
|
+
|
35
|
+
Sub エントリー者の進捗状況及び割合()
|
36
|
+
Dim x As Integer
|
37
|
+
|
38
|
+
bosu = 205 '200人まで反映されます
|
39
|
+
a = 5 '作成する表の起点位置(行)
|
40
|
+
b = 27 '作成する表の起点位置(列)
|
41
|
+
|
42
|
+
a1 = 6 '参照元の起点の位置(行)
|
43
|
+
b1 = 1 '参照元の起点の位置(列)
|
44
|
+
|
45
|
+
'セルを指定するときはすべてCells(a+2,b+1)、Cells(a1,b1+4)のように使用しています
|
46
|
+
|
47
|
+
Cells(a, b + 2).Value = "割合"
|
48
|
+
Cells(a, b + 1).Value = "人数(人)"
|
49
|
+
Cells(a + 1, b).Value = "○○の人数"
|
50
|
+
Cells(a + 2, b).Value = "△△の人数"
|
51
|
+
|
52
|
+
|
53
|
+
For x = a1 To bosu
|
54
|
+
|
55
|
+
If Cells(x, b1).Value <> "" Then
|
56
|
+
○○ = ○○ + 1
|
57
|
+
Cells(a + 1, b + 1).Value = ○○
|
58
|
+
|
24
|
-
|
59
|
+
End If
|
60
|
+
Next x '○○の人数
|
61
|
+
|
62
|
+
For x = a1 To bosu
|
63
|
+
|
64
|
+
If Cells(x, b1 + 2).Value = 1 Then
|
65
|
+
△△ = △△ + 1
|
66
|
+
Cells(a + 2, b + 1).Value = △△
|
67
|
+
|
68
|
+
End If '△△の人数
|
69
|
+
Next x
|
25
70
|
```
|
26
71
|
|
27
72
|
### 試したこと
|
2
質問の追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -7,6 +7,9 @@
|
|
7
7
|
使用した変数は別のモジュールでも使用する可能性があるため「Public」ステートメントを使って宣言しているのですが、実行を押す度に統計結果の数値が増加してしまいます。
|
8
8
|
「Dim」を使用しているときは起こらなかった現象なのですが、原因がわかる方がいましたら教えていただけると幸いです。
|
9
9
|
|
10
|
+
【追記】
|
11
|
+
参考書で確認したところ「すべてのモジュールで有効な変数はブックを閉じたりモジュールの編集を行ったりしない限り、リセットされません。」との記載がありました。
|
12
|
+
リストに変更があった時のために作成したマクロを登録して更新ボタンを作成したいため、何か解決策がありましたらご教授ください。
|
10
13
|
|
11
14
|
|
12
15
|
### 発生している問題・エラーメッセージ
|
1
試したことの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -5,7 +5,7 @@
|
|
5
5
|
VBAの勉強を始めて間もないため初歩的な質問であることをご容赦ください。
|
6
6
|
Excelで作成したリストを基に同シート内に統計表を作成するためVBAを使用しています。
|
7
7
|
使用した変数は別のモジュールでも使用する可能性があるため「Public」ステートメントを使って宣言しているのですが、実行を押す度に統計結果の数値が増加してしまいます。
|
8
|
-
Dimを使用しているときは起こらなかった現象なのですが、原因がわかる方がいましたら教えていただけると幸いです。
|
8
|
+
「Dim」を使用しているときは起こらなかった現象なのですが、原因がわかる方がいましたら教えていただけると幸いです。
|
9
9
|
|
10
10
|
|
11
11
|
|
@@ -23,7 +23,8 @@
|
|
23
23
|
|
24
24
|
### 試したこと
|
25
25
|
|
26
|
-
|
26
|
+
ClearContentsを使用して実行するたびにセルの数値を毎回リセットするようにしたのですが、結果は変わらず数値は増えるままでした。
|
27
|
+
|
27
28
|
|
28
29
|
### 補足情報(FW/ツールのバージョンなど)
|
29
30
|
|