Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11462 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15959】［無題］ かつ 04/7/13(火) 15:28 質問[未読]
【15960】Re:［無題］ Asaki 04/7/13(火) 15:46 回答[未読]
【15963】Re:［無題］ かつ 04/7/13(火) 16:02 お礼[未読]
【15965】Re:［無題］ Asaki 04/7/13(火) 16:43 回答[未読]
【15967】Re:［無題］ かつ 04/7/13(火) 16:54 お礼[未読]
【15968】Re:［無題］ Asaki 04/7/13(火) 17:20 回答[未読]
【15969】Re:［無題］ Asaki 04/7/13(火) 17:26 発言[未読]
【15971】Re:［無題］ かつ 04/7/13(火) 17:45 お礼[未読]
【15972】Re:［無題］ Jaka 04/7/13(火) 17:52 回答[未読]
【15973】Re:［無題］ Asaki 04/7/13(火) 18:00 発言[未読]
【15959】［無題］
質問  かつ E-MAIL  - 04/7/13(火) 15:28 -
引用なし
パスワード
   ワークシートを宣言するときどうするか？Ｓｅｔ　ＷＳ　＝Ｗｏｒｋｓｈｅｅｔ（”ｓｈｅｅｔ　”）のやり方以外でお願いします！！100枚分増やすので
【15960】Re:［無題］
回答  Asaki  - 04/7/13(火) 15:46 -
引用なし
パスワード
   こんにちは。

インデックスを利用しては？
set ws = worksheets(1)

# トピックタイトルは設定されることをお勧めします。
【15963】Re:［無題］
お礼  かつ E-MAIL  - 04/7/13(火) 16:02 -
引用なし
パスワード
   2枚目以降の設定はどうすればよいのですか？？
【15965】Re:［無題］
回答  Asaki  - 04/7/13(火) 16:43 -
引用なし
パスワード
   >2枚目以降の設定はどうすればよいのですか？？
最左端のシートから順に1,2,…と連番になります。

結局何をしたいのかよく分かりませんが。。。
【15967】Re:［無題］
お礼  かつ E-MAIL  - 04/7/13(火) 16:54 -
引用なし
パスワード
   あのですねえワークシートを使うとき宣言するじゃないですか？
Set WS1=Worksheets("sheet1")ってな感じに！！
これは分かるんですが・・・・シートが100枚必要なんですよ！
っで宣言の仕方は1,2,3,4,5,6....100の変え方は幼稚っぽいからするなって上司に言われてどうするんですか？聞いたら自分で考えろの連続で・・・私としては思いつかないというか分からないので教えていただきたいのですが・・・・
【15968】Re:［無題］
回答  Asaki  - 04/7/13(火) 17:20 -
引用なし
パスワード
   配列を使いましょう。
あとはヘルプで。
【15969】Re:［無題］
発言  Asaki  - 04/7/13(火) 17:26 -
引用なし
パスワード
   >あのですねえワークシートを使うとき宣言するじゃないですか？
別に宣言しなくても使えますが。

>これは分かるんですが・・・・シートが100枚必要なんですよ！
同時に100枚扱うのでなければ、予め宣言する必要もありませんが、
同時に使うんですか？
【15971】Re:［無題］
お礼  かつ E-MAIL  - 04/7/13(火) 17:45 -
引用なし
パスワード
   同時に使うのです！ワークシートの1枚目に成績を100人分書き込んだシートと平均のデータを用意し2枚目〜101枚目まで１人ずつの成績＆平均を出力させますので！先にActiveWorkBook.WorkSheets.Add Count:=100で増やしてもできますが１回１回増えるので・・・後さっき書いたやり方だと４枚目からインデックスが有効範囲にないと出るので・・・・・・・・・・
【15972】Re:［無題］
回答  Jaka  - 04/7/13(火) 17:52 -
引用なし
パスワード
   >幼稚っぽいからするなって上司に言われてどうするんですか？
どこが幼稚なんだか、わかん無いけど。他の表現が無いのかね。
私は、通常まわしてます。

Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=100
【15973】Re:［無題］
発言  Asaki  - 04/7/13(火) 18:00 -
引用なし
パスワード
   一度に100枚挿入してループ
1件ずつ処理するたびに1枚シート挿入
いずれかの方法になりそうなきがしますから、
同時に100枚分変数に設定しなければならない必要性が理解できません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11462 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free