回答編集履歴
1
誤字の修正
answer
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
|
|
10
10
|
Set rngList = Worksheets("Sheet1").Range("C1").CurrentRegion
|
|
11
11
|
Set rngKey = rngList.Columns("E").Cells
|
|
12
|
-
strBegin = CLng(CDate(Me.TextBox2.
|
|
12
|
+
strBegin = CLng(CDate(Me.TextBox2.Text)) & Me.TextBox1.Text
|
|
13
13
|
strEnd = CLng(CDate(Me.TextBox3.Text)) & Me.TextBox1.Text
|
|
14
14
|
|
|
15
15
|
'検索
|