Excel VBA質問箱 IV

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

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


60045 / 76732 ←次へ | 前へ→

【21338】Re:別ブックのセルの値を比較
発言  G-Luck  - 05/1/19(水) 11:38 -

引用なし
パスワード
   最初に書かれたプログラムについて
判定の部分が無限ループになっていますよ。
A1 = A1のときiもJも増加しない。
あと、" " と "" は違うので、気をつけたほうがいいですよ。
"" = 空白(長さ0の文字列)
" " = スペース
この場合はおそらく "" を使うべきでしょう。

書き直すなら

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
  End If
  J = J + 1
  i = i + 1
Loop

0 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 お礼

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