Microsoft Excelでは、

最初の3行と最初の4列（左上隅に12個のセル）の高さを、これらのセルが正方形になるようにしたいと思います。これをどのように行うことができますか？

驚くべきことに、Excelのコメント：

Row height: 15
Column width: 8.43

したがって、これらは同じ規模ではありません。

両方を8.43にすると、次のようになります。

さて、どうすればいいですか？

もう1つの方法...ビューをページレイアウトに変更します。これにより、グリッドスケールがインチに変更され、高さと幅の両方を同じ値（25インチなど）に設定できます。IMOページレイアウトは、スプレッドシートの外観を操作するための最適な標準ビューです。

以下に、両方のビューの実際の寸法の例を示します。

すべて（または必要な行/列）を選択し、ドラッグして目的のサイズに変更します。

1. 列幅を変更するには、列ヘッダーの端をドラッグします。正確なピクセル数のツールチップが表示されます。
2. ピクセル値を覚えておいてください！
3. 行ヘッダーの端をドラッグして行の高さを変更すると、同じように機能します。
4. 同じピクセル値までドラッグします。

できた！

Excelの列幅は、標準スタイルのセルに収まるゼロの数（0）で測定されます。ポイント（行の高さの測定方法）に変換するには、

http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/

正確である必要がない場合は、ただ目で見てください。眼球運動よりも近づける必要がある場合は、シートの描画ツールバーから四角形を配置してサイズを調整します。10 x 10にする場合は、次のようなコードを使用します。

sheet1.Shapes(1).Height = 10
sheet1.Shapes(1).Width = 10
sheet1.Shapes(1).Top = sheet1.Shapes(1).TopLeftCell.Top
sheet1.Shapes(1).Left = sheet1.Shapes(1).TopLeftCell.Left

次に、正方形に合うように行と列を手動でサイズ設定し、高さと列幅を読み取ることができます。

VBAは、このような単純な結果に対してはやや過剰に思えます。ドラッグして行/列サイズを変更するときにクリックしてホールドすると、ピクセル単位のサイズが括弧内に表示されます。これらの単位はスケーリングされないため、行と列のサイズを同じピクセルに設定すると、正方形になります。もちろん、これは手動のプロセスです。しかし、同等のサイズを見つけて、行/列の範囲を選択し、すべてのサイズを一度に設定できます。

シート全体に対してこれを実行したい場合は、このトリックを使用できます-とにかく役立つかもしれません：列見出しAの左側のボックスをクリックしてすべてのセルを選択します。列ヘッダーの区切り線の1つをクリックして、目的のサイズまでドラッグし、結果のセル幅のピクセル数に注意します（これを示すExcel 2007を使用しています）。行ラベル区切り線のいずれかで同じ操作を行い、ピクセル単位の列幅に一致させます。これにより、シートボックス内のすべてのセルが作成されます。もちろん、これはあなたが尋ねたものではありませんが、このトリックがセルのサブセットで機能することを望んでいました。残念ながら、そうではありません。

数学的に正方形であるものと視覚的に正方形であるものが異なることに注意する必要があります。すべてのモニターが同じように作られているわけではありません。通常、ピクセルは高さよりも幅が広くなります。

次の写真を見てください：

赤、緑、青の各サブピクセルがピクセル全体を構成します。ご覧のとおり、3つの組み合わせは1サブピクセルの高さよりも広くなっています。ほとんどの場合、違いは微妙であり、ほとんどの人は気付かないかもしれません。しかし、場合によっては、人々はそうします。

列幅1.0ポイントごとに7.25行の高さの比率で正方形を作成できると判断しました。

実際、過去にも同じ問題がありました。私に最適なのは、次のVBAコードです。試行錯誤だけで線形関係を見つけました。

このコードは、単一セルだけでなく、選択範囲でも機能します。後者の場合、正方形は選択幅または高さの合計に基づいています。

Sub MakeCellSquareByColumn()
    Selection.RowHeight = Selection.Width / Selection.Columns.Count
    Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub

Sub MakeCellSquareByRow()
    Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
    Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub

これらのマクロをモジュールに配置し、クイックアクセスツールバーでボタンを割り当てることができます

フォントのタイプまたはサイズを変更すると、（列幅の変更により）正方形が消えることに注意してください。これは、Excelが列幅を計算する方法によるものです。参照：https : //support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel

次のコードは私のために働いた

Sub Grid_Squares()
    With Cells(1, 1)
        Cells.RowHeight = .Width
        Cells.ColumnWidth = .ColumnWidth
    End With
End Sub

