| |
こんばんは。
>例えば
>Ａ列の２・６・１０・・・１８のセル
>を選択して
>名前の定義「ＡＡ」とするコードを教えてください
>
>For i = 3 To 14 Step 3
> R = R + Cells(i, 2).Address(0, 0) & ","
>Next i
> Range(R).Select
最後の カンマについては、UO3さんのコードを見ていただき修正して頂くとして・・、
正しく作成できた 文字列 R でも文字列長が255を超えると
Range(R)では、正しくRangeオブジェクトが取得できずにエラーになります。
セルの個数が255を超えるではなく、あくまでもRの文字列長です。
AA12345,AA12347 なんてセルアドレスだと二つのセルで15文字取られてしまいます。
Unionメソッドを使えばよいですが、これは、セルの数が増えてくると
処理時間がかかりますから、255を超えないアドレス文字列とUnionメソッドを
組み合わせてRangeオブジェクトを取得することも場合によっては
考慮してみてください。
>では、最終のセル位置の後ろに「，」が災いします。
>
>良い方法を教えてください。
>
>この後、飛び飛びセルの選択の「名前の定義」をしたいのですが。
>よろしくお願いします。
>
>
|
|
ichinose
- 11/11/19(土) 18:56 -
