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