• 締切済み

エクセルの簡単なマクロ機能を追加したいのです

既存のエクセルマクロ(Sub チェック()以下です)に下記の内容のマクロを付け足したいです。 教えていただけないでしょうか。 付け足したい条件です:  Sheet2のC列に 0  があれば  Sheet1のB列に 愛 と([太字]でセルの背景色を[灰色25%]にして)入れたいです 恐れ入りますがご存じの方がいらっしゃりましたら教えていただきたく何卒よろしくお願いいたします。 ----------------------------------------------- Sub チェック() Dim Ws1 As Worksheet Dim Ws2 As Worksheet Dim myRange1 As Range Dim myRange2 As Range Dim c1 As Range Dim c2 As Range Dim myCt As Long Set Ws1 = Worksheets("Sheet1") Set Ws2 = Worksheets("Sheet2") Set myRange1 = Ws1.Range("A1", Ws1.Cells(Rows.Count, "A").End(xlUp)) Set myRange2 = Ws2.Range("A1", Ws2.Cells(Rows.Count, "A").End(xlUp)) For Each c1 In myRange1 myCt = 0 For Each c2 In myRange2 If c2.Value = c1.Value Then If c2.Offset(, 1).Value = "" Then c1.Offset(, 1).Interior.ColorIndex = 3 Else c1.Offset(, 1).Value = c2.Offset(, 1).Value End If myCt = myCt + 1 End If Next c2 If myCt > 1 Then c1.Offset(, 1).Interior.ColorIndex = 10 Next c1 Set Ws1 = Nothing Set Ws2 = Nothing Set myRange1 = Nothing Set myRange2 = Nothing End Sub

みんなの回答

noname#158634
noname#158634
回答No.1

>Sheet2のC列に 0  があれば Ifを使う。 >([太字]でセルの背景色を[灰色25%]にして) 太字はFont.Bold、背景色はInterior.Color(もしくはColorIndex)です。

MEGUMI19800214
質問者

お礼

お礼の返事が遅れて申し訳ありませんでした。 返答頂きましてありがとうございました。 エクセルのマクロのホームページを見て試行錯誤していたのですが、エラーが出てしまいましてできませんでした。 このマクロプログラムでどのようにすればできるか教えていただければ幸いです。 よろしくお願いいたします。

関連するQ&A

専門家に質問してみよう