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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) VBA ワークシート指定の1行目を選択をしたい 2 2022/08/20 18:10
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
-
4
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
5
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
6
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
9
2行おきの合計、VBAでど表現するのですか?
Excel(エクセル)
-
10
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
11
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
12
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
13
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
17
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
18
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
19
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
20
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
「無」と「未」の使い方
-
ipadのpagesでMS明朝を使う方法...
-
Excel VBA あるセルでENTERを押...
-
「これが」「これで」いいです...
-
VBAでファイルを開くときにファ...
-
Jw-cadの範囲指定で文字が選択...
-
Excel 行列が選択出来ない
-
Androidのスマホで毎回毎回ホー...
-
Word差込印刷で「テーブルを選...
-
シフトキーを使った範囲選択が...
-
大至急!
-
Excel2003にて(ツール→オプシ...
-
Simejiで作ったきせかえを消す...
-
Wordでドロップダウンリスト連動
-
Google Earth Pro(グーグルア...
-
選択と採択の違い
-
戸惑う、惑うの違いはなんですか。
-
オプションボタンとリストボッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
VBAでファイルを開くときにファ...
-
Excel VBA あるセルでENTERを押...
-
Androidのスマホで毎回毎回ホー...
-
「無」と「未」の使い方
-
Jw-cadの範囲指定で文字が選択...
-
ipadのpagesでMS明朝を使う方法...
-
Simejiで作ったきせかえを消す...
-
Excel 行列が選択出来ない
-
Excel VBAでn行毎に行の選択
-
Google Earth Pro(グーグルア...
-
「これが」「これで」いいです...
-
Excel2003にて(ツール→オプシ...
-
シフトキーを使った範囲選択が...
-
大至急!
-
仕事行きたくありません どうす...
-
ピボットテーブル 矢印が出な...
-
戸惑う、惑うの違いはなんですか。
-
Word差込印刷で「テーブルを選...
おすすめ情報