Microsoft Excelでは、
最初の3行と最初の4列(左上隅に12個のセル)の高さを正方形になるようにします。 どうすればよいのでしょうか?
驚いたことに、Excelは言います:
Row height: 15
Column width: 8.43
だから、これらは同じ規模ではありません。
両方を8.43にするとこれが得られます。
さて、どうすればいいですか?
もう1つの方法...ビューをページレイアウトに変更します。これでグリッドの目盛がインチに変更され、高さと幅の両方を同じ値(たとえば25インチ)に設定できます。 IMOページレイアウトは、スプレッドシートの外観を操作するための最も標準的なビューです。
これは、両方のビューの実際の寸法を使った例です。
すべて(または必要な行/列)を選択してから、ドラッグして希望のサイズに変更します。
完了しました。
Excelの列幅は、標準スタイルでセルに収まるゼロの数(0)で測定されます。ポイントに変換するには(行の高さの測定方法)、を参照してください。
http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/
あなたが正確である必要がないならば、ただそれを見てください。あなたが眼球運動よりも近くにいる必要があるならば、あなたのシートの上にDrawingツールバーから正方形を置いて、そしてそれをサイズ調整してください。 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は、このような単純な結果ではやややり過ぎです。ドラッグして行/列のサイズを変更するときにクリックしたままにすると、ピクセル単位のサイズが括弧内に表示されます。これらの単位はスケーリングされていないため、行と列のサイズを同じピクセルに設定すると、正方形になります。もちろん、これは手動のプロセスです。ただし、同等のサイズを見つけてから、ある範囲の行/列を選択し、それらのサイズすべてを一度に設定することができます。
これが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
実際、私は過去に同じ問題を抱えていました。私にとって最適なのは、次の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/ja-jp/help/214123/description-of-how-column-widths-are-determined-in-Excel ]を参照してください。
シート全体に対してこれを実行したい場合は、このトリックを使用することができます。とにかく役立つことがあります。すべてのセルを選択するには、列見出しAの左側にあるボックスをクリックします。セルの幅のピクセル数を書き留めて、列見出しの分割線の1つをクリックして目的のサイズにドラッグします(これはExcel 2007を使用しています)。ピクセル単位で列幅に合わせて、行ラベル分割線の1つについても同じことを行います。これにより、シートボックス内のすべてのセルが作成されます。もちろん、これはあなたが尋ねたものではありませんが、私はこのトリックがセルのサブセットでうまくいくことを望んでいました。残念ながらそうではありません。
あなたは数学的に正方形であるものと視覚的に正方形であるものは異なることに注意する必要があります。すべてのモニターが同じように作られているわけではありません。一般的に、ピクセルは高さより幅が広くなっています。
次の図を見てください。
赤、緑、青の各サブピクセルがピクセル全体を構成します。ご覧のとおり、3の組み合わせは1サブピクセルの高さよりも幅が広くなっています。ほとんどの場合、違いはわずかで、ほとんどの人はそれに気付かないかもしれません。しかし、場合によっては、そうする人もいます。
私は正方形が縦幅1.0ポイントごとに7.25行の高さの比率で作ることができると決めました。
まず、サイズを変更したいセルを選択します。それからHome
タブで、Cells
ボックスに行き、そしてFormat
オプションをクリックしてください。ここで、選択したセルのRow Height
とColumn Width
を自由に変更できます。
私は縫製プロジェクトのために完璧な正方格子を作りたいと思って、この質問に対していろいろな奇妙な答えを得続けました、それで私はそれを理解するためにそれ自身で遊ぶことに決めました。私は完璧な正方形を得ることは不可能であることを発見しました、しかし私はあなたが得ることができるのと同じくらい近くに来ました。
定規を使用して、私は私が長さ7と10インチでほんの一部であることがわかりました。お役に立てれば。
私はこれが最も簡単な解決策であると信じています...
この方法では、Excelの定規を利用して、よりわかりやすく、より簡単で正確な行と列の寸法を作成します。
それは本当にそれです。その結果、視覚的に完璧な四角形として表示されます。 Excelの[オプション]の[詳細設定]タブにある[表示]グループ内で測定単位を変更することもできます。これが最も役立つことを願っています! :)
行の高さと列の幅の比は5-1/3です。
たとえば、行の高さを53.33、列幅をそれぞれ10、106.66と20にすると、政府の仕事に十分に近づくことになります。
Excel 2010ページレイアウトビューで調整してから通常ビューに戻すことができません。描画ツールを使用して標準ビューで完全な正方形を作成することで検証できました。これは正方形を任意のサイズにする最も簡単な方法です。
列幅= 2.71行高さ= 18.
これはVBAを使ってかなりうまくトリックできます。均一な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
簡単な解決策
行と列を正方形にする場合は、正方形にしたいセルをすべて選択し、行の高さを28.8に変更し、列の幅を4.56に変更してください。
行間の境界線をクリックしてドラッグします。一度に複数の列/行のサイズを変更するには、それらをすべて選択して右クリックし、[行の高さ...]をクリックして、行の幅と同じ高さに設定します。
列を選択します(A列をクリックしてからshiftキーを押しながらもう一方の端をクリックします)。
いずれかの列を右クリックし、列幅をクリックしてから新しい値を入力します。
行でも同じことができます。次に、行の高さをクリックして行の高さを取得します。