🎨
AutoFitRows
書式設定アクティブシートのすべての行高を内容に合わせて自動調整します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： AutoFitRows を実行すると、シート内の全行が自動調整されます
💻 VBAコード
' AutoFitRows
' -----------------
' Macro Name: AutoFitRows
' Description: アクティブシートのすべての行高を内容に合わせて自動調整します
' Parameters: なし
' Returns: なし
' Usage: AutoFitRows を実行すると、シート内の全行が自動調整されます
' -----------------
Sub AutoFitRows()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Cells.EntireRow.AutoFit
MsgBox "行高を自動調整しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub