Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
18999 / 76738 ←次へ　｜　前へ→
【63176】Re:特定の文字を含むシートだけを移動させる方法
発言  Ｙｕｋｉ  - 09/10/13(火) 8:58 -
引用なし
パスワード
   ▼けい さん：
>
>ﾌｧｲﾙ内のシート全部のうち、一部の文字を含むシートだけを移動させるというようにしたいのですが、そうすると、全部のシートが対象ということになってます
>
>これが、よくないのでしょうか？

　　　　For Each sht In .Worksheets
　　　　　　If sht.Name Like strSht & "*" Then
　　　　　　　　i = i + 1
　　　　　　　　If i = 1 Then
　　　　　　　　　　sht.Move
　　　　　　　　　　Set NewBook = ActiveWorkbook
　　　　　　　　Else
　　　　　　　　　　sht.Move After:=NewBook.Worksheets(NewBook.Worksheets.Count)
　　　　　　　　End If
　　　　　　End If
　　　　Next
sht.Moveで全部移動したらブックが無くなりますよ。
この時にエラーメッセージが出ると思いますが。
私の解釈が間違っていたら
シート名を全部と移動するシート名の一部(strShtの内容)を
挙げて下さい。
0 hits
▼ 【63091】特定の文字を含むシートだけを移動させる方法 けい 09/10/7(水) 15:16 質問
【63092】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/7(水) 15:41 発言
【63113】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:20 お礼
【63093】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/7(水) 15:48 発言
【63114】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:25 質問
【63115】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 10:23 質問
【63116】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/9(金) 11:20 発言
【63117】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 12:02 質問
【63118】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/9(金) 13:34 発言
【63174】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:03 質問
【63119】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/9(金) 15:27 発言
【63175】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:05 質問
【63176】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/13(火) 8:58 発言≪
【63177】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 10:00 発言
【63178】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 12:58 発言
【63179】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 15:13 発言
【63180】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 15:42 発言
【63181】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/13(火) 15:48 発言
【63182】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 16:35 発言
【63184】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 17:27 発言
【63187】Re:特定の文字を含むシートだけを移動させ... けい 09/10/14(水) 8:26 お礼
【63188】Re:特定の文字を含むシートだけを移動させ... Ｙｕｋｉ 09/10/14(水) 8:35 発言
【63193】Re:特定の文字を含むシートだけを移動させ... けい 09/10/15(木) 9:16 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
18999 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free