Excel VBA質問箱 IV

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

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


43406 / 76732 ←次へ | 前へ→

【38374】Re:選択された複数の離れたセルの行位置を取得
発言  ichinose  - 06/6/1(木) 9:34 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
おはようございます。

ちょっと気になったので・・・。

この方法は、

Join(MyArray, ","))

↑のセルアドレスの文字列が255文字を超えるとエラーになります。
(Excel2000、2002では確認しています)
2003ではどうでしょうか?(どなたか確認して見てください)。


>配列を使用した方法です。
>
>Sub test()
>  Dim c As Range
>  Dim MyRng As Range
>  Dim i As Long
>  Dim MyArray() As Variant
>  If TypeName(Selection) <> "Range" Then Exit Sub
>  Set MyRng = Selection
>  i = -1
>   For Each c In MyRng
>     i = i + 1
>        ReDim Preserve MyArray(0 To i)
>     MyArray(i) = c.Address(0, 0)
>   Next
>  Range(Join(MyArray, ",")).EntireRow.Copy Worksheets(2).Cells(1, 1)
>  Erase MyArray
>End Sub

よって、この方法を使うなら、255文字というリミットを意識したコードに
しなくてはなりませんね!!

以前、ここで検証したものです

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=16518;id=excel
1 hits

【38362】選択された複数の離れたセルの行位置を取得 akata 06/5/31(水) 22:10 質問
【38363】Re:選択された複数の離れたセルの行位置を... ぱっせんじゃー 06/5/31(水) 22:15 発言
【38365】Re:選択された複数の離れたセルの行位置を... ぱっせんじゃー 06/5/31(水) 22:20 発言
【38374】Re:選択された複数の離れたセルの行位置を... ichinose 06/6/1(木) 9:34 発言
【38368】Re:選択された複数の離れたセルの行位置を... Kein 06/5/31(水) 22:51 回答
【38401】Re:選択された複数の離れたセルの行位置を... akata 06/6/1(木) 23:03 発言
【38406】Re:選択された複数の離れたセルの行位置を... ichinose 06/6/2(金) 8:00 発言
【38416】Re:選択された複数の離れたセルの行位置を... Kein 06/6/2(金) 11:03 回答
【38459】Re:選択された複数の離れたセルの行位置を... akata 06/6/3(土) 13:45 お礼

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