Excel VBA質問箱 IV

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

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


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

26709 / 76732

←次へ　｜　前へ→


	【55353】Re:SELECTIONからの範囲指定

りん

- 08/4/30(水) 5:43 -


	引用なし

	パスワード

YOUSUKE さん、おはようございます。

>以下のコードのように、下の行を指定して
>その後、SELECTION　でA列からZ列を範囲指定して、文字を入れたいのですが、
>SELECTIONでの範囲指定方法がわかりません。
>もしよろしければ、コードの書き方を教えていただけないでしょうか？
>（SELECTION以外の方法があれば、そちらでも結構です。）
>よろしくお願いします。

Selectしたいなら。
Sub Test1()
　 'セル範囲を横に26列に拡張します。省略した方（行）は元の大きさを保持します
　 Range("A65536").End(xlUp).Offset(1, 0).Resize(, 26).Select
End Sub

処理する時にSelectは不要な事が多いです（むしろしない方が処理がはやかったり）。
同じ値をいれるならば。
Sub Test2()
　 '一気に渡せる（時刻を入れてみたり）
　 Range("A65536").End(xlUp).Offset(1, 0).Resize(, 26).Value = Time
End Sub

違う値をいれるならば。
Sub test3()
　 Rpos = Range("A65536").End(xlUp).Offset(1, 0).Row
　 '行番号を取得してループします（アドレスを入れてみたり）
　 For Cpos = 1 To 26
　　　Cells(Rpos, Cpos).Value = Cells(Rpos, Cpos).Address(False, False)
　 Next
End Sub

こんな感じです。

3 hits

▼

【55352】SELECTIONからの範囲指定 YOUSUKE 08/4/30(水) 2:47