類型不匹配錯誤（VBA）

Question

我得到類型不匹配的錯誤在這部分代碼的最後一行：

Dim test As Object 
Set test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2 

我該如何解決呢？

Answer 1

VBA中沒有類型層次結構，Object用於對象實例，它不能保存原始類型。

使用Long

Dim test As long 
test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2