回答編集履歴
1
追記
answer
CHANGED
|
@@ -10,4 +10,19 @@
|
|
|
10
10
|
"kr_recoponloginlog2.kigyo_cd='130' and " & _
|
|
11
11
|
"kr_recoponloginlog2.loginday BETWEEN '" & sday & " 00:00:00' " & _
|
|
12
12
|
"AND '" & fday & " 00:00:00'"
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
---
|
|
16
|
+
下記の２行もエラーになるので、修正ですね。
|
|
17
|
+
|
|
18
|
+
```vba
|
|
19
|
+
Set wb = ThisWorkbook
|
|
20
|
+
Set sh = wb.Worksheets("条件")
|
|
21
|
+
|
|
22
|
+
'①期間内ログイン者抽出
|
|
23
|
+
Dim login As String
|
|
24
|
+
'sday = wb.sh.Range("D2")
|
|
25
|
+
sday = sh.Range("D2").Value
|
|
26
|
+
'fday = wb.sh.Range("D3")
|
|
27
|
+
fday = sh.Range("D3").Value
|
|
13
28
|
```
|