Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1837 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71606】行の高さと列の幅を等しくする madsakai 12/3/22(木) 23:10 質問[未読]
【71608】Re:行の高さと列の幅を等しくする Abyss 12/3/23(金) 0:05 質問[未読]
【71613】Re:行の高さと列の幅を等しくする UO3 12/3/23(金) 6:35 発言[未読]
【71616】Re:行の高さと列の幅を等しくする UO3 12/3/23(金) 9:28 発言[未読]
【71618】Re:行の高さと列の幅を等しくする UO3 12/3/23(金) 10:04 発言[未読]
【71606】行の高さと列の幅を等しくする
質問  madsakai  - 12/3/22(木) 23:10 -
引用なし
パスワード
   行の高さと列の幅を等しくする、つまり、シートすべてのセルを正方形にしたいのですが、行の高さはピクセルで、列の幅は標準フォントが何文字入るかという、単位構成なので、計算方法が僕の力では複雑でどうにもなりません。
簡単そうで難しいのですが、どうするのがいいのでしょうか。
【71608】Re:行の高さと列の幅を等しくする
質問  Abyss  - 12/3/23(金) 0:05 -
引用なし
パスワード
   指定単位として何を使いますか？
pixel？　Point？
【71613】Re:行の高さと列の幅を等しくする
発言  UO3  - 12/3/23(金) 6:35 -
引用なし
パスワード
   ▼madsakai さん：

おはようございます。
｢正方形｣にしたいんですよね？
あたりまえですけど、縦、横が同じ長さですね。

>行の高さはピクセルで、列の幅は標準フォントが何文字入るかという、単位構成

たぶん、ＶＢＡでセットできる幅は、Width ではなく ColumnWidth　で指定しなきゃいけない
ということをおっしゃっているのですね？

で、｢行の高さはピクセル｣に意味は、高さをピクセルで指定したいということじゃなく
ピクセルだと｢思っていた｣ということでは？

エクセルＶＢＡの中で、高さ（Height）は、ピクセルではなくポイント値で指定します。

で、設定したい長さは、幅に対する文字数で行いたいのでしょうか？
それとも高さに対するポイントで行いたいのでしょうか？
【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
【71618】Re:行の高さと列の幅を等しくする
発言  UO3  - 12/3/23(金) 10:04 -
引用なし
パスワード
   ↑
>（場合によっては0.25の倍数を指定しても、変更される場合もあります）

私の勘違いでした。必ず、0.25単位で丸められます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1837 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free