Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12788 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8662】全シートでの作業 チョビスケ 03/10/28(火) 15:20 質問
【8663】Re:全シートでの作業 チョビスケ 03/10/28(火) 15:22 質問
【8664】Re:全シートでの作業 INA 03/10/28(火) 15:27 回答
【8665】Re:全シートでの作業 つん 03/10/28(火) 15:31 回答
【8666】Re:全シートでの作業 チョビスケ 03/10/28(火) 16:08 お礼
【8662】全シートでの作業
質問  チョビスケ E-MAIL  - 03/10/28(火) 15:20 -
引用なし
パスワード
   ひとつのブックの中に複数のシートがあります。
そのシートを順番に選択して、決まった処理を施していく。
ということをしたいと思っています。

１．シート名は固定ではなく処理の度に違うシート名がつく。
　　シート名は日本語です。数値ではありません。
２．決まった処理とは、印刷設定です。

Sheets.Selectで全選択した場合、
全シートに対しての列の削除や挿入、
文字入力等はできるのですが、
ソートや印刷設定はできないのですが・・・。

以上、よろしくお願いいたします。
【8663】Re:全シートでの作業
質問  チョビスケ E-MAIL  - 03/10/28(火) 15:22 -
引用なし
パスワード
   追加です。
シートの枚数は決まっておらず、
増えたり減ったりします。
【8664】Re:全シートでの作業
回答  INA  - 03/10/28(火) 15:27 -
引用なし
パスワード
   dim i as long

for i = 1 to worksheets.count
msgbox worksheets(i).range("a1").Value
next i

こんな感じで、全シートに対しループしては？
【8665】Re:全シートでの作業
回答  つん E-MAIL  - 03/10/28(火) 15:31 -
引用なし
パスワード
   チョビスケ さん

>ひとつのブックの中に複数のシートがあります。
>そのシートを順番に選択して、決まった処理を施していく。
>ということをしたいと思っています。
>
>１．シート名は固定ではなく処理の度に違うシート名がつく。
>　　シート名は日本語です。数値ではありません。
>２．決まった処理とは、印刷設定です。


Sub test()

　　Dim ws As Worksheet
　　
　　For Each ws In Worksheets
　　　　With ws.PageSetup
　　　　　　'やりたい設定
　　　　End With
　　
　　Next ws

End Sub

こんな感じではどうでしょうか？
【8666】Re:全シートでの作業
お礼  チョビスケ E-MAIL  - 03/10/28(火) 16:08 -
引用なし
パスワード
   ▼つん さん：INAさん

早速の返答をありがとうございます。
なんとか解決にこぎつけました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12788 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free