Excel VBA質問箱 IV

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

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


9615 / 76734 ←次へ | 前へ→

【72680】異なった内容のDo Loop を続けて使用する場合
質問  はってんちゅう  - 12/9/5(水) 11:22 -

引用なし
パスワード
   表の中にデータの管理担当ごとに集計用のコラム挿入を行うためのモジュールを作っています。
Do Loop を使っています。

問題は、
3つの Do Loop を続けて並べ、実行すると最初のDo Loopしか反応しません。
各一つずつの実行は問題なく意図した通りになるのですが。

どうすれば3つとも実行されるようになるのでしょうか。

どうぞよろしくご教示ください。お願いいたします。


以下はその作ったものの条件です。

1.8行目に各コラムにあるデータの担当先が明記。
 ただし、一つの製品に対し2つのコラムを使用しているので、管理担当先は一つ置きに明記となっている。
(例:DEが一製品分でDのみに管理担当者明記、FGが一製品分でFにのみ管理担当者明記となっている)
2.9行目にはすべてのコラムに言葉が入っているので、条件として9行目セルに言葉がなくなったら、LOOP終了とした。
3. 管理担当者はとりあえず3社:S-A / S-F / S-B

それで作ったものが以下。
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer
Dim m As Integer
Dim n As Integer
Dim z As Range
Dim firstaddress As String
  
'ユニット毎合計作る
rtn = MsgBox("ユニット別合計を作成しまぁす ☆ ", vbOKCancel)
If rtn = vbOK Then
  Windows("損益付替表作成.xls").Activate
 
  i = 4 'Column ユニット名用
  j = 4
  Do
    If Cells(8, i) = "SY-A" Then
      If Cells(8, i + 2) = "SY-F" Then
        Columns(i + 2).Select
        Selection.Insert Shift:=xlToRight
        Cells(8, i + 2).Select
       End If
      i = i + 2
      j = j + 1
    End If
    i = i + 2
    j = j + 1
  Loop Until Cells(9, j) = ""
    

    x = 4 'Column ユニット名用
    y = 4
    Do
      If Cells(8, y) = "SY-F" Then
        If Cells(8, y + 2) = "SR-B" Then
          Columns(y + 2).Select
          Selection.Insert Shift:=xlToRight
          Cells(8, y + 2).Select
         End If
        y = y + 2
        x = x + 1
      End If
      y = y + 2
      x = x + 1
    Loop Until Cells(9, x) = ""

  
  m = 4 'Column ユニット名用
  n = 4
      Do
        If Cells(8, n) = "SR-B" Then
          If Cells(8, n + 2) = "" Then
            Columns(n + 2).Select
            Selection.Insert Shift:=xlToRight
            Cells(8, n + 2).Select
          End If
          n = n + 2
          m = m + 1
        End If
        n = n + 2
        m = m + 1
      Loop Until Cells(9, m) = ""
   
Else
MsgBox "中止しました"
Exit Sub
End If

MsgBox "Fin Unit Total"

2 hits

【72680】異なった内容のDo Loop を続けて使用する場合 はってんちゅう 12/9/5(水) 11:22 質問
【72681】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 11:45 発言
【72682】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 11:55 発言
【72683】Re:異なった内容のDo Loop を続けて使用す... はってんちゅう 12/9/5(水) 14:04 質問
【72684】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 14:27 発言
【72685】Re:異なった内容のDo Loop を続けて使用す... はってんちゅう 12/9/5(水) 14:45 質問
【72686】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 17:29 発言
【72687】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 18:49 発言
【72688】Re:異なった内容のDo Loop を続けて使用す... はってんちゅう 12/9/5(水) 19:41 お礼
【72692】Re:異なった内容のDo Loop を続けて使用す... kanabun 12/9/5(水) 21:54 発言
【72693】Re:異なった内容のDo Loop を続けて使用す... はってんちゅう 12/9/6(木) 9:39 お礼

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