Excel VBA質問箱 IV

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

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


50429 / 76732 ←次へ | 前へ→

【31192】Re:条件に合った処理を行ったら終了させるには?
回答    - 05/11/14(月) 13:34 -

引用なし
パスワード
   Option Explicit

For Each BUHIN In Range("D5:D37")
  If BUHIN = KAIRO1 Then
  BUHIN.Activate
  Arow = ActiveCell.Row
  With Worksheets(1).Range("E" & Arow)
    Set SUMI = .Find(SUMI1, LookIn:=xlValues)
    If Not SUMI Is Nothing Then
      Workbooks("データ入力macro.xls").Sheets("実施").Range("D21:E21").Copy
      Windows(FILE & ".xls").Activate
      Worksheets(1).Select
      Range("P" & Arow).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    End If
  End With
>  Exit For
  Else
  BUHIN.Activate
  End If
Next BUHIN

End Withのあとにつけると終わると思います。
(貼付後にいれてみました。)

1 hits

【31177】条件に合った処理を行ったら終了させるには? ひよ 05/11/14(月) 10:48 質問
【31179】Re:条件に合った処理を行ったら終了させる... 05/11/14(月) 10:57 発言
【31189】Re:条件に合った処理を行ったら終了させる... ひよ 05/11/14(月) 13:09 質問
【31192】Re:条件に合った処理を行ったら終了させる... 05/11/14(月) 13:34 回答

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