Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12575 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9810】追記（シート選択について） じょうじ 03/12/17(水) 15:34 質問
【9812】Re:追記（シート選択について） INA 03/12/17(水) 16:15 回答
【9813】Re:追記（シート選択について） じょうじ 03/12/17(水) 16:25 質問
【9814】Re:追記（シート選択について） Jaka 03/12/17(水) 16:36 回答
【9816】Re:追記（シート選択について） じょうじ 03/12/17(水) 16:49 質問
【9817】Re:追記（シート選択について） Jaka 03/12/17(水) 16:57 回答
【9818】Re:追記（シート選択について） じょうじ 03/12/17(水) 17:20 質問
【9819】Re:追記（シート選択について） ichinose 03/12/17(水) 17:43 回答
【9822】Re:追記（シート選択について） じょうじ 03/12/17(水) 18:14 質問
【9823】Re:追記（シート選択について） ichinose 03/12/17(水) 18:26 発言
【9825】Re:追記（シート選択について） じょうじ 03/12/17(水) 18:42 お礼
【9829】Re:追記（シート選択について） ichinose 03/12/17(水) 20:51 発言
【9834】Re:追記（シート選択について） じょうじ 03/12/18(木) 8:58 お礼
【9810】追記（シート選択について）
質問  じょうじ E-MAIL  - 03/12/17(水) 15:34 -
引用なし
パスワード
   　たびたびすみません。
