teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問フォームを×で閉じるとエラーメッセージが掃かれるのを止めたい

編集履歴

質問編集履歴

1

userformのコード追記

2017/09/18 04:54

投稿

webillion
webillion

スコア33

test CHANGED
File without changes
test CHANGED
@@ -23,3 +23,207 @@
23
23
 
24
24
 
25
25
  分かる方、ご教示願います。
26
+
27
+
28
+
29
+ UserFormのコードを追記いたします。
30
+
31
+
32
+
33
+ ```
34
+
35
+
36
+
37
+ Private Sub ComboBox1_Change()
38
+
39
+
40
+
41
+ End Sub
42
+
43
+
44
+
45
+ Private Sub CommandButton1_Click()
46
+
47
+ Dim i
48
+
49
+ For i = 10 To 60 Step 10
50
+
51
+ ComboBox1.AddItem i & "分"
52
+
53
+ Next
54
+
55
+ End Sub
56
+
57
+
58
+
59
+ Private Sub CommandButton2_Click()
60
+
61
+ Cells.Select
62
+
63
+ Selection.ColumnWidth = 2
64
+
65
+
66
+
67
+ If Cells(1, 1) = "" Then
68
+
69
+ Worksheets("Task").Cells(1, 1).Value = TextBox1.Value
70
+
71
+ Columns("A:E").AutoFit
72
+
73
+ If ComboBox1.Text = "10分" Then
74
+
75
+ Cells(1, 2).Interior.ColorIndex = 3
76
+
77
+ Cells(1, 2).Value = "□"
78
+
79
+ ElseIf ComboBox1.Text = "20分" Then
80
+
81
+ Range(Cells(1, 2), Cells(1, 3)).Interior.ColorIndex = 3
82
+
83
+ Range(Cells(1, 2), Cells(1, 3)).Value = "□"
84
+
85
+ ElseIf ComboBox1.Text = "30分" Then
86
+
87
+ Range(Cells(1, 2), Cells(1, 4)).Interior.ColorIndex = 3
88
+
89
+ Range(Cells(1, 2), Cells(1, 4)).Value = "□"
90
+
91
+ ElseIf ComboBox1.Text = "40分" Then
92
+
93
+ Range(Cells(1, 2), Cells(1, 5)).Interior.ColorIndex = 3
94
+
95
+ Range(Cells(1, 2), Cells(1, 5)).Value = "□"
96
+
97
+ ElseIf ComboBox1.Text = "50分" Then
98
+
99
+ Range(Cells(1, 2), Cells(1, 6)).Interior.ColorIndex = 3
100
+
101
+ Range(Cells(1, 2), Cells(1, 6)).Value = "□"
102
+
103
+ ElseIf ComboBox1.Text = "60分" Then
104
+
105
+ Range(Cells(1, 2), Cells(1, 7)).Interior.ColorIndex = 3
106
+
107
+ Range(Cells(1, 2), Cells(1, 7)).Value = "□"
108
+
109
+ End If
110
+
111
+ Else
112
+
113
+ 'MsgBox Maxcol
114
+
115
+
116
+
117
+
118
+
119
+ n = Cells(Rows.Count, 1).End(xlUp).Row + 1
120
+
121
+ 'MsgBox n
122
+
123
+ 'With Range("A" & n - 1).SpecialCells(xlLastCell)
124
+
125
+ With Cells(n - 1, Columns.Count).End(xlToLeft).Column
126
+
127
+ 'maxrow = .Row
128
+
129
+ l = Cells(n - 1, Columns.Count).End(xlToLeft).Column + 1
130
+
131
+ End With
132
+
133
+ 'MsgBox l
134
+
135
+
136
+
137
+ '最終行を求めてしまっている↓
138
+
139
+ ''m = Range("A" & n - 1).End(xlToRight).Column + 1
140
+
141
+ 'm = Range("A" & Columns.Count).End(xlToLeft).Column + 1
142
+
143
+ 'm = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 1)
144
+
145
+ ''MsgBox m
146
+
147
+ Worksheets("Task").Cells(n, 1).Value = TextBox1.Value
148
+
149
+ Columns("A:E").AutoFit
150
+
151
+ If ComboBox1.Text = "10分" Then
152
+
153
+ Cells(n, l).Interior.ColorIndex = 3
154
+
155
+ 'Range(n, m).Value = "□"
156
+
157
+ Cells(n, l).Value = "□"
158
+
159
+ ElseIf ComboBox1.Text = "20分" Then
160
+
161
+ Range(Cells(n, l), Cells(n, l + 1)).Interior.ColorIndex = 3
162
+
163
+ Range(Cells(n, l), Cells(n, l + 1)).Value = "□"
164
+
165
+ ElseIf ComboBox1.Text = "30分" Then
166
+
167
+ Range(Cells(n, l), Cells(n, l + 2)).Interior.ColorIndex = 3
168
+
169
+ Range(Cells(n, l), Cells(n, l + 2)).Value = "□"
170
+
171
+ ElseIf ComboBox1.Text = "40分" Then
172
+
173
+ Range(Cells(n, l), Cells(n, l + 3)).Interior.ColorIndex = 3
174
+
175
+ Range(Cells(n, l), Cells(n, l + 3)).Value = "□"
176
+
177
+ ElseIf ComboBox1.Text = "50分" Then
178
+
179
+ Range(Cells(n, l), Cells(n, l + 4)).Interior.ColorIndex = 3
180
+
181
+ Range(Cells(n, l), Cells(n, l + 4)).Value = "□"
182
+
183
+ ElseIf ComboBox1.Text = "60分" Then
184
+
185
+ Range(Cells(n, l), Cells(n, l + 5)).Interior.ColorIndex = 3
186
+
187
+ Range(Cells(n, l), Cells(n, l + 5)).Value = "□"
188
+
189
+ End If
190
+
191
+ End If
192
+
193
+ End Sub
194
+
195
+
196
+
197
+ Private Sub Label2_Click()
198
+
199
+
200
+
201
+ End Sub
202
+
203
+
204
+
205
+ Private Sub TextBox1_Change()
206
+
207
+
208
+
209
+ End Sub
210
+
211
+
212
+
213
+ Private Sub UserForm_Click()
214
+
215
+
216
+
217
+ End Sub
218
+
219
+
220
+
221
+ Private Sub UserForm_Initialize()
222
+
223
+ UserForm1.Show
224
+
225
+ End Sub
226
+
227
+
228
+
229
+ ```