Excel VBA質問箱 IV

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

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


4662 / 13646 ツリー ←次へ | 前へ→

【55352】SELECTIONからの範囲指定 YOUSUKE 08/4/30(水) 2:47 質問[未読]
【55353】Re:SELECTIONからの範囲指定 りん 08/4/30(水) 5:43 回答[未読]
【55361】Re:SELECTIONからの範囲指定 YOUSUKE 08/4/30(水) 19:21 お礼[未読]

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

引用なし
パスワード
   一番したの行を指定して、
A列からZ列まで、特定の文字を入れたいと考えています。
以下のコードのように、下の行を指定して
その後、SELECTION でA列からZ列を範囲指定して、文字を入れたいのですが、
SELECTIONでの範囲指定方法がわかりません。
もしよろしければ、コードの書き方を教えていただけないでしょうか?
(SELECTION以外の方法があれば、そちらでも結構です。)
よろしくお願いします。

Range("A65536").End(xlUp).Offset(1, 0).Select

【55353】Re:SELECTIONからの範囲指定
回答  りん E-MAIL  - 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

こんな感じです。

【55361】Re:SELECTIONからの範囲指定
お礼  YOUSUKE  - 08/4/30(水) 19:21 -

引用なし
パスワード
   ご回答ありがとうございます。
ご丁寧に違う文字の入力方法も教えていただきまして、とても参考になりました。
これで、私がやりたかった事はなんとかできそうです。 ありがとうございました。

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