Excel のテキスト ボックスをマスターする:包括的なガイド

カーソルが変わります。

• ワークシート内の領域をクリックしてテキスト ボックスを挿入し、下にドラッグします。

• オブジェクトはデザイン モードです。オフにするには、[開発]>> [コントロール]>> [デザイン モード] をクリックします。 .

• テキスト ボックスにテキストを入力します。

注意

Shift+Enter を使用します。 ActiveX コントロールのテキスト ボックスに改行を挿入します。

スクロールバー付きの複数行テキスト ボックスの追加

• 最初に前述の方法を使用して ActiveX コントロール テキスト ボックスを作成します。
• テキスト ボックスを右クリックし、プロパティを選択します。 .

• プロパティ内 ウィンドウで [真 ] を選択します。 マルチラインとして。
• スクロールバーとして 1、2、または 3 を選択します。 。ここでは2 垂直スクロールバーを作成します。

• テキストを入力します。スクロールバーがテキスト ボックスに表示されます。

方法 4 – VBA を使用して Excel に複数のテキスト ボックスを追加する

画像をクリックすると詳細が表示されます

• 開発者>> コード>> Visual Basic に移動します。 .

• [挿入>> モジュール] を選択します。 .

• 次のコードをモジュールに挿入します。

Sub InsertMultipleTextBoxes()
 Dim ws As Worksheet
 Dim textBox As Shape
 Dim i As Integer
 Dim numTextBoxes As Integer
 Dim textArray() As String
 ' Set the worksheet where you want to insert the text boxes
 Set ws = ThisWorkbook.Sheets("4.1 VBA Multiple Box") ' Replace "4.1 VBA Multiple Box" with your actual sheet name
 ' Set the number of text boxes you want to insert
 numTextBoxes = 3 ' Change this to the desired number
 
 ' Array of different texts for each text box
 textArray = Split("Sioux City has the highest television sales,Stony Brook has the highest mobile sales,Green Bay has the highest monitor sales", ",")
 ' Loop to insert multiple text boxes
 For i = 1 To numTextBoxes
 ' Insert a text box
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=50 + (i - 1) * 200, Top:=230, Width:=150, Height:=50)
 
 ' Set the text inside the text box
 textBox.TextFrame.Characters.Text = textArray(i - 1)
 textBox.TextEffect.FontSize = 12
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
 Next i
End Sub

画像をクリックすると詳細が表示されます

• F5 を押します。 コードを実行します。

画像をクリックすると詳細が表示されます

注意

ループを使用せずに同じコードを使用して、単一のテキスト ボックスを作成します。

Sub InsertTextBox()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 Set ws = ThisWorkbook.Sheets("4. VBA") ' Replace "4. VBA" with your actual sheet name
 
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=60, Top:=230, Width:=250, Height:=80)
 
 textBox.TextFrame.Characters.Text = "Total Sales by Store:" & vbNewLine & "Green Bay has the highest total sales with $50,960, followed by Sioux City with $41,614." & vbNewLine & "Rock Island has the lowest total sales at $14,628."
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
End Sub

Excel でテキスト ボックスの書式を設定する方法

1.形状の変更とポイントの編集

• テキスト ボックスをクリックして、[図形の形式] に移動します。 .
• 図形の形式>> 図形の挿入>> 図形の編集>> 図形の変更 を選択します。 .

画像をクリックすると詳細が表示されます

選択したテキスト ボックスが変更されます。

編集ポイントを変更:

• テキスト ボックスの端をクリックします。マウス カーソルには尖ったプラス記号が表示されます。

• 図形の形式>> 図形の挿入>> 図形の編集>> ポイントの編集 を選択します。 .

画像をクリックすると詳細が表示されます

• エッジポイントをクリックしてドラッグし、エッジを移動し、形状を手動で変更します。

2.図形スタイルの変更

• テキスト ボックスを選択し、図形の形式に移動します。 タブ。
• 図形スタイルでスタイルを選択します。 .

画像をクリックすると詳細が表示されます

• クイック スタイル にアクセスします 下矢印をクリックしてください。

画像をクリックすると詳細が表示されます

• スタイルをクリックします。

画像をクリックすると詳細が表示されます

• テキストボックスが変わります。ここでは微妙な効果 - 黒、ダーク - 1
が選択されました。

3.テキストボックスの塗りつぶし色の変更

• テキスト ボックスをクリックし、[図形の形式]>> [図形のスタイル]>> [図形の塗りつぶし] を選択します。 .
• 色を選択します。

画像をクリックすると詳細が表示されます

[塗りつぶし] を選択して塗りつぶしの色を変更することもできます。  で フォント で ホーム タブ

4.境界線を削除する

テキスト ボックスをクリックし、図形の形式>> 図形のスタイル>> 図形の輪郭>> 輪郭なしを選択します。 .

画像をクリックすると詳細が表示されます

境界線が削除されます。

5.フォントのサイズ、スタイル、色の変更

• ホーム>> フォント>> フォントの色に移動します。 .

注意

色を変更したい場合は、テキスト ボックス内のテキストを選択します。

• フォントには他の編集オプションもあります。

