Excelでコマンドボタンをクリックして新しい空白行を自動的に挿入するにはどうすればよいですか？

多くの場合、ワークシート内の指定された位置に新しい空白行を挿入する必要があります。この記事では、Excelでコマンドボタンをクリックすることで新しい空白行を自動的に挿入する方法をご紹介します。

コマンドボタンで新しい空白行を自動的に挿入

コマンドボタンで新しい空白行を自動的に挿入

以下のVBAコードを実行すると、コマンドボタンをクリックして新しい空白行を挿入できます。次の手順に従ってください。

1. まず、コマンドボタンを挿入する必要があります。[Developer（開発）] → [Insert（挿入）] → [Command Button (ActiveX Control)（コマンドボタン（ActiveXコントロール））] をクリックしてください。スクリーンショットをご覧ください：

2. 次に、新しい行を追加したいワークシート上にコマンドボタンを描画し、右クリックして表示されるメニューから[Properties（プロパティ）] を選択します。

3. [Properties（プロパティ）] ダイアログボックスで、[Categorized（カテゴリ別）] タブの下にある[Caption（キャプション）] ボックスにコマンドボタンに表示するテキストを入力し、ダイアログボックスを閉じます。

以下のスクリーンショットに示すように、コマンドボタンに表示されるテキストが変更されていることが確認できます。

4. コマンドボタンを再度右クリックし、表示されるメニューから[View Code（コードの表示）] を選択します。

5. [Microsoft Visual Basic for Applications] ウィンドウが開きますので、元のコードを以下のVBAコードに置き換えて、[Code（コード）] ウィンドウに貼り付けてください。

VBAコード: コマンドボタンで新しい空白行を自動的に挿入

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

注意: このコードでは、CommanButton1は作成したコマンドボタンの名前です。

6. [Alt] + [Q] キーを同時に押して、[Microsoft Visual Basic for Applications] ウィンドウを閉じます。そして、[Developer（開発）] タブの下にある[Design Mode（デザインモード）] をオフにしてください。

7. 挿入したコマンドボタンをクリックすると、Kutools for Excelのダイアログボックスがポップアップ表示されます。新しい空白行を追加したい行番号を入力し、[OK] ボタンをクリックしてください。スクリーンショットをご覧ください：

以下のスクリーンショットに示すように、新しい空白行がワークシートの指定された位置に挿入されます。また、上のセルの書式設定が保持されます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• ExcelでアクティブなワークシートをPDFファイルとして保存するためにコマンドボタンを使用するにはどうすればよいですか？
• Excelでセルを3Dボタンのように見せるにはどうすればよいですか？
• Excelで特定のセル値に基づいてコマンドボタンを非表示または再表示するにはどうすればよいですか？