No.6
125
12
30pt
二回目の回答になります｡
マクロを使う方法しか考え付きませんでしたが，以下を修正して実行すれば設定できると思います｡
Public Sub HeightFit()
Dim minHeight As Integer
Dim fitRangeStart As Integer
Dim fitRangeEnd As Integer
'====== 以下を適宜変えてください ======
minHeight = 15 ' 全体に設定する行高
fitRangeStart = 1 ' 行の高さを調整する範囲
fitRangeEnd = 6 ' 行の高さを調整する範囲
'=========== ここまで ===============
' 行の高さを自動調整
Range(fitRangeStart & ":" & fitRangeEnd).Select
Selection.EntireRow.AutoFit
Dim i As Integer
For i = fitRangeStart To fitRangeEnd Step 1
Rows(i & ":" & i).Select
If Selection.Height < minHeight Then
Selection.RowHeight = minHeight
Else
' non operation
End If
Next
End Sub
あと過去に類似した質問があるみたいです｡
No.1
130765
なるほど、ありがとうございます！ではさらに教えて頂きたいのですが。→表全体の行幅を設定します（表のどの行も均一な行幅）。その設定が、１行の文章は表示されるが「２行に渡る文章だと一部表示されない大きさの行幅」だったとしたら、表の行幅の設定を変更するたびに、２行の文章のセルに対し上記の作業をいちいちしなくてはなりません。行の幅をいかに設定しようとも、文字がセルの縦幅ぴったりに表示するようにはどうしたらいいでしょうか？
No.2
61431
10pt
例えばＡ１セルに長文が入っていて、「折り返して～」を選び２行になったとします。
この場合、列幅を印刷に入るよう合わせるには
１）左側の縦に並んでいる数字の「１」と「２」の間にカーソルを持っていく
２）上下の矢印になったところでダブルクリック
とやれば、印刷されるよう行幅を設定することが出来ます。
（蛇足ですが、列幅も同じようにやれば、簡単に設定できます）
なるほど、ありがとうございます！ではさらに教えて頂きたいのですが。→表全体の行幅を設定します（表のどの行も均一な行幅）。その設定が、１行の文章は表示されるが「２行に渡る文章だと一部表示されない大きさの行幅」だったとしたら、表の行幅の設定を変更するたびに、２行の文章のセルに対し上記の作業をいちいちしなくてはなりません。行の幅をいかに設定しようとも、文字がセルの縦幅ぴったりに表示するようにはどうしたらいいでしょうか？
No.3
46069
9pt
http://q.hatena.ne.jp/1154482051
ダミーです。
行高さ、または列幅を手動で変える時にその境界線をドラッグしていると思いますけど、
ダブルクリックすると対象の行（列）内が全部表示できるサイズに出来ますが、これではダメですか？
VBAを使ってというのなら、
http://www.geocities.co.jp/Technopolis/2082/Soft/Excel_b.htm...
こんなのを見つけました。
（VBAはよく分りませんので説明が出来ませんが）
なるほど、ありがとうございます！ではさらに教えて頂きたいのですが。→表全体の行幅を設定します（表のどの行も均一な行幅）。その設定が、１行の文章は表示されるが「２行に渡る文章だと一部表示されない大きさの行幅」だったとしたら、表の行幅の設定を変更するたびに、２行の文章のセルに対し上記の作業をいちいちしなくてはなりません。行の幅をいかに設定しようとも、文字がセルの縦幅ぴったりに表示するようにはどうしたらいいでしょうか？
No.4
12512
8pt
Excelの場合，行・列ともに見出しの間のところをダブルクリックすればちょうど良い幅・高さに設定されます｡
（分かりにくいですね・・・汗）
例えばA列の列幅をちょうど良い幅にしようと思ったら，「A」と書いてあるところと「B」と書いてあるところをの間をダブルクリックすればOKです｡
ちょうどマウスカーソルが左右が矢印になっている十字型になるところです｡
ただしこの方法だと，セルの結合をしている場合には適切な高さにならないことがあります｡
高さの場合は設定したい範囲を選択してメニューの「書式」→「行」→「自動調整」でも可能です｡
なるほど、ありがとうございます！ではさらに教えて頂きたいのですが。→表全体の行幅を設定します（表のどの行も均一な行幅）。その設定が、１行の文章は表示されるが「２行に渡る文章だと一部表示されない大きさの行幅」だったとしたら、表の行幅の設定を変更するたびに、２行の文章のセルに対し上記の作業をいちいちしなくてはなりません。行の幅をいかに設定しようとも、文字がセルの縦幅ぴったりに表示するようにはどうしたらいいでしょうか？
No.5
3015
7pt
行間の自動調整機能を使います。
表示したいセルの行を選択して、行番号間の境界線辺りでカーソルが黒色の矢印に変化したところで、ダブルクリックすると、行間が自動的に調整されます。
なるほど、ありがとうございます！ではさらに教えて頂きたいのですが。→表全体の行幅を設定します（表のどの行も均一な行幅）。その設定が、１行の文章は表示されるが「２行に渡る文章だと一部表示されない大きさの行幅」だったとしたら、表の行幅の設定を変更するたびに、２行の文章のセルに対し上記の作業をいちいちしなくてはなりません。行の幅をいかに設定しようとも、文字がセルの縦幅ぴったりに表示するようにはどうしたらいいでしょうか？
No.6
12512
ここでベストアンサー
30pt
二回目の回答になります｡
マクロを使う方法しか考え付きませんでしたが，以下を修正して実行すれば設定できると思います｡
Public Sub HeightFit()
Dim minHeight As Integer
Dim fitRangeStart As Integer
Dim fitRangeEnd As Integer
'====== 以下を適宜変えてください ======
minHeight = 15 ' 全体に設定する行高
fitRangeStart = 1 ' 行の高さを調整する範囲
fitRangeEnd = 6 ' 行の高さを調整する範囲
'=========== ここまで ===============
' 行の高さを自動調整
Range(fitRangeStart & ":" & fitRangeEnd).Select
Selection.EntireRow.AutoFit
Dim i As Integer
For i = fitRangeStart To fitRangeEnd Step 1
Rows(i & ":" & i).Select
If Selection.Height < minHeight Then
Selection.RowHeight = minHeight
Else
' non operation
End If
Next
End Sub
あと過去に類似した質問があるみたいです｡
ありがとうございます。ご親切感謝申し上げます。
No.7
50561
40pt
１．一番左上の灰色のセルをクリックして、セル全体を選択します。
（Ａ１セルの左上の灰色部分）
２．メニューから[書式]-[行]-[自動調整]を押下します。
※すべての行が自動調整されます。
おお、できました！ありがとうございます！
| 回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
|---|---|---|---|---|---|
| 1 |  RandD |
167回 | 149回 | 5回 | 2006-08-02 11:14:51 |
| 2 |  ota2244 |
77回 | 69回 | 4回 | 2006-08-02 11:46:24 |
| 3 |  Hieronymus1450 |
13回 | 11回 | 0回 | 2006-08-02 12:01:19 |
188
185
1
1
ありがとうございます。ご親切感謝申し上げます。