Excel VBA質問箱 IV

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

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


7315 / 76735 ←次へ | 前へ→

【75008】Re:ループ抜け教えてください
発言  kanabun  - 13/11/12(火) 23:45 -

引用なし
パスワード
   ▼hama さん:
>▼kanabunさん 本当にすいません。
>まったくの初心者なのです。
>
>前と後のA列を検索してなかったら後のAセルに色をつける
>前と後のA列に同じ値があったら
>Bセル→Cセル→Dセルと比較をしていってセルの値が違っていたら
>前も後も色をつけたいのです。

一行追加するだけでいいのでは?

>>    Else '「前」シートにこの値があったばあい
>>       'その行のB列〜D列の値を相互比較・色塗りする ●
>>      newY = c.Row
>>      oldY = foundCell.Row
>>      For x = 2 To 4 'B列〜D列
>>        Ans2 = ws後.Cells(newY, x).Value
>>        If ws前.Cells(oldY, x).Value <> Ans2 Then 'ちがってたら
           'いま比較しているws後側のセルを色塗りします
>>          ws後.Cells(newY, x).Interior.ColorIndex = 27
           '他方の ws前側のセルも色塗りします
           ws前.Cells(oldY, x).Interior.ColorIndex = 27
>>        End If
>>      Next
>>    End If

上のように、やりたいことを日本語でコメントし、そのコメントをコードに
直す練習をしばらく続けると、そのうち、VBAが書けるようになると思います。
がんばって励んでください。

0 hits

【74996】ループ抜け教えてください hama 13/11/11(月) 20:30 質問
【74998】Re:ループ抜け教えてください kanabun 13/11/12(火) 10:01 発言
【75000】Re:ループ抜け教えてください hama 13/11/12(火) 11:02 回答
【75001】Re:ループ抜け教えてください kanabun 13/11/12(火) 12:03 発言
【75002】Re:ループ抜け教えてください hama 13/11/12(火) 13:30 お礼
【75005】Re:ループ抜け教えてください hama 13/11/12(火) 20:28 質問
【75006】Re:ループ抜け教えてください kanabun 13/11/12(火) 22:17 発言
【75007】Re:ループ抜け教えてください hama 13/11/12(火) 23:22 回答
【75008】Re:ループ抜け教えてください kanabun 13/11/12(火) 23:45 発言
【75009】Re:ループ抜け教えてください hama 13/11/13(水) 2:15 お礼
【74999】Re:ループ抜け教えてください kanabun 13/11/12(火) 10:40 発言

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