追記させていただきます。Sheets(array(1,2,3,4,5、・・・・・））.select
のarrayの中は変数はつかえるのでしょうか？いろいろやってはみたのですが
できませんでした。やりかたがまずいのでしょうか？。また、他の方法があるので
しょうか？。どうか教えてください。お願い申しあげます。
【9812】Re:追記（シート選択について）
回答  INA  - 03/12/17(水) 16:15 -
引用なし
パスワード
   どのように書いて、どのように上手く行かないのでしょうか？
【9813】Re:追記（シート選択について）
質問  じょうじ E-MAIL  - 03/12/17(水) 16:25 -
引用なし
パスワード
   ▼INA さん：
>どのように書いて、どのように上手く行かないのでしょうか？

おせわになります。素人で申し訳ございません。

f = "1,2,3,4,5"
Sheets(Array(f)).Select
　
このように書きましたら、「実行時エラー、９、インデックスが有効範囲内に
ありません。」とでました。
【9814】Re:追記（シート選択について）
回答  Jaka  - 03/12/17(水) 16:36 -
引用なし
パスワード
   a1 = "Sheet1": a2 = "Sheet2"
a3 = "Sheet3": a4 = "Sheet4"

Sheets(Array(a1, a2, a3, a4)).Select

Sheets(a1).Select

sss = Array(a1, a2, a3, a4)
Sheets(sss).Select
【9816】Re:追記（シート選択について）
質問  じょうじ E-MAIL  - 03/12/17(水) 16:49 -
引用なし
パスワード
   ▼Jaka さん：
>a1 = "Sheet1": a2 = "Sheet2"
>a3 = "Sheet3": a4 = "Sheet4"
>
>Sheets(Array(a1, a2, a3, a4)).Select
>
>Sheets(a1).Select
>
>sss = Array(a1, a2, a3, a4)
>Sheets(sss).Select
わたくしのほうで、実行してみましたが、Sheets(Array(a1, a2, a3, a4)).Select
>の段階で、「実行時エラー９・・・」がでてしまいます。
なにが、原因しているのでしょうか？大変、お手数をおかけ致しますが、
考えられることがあれば、教えてください。よろしくお願いいたします。
【9817】Re:追記（シート選択について）
回答  Jaka  - 03/12/17(水) 16:57 -
引用なし
パスワード
   シートの名前と枚数を確認してください。
Sheet1〜4
【9818】Re:追記（シート選択について）
質問  じょうじ E-MAIL  - 03/12/17(水) 17:20 -
引用なし
パスワード
   ▼Jaka さん：
>シートの名前と枚数を確認してください。
>Sheet1〜4
a1 = " 1 Ａ棟": a2 = " 2 Ｂ棟"
a3 = " 4 温泉棟": a4 = " 5 駐車場棟"

Sheets(Array(a1, a2, a3, a4)).Select　　←ここで実行時エラー
Sheets(a1).Select

sss = Array(a1, a2, a3, a4)
Sheets(sss).Select
実際のsheets(4)からsheets(7)までのシート名をコピーして実行しましたが
「実行時エラー１００４・・・」がでてしまいます。
どうしたものでしょうか？
シート名の頭２桁は文字コードになっており、一桁の場合は、半角スペースになっています。EXCEL側で一番左のシートからシーケンスにふられるsheet(1)〜sheet(n)は使えますでしょうか？
【9819】Re:追記（シート選択について）
回答  ichinose  - 03/12/17(水) 17:43 -
引用なし
パスワード
   皆さん、こんばんは。
Sub test()
　　Sheets(Array(1, 2, 3)).Select
End Sub

シートのインデックスでするなら、上記でＯＫかと・・・。
【9822】Re:追記（シート選択について）
質問  じょうじ E-MAIL  - 03/12/17(水) 18:14 -
引用なし
パスワード
   ▼ichinose さん：
>皆さん、こんばんは。
>Sub test()
>　　Sheets(Array(1, 2, 3)).Select
>End Sub
>
>シートのインデックスでするなら、上記でＯＫかと・・・。

皆さん、いろいろとご支援ありがとうございます。現問題を、簡単に説明させて
いただきます。実は、「一括印刷プレビューボタン」を機能させることが目的で
ブック内のシート数は可変で、約５シート〜２５０シート以上のものが複数そのつど
ことなったシート数でブックが生成されます。その関係で、Array()の中を変数扱い
したいのですが・・・。やはり、それ自体無理なのでしょうか？ユーザーの要望で
基幹システムのコード分類に準じたシート名の明細が展開するようにしました。
　それと言いますのも、EXCELがもっている便利な機能：複数シートを一度に選択
し、個々のシートのヘッダーやフッターに「頁」設定がなされていれば、ひとつの
グループとして、ページ番号がシート間をまたがり、連番でふられて印刷できるという
機能・・。があるからです。この機能があるからには、何か、方法があるのではないかと
おもうのですが・・・。
　お忙しい中、いろいろと、面倒をみていただきまして、ありがとうございます。
　もし、なにか、アドバイス等ございましたら、よろしくお願いいたします。
【9823】Re:追記（シート選択について）
発言  ichinose  - 03/12/17(水) 18:26 -
引用なし
パスワード
   ▼じょうじ さん：
こんばんは。
Array関数は、配列を生成する関数ですから、
Sheets()の中に配列を入れるとよいですよ。
その場合､シート名でもインデックスでもどちらもＯＫです。
'======================================================
Sub test()
　　ReDim select_shtidx(1 To Sheets.Count)
　　For idx = 1 To Sheets.Count
　　　 select_shtidx(idx) = idx
　　　 Next
　　Sheets(select_shtidx).Select
End Sub
これを応用できますか？
【9825】Re:追記（シート選択について）
お礼  じょうじ E-MAIL  - 03/12/17(水) 18:42 -
引用なし
パスワード
   この度は、誠にありがとうございます。

これで、出来るようになりました。

まだまだ、素人なもので、わからないことが多いですが、どうか、今後とも

ご指導の程、よろしくお願いもうしあげます。

本当に、助かりました。ありがとうございました。
【9829】Re:追記（シート選択について）
発言  ichinose  - 03/12/17(水) 20:51 -
引用なし
パスワード
   ▼じょうじ さん：
解決されたようなので、もう見ていただけないかもしれませんが、

全シートを選択ということなら、

Sheets.Select

でもＯＫですよ。
【9834】Re:追記（シート選択について）
お礼  じょうじ E-MAIL  - 03/12/18(木) 8:58 -
引用なし
パスワード
   　おはようございます。
　
　今回は、全シートではないのですが、このような、記述もできる

ことは、まったく知りませんでした。今後のためにも、十分に役に立つ

と思います。ご親切にありがとうございます。

Jakaさん、INAさん、ichinoseさん、どうも、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12575 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free