質問編集履歴
2
コードの一部漏れの修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -80,6 +80,8 @@
|
|
80
80
|
|
81
81
|
.Cells(tgtRow, 1).Value = Me.cb1.Value '2021年のみ
|
82
82
|
|
83
|
+
.Cells(tgtRow, 2).Value = Me.cb2.Value '月選択
|
84
|
+
|
83
85
|
.Cells(tgtRow, 3).Value = Me.cb3.Value '1~31 日
|
84
86
|
|
85
87
|
.Cells(tgtRow, 4).Value = Me.cb4.Value '1~24 時間
|
@@ -122,7 +124,7 @@
|
|
122
124
|
|
123
125
|
With cb2
|
124
126
|
|
125
|
-
.AddItem "1"
|
127
|
+
.AddItem "1"
|
126
128
|
|
127
129
|
.AddItem "2"
|
128
130
|
|
@@ -150,9 +152,75 @@
|
|
150
152
|
|
151
153
|
|
152
154
|
|
153
|
-
|
155
|
+
With cb3
|
156
|
+
|
154
|
-
|
157
|
+
.AddItem "1"
|
158
|
+
|
159
|
+
.AddItem "2"
|
160
|
+
|
161
|
+
.AddItem "3"
|
162
|
+
|
163
|
+
.AddItem "4"
|
164
|
+
|
165
|
+
.AddItem "5"
|
166
|
+
|
167
|
+
.AddItem "6"
|
168
|
+
|
169
|
+
.AddItem "7"
|
170
|
+
|
171
|
+
.AddItem "8"
|
172
|
+
|
173
|
+
.AddItem "9"
|
174
|
+
|
175
|
+
.AddItem "10"
|
176
|
+
|
177
|
+
.AddItem "11"
|
178
|
+
|
179
|
+
.AddItem "12"
|
180
|
+
|
181
|
+
.AddItem "13"
|
182
|
+
|
183
|
+
.AddItem "14"
|
184
|
+
|
185
|
+
.AddItem "15"
|
186
|
+
|
187
|
+
.AddItem "16"
|
188
|
+
|
189
|
+
.AddItem "17"
|
190
|
+
|
191
|
+
.AddItem "18"
|
192
|
+
|
193
|
+
.AddItem "19"
|
194
|
+
|
195
|
+
.AddItem "20"
|
196
|
+
|
197
|
+
.AddItem "21"
|
198
|
+
|
199
|
+
.AddItem "22"
|
200
|
+
|
201
|
+
.AddItem "23"
|
202
|
+
|
203
|
+
.AddItem "24"
|
204
|
+
|
205
|
+
.AddItem "25"
|
206
|
+
|
207
|
+
.AddItem "26"
|
208
|
+
|
209
|
+
.AddItem "27"
|
210
|
+
|
211
|
+
.AddItem "28"
|
212
|
+
|
213
|
+
.AddItem "29"
|
214
|
+
|
215
|
+
.AddItem "30"
|
216
|
+
|
217
|
+
.AddItem "31"
|
218
|
+
|
219
|
+
End With
|
220
|
+
|
221
|
+
|
222
|
+
|
155
|
-
※以下、cb
|
223
|
+
※以下、cb4~も同様の記述
|
156
224
|
|
157
225
|
|
158
226
|
|
1
コード情報の補足
test
CHANGED
File without changes
|
test
CHANGED
@@ -76,31 +76,29 @@
|
|
76
76
|
|
77
77
|
|
78
78
|
|
79
|
-
With Sheet3
|
79
|
+
With Sheet3 ’プルダウンで数字を選択します
|
80
80
|
|
81
|
-
.Cells(tgtRow, 1).Value = Me.cb1.Value
|
81
|
+
.Cells(tgtRow, 1).Value = Me.cb1.Value '2021年のみ
|
82
82
|
|
83
|
-
.Cells(tgtRow,
|
83
|
+
.Cells(tgtRow, 3).Value = Me.cb3.Value '1~31 日
|
84
84
|
|
85
|
-
.Cells(tgtRow,
|
85
|
+
.Cells(tgtRow, 4).Value = Me.cb4.Value '1~24 時間
|
86
86
|
|
87
|
-
.Cells(tgtRow,
|
87
|
+
.Cells(tgtRow, 5).Value = Me.cb5.Value '1~00 分
|
88
88
|
|
89
|
-
.Cells(tgtRow,
|
89
|
+
.Cells(tgtRow, 6).Value = Me.cb6.Value '1~24 時間
|
90
90
|
|
91
|
-
.Cells(tgtRow,
|
91
|
+
.Cells(tgtRow, 7).Value = Me.cb7.Value '1~00 分
|
92
92
|
|
93
|
-
.Cells(tgtRow,
|
93
|
+
.Cells(tgtRow, 8).Value = Me.cb8.Value '1~24 時間
|
94
94
|
|
95
|
-
.Cells(tgtRow,
|
95
|
+
.Cells(tgtRow, 9).Value = Me.cb9.Value '1~00 分
|
96
96
|
|
97
|
-
.Cells(tgtRow,
|
97
|
+
.Cells(tgtRow, 10).Value = Me.cb10.Value '1~24 時間
|
98
98
|
|
99
|
-
.Cells(tgtRow, 1
|
99
|
+
.Cells(tgtRow, 11).Value = Me.cb11.Value '1~00 分
|
100
100
|
|
101
|
-
|
101
|
+
|
102
|
-
|
103
|
-
|
104
102
|
|
105
103
|
End With
|
106
104
|
|
@@ -124,7 +122,7 @@
|
|
124
122
|
|
125
123
|
With cb2
|
126
124
|
|
127
|
-
.AddItem "1"
|
125
|
+
.AddItem "1" '月選択
|
128
126
|
|
129
127
|
.AddItem "2"
|
130
128
|
|