
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も見ています
-
みんなに挑戦してほしい「色彩検定」
これまで多くの方々が受検したが「色彩検定」。その目的や活用法は人それぞれ。今回は、色彩検定に影響を受けた男女3名にインタビュー。
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
4
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
5
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
6
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
7
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
8
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
9
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
10
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
11
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
18
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
19
エクセルで、2行おきに1行追加する方法
Excel(エクセル)
-
20
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
「これが」「これで」いいです...
-
5
VBAでファイルを開くときにファ...
-
6
Jw-cadの範囲指定で文字が選択...
-
7
シフトキーを使った範囲選択が...
-
8
Simejiで作ったきせかえを消す...
-
9
Excel2003にて(ツール→オプシ...
-
10
「無」と「未」の使い方
-
11
Excel 行列が選択出来ない
-
12
Wordのオートシェイプの吹...
-
13
Excel VBAでn行毎に行の選択
-
14
正しい選択とは何か?
-
15
エクセルの重なってしまったエ...
-
16
スナップショットをWordに張り...
-
17
word 差し込み文書 選択範囲が...
-
18
リストボックスのプロパティ「...
-
19
OutlookExpressメール本文が選...
-
20
ピボットテーブル 矢印が出な...
おすすめ情報
公式facebook
公式twitter