|
ありがとうございます!
>VBSから呼び出す前に、そのVBAの構文、ちょっとおかしいですよ。
>まず、それを直しておきましょう。
連ねた変数は同じ宣言になると思っていたのですが、違うのですね…
お恥ずかしいです。
ご指摘の部分を編集してみたのですが、VBSで呼び出すとやはり同じところで
「型が違います」とエラーが帰ってきます。
構文チェックとは、デバックのVBAコンパイルからでいいのですよね?
これでは何のエラーもありませんでした。
引き続きご指南いただけると助かります。
Public Sub before()
Dim ws0 As String
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Long, k As Long
ws0 = Format$(Date, "yyyyMM")
Set ws1 = ThisWorkbook.Worksheets(ws0)
Set ws2 = ThisWorkbook.Worksheets("日付")
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If ws1.Cells(i, 1) > ws2.Cells(2, 4) And ws1.Cells(i, 1) < ws2.Cells(3, 4) Then
MsgBox ws1.Cells(i, 1).Value
End If
Next i
For k = 1 To Range("b" & Rows.Count).End(xlUp).Row
If ws1.Cells(k, 2) > ws2.Cells(2, 4) And ws1.Cells(k, 2) < ws2.Cells(3, 4) Then
MsgBox ws1.Cells(k, 2).Value
End If
Next k
End Sub
|
|