フォルダを選んで拡張子をxlsからxlsxに変換 削除
| Message#2 2014年12月16日(火)07時26分 From: VBAマスター |
| 例えば、アクティブシートのA〜D列を自動調整するのであれば、 Columns("A:D").EntireColumn.AutoFit とします。ワークシートを指定する場合は、 Worksheets("シート名").Columns("A:D").EntireColumn.AutoFit としてください。 この辺りは、マクロの記録で試してみれば分かることです。 尚、ブックの全てのシートについて行なう、ということであれば、以下のようにしてください。 For Each ws In myWorkbook ws.Columns("A:D").EntireColumn.AutoFit Next ワークブックの中のワークシートオブジェクトを、変数wsに順次取り出して、ループの中で使用しています。この場合、ワークブックは、ご質問に提示されている変数にしていますので、違っている場合は別なものに変更してください。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
