メッセージボックスをポップアップして、セルの範囲またはセル値をExcelに表示するにはどうすればよいですか？
場合によっては、選択した範囲スコープを思い出したり、指定した範囲のすべての値を表示したりする必要があります。 この記事では、メッセージボックスをポップアップして、選択したセル参照または詳細なセル値をExcelに表示する方法を説明します。
メッセージボックスをポップアップして、VBAコードを含むセルの範囲を表示します
VBAコードで指定された範囲の値を表示するためのポップアップメッセージボックス
メッセージボックスをポップアップして、VBAコードを含むセルの範囲を表示します
次のVBAコードは、ポップアップメッセージボックスに選択した範囲スコープを表示するのに役立ちます。 次のようにしてください。
1.ワークシートでセルの範囲を選択した後、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。
VBAコード：セルの範囲を表示するメッセージボックス
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3。 プレス F5 コードを実行するためのキー。 次に、選択したセルの範囲スコープが内部に表示されたメッセージボックスがポップアップ表示されます。
VBAコードで指定された範囲の値を表示するためのポップアップメッセージボックス
以下のスクリーンショットに示すように、範囲A1：D13のすべてのセル値を表示するためにメッセージボックスをポップアップする必要があるとします。 以下のVBAコードを実行してください。
1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。
VBAコード：選択したセルの値をExcelで表示するメッセージボックス
Sub mesage()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub3。 プレス F5 ポップアップでコードを実行するためのキー Kutools for Excel ダイアログボックスで、メッセージボックスにセル値を表示するために必要な範囲を選択し、[ OK ボタン。 スクリーンショットを参照してください：
次に、下のスクリーンショットに示すようなメッセージボックスが表示され、指定した範囲のすべてのセル値がメッセージボックスに表示されます。
関連記事:
- Excelで一定時間後にメッセージボックスを自動的に閉じるメッセージボックスタイマーを作成するにはどうすればよいですか？
- Excelで特定のセルをクリックしたときにメッセージボックスをポップアップするにはどうすればよいですか？
- Excelのメッセージボックスからテキストをコピーするにはどうすればよいですか？
- Excelで指定したワークシートをアクティブ化/開くときにメッセージボックスをポップアップするにはどうすればよいですか？
- Excelでセル値が範囲内で変化した場合にメッセージボックスをポップアップするにはどうすればよいですか？
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
