Excel VBA質問箱 IV

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

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


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

【13610】シートの番号 年寄り 04/5/9(日) 17:17 質問[未読]
【13612】シートの番号 年寄り 04/5/9(日) 18:14 質問[未読]
【13614】Re:シートの番号 よろずや 04/5/9(日) 18:49 発言[未読]
【13615】Re:シートの番号 年寄り 04/5/9(日) 19:15 質問[未読]
【13619】Re:シートの番号 よろずや 04/5/9(日) 21:04 回答[未読]
【13627】Re:シートの番号 年寄り 04/5/10(月) 8:26 お礼[未読]

【13610】シートの番号
質問  年寄り E-MAIL  - 04/5/9(日) 17:17 -

引用なし
パスワード
   ワークシートが2枚と、10枚のデータシートがあります。
初めに作られたのがワークシートですから、ワークシートの番号はそれぞれ1,2だと思っています。
何回か処理を繰り返し、データシートの削除や、挿入が行われました。

Forループ(初期値3)で10枚のデータシートに同じ作業をしようとしたところ、ワークシートにその作業が行われてしまいました。削除や挿入によってシートの番号は変化するのですか?

また、シートの番号を思い通りに並べ替えるには?

【13612】シートの番号
質問  年寄り E-MAIL  - 04/5/9(日) 18:14 -

引用なし
パスワード
   2枚のワークシートのうち、右のワークシートからシートを挿入するとその左に作られます。すなわち2枚のワークシートに挟まれた格好になります。挿入を繰り返して全てのデーターシートが挟まれます。

したがって、挿入の際、右側に挿入すればよいことになります。挿入のマクロでどこに手を加えますか?

【13614】Re:シートの番号
発言  よろずや  - 04/5/9(日) 18:49 -

引用なし
パスワード
   >したがって、挿入の際、右側に挿入すればよいことになります。挿入のマクロでどこに手を加えますか?

どこにと言うからには、あなたが作ったマクロを提示していただかないと。

【13615】Re:シートの番号
質問  年寄り E-MAIL  - 04/5/9(日) 19:15 -

引用なし
パスワード
   ▼よろずや さん:
>>したがって、挿入の際、右側に挿入すればよいことになります。挿入のマクロでどこに手を加えますか?
>
>どこにと言うからには、あなたが作ったマクロを提示していただかないと。


  Application.ScreenUpdating = False
  Sheets.Add
  ActiveSheet.Name = newkamoku  ’newkamoku 挿入するシートの名前

【13619】Re:シートの番号
回答  よろずや  - 04/5/9(日) 21:04 -

引用なし
パスワード
   >  Application.ScreenUpdating = False
>  Sheets.Add
>  ActiveSheet.Name = newkamoku  ’newkamoku 挿入するシートの名前

Add の所をクリックしてから F1 キーを押してください。
ヘルプが出てきます。
コレクションの一覧の中の Sheets をクリックします。
青字の 使用例 をクリックします。

ヘルプが出ない様なら、追加インストールしましょう。

【13627】Re:シートの番号
お礼  年寄り E-MAIL  - 04/5/10(月) 8:26 -

引用なし
パスワード
   ▼よろずや さん:
>>  Application.ScreenUpdating = False
>>  Sheets.Add
>>  ActiveSheet.Name = newkamoku  ’newkamoku 挿入するシートの名前
>
>Add の所をクリックしてから F1 キーを押してください。
>ヘルプが出てきます。
>コレクションの一覧の中の Sheets をクリックします。
>青字の 使用例 をクリックします。
>
>ヘルプが出ない様なら、追加インストールしましょう。

年よりは夜が早いから返事が遅くなりました。解決です。ありがとう。
また、簡単に答えを指摘するより、このように糸口を手引きするようなやり方に感謝です。

   Sheets.Add , Sheet1
でワークシートの右に無事挿入できました。

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