• さまざまなワードアート スタイル にアクセスする シェイプ形式で .

画像をクリックすると詳細が表示されます

6.テキストボックス内の行間隔の変更

• テキスト全体を選択します。
• テキストを右クリックし、段落を選択します。 .

• 段落内 をクリックし、間隔を選択します。
• さまざまな行間隔オプションを選択します。
• [OK] をクリックします。 .

ここでは、6 ポイント が選択されました。

7.テキストボックスを回転する

• テキスト ボックスを選択すると、ボックスの上部に時計回りに回転するアイコンが表示されます。
• クリックしてマウス カーソルを移動すると、テキスト ボックスが回転します。

GIF を見てください。

8.テキストに合わせてテキスト ボックスのサイズを変更する

テキスト ボックスのサイズを自動的に変更してフィットさせる:

• テキスト ボックスの端をクリックして選択します。
• Ctrl+1 を押します。 図形の書式設定 を開きます。 オプション。
• テキスト オプション>> テキストボックス を選択します。
• テキスト ボックス内 、テキストに合わせて図形のサイズを変更するにチェックを入れます。 .

画像をクリックすると詳細が表示されます

高さと幅はテキストに合わせて調整されます。

画像をクリックすると詳細が表示されます

フィットして包み込むようにサイズを変更します:

• [テキストを図形内で折り返す] を選択します。 .
• 高さは調整され、幅は維持されます。

画像をクリックすると詳細が表示されます

これが出力です。

VBA を使用してサイズを変更:

• VBA エディタを開いて、モジュールに次のコードを挿入します。

Sub FitTextBoxToText()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 ' Set the worksheet
 Set ws = ThisWorkbook.Sheets("8. Resize to Fit Text")
 ' Replace "YourSheetName" with your actual sheet name
 
 ' Set the name of the text box
 Dim textBoxName As String
 textBoxName = "TextBox 1"
 ' Replace with the actual name of your text box
 
 ' Check if the text box exists
 On Error Resume Next
 Set textBox = ws.Shapes(textBoxName)
 On Error GoTo 0
 
 If Not textBox Is Nothing Then
 ' Fit the text box to its content
 textBox.TextFrame.AutoSize = True
 Else
 MsgBox "Text box not found!"
 End If
End Sub

画像をクリックすると詳細が表示されます

• F5 を押します。 コードを実行します。テキスト ボックスのサイズが変更されます。

画像をクリックすると詳細が表示されます

9. Excel でのテキスト ボックスの配置

テキスト ボックスを水平方向に整列:

• Ctrl を押しながらすべてのテキスト ボックスを選択します。

• [図形の形式]>> [オブジェクトの整列]>> [上揃え] を選択します。 .

画像をクリックすると詳細が表示されます

ボックスは水平方向に整列します。

テキスト ボックスを垂直方向に整列:

• すべてのテキスト ボックスを選択します。
• 図形の書式設定>> オブジェクトの整列>> 左揃えを選択します。 .

画像をクリックすると詳細が表示されます

これにより、テキスト ボックスが垂直方向に整列します。

画像をクリックすると詳細が表示されます

10.テキストボックスの透明度の変更

テキスト ボックスの透明度を変更するには:

• テキスト ボックスの端をクリックして選択します。
• Ctrl+1 を押します。 図形の書式設定を開きます ウィンドウ。
• 図形オプション>> 塗りつぶしと線>> 塗りつぶしを選択します。 .
• 透明度 を変更します。 カラーのレベル .

画像をクリックすると詳細が表示されます

11. Excel でのテキスト ボックスのアンカー

• テキスト ボックスの端をクリックして選択します。
• Ctrl+1 を押します。 図形の書式設定を開きます ウィンドウ。
• 形状オプション>> サイズとプロパティ>> プロパティを選択します。 .
• セルの移動やサイズ変更を行わないにチェックを入れます .

画像をクリックすると詳細が表示されます

テキスト ボックスをロックする:

• ホーム>> セル>> 書式>> シートの保護 に移動します。 .

画像をクリックすると詳細が表示されます

• [オブジェクトの編集] チェックボックスをオフにします。 保護シートで [OK] をクリックします。 .

列または行のサイズを変更しても、テキスト ボックスのサイズは変更されません。

テキスト ボックスを再度編集するには、シートの保護を解除する必要があります。

Excel でテキスト ボックスをコピーする方法

• テキスト ボックスの端をクリックして選択します。

• Ctrl+C を押します。 コピーして Ctrl+V 貼り付けます。

Excel でセルにリンクされたテキスト ボックスを取得する方法

.

• テキスト ボックスを作成します。
• ボックスの中央をクリックします。そこにテキストを入力する代わりに、数式バーを使用します。
• 「=」と入力します。 ” の後に参照したいセルを続けます。ここでは、 =$C$16 C16 にリンクします .

• Enter キーを押します。 値はテキスト ボックスに表示されます。

• テキスト ボックスをダブルクリックしてテキストを入力します。

続きを読む: セルにリンクされたテキスト ボックスを取得します

Excel でダイナミック テキスト ボックスを作成する方法

