Excel VBA質問箱 IV

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

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


60072 / 76732 ←次へ | 前へ→

【21311】別ブックのセルの値を比較
質問  つっきー  - 05/1/18(火) 17:38 -

引用なし
パスワード
   はじめまして。

book1の列A1、A2、A3、、、のセルの値を1つずつbook2の列A1、A2、A3、、、の
セルの値と比較し同じ値なら青色、違うなら赤色にするというような
マクロを作成したいのですが、下記でやってみたところ処理が終わらず
しまいにはエクセルが固まってしまいます。
何かよいやり方がないかご教授していただけるようお願いいたします


Sub test()

Dim i As Integer
Dim J As Integer

 Workbooks.Open Filename:="book1.xls"
 Worksheets(1).Range("A" & J).Select
 
 
 Workbooks.Open Filename:="book2.xls"
 Worksheets(1).Range("A" & i).Select
 
 J = 1
 i = 1
 
 Do While Range("A" & i).Value <> " "
    
    
    If Range("A" & i).Value = Range("A" & J).Value Then
      Range("A" & i).Interior.ColorIndex = 5
    Else
      
    Range("A" & i).Interior.ColorIndex = 3
    
    
    J = J + 1
    
    i = i + 1
    
    End If
    
  Loop
End Sub
2 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 お礼

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