[[20150629141510]]　『ブック内すべてのシート、全てのセルにVBAを適用ａx（さんま）　ページの最後に飛ぶ

『ブック内すべてのシート、全てのセルにVBAを適用したい。』（さんま）

ブック内のすべてのシートのすべてのセルに適用してVBAを作りたいです。

１　羅線をすべて削除
２　フォントをＭＳＰゴシックにする
３　フォントのサイズを１２にする
４　行と幅を自動調整する

ということをやりたいです。
下記のコードを作りましたが、ブックの１枚目のシートには適用するのですが、
２枚目から行と幅の自動調整ができません。

どこを直せばうまくいきますか？

教えて下さい。

Sub クリア()

Worksheets.Select
Cells.Select
With Selection

 .Borders(xlDiagonalDown).LineStyle = xlNone
 .Borders(xlDiagonalUp).LineStyle = xlNone
 .Borders(xlEdgeLeft).LineStyle = xlNone
 .Borders(xlEdgeTop).LineStyle = xlNone
 .Borders(xlEdgeBottom).LineStyle = xlNone
 .Borders(xlEdgeRight).LineStyle = xlNone
 .Borders(xlInsideVertical).LineStyle = xlNone
 .Borders(xlInsideHorizontal).LineStyle = xlNone
 End With

 With Selection.Font
        .Name = "ＭＳ Ｐゴシック"
        .Size = 12

 End With

Columns.AutoFit
Rows.AutoFit

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 マクロの記録では

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Sheets("Sheet1").Activate
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
 となったが（さんまさんのものとほぼ同じ）実行するとアクティブシートにしか反映しない。
 マクロで「AutoFit」を実行するには各シートごとに行わないとならないようだ、

 Sub Macro1()
    Dim W_Sheet As Worksheet

    For Each W_Sheet In Worksheets
        With W_Sheet
            .Rows.AutoFit
            .Columns.AutoFit
        End With
    Next
 End Sub
 ではどうだろうか？
（ねむねむ） 2015/06/29(月) 14:55

ねむねむさま、返信ありがとうございます。

なるほど！！！！！

先程組み込んで試したところ思った通りにできました！！！！

＞マクロで「AutoFit」を実行するには各シートごとに行わないとならないようだ

しりませんでした。。。。
勉強になりました。
ありがとうございました。

（さんま） 2015/06/29(月) 15:45

コメント返信：

[ 一覧(最新更新順) ]

[[20150629141510]] 『ブック内すべてのシート、全てのセルにVBAを適用ａx（さんま） ページの最後に飛ぶ

[[20150629141510]]　『ブック内すべてのシート、全てのセルにVBAを適用ａx（さんま）　ページの最後に飛ぶ