Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11893 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ワークシートが２枚と、１０枚のデータシートがあります。
初めに作られたのがワークシートですから、ワークシートの番号はそれぞれ１,２だと思っています。
何回か処理を繰り返し、データシートの削除や、挿入が行われました。

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

また、シートの番号を思い通りに並べ替えるには？
【13612】シートの番号
質問  年寄り E-MAIL  - 04/5/9(日) 18:14 -
引用なし
パスワード
   ２枚のワークシートのうち、右のワークシートからシートを挿入するとその左に作られます。すなわち２枚のワークシートに挟まれた格好になります。挿入を繰り返して全てのデーターシートが挟まれます。

したがって、挿入の際、右側に挿入すればよいことになります。挿入のマクロでどこに手を加えますか？
【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
でワークシートの右に無事挿入できました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11893 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free