エクセルの長文が入った結合セルを自動調整する方法

質問

金額等を書いた見積書作成でエクセルを利用しています。

症状などの症状を記入している結合されたセルの部分があるのですが、かなりの長文が入っている場合に、一番左の行の自動調節目的で行と行の間の線をダブルクリックしても、その長文の頭の1行部分しか表示できません。

その下の長文部分もきれいに表示してくれるような機能はエクセルにありますでしょうか？

どうぞ、ご教示の程よろしくお願いします。

回答No.7

heisukewada

詳しいことがわからないので、なんともなのですが、VBAを作ってみました。
「開発」から”Visual Basic"と、進んで
”Microsoft Visual Basic for Applications”　の、窓が開いたら
「挿入」　「標準モジュール」と進んで、下記を、コピペしてください。

Sub AdjustMergedCellRowHeightInRange()
Dim inputRange As Range
Dim cell As Range
Dim charCount As Integer
Dim rowNum As Integer
Dim newHeight As Double
Dim charPerLine As Integer
Dim rowHeightFactor As Double
Dim i As Integer

' ユーザーに範囲を入力してもらう
On Error Resume Next
Set inputRange = Application.InputBox("変更する範囲を選択してください:", Type:=8)
On Error GoTo 0

' 選択されたセルが空でないことを確認
If inputRange Is Nothing Then
MsgBox "セルが選択されていません。", vbExclamation
Exit Sub
End If

' ユーザーに文字数の指定を求める
charPerLine = InputBox("1行あたりの文字数を入力してください:")

' ユーザーに行の高さのファクターを入力してもらう
rowHeightFactor = InputBox("行の高さに乗じるファクターを入力してください:")

' 各行ごとに処理を行う
For i = 1 To inputRange.Rows.Count
' 各行の範囲を取得
Set cell = inputRange.Rows(i)

' 結合されたセルであることを確認
If cell.MergeCells Then
' 文字数に基づいて行数を計算
charCount = cell.Cells(1).Characters.Count
rowNum = Application.WorksheetFunction.RoundUp(charCount / charPerLine, 0)

' 行の高さを調整
newHeight = (rowNum * rowHeightFactor) ' ファクターによって行の高さを調整
cell.Rows(1).RowHeight = newHeight
End If
Next i
End Sub

結合したセルは、「セルの書式設定」で、「配置」タブ
横位置：左詰め　縦位置：中央揃え　”折り返して全体を表示する”に、チェックを入れておいてください。
窓の　”マクロの実行”アイコンをクリックしても
「開発」の　「マクロ」をクリックしても構いません。
「マクロ」をクリックした場合
”AdustMergedCellRowHeightInRange”が、青色反転していると思いますので、「実行」ボタンをクリックしてください。
変更する範囲を指定します。
例：C3:I5
いち行あたりの文字数を入力します。（これは行数を計算するためにいれるので、大きい数字だと行数が少なく、小さい数字だと行数が大きくなります、つまり高さが高くなります。色々いテレ見て試してください。
例：60
”行に乗じるファクター”を、入力します。これは、フォントによって高さが変わるので、使っているフォントによって変化させます。大きくすると高さが高くなります。
例：40

文字数と、ファクターを、調節して高さを調整してみてください。