Excelでセルを正方形にする方法は？

時々、ワークフロー図や間取り図を効果的に作成するために、ワークシート内で正方形のセルが必要になることがあります。しかし、行の高さと列の幅が異なる単位で測定されるため、セルを正方形に調整するのは難しい場合があります。この記事では、両方の寸法を均等に調整し、Excelスプレッドシートで正方形のセルを簡単に実現するための実用的なヒントを提供します。

• 行の高さと列の幅を調整して複数のセルを正方形にする
• Kutools for Excelでセルを簡単に正方形にする
• VBAコードを使用して複数のセルを正方形にする

行の高さと列の幅を調整して複数のセルを正方形にする

Excelでセルを正方形にするには、次のように列幅と行の高さを調整できます：

1. 正方形にしたいセルを選択します。現在のワークシート内のすべてのセルを正方形にするには、「Ctrl」+「A」を押してすべてのセルを選択します。
2. 「ホーム」タブで、「書式」>「行の高さ」を選択します。

   

3. 「行の高さ」ダイアログボックスで、行の高さを「72」に変更し、「OK」をクリックして変更を保存します。

   

4. 「書式」>「列の幅」を選択して、列幅ダイアログボックスを開きます。
5. 「列の幅」ダイアログボックスで、デフォルトの数値を「12」に変更し、「OK」をクリックして変更を保存します。

   

選択したセルは今や正方形です。

Kutools for Excelで複数のセルを正方形にする

上記の方法では、行の高さはポイントで測定され、列の幅は文字ベースであるため、完全な正方形のセルを作るのは難しい場合があります。そこで、私たちは「Kutools」の「セルサイズの調整」機能を強くお勧めします。このツールは4つの単位タイプを提供し、行の高さと列の幅を同じ値に設定できるため、選択したセルを簡単に正方形にすることができます。

「Kutools for Excel」をインストール後、「Kutools」>「書式」>「セルサイズの調整」を選択してこの機能を有効にします。

サイズを調整したいセルを選択し、必要な単位タイプを指定し、「行の高さ」と「列の幅」のチェックボックスをオンにして同じ値を入力し、最後に「OK」をクリックして設定を保存します。

これで、選択範囲内のすべてのセルが正方形になります。

VBAコードを使用して複数のセルを正方形にする

インチを単位としてセルサイズを調整したい場合、次のVBAコードが役立ちます。

1. 正方形にしたいセルを選択します。
2. 「Alt」+「F11」を押してコードエディターを開きます。「挿入」>「モジュール」をクリックし、以下のコードをモジュールに入力します：

   Sub MakeSquare()
   'Updated by Extendoffice 2024/07/15
   Dim WPChar As Double
   Dim DInch As Double
   Dim Temp As String
   Temp = InputBox("Height and width in inches?")
   DInch = Val(Temp)
   If DInch > 0 And DInch < 2.5 Then
   For Each c In ActiveWindow.RangeSelection.Columns
   WPChar = c.Width / c.ColumnWidth
   c.ColumnWidth = ((DInch * 72) / WPChar)
   Next c
   For Each r In ActiveWindow.RangeSelection.Rows
   r.RowHeight = (DInch * 72)
   Next r
   End If
   End Sub

3. 「F5」を押してコードを実行します。入力ダイアログボックスが表示されたら、行の高さと列の幅を設定する数字を入力し、「OK」をクリックします。

   

選択したセルは今や正方形です。

関連記事：

• Excelでセルサイズをcm（センチメートル）で設定する方法は？