Excelで折り返されたテキストコンテンツを持つセルがあり、その高さが数行にまたがるコンテンツに合うように調整されるようにセルをフォーマットしたいと思います。どうすればこの動作を実現できますか?
から http://support.Microsoft.com/kb/149663
セル内のすべてのテキストに合わせて行の高さを調整するには、以下の手順を実行します。
行を選択してください。
Microsoft Office Excel 2003およびそれ以前のバージョンのExcelでは、[書式]メニューの[行]をポイントし、[自動調整]をクリックします。
Microsoft Office Excel 2007にホームタブをクリックしCellsグループでフォーマットをクリックして、AutoFit Row Heightを次にクリックします。
すべての行が選択されているときも機能します。
やってみる
列を選択します - >列を右クリック - >セルの書式設定 - >配置タブ - >テキストを折り返す
自動的に行かない場合は、カーソルを行番号の間の小さな行(例:1と2の間)に合わせてダブルクリックすると、行のサイズが変わります(例では1)。すべてが見えるように(垂直方向から)。
範囲内(B2:B1500)にあるセルの場合、ヘッダー行のサイズを変更するために次のVBコードを作成しました。タイムシートは、2015年の第1週に入ります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub
あなたはマクロを知っていますか?次のコードを
Application.ActiveCell.WrapText = True
worksheet_SelectionChangeサブルーチン内。
VBAによる解決策は、次のものを使用することです。
Call Application.ActiveCell.AutoFit
期待通りに動作させることができる唯一の方法は、CTRL-Aでシート全体を強調表示し、ツールバーの「テキストを折り返す」ボタンをクリック解除してから再度選択することです。他の設定は変更されていませんが、各行はその内容に対して「適切な」高さになりました。