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

'動作確認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

0 hits

【41495】Cells関数の処理時間 パプチ 06/8/12(土) 8:12 発言
【41496】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 8:25 発言
【41509】Re:Cells関数の処理時間 パプチ 06/8/12(土) 15:59 発言
【41510】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 16:09 発言
【41513】Re:Cells関数の処理時間 パプチ 06/8/12(土) 17:33 発言
【41514】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 18:01 発言
【41516】Re:Cells関数の処理時間 Kein 06/8/12(土) 18:11 回答
【41522】Re:Cells関数の処理時間 パプチ 06/8/12(土) 19:56 お礼
【41523】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 20:05 発言
【41524】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 20:11 発言
【41530】Re:Cells関数の処理時間 パプチ 06/8/12(土) 21:36 お礼
【41525】Re:Cells関数の処理時間 Kein 06/8/12(土) 20:12 発言
【41520】Re:Cells関数の処理時間 Hirofumi 06/8/12(土) 19:44 回答
【41527】Re:Cells関数の処理時間 パプチ 06/8/12(土) 20:45 お礼

40307 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free