質問: エクセルのマクロ 派遣切り後、事務職の就職がようやく見つかりました。 仕事の効率を少しでも上げて、より多くの業務処理をしたいので下記のマクロを作成したいと考えています。 1ヶ月前に書籍を購入して独自でできるか試したのですがダイレクトな情報が見つからず、基礎の部分だけはできたところです。 恐縮なのですがもし、できる方がいましたらぜひ教えて頂けませんでしょうか。 下記のようにsheet1のa列の数字を1つずつ検索して、sheet2にその数字があれば、sheet2のそのセル赤くする。 全部あればすべてのセルが赤くなり、無いところがあれば白いままというマクロです。何卒宜しくお願い致します。 ●sheet1のa列に下記のような数字が羅列(200行程)しています。 238062 238075 238096 238210 91518 238230 ●sheet2のa列に下記のような数字が羅列しています。 91518 238062 238075 238096 238210 238230
回答: 例えば次のようなマクロになりますね。 sub 赤色付け() set ws1 = worksheets("sheet1") set ws2 = worksheets("sheet2") dim rowpos as integer dim i as integer for rowpos = 1 to 200 if worksheetfunction.countif(range(ws2.cells(1, 1), ws2.cells(200, 1)), ws1.cells(rowpos, 1)) > 0 then i = worksheetfunction.match(ws1.cells(rowpos, 1), range(ws2.cells(1, 1), ws2.cells(200, 1)), 0) ws2.cells(i, 1).interior.colorindex = 3 end if next end sub