Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10737 / 76807

←次へ　｜　前へ→


	【71616】Re:行の高さと列の幅を等しくする

UO3 - 12/3/23(金) 9:28 -


	引用なし

	パスワード

▼madsakai さん：

こんいちは
上で質問中ですけど、とりあえず３つほど。
いずれも、指定のセルを「正方形」にします。
ただし、TestC3 は　比率計算による計算誤差、さらにはエクセルは指定のポイント値を
0.25単位で丸める（場合によっては0.25の倍数を指定しても、変更される場合もあります）ことによる誤差で
正確な正方形にはならない可能性もあります。

Sub TestA1()
'ColumnWidthを与えて正方形にする
　　With Range("A1")
　　　　.ColumnWidth = 20
　　　　.RowHeight = .Width
　　End With
End Sub

Sub TestB2()
'セルの中の文字列の幅に合わせて正方形にする
　　With Range("B2")
　　　　.Value = "あいうえおかきくけこさしすせそ"
　　　　.Columns.AutoFit
　　　　.RowHeight = .Width
　　End With
End Sub

Sub TestC3()
'高さをポイント値で与えて正方形にする
　　With Range("C3")
　　　　.RowHeight = 100
　　　　.ColumnWidth = .RowHeight * .ColumnWidth / .Width
　　End With
End Sub

2 hits

▼

【71606】行の高さと列の幅を等しくする madsakai 12/3/22(木) 23:10