Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40307 / 76732

←次へ　｜　前へ→


	【41524】Re:Cells関数の処理時間

かみちゃん - 06/8/12(土) 20:11 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>かみちゃんはプログラムの提示がありましたが
>私が試したところ「配列には割り当てられません」とか
>「型が一致しません」というエラーが出て正常動作しませんでした。

ちなみに、以下の記述をよく比較してみてください。
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

'動作確認ＯＫ
Sub test3()
　Dim Xdat() As Variant
　
　Xdat = Range("A1").Resize(, 2).Value
　Debug.Print Xdat(1, 1)
　Debug.Print Xdat(1, 2)
End Sub

'動作確認ＯＫ
Sub test4()
　Dim Xdat As Variant
　
　Xdat = Range("A1").Resize(, 2).Value
　Debug.Print Xdat(1, 1)
　Debug.Print Xdat(1, 2)
End Sub

0 hits

▼

【41495】Cells関数の処理時間 パプチ 06/8/12(土) 8:12