Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7465 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39114】新規ブックについて質問です。 n 06/6/18(日) 13:35 質問[未読]
【39116】Re:新規ブックについて質問です。 かみちゃん 06/6/18(日) 13:44 回答[未読]
【39118】Re:新規ブックについて質問です。 n 06/6/18(日) 13:57 お礼[未読]
【39114】新規ブックについて質問です。
質問  n  - 06/6/18(日) 13:35 -
引用なし
パスワード
   新規にブックを作成するのは、例えば
　　Workbooks.Add
　　ActiveWorkbook.SaveAs Filename:="C:\TEMP\TEST.xls"
で出来ますが、

1 このときにワークシートの枚数を5枚に設定したい。

2 各シートについて例えばB列の幅を50（単位が何なのか判らないですけど）
　 に一斉に設定したい。

の２つについて方法を教えてください。

OS:XP　Excel:2002
【39116】Re:新規ブックについて質問です。
回答  かみちゃん  - 06/6/18(日) 13:44 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 1 このときにワークシートの枚数を5枚に設定したい。

以下のＵＲＬが参考になるかと思います。
シート数を指定してブックを追加する
http://www.moug.net/tech/exvba/0040031.htm

> 2 各シートについて例えばB列の幅を50（単位が何なのか判らないですけど）
>　 に一斉に設定したい。

列幅の設定は、マクロの記録で記録することによって得られます。
すべてのシートに対して、適用する場合は、たとえば、以下のようにします。

Sub Macro1()
　Dim ws As Worksheet
　
　For Each ws In Worksheets
　　ws.Columns("B:B").ColumnWidth = 20
　Next
End Sub

このコードは、新規ブックを追加した後に処理しないといけません。
【39118】Re:新規ブックについて質問です。
お礼  n  - 06/6/18(日) 13:57 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>> 1 このときにワークシートの枚数を5枚に設定したい。
>
>以下のＵＲＬが参考になるかと思います。
>シート数を指定してブックを追加する
>http://www.moug.net/tech/exvba/0040031.htm
>
>> 2 各シートについて例えばB列の幅を50（単位が何なのか判らないですけど）
>>　 に一斉に設定したい。
>
>列幅の設定は、マクロの記録で記録することによって得られます。
>すべてのシートに対して、適用する場合は、たとえば、以下のようにします。
>
>Sub Macro1()
>　Dim ws As Worksheet
>　
>　For Each ws In Worksheets
>　　ws.Columns("B:B").ColumnWidth = 20
>　Next
>End Sub
>
>このコードは、新規ブックを追加した後に処理しないといけません。


素早いレス、有難うございます。出来ました。m(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7465 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free