回答編集履歴
1
誤字の修正
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
Set rngKey = rngList.Columns("E").Cells
|
|
22
22
|
|
|
23
|
-
strBegin = CLng(CDate(Me.TextBox2.
|
|
23
|
+
strBegin = CLng(CDate(Me.TextBox2.Text)) & Me.TextBox1.Text
|
|
24
24
|
|
|
25
25
|
strEnd = CLng(CDate(Me.TextBox3.Text)) & Me.TextBox1.Text
|
|
26
26
|
|