
Excel VBAでn行毎に行の選択
こんにちわ。
初めて質問をさせて頂きます。
今回ExcelのVBAを使ってあるシートを作成することになったのですが
その過程で分からず、詰まっております。
色々調べてみたもののVBAの知識が浅いせいか
該当する様なものは見つかりませんでした。
実行したいのはタイトルの通りです。
例として10行毎に1行ずつ選択したい場合は下記の通りです。
A列
10行目←選択
・
・
20行目←選択
・
・
30行目←選択
・
・
40行目←選択
実際にやりたいことは行を選択後に入力規則を入れたいだけなのですが
5000行近くあるので、一つ一つコードを書く場合
Range("A10,A20,A30,A40・・・").EntireRow.Select
結構な量になります・・・。
VBAなら他にもっと効率いいことができるのでは、と
自分なりに探してはいますが、どうしても見つからないので
皆様のお知恵をお借りしたいです。
よろしくお願いします。
No.3
- 回答日時:
#2です。
すみません。さきほどの例示コード、
入力規則の内容もですが、行の範囲も適当にアレンジしてください。
とりあえず仮で、
Range(Cells(r,1),Cells(r,10))
としておりますので。
(A~J列)
No.2
- 回答日時:
一気に選択してやろうとしているのでしょうか。
じゃなくて、一行づつ入力規則を入れて、それを繰り返せばいいです。
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 …
↑上から3つめの項目。
丁寧にありがとうございます
1行ずつ入力規則を入れることは
思いつきませんでした・・・。
思いついても構文が全くわかりませんでしたが^^;
VBAの奥深さには驚かされました
今回提示して下さった構文も一つ一つ理解行きたいと思います。
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
-
4
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
5
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
6
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
7
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
8
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
9
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
10
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
11
VBAで10行おきにセルの下に罫線を引く方法
Visual Basic(VBA)
-
12
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
13
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
15
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
16
エクセル 4行ごとに線を引きたい
Excel(エクセル)
-
17
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
18
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
19
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
20
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
Excel VBA あるセルでENTERを押...
-
5
「無」と「未」の使い方
-
6
Excel VBAでn行毎に行の選択
-
7
Excel2003にて(ツール→オプシ...
-
8
Excel 行列が選択出来ない
-
9
「これが」「これで」いいです...
-
10
リストボックスのプロパティ「...
-
11
Simejiで作ったきせかえを消す...
-
12
Jw-cadの範囲指定で文字が選択...
-
13
大至急!
-
14
シフトキーを使った範囲選択が...
-
15
ピボットテーブル 矢印が出な...
-
16
エクセルVBAの線オブジェクト一...
-
17
選択と採択の違い
-
18
Wordのオートシェイプの吹...
-
19
Word 文字の向きを選択できない
-
20
マクロでリンクを更新しないで開く
おすすめ情報
公式facebook
公式twitter