[[20161124123829]]　『列の幅を調整』（56775544）　ページの最後に飛ぶ

『列の幅を調整』（56775544）

教えてください
保存する際にAAからCCの列幅を自動調整して終わる
方法ありますか？

＜使用 Excel：Excel2013、使用 OS：WindowsVista ＞

[ThisWorkBook]

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets(1).Columns("AA:CC").AutoFit
 End Sub
（???） 2016/11/24(木) 12:49

あれ対処となるシートのコードに教えて頂いたものわ、入力しても何も列幅が変わりませんでした
シート名は必要でしょうか？

シート名は必ず△1など△を最初につけてます
（56775544） 2016/11/25(金) 18:27

## そこから先は自分で考えてね、と言うことだろうとは思いますが。
　
Sheets(1).としているので、一番左のシートを対象にしていることは、
わかりますか？
　
そうでないシートなら、名前を指定するなり、
順番数値を指定するなりしてください。
　
△が頭についているシートすべてが対象だというなら、
そのように質問してください。
For Each sh In Worksheets
　 If Left(sh.Name,1) = "△" Then
　 sh.Columns("AA:CC").AutoFit
　 End If
Next
みたいなことでしょうか。　

（γ） 2016/11/26(土) 10:10

コメント返信：

[ 一覧(最新更新順) ]

[[20161124123829]] 『列の幅を調整』（56775544） ページの最後に飛ぶ

[[20161124123829]]　『列の幅を調整』（56775544）　ページの最後に飛ぶ