結果：

これがVBAソリューションです。

Private Sub MakeSquareCells()

'//  Create graph paper in Excel see    http://www.erlandsendata.no/english/index.php?d=envbawssetrowcol  if you want cm or inches


    Set Cursheet = ActiveSheet

    'don't drive the person crazy watching you work
    UpdateScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    With wksToHaveSquareCells
        .Columns.ColumnWidth = 5 '// minimum 2, max 400 ; above 7 --> zoom doesn't work nice
        .Rows.EntireRow.RowHeight = .Cells(1).Width
        '// ActiveWindow.Zoom = true
    End With

    Application.ScreenUpdating = UpdateScreen
    Cursheet.Activate           '// Reactivate sheet that has been active at entrance of this subroutine

End Sub

最初に、サイズを変更するセルを選択します。次に、HomeタブでCellsボックスに移動し、Formatオプションをクリックします。ここでは、変更することができますRow Heightし、Column Widthあなたが望むよう選択したセルの。

私は縫製プロジェクトのために完璧な正方形のグリッドを作りたいと思っていましたが、この質問に対してあらゆる種類の奇妙な答えを得続けていたので、自分でそれを試してそれを理解することにしました。完璧な正方形を得るのは不可能だとわかったが、できる限り近くに来た。

1. 書式設定する正方形を強調表示します。
2. [形式]タブに移動します。
3. 列幅を12.43にフォーマットします
4. 次に、セルの高さを75.00にフォーマットします。

定規を使用して、長さ7インチと10インチでほんの少し外れていることがわかりました。お役に立てれば。

行の高さと列の幅を5-1 / 3の比率で使用します。

たとえば、行を53.33、列幅を10、または106.66と20にすると、政府の仕事に十分な距離になります。

私はこれが最も簡単なソリューションであると信じています...

この方法では、Excelルーラーを使用するため、行/列の寸法がよりわかりやすく/簡単になり、正確になります。

• リボンの表示を選択
• ワークブックビュー内でページレイアウトを選択します
• ルーラーが表示されない場合は、表示グループ内のルーラーチェックボックスを選択します。
• [すべて選択]ボタンをクリックします（名前帳の下の左上隅）
• 行を右クリックして、サイズ調整オプションを選択し、目的の測定値を入力します。列を右クリックして繰り返します。

それは本当にそれです。その結果、視覚的に完全な正方形として表示されます。Excelオプションの[詳細設定]タブの[表示]グループ内で、測定単位を変更するオプションもあります。これが最も役立つことを願っています！:)

行間の境界線をクリックしてドラッグします。一度に複数の列/行のサイズを変更するには、それらをすべて選択し、右クリックして[行の高さ...]をクリックし、行の幅と同じ高さに設定します。

• 列を選択します（A列をクリックし、Shiftキーを押しながらもう一方の端をクリックします）

• 列の1つを右クリックし、[ 列幅 ]をクリックして、新しい値を入力します。

• 行でも同じことができ、[ 行の高さ]をクリックして行の高さを取得します。

行と列を正方形にする場合は、正方形にするすべてのセルを選択し、行の高さを28.8に変更し、列の幅を4.56に変更してください。

簡単な解決策

• すべてのセルを選択
• 列を目的のピクセルサイズにドラッグします（列をドラッグしてサイズ変更すると、ポイントとピクセルの両方に列サイズが表示されます）
• 行に対して繰り返す（同じピクセル数を選択する）
• これにより、ワークシート全体で完璧な正方形のセルが得られます。

Excel 2010ページレイアウトビューで調整してから標準ビューに切り替えても機能しません。描画ツールを使用して、標準ビューで完全な正方形を作成することで検証できました。これは、正方形を任意のサイズにする最も簡単な方法です。

列幅= 2.71行高さ= 18。

• すべて選択-Ctrl + A
• 列ヘッダーを右クリックして、「列幅」を選択します
• 値を入力= 4> OK
• そこには、すべてのセルが完全な正方形の形で表示されます。

これは、VBAを使用して非常にきれいにトリックを行います。uniformを設定しrowHeight、Widthプロパティを使用して（ポイントで列サイズを返す）、それで除算RowHeightして、単位のない高さ/幅の比率を取得します。ColumnWidthオリジナルColumnWidthを倍増させる新しいものを作り、すべてを正方形にします。

Sub makeSquares() 
Cells.RowHeight = 20
With Cells(1, 1)
W = .ColumnWidth
HWratio = .RowHeight / .Width
Cells.ColumnWidth = W * HWratio
End With
End Sub