Excel VBA質問箱 IV

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

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


6288 / 76734 ←次へ | 前へ→

【76048】Re:VBA 検索に該当すれば指定列に値を入れるメソッド
回答  独覚  - 14/9/3(水) 16:21 -

引用なし
パスワード
   ▼みみ さん:
データを入力するシートが「入力」だとします。
標準モジュールに以下を記載してマクロボタンに登録してみてください。

Sub TST()
  Dim 在庫_Sheet   As Worksheet
  Dim 入力_Sheet   As Worksheet
  Dim CHK_ROW_CNT   As Long
  Dim LOOP_CNT    As Long
  Dim OUT_ROW_CNT   As Long

  Set 在庫_Sheet = Worksheets("在庫")
  Set 入力_Sheet = Worksheets("入力")

  CHK_ROW_CNT = 入力_Sheet.Cells(Rows.Count, "D").End(xlUp).Row
  OUT_ROW_CNT = 0
  For LOOP_CNT = 2 To CHK_ROW_CNT
    If 入力_Sheet.Cells(LOOP_CNT, "D") <> "" Then
      On Error Resume Next
      OUT_ROW_CNT = WorksheetFunction.Match(入力_Sheet.Cells(LOOP_CNT, "D"), 在庫_Sheet.Range("J:J"), 0)
      On Error GoTo 0
      If OUT_ROW_CNT > 0 Then
        在庫_Sheet.Cells(OUT_ROW_CNT, "P").Value = "済"
      End If
    End If
  Next
End Sub

6 hits

【76044】VBA 検索に該当すれば指定列に値を入れるメソッド みみ 14/9/3(水) 3:08 質問
【76045】Re:VBA 検索に該当すれば指定列に値を入れ... 独覚 14/9/3(水) 9:11 発言
【76047】Re:VBA 検索に該当すれば指定列に値を入れ... みみ 14/9/3(水) 15:52 発言
【76048】Re:VBA 検索に該当すれば指定列に値を入れ... 独覚 14/9/3(水) 16:21 回答
【76049】Re:VBA 検索に該当すれば指定列に値を入れ... 独覚 14/9/3(水) 16:36 発言
【76050】Re:VBA 検索に該当すれば指定列に値を入れ... みみ 14/9/3(水) 18:18 お礼

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