Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50518 / 76738

←次へ　｜　前へ→


	【31108】全シートでのﾙｰﾌﾟ処理

Duca - 05/11/11(金) 17:00 -


	引用なし

	パスワード

お世話になります。

質問なんですが、
全てのSheetで指定した処理を行いたいと思っております。
しかし、ファイルは任意のファイルで行うために
Sheet名の指定はファイル毎に違うため出来ません。

こういった場合、
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Dim Flg As Boolean
　　Dim S　 As Worksheet

　　Flg = True
　　For Each S In Worksheets
　　　　S.Select (Flg)
　　　　Flg = False　　　　　　　
　　Next S
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

上記コードで全Sheetを指定すれば良いかと思い、
処理を挟んで試してみましたが途中にﾙｰﾌﾟ処理を入れたためか、
Sheet1では正常に処理をされていましたが
Sheet1以外のSheetではﾙｰﾌﾟ前にて処理が終わってしまっていました。

単一のSheetでは問題なく処理が行える為、
ﾙｰﾌﾟ処理がおかしいわけではないかと思っておりますが
なにが原因でこういうことになったのでしょうか？

また、他にいい処理の仕方があるようでしたら
そちらのご教授もお願い致します。

行いたい動作は、
"Sheet名がバラバラな任意のファイルの全Sheetにﾙｰﾌﾟを必要とする処理を行いたい"
ということです。

どうか、皆様よろしくお願いします。

0 hits

▼

【31108】全シートでのﾙｰﾌﾟ処理 Duca 05/11/11(金) 17:00

≪