Excelは、セルの値を別の値に置き換えます（条件が満たされている場合）

Question

OとGの値を含む表を持つExcelファイルがあります。Oをオレンジのアイコンで置き換え、Gを緑のアイコンで置き換えます。

私は値のOとGの各セルを読み、それぞれのイメージでそれらを置き換える方法を知らない。

ます。Private Sub CommandButton1_Click（）

For Each c In Worksheets("Summary (2)").Range("A1:D10") 
If c.Value = 0 Then 
c.Value = Orange 
ElseIf c.Value = G Then 
    c.Value = "Green" 
    Else 
     c.Value = "" 
End If 
Next c 
End Sub 

Answer 1

これは、あなたがそれを行う方法で、

Private Sub CommandButton1_Click() 

Application.CopyObjectsWithCells = True 
For Each c In Worksheets("Sector Summary (2)").Range("A1:H100") 
If c.Value = "O" Then 
    Sheets("master").Cells(1, 2).Copy 
    c.Select 
    ActiveSheet.Paste 

ElseIf c.Value = "G" Then 
    Sheets("master").Cells(2, 2).Copy 
    c.Select 
    ActiveSheet.Paste 

ElseIf c.Value = "R" Then 
    Sheets("master").Cells(3, 2).Copy 
    c.Select 
    ActiveSheet.Paste 
Else 
     c.Value = c.Value 
End If 
Next c 
End Sub