
マクロ初心者です。
エクセルで出納帳を作っています。
必要に応じて行を追加挿入する為に、ボタンを作成しそこからアクティブセルのある行の次の行に
行を追加し計算式をコピーするマクロを入れてあります。
(ネットで見つけたコードを参考にしています。)
一行挿入して数式をコピーさせるコードは下記のとおりです。
(挿入ボタンクリック、確認してから行が挿入するようになっています)
列はA列からP列まで使用、
A、B、C、D、H、K、M、N、O、Pの各列に計算式が入っており、挿入した行の各列の数式をコピーさせています。
ちなみに、Eはドロップダウンリストから選択、F、G、I、J列は手入力で必要なデータ等を入力しています。
アクティブセルがある行はセル色が緑になるようになっております。
画像が小さくて見づらいかもしれません。
申し訳ありません。
Sub 追加確認()
If MsgBox("実行してよろしいですか?", vbOKCancel) = vbOK Then
insert_click
End If
End Sub
Sub insert_click()
Sub insert_click()
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Unprotect Password:="0000"
Dim wgyou As Long
wgyou = ActiveCell.Row
If wgyou < 2 Then Exit Sub
Application.CutCopyMode = False
Range(wgyou + 1 & ":" & wgyou + 1).Select
Selection.EntireRow.Insert
Range("A" & wgyou & ":D" & wgyou).Copy
Range("A" & wgyou + 1 & ":D" & wgyou + 1).PasteSpecial Paste:=xlPasteFormulas
Range("H" & wgyou).Copy
Range("H" & wgyou + 1).PasteSpecial Paste:=xlPasteFormulas
Range("K" & wgyou & ":P" & wgyou).Copy
Range("K" & wgyou + 1 & ":P" & wgyou + 1).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Range("A" & wgyou + 1).Select
ThisWorkbook.ActiveSheet.Protect Password:="0000"
Application.ScreenUpdating = True
End Sub
複数行追加する場合、時間も掛かり一行ずつ追加するのに不便が生じている為
「行挿入ボタン」⇒「挿入の確認」⇒「挿入する行数の指定」⇒「指定した行数を挿入しアクティブセルのある行の数式を挿入した行数分コピーさせる」
ができるコードに変更したいと思っています。
複数行挿入するコードもネットを参照して入れてみましたが
いくら調べても複数行挿入と計算式をコピーさせることができません。
重複しますが、上記のコードを指定した行数分行行を挿入し、数式をコピーさせるように変更させたく思います。
分かりづらい説明で大変申し訳ありませんが、
何卒お力添えいただけますようよろしくお願いいたします。

A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ご質問文でよくわからないところがありますが・・・
とりあえずこんな感じでしょうか?
(変更というよりは別の形ですが…)
Sub TEST()
Dim str As String, v As Long
Dim rng As Range, c As Range
Set c = ActiveCell
str = InputBox("挿入行数を入力してください", "行の追加", "1")
If c.Row > 1 And IsNumeric(str) Then
v = Int(Val(str))
If v > 0 Then
ActiveSheet.Unprotect Password:="0000"
Set rng = c.Offset(1, 0).Resize(v, 1).EntireRow
c.EntireRow.Copy
rng.Insert
rng.Offset(-v, 0).SpecialCells(xlCellTypeConstants).ClearContents
c.Select
ActiveSheet.Protect Password:="0000"
End If
End If
End Sub
※ ご提示のコードの変更で実現なさりたい場合は、ご提示の内容を指定行数分繰り返すようにすればよろしいかと思います。
繰り返しは、例えば For ~~ Next などで実現できます。
fujillinさん
分かりづらい質問ですみません。
まさにやりたいと思っていた通りにできました!
アドバイスいただいたFor~~Nextでもできるよう色々勉強してみます。
有難うございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
【エクセル】行挿入で数式もいっしょにコピーしたい
Excel(エクセル)
-
マクロ 行挿入で数式も反映する方法
Excel(エクセル)
-
-
4
エクセルで行挿入した際、自動的に計算式も入力される方法を教えて下さい。
Excel(エクセル)
-
5
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
6
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
7
excelで任意のセルを指定回数コピーペーストする方法を教えてください
Excel(エクセル)
-
8
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
9
特定の条件の時に行を挿入したい
Excel(エクセル)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
Excel VBAでオートフィルタで抽...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
Access2003レポート:最終ペー...
-
VBAで入力の結果を他のセルに反...
-
エクセルで空白行を削除する ...
-
VBA 複数列コンボボックス 値の...
-
エクセルマクロでの行削除の方...
-
マクロにて指定の文字間の文字...
-
Excel97 指定した行だけマク...
-
オートフィルターの複数条件検...
-
EXCEL VBAでA列にある空白行よ...
-
エクセルのマクロについて質問...
-
Excel マクロ 検索結果を別シ...
-
vbaエクセルマクロについて she...
-
Excelで、あるセルの値に応じて...
-
VB.net
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
エクセルで空白行を削除する ...
-
Excel VBAでオートフィルタで抽...
-
VB.net
-
エクセルのデータがない行には...
-
列から特定の文字列検索→該当以...
-
【VBA】条件に一致しない行を削...
-
Excel マクロ 検索結果を別シ...
-
マクロにて指定の文字間の文字...
-
エクセルで階層図を作る方法
-
EXCEL VBAでA列にある空白行よ...
-
VBAで入力の結果を他のセルに反...
-
各個体に対する平均値の自動計...
-
vbaエクセルマクロについて she...
-
テキストファイル読み込みにお...
-
Excel97 指定した行だけマク...
-
コマンドボタンでの自動計算マ...
-
Access2003レポート:最終ペー...
おすすめ情報