プロが教える店舗＆オフィスのセキュリティ対策術

詳しい人求む！

なぜか「Nextに対応するForがありません」

解決済

  • 質問者：ORUKA1951
  • 質問日時：
  • 回答数：5件

A4で印刷するシートのリスト PrintA4s() について
Worksheets(PrintA4S).Select
For Each Sht In WorkSheets(PrintA4S)
With Sht
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
End With
Next '※ここがエラー表示
の部分で、表題の「Nextに対応するForが・・」となる。なぜでしょう。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (5件)

No.5ベストアンサー

  • 回答者： banzaiA
  • 回答日時：

With Sht


With .PageSetup
と　With が2回あるのに
End With　は1回のみ。
    • good
    • 0
    • 件
通報する

No.4

  • 回答者： ShowMeHow
  • 回答日時：

end with　が足りないから、


with shtの後にForを探している
    • good
    • 0
    • 件
通報する

No.3

  • 回答者： kigoshi
  • 回答日時：

End With　を　End With : End With　に

    • good
    • 0
    • 件
通報する

No.2

  • 回答者： mimazoku_3
  • 回答日時：

こうするとどうなのかな？



Next '
End With
    • good
    • 0
    • 件
通報する

No.1

Withが入れ子になっているのに、End Withが１つしかないからでは？

    • good
    • 1
    • 件
通報する
この回答へのお礼

End Withを追加すると、この部分は通過しました。
ありがとうございました。

通報する
お礼日時：2024/01/29 18:06

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報