|
こんにちは。かみちゃん です。
>かみちゃんはプログラムの提示がありましたが
>私が試したところ「配列には割り当てられません」とか
>「型が一致しません」というエラーが出て正常動作しませんでした。
ちなみに、以下の記述をよく比較してみてください。
A1、B1セルに文字列ではなく数値を適当に入れて試していただけるとわかると思います。
私も同じ悩みを持った経験がありますから・・・・
Option Explicit
'「配列には割り当てられません」のコード例
Sub test()
Dim Xdat(1, 2) As Variant
Xdat = Range("A1").Resize(, 2).Value
Debug.Print Xdat(1, 1)
Debug.Print Xdat(1, 2)
End Sub
'「型が一致しません」のコード例
Sub test2()
Dim Xdat() As String
Xdat = Range("A1").Resize(, 2).Value
Debug.Print Xdat(1, 1)
Debug.Print Xdat(1, 2)
End Sub
'動作確認OK
Sub test3()
Dim Xdat() As Variant
Xdat = Range("A1").Resize(, 2).Value
Debug.Print Xdat(1, 1)
Debug.Print Xdat(1, 2)
End Sub
'動作確認OK
Sub test4()
Dim Xdat As Variant
Xdat = Range("A1").Resize(, 2).Value
Debug.Print Xdat(1, 1)
Debug.Print Xdat(1, 2)
End Sub
|
|