回答編集履歴
4
誤りの修正
test
CHANGED
|
@@ -78,7 +78,7 @@
|
|
|
78
78
|
|
|
79
79
|
'合計100なら塗りつぶしなしにする
|
|
80
80
|
|
|
81
|
-
Cells(1, 3).Interior.Color
|
|
81
|
+
Cells(1, 3).Interior.Color = xlNone
|
|
82
82
|
|
|
83
83
|
End If
|
|
84
84
|
|
3
誤りの修正
test
CHANGED
|
@@ -64,15 +64,25 @@
|
|
|
64
64
|
|
|
65
65
|
```
|
|
66
66
|
|
|
67
|
-
|
|
67
|
+
Sub main()
|
|
68
68
|
|
|
69
|
-
|
|
69
|
+
Cells(1, 3) = Cells(1, 1) + Cells(1, 2)
|
|
70
70
|
|
|
71
|
-
|
|
71
|
+
If Cells(1, 3) <> 100 Then
|
|
72
72
|
|
|
73
|
-
|
|
73
|
+
'色の指定方法は.Interior.Colorで検索
|
|
74
74
|
|
|
75
|
+
Cells(1, 3).Interior.Color = vbRed
|
|
76
|
+
|
|
75
|
-
|
|
77
|
+
Else
|
|
78
|
+
|
|
79
|
+
'合計100なら塗りつぶしなしにする
|
|
80
|
+
|
|
81
|
+
Cells(1, 3).Interior.ColorIndex = xlNone
|
|
82
|
+
|
|
83
|
+
End If
|
|
84
|
+
|
|
85
|
+
End Sub
|
|
76
86
|
|
|
77
87
|
```
|
|
78
88
|
|
2
誤字の修正
test
CHANGED
|
@@ -4,9 +4,9 @@
|
|
|
4
4
|
|
|
5
5
|
セルの値が変更されたタイミングで反応させる場合はイベントを使用します。
|
|
6
6
|
|
|
7
|
-
反応系イベントはブックを
|
|
7
|
+
反応系イベントはブックを開いた時や閉じた時などもあるので少し調べてみると良いでしょう。
|
|
8
8
|
|
|
9
|
-
ただ、イベント反応系はデバッグに苦労しますし正常に動いているのかも確認し
|
|
9
|
+
ただ、イベント反応系はデバッグに苦労しますし正常に動いているのかも確認しづらいので必要最小限の方がいいです。
|
|
10
10
|
|
|
11
11
|
```
|
|
12
12
|
|
1
追記
test
CHANGED
|
@@ -38,6 +38,8 @@
|
|
|
38
38
|
|
|
39
39
|
```
|
|
40
40
|
|
|
41
|
+
[参考](https://www.moug.net/tech/exvba/0050131.html)
|
|
42
|
+
|
|
41
43
|
|
|
42
44
|
|
|
43
45
|
また手入力にしなければ誤入力エラーも起きません。
|
|
@@ -48,7 +50,7 @@
|
|
|
48
50
|
|
|
49
51
|
コンボボックスを先に仕込む方法とか考えないといけないので出来ればですが。
|
|
50
52
|
|
|
51
|
-
https://www.ipentec.com/document/excel-cell-change-doropdown-list-combobox
|
|
53
|
+
[コンボボックス](https://www.ipentec.com/document/excel-cell-change-doropdown-list-combobox)
|
|
52
54
|
|
|
53
55
|
|
|
54
56
|
|