検索プログラマのメモ帳

壁にぶつかったら検索で調べるプログラマのちょっと遅れたメモ帳。たまに自分で挑戦する。

Skip to: Content | Sidebar | Footer

書式を「折り返して全体を表示する」に設定

6 2月, 2009 (15:10) | VBA・エクセル | By: admin

セルの幅を超えたデータが隠れてしまわないように「折り返して全体を表示する」を書式に設定する。

セル幅の限界を超えてるかどうか調べて、超えていた場合に設定するようにする

ThisWorkbook.Sheets(SHEET_NAME).Range(“A:GG”).EntireColumn.AutoFit

For i = 1 To 100 Step 1
If CELL_WIDTH_LIMIT < ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.ColumnWidth Then   ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.ColumnWidth = CELL_WIDTH_LIMIT   ThisWorkbook.Sheets(SHEET_NAME).cells(1, i).EntireColumn.WrapText = True End If Next EntireColumn.AutoFit 列をデータの幅にする ColumnWidth セル幅 WrapText = True 「折り返して全体を表示する」

Write a comment