![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
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(エクセル)
-
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
-
4
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
5
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
6
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
7
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
8
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
9
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
12
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
13
エクセル2007で1列おきに列を選択する方法をお教えください。
Excel(エクセル)
-
14
VBAで文字列を数値に変換したい
Excel(エクセル)
-
15
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
16
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
17
エクセルマクロで偶数行(又は奇数行)にあるセルを選択したい
Excel(エクセル)
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
20
VBAで10行おきにセルの下に罫線を引く方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルである行以下全部を削...
-
Wordでドロップダウンリスト連動
-
「無」と「未」の使い方
-
VBAでファイルを開くときにファ...
-
Jw-cadの範囲指定で文字が選択...
-
ipadのpagesでMS明朝を使う方法...
-
Excel VBA あるセルでENTERを押...
-
「これが」「これで」いいです...
-
大至急!
-
EXCEL VBAで全選択範囲の解除
-
Excel 行列が選択出来ない
-
EXCELピボットテーブル(複数ア...
-
エクセルの重なってしまったエ...
-
シフトキーを使った範囲選択が...
-
Word差し込み印刷 初期ディレク...
-
Simejiで作ったきせかえを消す...
-
Google Earth Pro(グーグルア...
-
Excel VBAでn行毎に行の選択
-
Androidのスマホで毎回毎回ホー...
-
マクロでリンクを更新しないで開く
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
「無」と「未」の使い方
-
VBAでファイルを開くときにファ...
-
ipadのpagesでMS明朝を使う方法...
-
Excel VBA あるセルでENTERを押...
-
Jw-cadの範囲指定で文字が選択...
-
Wordでドロップダウンリスト連動
-
大至急!
-
Androidのスマホで毎回毎回ホー...
-
「これが」「これで」いいです...
-
Excel 行列が選択出来ない
-
Google Earth Pro(グーグルア...
-
エクセルの重なってしまったエ...
-
シフトキーを使った範囲選択が...
-
Simejiで作ったきせかえを消す...
-
Excel VBAでn行毎に行の選択
-
選択と採択の違い
-
EXCELピボットテーブル(複数ア...
-
WORDでテキストを全て選択し一...
おすすめ情報