VBAの日付比較

Question

2枚あります。最初のシートの日付範囲（AK）から最大値を選び、2番目のシートの指定された日付と比較して、NEwとOLDを印刷したいとします。しかし、私の数式はうまくいかず、私はVBAを初めて使っています。コードを使用した後

マイ式

Set Rng = OldSheet.Range("AK2:AK" & OldLastRow) 

'Worksheet function Max returns the Max value in a range 
dblmax = Application.WorksheetFunction.Max(Rng) 

With NewSheet 

'Determine last row in col BG 
NewLastRow = .Cells(.Rows.count, "A").End(xlUp).Row 

.Range("BL2:BL" & NewLastRow).Formula = "=IF(AK2>dblmax,""NEW"",""OLD"")" 

、dblmaxはdblmaxとして印刷されます。

Answer 1

dblmaxが変数VBAであるので、VBAでそれを評価し、あなたがExcelに渡す式に連結します

.Range("BL2:BL" & NewLastRow).Formula = "=IF(AK2>" & dblmax & ",""NEW"",""OLD"")" 
               ^^^^^^^^^^^^^^