配列を型変換したい
配列をVariantで宣言したが、Long型に変えたいなど、型変換の需要はあります。
単純にループさせて型変換するしかなく、CLng関数のような型変換の関数は用意されていません。
配列を型変換するサンプルコード
'配列の型を変換するサンプルコード
Public Sub sample()
Dim tmp As Variant
Dim arr() As Long
'■Variant型のtmpに数値を代入
tmp = Array(1, 20, 300)
'■Variant型をLong型に型変換(代入しなおしているだけ)
For i = 0 To UBound(tmp)
ReDim Preserve arr(i)
arr(i) = tmp(i)
Next
End Sub
注意点
- 特にありません。




コメント