Excelのマクロで、一列おきに列幅を変えたい

質問

Excel2003です。
ワークシート全体の列幅を一列おきに同じ幅に設定するマクロを（例えばB、D、F、H…IVを10ピクセル）作りたいのですが、どうすれば良いでしょうか？

よろしくお願いします。

回答No.1

papayuka · ベストアンサー

ピクセルじゃないですが、、

Sub Test()
Dim i As Integer
For i = 2 To 256 Step 2
　ActiveSheet.Columns(i).ColumnWidth = 10
Next i
End Sub

お礼

できました！

こんなにスマートにできるんですね。
自分で本を片手作ってみた物（実行の途中でExcelがフリーズしちゃいました）とは比べ物にならないです。

ちなみにもう一つ質問させてください。
この10という幅は、Excelのメニューから操作するときの列幅10と大きさが違うようですが、何を基準にした大きさなのでしょうか？ミリでしょうか？
再びの質問で済みません。

助かりました、どうもありがとうございました！！！

回答No.2

papayuka

> この10という幅は、Excelのメニューから操作するときの
> 列幅10と大きさが違うようですが、

同じだと思いますが、、、

セル幅は文字数
セルの高さはポイント

と言われてます。
Excel2003だと違うのかな？

お礼

2度目の回答ありがとうございました。

幅、同じでした。
自分なりに幅を変えるマクロを作っていた所でやってみたので、おかしなことになってしまっていたようです。
お騒がせしてすみませんでした。

どうもありがとうございました。