匿名 さん:

おまたせしました。
休暇で海外に出ていました。しかも、まさかの帰国日機体トラブルによるキャンセル。ということで、お返事遅れてしまいました。

以下のマクロ。
たぶんちゃんと動いたかと思います。試してみて動いたなら、これでよいかと思います。


>毎回、丁寧でわかりやすい解説、ありがとうございます。コメントも見させて頂いて参考にしています。
>今日、仕事で、在庫表のセルの列幅を調整するマクロをつくってみました。こんな感じでよろしいでしょうか。
>※ 各ワークシートは、CD、書籍、アクセサリーというカテゴリーごとに分けてあります。手作業だと、１つのワークシートの列幅を変えて、他のワークシートも変えるとなると、大変なので、つくってみました。
>
>Option Explicit
>Sub allworksheets()
> Dim WS As Worksheet
> For Each WS In Worksheets
> WS.Columns("A").ColumnWidth = 23
> WS.Columns("B").ColumnWidth = 8.38
> WS.Columns("C").ColumnWidth = 6.38
> WS.Columns("D").ColumnWidth = 6.38
> WS.Columns("E").ColumnWidth = 6.38
> WS.Columns("F").ColumnWidth = 6.38
> WS.Columns("G").ColumnWidth = 6.38
> WS.Columns("H").ColumnWidth = 4.38
> WS.Columns("I").ColumnWidth = 4.38
> WS.Columns("J").ColumnWidth = 4.38
> WS.Columns("K").ColumnWidth = 4.38
> WS.Columns("L").ColumnWidth = 4.38
> WS.Columns("M").ColumnWidth = 6.38
> WS.Columns("N").ColumnWidth = 4.38
> WS.Columns("O").ColumnWidth = 6.38
> WS.Columns("P").ColumnWidth = 6.38
> WS.Columns("Q").ColumnWidth = 35
> Next WS
>End Sub
>
>

2014/12/25 07:20

小川慶一 さん:

機内トラブル、お疲れさまでした！ また、チェック頂き、ありがとうございました（きれいに動きました）。
今回は、在庫表の一部でしたが、『DPRフレーム』の動画を学習し始め、改めて、表自体をどうつくっていくか関心が湧いてきました。

2014/12/28 06:56

匿名 さん:

DPR大切ですよ。というか、動画でも言っていますが、あれちゃんと分かって＆使っていれば、マクロ書かなくてはならなくなったときの大変さもだいぶ軽減されます。
ひきつづきお楽しみください☆



>小川慶一 さん:
>
>機内トラブル、お疲れさまでした！ また、チェック頂き、ありがとうございました（きれいに動きました）。
>今回は、在庫表の一部でしたが、『DPRフレーム』の動画を学習し始め、改めて、表自体をどうつくっていくか関心が湧いてきました。

2014/12/29 11:24