Excelでセルを完全な正方形にするには?
Microsoft Excelでは、
最初の3行と最初の4列(左上の12個のセル)の高さを、これらのセルが正方形になるようにしたいのですが、どうすればいいでしょうか?どうすればいいのでしょうか?
意外にもExcelではこう書いてあります:
Row height: 15
Column width: 8.43
だから、これらは同じ縮尺ではありません。
Microsoft Excelでは、
最初の3行と最初の4列(左上の12個のセル)の高さを、これらのセルが正方形になるようにしたいのですが、どうすればいいでしょうか?どうすればいいのでしょうか?
意外にもExcelではこう書いてあります:
Row height: 15
Column width: 8.43
だから、これらは同じ縮尺ではありません。
すべて(または必要な行/列)を選択し、ドラッグして希望のサイズにリサイズします。列ヘッダーの端をドラッグして、列の幅をリサイズします。ツールチップに正確なピクセル数が表示されます。ピクセル値を覚えておきましょう! 3. 行ヘッダの端をドラッグして行の高さを変更します。同じピクセル値にドラッグします。
エクセルの列幅は、通常のスタイルでセルに収まるゼロ(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
その後、手動で正方形に合うように行と列のサイズを設定し、高さと列幅を読み取ることができます。
次のコードは私のために働いた
Sub Grid_Squares()
With Cells(1, 1)
Cells.RowHeight = .Width
Cells.ColumnWidth = .ColumnWidth
End With
End Sub
実は私も過去に同じ問題を抱えていました。私にとって最も効果的なのは、以下の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
列幅1.0ポイントごとに7.25行の高さの比率で正方形が作れると判断しました。
こちらは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
を好きなように変更することができます。
私はこれが最もシンプルな解決策であると信じています…
この方法はExcelの定規を利用しているので、より分かりやすく、より簡単で正確な行と列の寸法を表示します。
私はソーイングプロジェクトのための完璧な正方形のグリッドを作りたいと思っていたし、この質問のためのすべての種類の奇妙な答えを取得し続けたので、私はそれを把握するために自分自身でそれを再生することにしました。私はそれが完全な正方形を取得することは不可能であることを発見したが、私はあなたが得ることができるように近い、ちょうど一片のオフに来ました。フォーマットタブに移動します。列の幅を12.43にフォーマットします。75.00にセルの高さをフォーマットします。
定規を使用して、私は7と10インチの長さでちょうど端数をオフにしていたことがわかりました。これが役立つことを願っています。
行と行の間の境界線をクリックしてドラッグします。一度に複数の列/行のサイズを変更するには、すべてを選択して右クリックして「行の高さ…」をクリックし、行の幅と同じ高さに設定します。
Excel 2010 ページレイアウトビューで調整した後、通常ビューに戻してもうまくいきません。描画ツールを使って、通常表示で完全な正方形を作って検証してみました。これが一番簡単な方法で、どんな大きさの正方形でも作ることができます。
列幅=2.71行高さ=18です。
列を選択します(A列をクリックし、シフトしたままもう一方の端をクリックします)
列を右クリックし、列の幅をクリックして新しい値を入力します。
行と列を正方形にしたい場合は、正方形にしたいセルをすべて選択して、行の高さを28.8に、列の幅を4.56に変更してください。