.

• 場所を挿入するセルを選択し、データ>> データ ツール>> データ検証 に移動します。 .

• データ検証中 をクリックし、[設定] を選択します。 .
• リストを選択します 許可で そしてソースに範囲を入力します。 。ここで、ソース データは B6:B13 です。 .

画像をクリックすると詳細が表示されます

• セルにドロップダウン矢印が表示されます。値を選択してください。

• C17 に次の数式を入力します。 .

=VLOOKUP(C16,B6:F13,4,TRUE)

• テキスト ボックスを挿入して選択し、「=$C$17 」と入力してセルにリンクします。 数式バー内。

続きを読む: ダイナミック テキスト ボックスを追加する

Excel でフローティング テキスト ボックスを作成する方法

• VBA ウィンドウを開きます。
• [挿入]>> [ユーザー フォーム] を選択します。 .

• ツールボックス内 、テキスト ボックス を選択します。 テキスト ボックスをドラッグ アンド ドロップします。

• 複数行を設定します  真実として 2 を選択します スクロールバー内 オプション。

• モジュール を作成する 次のコードを入力します。

Sub floating_text_box()
UserForm1.TextBox1.Text = "Monthly sales of accessories in different branches of XYZ company"
UserForm1.Show vbModeless
End Sub

画像をクリックすると詳細が表示されます

• F5 を押します。 コードを実行します。フローティング テキスト ボックスが表示されます。

• ActiveX テキスト ボックスと同様に、テキスト ボックスにテキストを入力します。

画像をクリックすると詳細が表示されます

続きを読む: フローティング テキスト ボックスの作成

Excel のテキスト ボックスにハイパーリンクを追加する方法

• テキスト ボックスを挿入します。

• ボックスに書式設定を追加します (オプション)。

• テキスト ボックスを右クリックし、[リンク] を選択します。 .

• [ハイパーリンクの挿入] でリンクの場所を選択します。 ここで、このドキュメントに配置します。 リンク先: が選択され、名前付きシートが選択されました。

• [OK] をクリックします。 .

テキストボックスはボタンとして機能します。クリックするとホームページに移動します。

注意

Ctrl キーを押しながら左クリック を使用します。 をクリックして、ハイパーリンクのあるテキスト ボックスを選択します。左クリックするだけで、リンクされた場所に移動します。

続きを読む: Excel のアンカー テキスト ボックス

Excel のテキスト ボックスに条件付き書式を適用する方法

ActiveX テキスト ボックスを使用します:

• ActiveX テキスト ボックスを作成します。
• ボックスを選択し、名前ボックスで名前を変更します。 。ここでは「ConditionalTextBox」です。 (デザイン モード コントロール内 アクティブである必要があります)

• シート名を右クリックし、コードの表示を選択します。 .

• エディターに次のコードを挿入します。

Private Sub ConditionalTextBox_Change()
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.BackColor = rgbBlack
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.ForeColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.BackColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.ForeColor = rgbBlack
End Sub

画像をクリックすると詳細が表示されます

• VBA エディタを閉じます。

値が正の場合は色が白に、ゼロまたは負の場合は黒に変わります。

注意

テキスト ボックスが空白であるか、数値以外の値が含まれている場合、塗りつぶしも黒になります。

Excel でテキスト ボックスの内容をセルの内容に変換する方法

• VBA エディタを開いてモジュールを挿入します。 .
• 次のコードを入力します。

Sub ConvertTextBoxToCell()
 Dim Sh_xRg As Range
 Dim Sh_xRow As Long
 Dim Sh_xCol As Long
 Dim Sh_xTxtBox As textBox
 Set Sh_xRg = Application.InputBox("Select a cell):", "Convert Text Box to Cell ", _
 ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
 Sh_xRow = Sh_xRg.Row
 Sh_xCol = Sh_xRg.Column
 For Each Sh_xTxtBox In ActiveSheet.TextBoxes
 Cells(Sh_xRow, Sh_xCol).Value = Sh_xTxtBox.Text
 Sh_xRow = Sh_xRow + 1
 Next
End Sub

画像をクリックすると詳細が表示されます

• F5 を押します。 コードを実行します。
• セル参照を求めるボックスが開きます。 B6 を選択します。 (テキスト ボックスを含む最初のセル)。

• [OK ] をクリックします。 テキストボックスを削除します。

続きを読む: テキストボックスをセルに変換

Excel グラフにテキスト ボックスを追加する方法

• [挿入]>> [テキスト]>> [テキスト ボックス]に移動します。 .
• これをクリックして、テキスト ボックスを追加するグラフ領域にドラッグします。

• テキスト ボックスにテキストを入力します。

Excel でテキスト ボックスを削除する方法

• テキスト ボックスを削除するには、テキスト ボックスの端をクリックして選択します。

• 削除を押します .

Excel でテキスト ボックスが表示されない場合の対処方法

• オンとオフを切り替えることができます。 Ctrl+6 を押します。 .

• Ctrl+6 を押した場合 、表示されなくなります。

練習ワークブックをダウンロード

Excel のテキスト ボックス:ナレッジ ハブ

<