回答編集履歴
3
修正
test
CHANGED
@@ -1,4 +1,6 @@
|
|
1
|
+
なぜコメントが貰えないか考えて、疑
|
2
|
+
|
1
|
-
|
3
|
+
問に真っ直ぐに答えてないからだと気づきました。
|
2
4
|
|
3
5
|
反射的に「こうしたらいいじゃん。」ってコード書いちゃったですが、
|
4
6
|
|
@@ -58,8 +60,6 @@
|
|
58
60
|
|
59
61
|
|
60
62
|
|
61
|
-
Dim mflgCmd As Boolean
|
62
|
-
|
63
63
|
|
64
64
|
|
65
65
|
Private Sub UserForm_Initialize()
|
@@ -72,17 +72,21 @@
|
|
72
72
|
|
73
73
|
Private Sub OptionButton2_Change()
|
74
74
|
|
75
|
-
|
75
|
+
If Me.OptionButton2.Value Then
|
76
76
|
|
77
|
-
.
|
77
|
+
With Me.TextBox1
|
78
78
|
|
79
|
-
.
|
79
|
+
.Enabled = True
|
80
80
|
|
81
|
-
|
81
|
+
.Locked = False
|
82
82
|
|
83
|
-
|
83
|
+
.BackColor = vbWhite
|
84
84
|
|
85
|
+
.SetFocus
|
86
|
+
|
85
|
-
|
87
|
+
End With
|
88
|
+
|
89
|
+
End If
|
86
90
|
|
87
91
|
End Sub
|
88
92
|
|
@@ -90,17 +94,13 @@
|
|
90
94
|
|
91
95
|
Private Sub CommandButton1_Click()
|
92
96
|
|
93
|
-
mflgCmd = True
|
94
|
-
|
95
|
-
|
96
|
-
|
97
97
|
With ActiveSheet.Range("A1").CurrentRegion
|
98
98
|
|
99
99
|
.Cells(.Rows.Count + 1, 1).Value = GetOPButtonValue
|
100
100
|
|
101
101
|
End With
|
102
102
|
|
103
|
-
|
103
|
+
|
104
104
|
|
105
105
|
初期化
|
106
106
|
|
@@ -114,7 +114,7 @@
|
|
114
114
|
|
115
115
|
Dim s As String
|
116
116
|
|
117
|
-
|
117
|
+
|
118
118
|
|
119
119
|
For Each C In Me.Controls
|
120
120
|
|
@@ -136,13 +136,11 @@
|
|
136
136
|
|
137
137
|
End If
|
138
138
|
|
139
|
-
|
140
|
-
|
141
139
|
End If
|
142
140
|
|
143
141
|
Next
|
144
142
|
|
145
|
-
|
143
|
+
|
146
144
|
|
147
145
|
GetOPButtonValue = s
|
148
146
|
|
@@ -170,8 +168,12 @@
|
|
170
168
|
|
171
169
|
Me.OptionButton2.Value = False
|
172
170
|
|
173
|
-
|
174
|
-
|
175
171
|
End Sub
|
176
172
|
|
177
173
|
```
|
174
|
+
|
175
|
+
|
176
|
+
|
177
|
+
だめだ^^;勘が鈍ってる><
|
178
|
+
|
179
|
+
https://www.moug.net/faq/viewtopic.php?p=494370#494370
|
2
修正
test
CHANGED
@@ -58,9 +58,7 @@
|
|
58
58
|
|
59
59
|
|
60
60
|
|
61
|
-
|
62
|
-
|
63
|
-
Dim mflg As Boolean
|
61
|
+
Dim mflgCmd As Boolean
|
64
62
|
|
65
63
|
|
66
64
|
|
@@ -72,8 +70,6 @@
|
|
72
70
|
|
73
71
|
|
74
72
|
|
75
|
-
|
76
|
-
|
77
73
|
Private Sub OptionButton2_Change()
|
78
74
|
|
79
75
|
With Me.TextBox1
|
@@ -82,9 +78,11 @@
|
|
82
78
|
|
83
79
|
.Locked = False
|
84
80
|
|
85
|
-
.BackColor = vbWhite
|
81
|
+
If mflgCmd = False Then .BackColor = vbWhite
|
86
82
|
|
87
83
|
End With
|
84
|
+
|
85
|
+
mflgCmd = False
|
88
86
|
|
89
87
|
End Sub
|
90
88
|
|
@@ -92,29 +90,19 @@
|
|
92
90
|
|
93
91
|
Private Sub CommandButton1_Click()
|
94
92
|
|
93
|
+
mflgCmd = True
|
94
|
+
|
95
|
+
|
96
|
+
|
95
97
|
With ActiveSheet.Range("A1").CurrentRegion
|
96
98
|
|
97
99
|
.Cells(.Rows.Count + 1, 1).Value = GetOPButtonValue
|
98
100
|
|
99
101
|
End With
|
100
102
|
|
101
|
-
|
103
|
+
|
102
104
|
|
103
105
|
初期化
|
104
|
-
|
105
|
-
|
106
|
-
|
107
|
-
If mflg = False Then
|
108
|
-
|
109
|
-
mflg = True
|
110
|
-
|
111
|
-
CommandButton1_Click
|
112
|
-
|
113
|
-
Else
|
114
|
-
|
115
|
-
mflg = False
|
116
|
-
|
117
|
-
End If
|
118
106
|
|
119
107
|
End Sub
|
120
108
|
|
@@ -126,7 +114,7 @@
|
|
126
114
|
|
127
115
|
Dim s As String
|
128
116
|
|
129
|
-
|
117
|
+
|
130
118
|
|
131
119
|
For Each C In Me.Controls
|
132
120
|
|
@@ -148,13 +136,13 @@
|
|
148
136
|
|
149
137
|
End If
|
150
138
|
|
151
|
-
|
139
|
+
|
152
140
|
|
153
141
|
End If
|
154
142
|
|
155
143
|
Next
|
156
144
|
|
157
|
-
|
145
|
+
|
158
146
|
|
159
147
|
GetOPButtonValue = s
|
160
148
|
|
@@ -182,18 +170,8 @@
|
|
182
170
|
|
183
171
|
Me.OptionButton2.Value = False
|
184
172
|
|
185
|
-
|
173
|
+
|
186
174
|
|
187
175
|
End Sub
|
188
176
|
|
189
177
|
```
|
190
|
-
|
191
|
-
う~~ん。
|
192
|
-
|
193
|
-
1番の質問の色が変わらない現象確認しました^^;
|
194
|
-
|
195
|
-
原因&回避方法がわからないので、
|
196
|
-
|
197
|
-
力技で回避^^;(なぜかもう1回コマンドボタンをクリックしたことにすると変わる^^;)
|
198
|
-
|
199
|
-
(内緒で他の掲示板で聞いてみてます。^^;;)
|
1
修正
test
CHANGED
@@ -190,10 +190,10 @@
|
|
190
190
|
|
191
191
|
う~~ん。
|
192
192
|
|
193
|
-
|
193
|
+
1番の質問の色が変わらない現象確認しました^^;
|
194
194
|
|
195
195
|
原因&回避方法がわからないので、
|
196
196
|
|
197
|
-
力技で回避^^;
|
197
|
+
力技で回避^^;(なぜかもう1回コマンドボタンをクリックしたことにすると変わる^^;)
|
198
198
|
|
199
199
|
(内緒で他の掲示板で聞いてみてます。^^;;)
|