VBA：私は、現在の日付に応じて、セルの選択を自動化したいVBAの</p> <p>と初心者だ日付

Question

で構成だけ上段にマッチ機能を使用して、セルの選択を自動化します。この目的のために、私は、行8で選択する値と、私は次のコードを試してみました

7行に時系列順に日付を持っている：

Sub selectvalues() 

Dim rtc As Double 
Dim ystdy As Date 
Dim tdy As Date 

szToday = Format(Date, "YYYYMMDD") 
tdy = szToday 
ystdy = WorksheetFunction.WorkDay(tdy, -1) 

rtc = WorksheetFunction.Match(ystdy, Range("A7", "ZZ7"), 0) 

Cells(8, rtc).Select 


End Sub 

をしかし、私は

13 error on execution time, types doesn't match

を取得します

誰でも助けてくれますか？

ありがとうございました。

Answer 1

あなたの場合、特定の値を見つけようとしているので、Find関数がうまく機能する可能性があります。

、以下のコードのコメント内の説明を、コードを試してみてください。

Option Explicit 

Sub selectvalues() 

Dim rtc As Variant 
Dim ystdy As Date 
Dim tdy As Date 
Dim FindRng As Range 

tdy = Date 
ystdy = WorksheetFunction.WorkDay(tdy, -1) 

' use Find function 
Set FindRng = Range("A7", "ZZ7").Find(What:=ystdy, LookIn:=xlValues, lookat:=xlWhole) 

If Not FindRng Is Nothing Then ' see that find was successful 
    FindRng.Select 
Else 
    MsgBox "Error, unable to match " & ystdy & " in the specified range", vbCritical 
End If 

End Sub