Excel VBA質問箱 IV

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

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


12786 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   ひとつのブックの中に複数のシートがあります。
そのシートを順番に選択して、決まった処理を施していく。
ということをしたいと思っています。

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

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 -

引用なし
パスワード
   チョビスケ さん

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


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さん

早速の返答をありがとうございます。
なんとか解決にこぎつけました。
ありがとうございました。

12786 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free