Excel VBA質問箱 IV

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

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


18131 / 76738 ←次へ | 前へ→

【64050】今回作ったマクロを特定のシートで1度に実行させたい場合
質問  Ex初心者  - 10/1/13(水) 16:18 -

引用なし
パスワード
   度々の質問失礼します。

超初心者様のお陰で、マクロは無事に完成したのですが
それを複数のシートにて実行したいのですがどうすればいいでしょうか?

シート名は1,2,3・・・40までありましてその後 1〜40までのデータをまとめるシートが用意されている状態です

この1〜40のシートにて一度にマクロを実行させたいのです
手動で40シート分でもいいのですが、できればスマートにしたいなぁと思ったもので・・・

中身は、超初心者さんのものを使わせて頂きました!

Sub sub_sampleple()
  Dim myB2 As Integer
  Dim myMOVE As Boolean
  Dim myRow As Long
  Dim myRowMax As Long
  Dim myCnt As Long
  
  '第一条件の判定
  Select Case Range("B2").Value
    Case "あ", "い", "う"
      myB2 = 1
    Case "え", "お"
      myB2 = 2
  End Select
  
  myRow = 3    'B3から
  myRowMax = 20  'B20までをチェック
  Do
    '第二条件の判定
    Select Case Cells(myRow, 2).Value
      Case 1, 11, 20
        myMOVE = (myB2 = 1)
      Case 50, 100
        myMOVE = (myB2 = 2)
      Case Else
        myMOVE = False
    End Select
    
    '移動処理
    If myMOVE Then
      Rows(myRow).Cut
      Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
      Rows(30 - 1).Insert Shift:=xlDown
      myCnt = myCnt + 1
      myRowMax = myRowMax - 1
    Else
      myRow = myRow + 1
    End If
  Loop Until myRow > myRowMax
  
End Sub

これを1〜40までのシート内を一気に実行は可能なのでしょうか?

Dim mySheet As Worksheet
For Each mySheet In Worksheets




Next mySheet

これを改良する感じなのでしょうか?
度々申し訳ありませんが、再度お知恵をお貸しください
0 hits

【63996】セル内の文字、数字を判定して それを他の行に移動させたい Ex初心者 10/1/9(土) 11:21 質問
【63999】Re:セル内の文字、数字を判定して それを... 超初心者 10/1/9(土) 16:43 発言
【64039】Re:セル内の文字、数字を判定して それを... Ex初心者 10/1/12(火) 10:03 発言
【64049】Re:セル内の文字、数字を判定して それを... Ex初心者 10/1/13(水) 12:01 お礼
【64050】今回作ったマクロを特定のシートで1度に実... Ex初心者 10/1/13(水) 16:18 質問
【64051】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/13(水) 16:55 発言
【64056】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 9:04 お礼
【64057】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/14(木) 9:57 回答
【64058】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 10:16 お礼
【64061】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 13:32 質問
【64062】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/14(木) 14:58 発言
【64063】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 15:55 お礼
【64064】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 16:38 お礼
【64070】超初心者様、SS様 ありがとうございました... Ex初心者 10/1/15(金) 16:40 お礼

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