ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Excelでコマンドボタンで空白の新しい行を自動的に挿入する方法

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

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


Excelの空白の行を他のすべての行に簡単に挿入:

Excel用Kutoolsの空白行と列の挿入ユーティリティを使用すると、ExcelのすべてのX行に空白行を挿入できます。 スクリーンショットを見る:

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に60日に制限なしで試してみてください。 今すぐ無料トライアルをダウンロードする

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excel-最高のOffice生産性向上ツールはExcelの問題のほとんどを解決します
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 会社で簡単に展開できます。 フル機能の60日間の無料トライアル。

矢印青い右の泡 コマンドボタンで空白の新しい行を自動的に挿入する


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

1。 まず、コマンドボタンを挿入する必要があります。 クリックしてください ディベロッパー > インセット > コマンドボタン(ActiveXコントロール)。 スクリーンショットを見る:

2。 次に、新しい行を追加するために必要なワークシートにコマンドボタンを描画し、コマンドボタンを右クリックして プロパティ 右クリックメニューから選択します。

3。 の中に プロパティ ダイアログボックスで、コマンドボタンの表示されたテキストを キャプション 下のボックス 分類された タブをクリックし、ダイアログボックスを閉じます。

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

4。 もう一度コマンドボタンを右クリックし、[OK]をクリックします。 コードを表示 右クリックメニューから選択します。

5。 そうして アプリケーション用Microsoft Visual Basic ウィンドウで、元のコードを以下のVBAコードに置き換えてください コード 窓。

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。 押す 他の + Q キーを同時に押して アプリケーション用Microsoft Visual Basic 窓。 そして、 デザインモードディベロッパー をクリックします。

7。 挿入されたコマンドボタンをクリックし、 Kutools for Excel ダイアログボックスが表示されます。 空白の新しい行を追加する特定の行番号を入力してから、 OK ボタン。 スクリーンショットを見る:

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


矢印青い右の泡関連記事:


Kutools for Excel-最高のOffice生産性向上ツールにより、生産性が80%向上

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の60日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JW · 4 months ago
    Yes, I played with the script and it worked for me. You just add the row number you want (I chose row 6), but I'll be shocked if it's allowed to be published.

    Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    Rows(rowNum & "6").Insert Shift:=xlDown
    End Sub
  • To post as a guest, your comment is unpublished.
    Tarl · 4 months ago
    Is there a way to have the new row keep the formatting of the row below instead of the row above?
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Tarl,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Simon · 10 months ago
    Is there a way to add an Insert Row button and have the new rows keep the cells merged/formatted as they are in the rest of a table?
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Simon,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Michelle S · 1 years ago
    I'm having the same issue as Kim - When the sheet is unprotected it adds the row with the correct formatting and correct formulas. Once the sheet is protected it doesn't copy down the formulas. Any thoughts?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Michelle,
      By default, a protected worksheet does not allow to insert blank row.
      Therefore, the VBA code can't work in that case.
  • To post as a guest, your comment is unpublished.
    Kim · 2 years ago
    Hi

    I am using this code but it is not bringing down the formulas from the row before, can you help please.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Dear Kim,

      Please insert a Table with the range you will insert blank rows inside. After that, when inserting new row, the formula will bring down automatically.

      Best Regards, Crystal
      • To post as a guest, your comment is unpublished.
        Robert · 11 months ago
        Can you provide an example? Not following what you're say here. Thanks
        • To post as a guest, your comment is unpublished.
          crystal · 11 months ago
          Hi,
          Please convert your range to a table range in order to bring down the formula automatically when inserting new rows. See screenshot:
  • To post as a guest, your comment is unpublished.
    Lydia · 2 years ago
    Could anyone advise on how can I amend this to automatically add the new row to the bottom of an excel table?