Excel VBA質問箱 IV

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

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


14606 / 76738 ←次へ | 前へ→

【67621】Re:三列が合致していないセルにチェック
質問  Yoshim  - 10/12/18(土) 22:27 -

引用なし
パスワード
   続きで質問させていただいてもよろしいでしょうか?

Hirofumi さんからいただいたこの上のコードをまねて
列単位で繋いで以下のコードをまねて書きましたが正しい結果が得られません。

理由は何故でしょうか。教えてください。


Dim i As Long, k As Long
  Dim RowEnd1 As Long
  Dim RowEnd2 As Long
  Dim Ws1 As Worksheet
  Dim Ws2 As Worksheet
 
  Set Ws1 = Sheets(1)
  RowEnd1 = Ws1.Cells(Rows.Count, 1).End(xlUp).Row 
  Set Ws2 = Sheets(2)
  RowEnd2 = Ws2.Cells(Rows.Count, 1).End(xlUp).Row 
  
  For i = 2 To RowEnd1
    For k = 2 To RowEnd2
     If Ws1.Cells(i, 1) & Cells(i, 2) & Cells(i, 3) = _
       Ws2.Cells(k, 1) & Cells(k, 2) & Cells(k, 3) Then
       Exit For
     End If
   Next k
   If k > RowEnd2 Then
     Ws1.Cells(i, 1).Interior.ColorIndex = 34
   End If
  Next i
0 hits

【67477】三列が合致していないセルにチェック Yoshim 10/12/8(水) 16:09 質問
【67478】Re:三列が合致していないセルにチェック Jaka 10/12/8(水) 16:20 発言
【67479】Re:三列が合致していないセルにチェック Hirofumi 10/12/8(水) 17:47 回答
【67515】Re:三列が合致していないセルにチェック Yoshim 10/12/9(木) 21:41 お礼
【67621】Re:三列が合致していないセルにチェック Yoshim 10/12/18(土) 22:27 質問
【67626】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 9:05 回答
【67627】Re:三列が合致していないセルにチェック Hirofumi 10/12/19(日) 9:10 回答
【67631】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 23:33 回答
【67643】Re:三列が合致していないセルにチェック Yoshim 10/12/20(月) 22:18 お礼

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