Excel VBAでn行毎に行の選択

Excel　VBAでn行毎に行の選択

こんにちわ。
初めて質問をさせて頂きます。
今回ExcelのVBAを使ってあるシートを作成することになったのですが
その過程で分からず、詰まっております。
色々調べてみたもののVBAの知識が浅いせいか
該当する様なものは見つかりませんでした。
実行したいのはタイトルの通りです。
例として10行毎に1行ずつ選択したい場合は下記の通りです。

A列
１０行目←選択
・
・
２０行目←選択
・
・
３０行目←選択
・
・
４０行目←選択

実際にやりたいことは行を選択後に入力規則を入れたいだけなのですが
5000行近くあるので、一つ一つコードを書く場合

Range("A10,A20,A30,A40・・・").EntireRow.Select

結構な量になります・・・。
VBAなら他にもっと効率いいことができるのでは、と
自分なりに探してはいますが、どうしても見つからないので
皆様のお知恵をお借りしたいです。

よろしくお願いします。

No.1 ベストアンサー 回答者： f272 回答日時： 2010/07/03 15:16

色々なやり方があるでしょうが一例です。

Sub Macro1()
Dim i As Long
Dim r As Range
Set r = Cells(10, 1)
For i = 20 To 5000 Step 10
Set r = Union(r, Cells(i, 1))
Next i
r.EntireRow.Select
End Sub

この回答へのお礼

まさに考えてた通りの動作で感激です。

一つ一つの構文がどう動くか早速色々調べてみたいと思います

ありがとうございました

お礼日時：2010/07/03 15:42

No.3 回答者： soixante 回答日時： 2010/07/03 15:20

＃２です。

すみません。さきほどの例示コード、
入力規則の内容もですが、行の範囲も適当にアレンジしてください。

とりあえず仮で、
Range(Cells(r,1),Cells(r,10))
としておりますので。
（Ａ～Ｊ列）

No.2 回答者： soixante 回答日時： 2010/07/03 15:17

一気に選択してやろうとしているのでしょうか。

じゃなくて、一行づつ入力規則を入れて、それを繰り返せばいいです。


Sub AAA()

Dim r As Integer
Dim Rng As Range

For r = 10 To 5000 Step 10
　　　Set Rng = Range(Cells(r, 1), Cells(r, 10))

　　　With Rng.Validation
　　 .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
　　Operator:=xlBetween, Formula1:="10", Formula2:="100"
　　.IgnoreBlank = True
　　.InCellDropdown = True
　　.InputTitle = ""
　　.ErrorTitle = ""
　　.InputMessage = ""
　　.ErrorMessage = ""
　　.IMEMode = xlIMEModeNoControl
　　.ShowInput = True
　　.ShowError = True
　End With
Next r

Set Rng=Nothing
End Sub

※入力規則の内容によって、適当にアレンジください。
マクロの自動記録で見てもいいですけどね。

http://www.moug.net/tech/exvba/0050121.htm

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
↑上から３つめの項目。

この回答へのお礼

丁寧にありがとうございます

1行ずつ入力規則を入れることは

思いつきませんでした・・・。

思いついても構文が全くわかりませんでしたが＾＾；

VBAの奥深さには驚かされました

今回提示して下さった構文も一つ一つ理解行きたいと思います。

ありがとうございました！

お礼日時：2010/07/03 15:46