excel - タイプの不一致エラー（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