Excel VBA質問箱 IV

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

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


60069 / 76732 ←次へ | 前へ→

【21314】Re:別ブックのセルの値を比較
回答  IROC  - 05/1/18(火) 17:58 -

引用なし
パスワード
   どちらのブックの色を変えるのでしょうか?
以下は Boo1 を基準にした場合です。

Dim i As Long
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Workbook

 Set wb1 = Workbooks.Open("C:\Book1.xls")
 Set wb2 = Workbooks.Open("C:\Book2.xls")
 
 Set ws1 = wb1.Worksheets(1)
 Set ws2 = wb2.Worksheets(1)
 
 With ws1
 
  For i = 1 To .Range("A65536").End(xlUp).Row
    
     If .Range("A" & i).Value = ws2.Range("A" & i).Value Then
       .Range("A" & i).Interior.ColorIndex = 5
     Else
       .Range("A" & i).Interior.ColorIndex = 3
     End If
  Next i
 
 End With
1 hits

【21311】別ブックのセルの値を比較 つっきー 05/1/18(火) 17:38 質問
【21314】Re:別ブックのセルの値を比較 IROC 05/1/18(火) 17:58 回答
【21322】Re:別ブックのセルの値を比較 つっきー 05/1/18(火) 18:54 質問
【21324】Re:別ブックのセルの値を比較 [名前なし] 05/1/18(火) 19:19 発言
【21338】Re:別ブックのセルの値を比較 G-Luck 05/1/19(水) 11:38 発言
【21339】Re:別ブックのセルの値を比較 つっきー 05/1/19(水) 11:58 お礼

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