Excel中，用另一個值替換單元格值（如果條件滿足）

我有一個包含值O和G的表的Excel文件，我想用一個宏替換O用橙色圖標和G用綠色圖標Excel中，用另一個值替換單元格值（如果條件滿足）

我不知道如何讀取值爲O和G的每個單元格，並用它們各自的圖像替換它們。

私人小組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

來源

2016-06-15 tushar narang

你有沒有考慮使用條件格式？您可以將數字1,2,3分配給O，G，R，並在條件格式中使用「圖標集」。 – Sun

不，我沒有必須通過VBA來實現這個 –

因爲你的循環看起來沒問題，它必須是插入圖像，這會使你出現問題...... 如果是這種情況，你應該真的重新考慮你的問題，並且請具體問一下。也有一些這樣的問題上的答案 - > http://stackoverflow.com/questions/12936646/how-to-insert-a-picture-into-excel-at-a-specified-cell-position-with- vba –

這是你怎麼做，

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

來源

2016-06-15 09:42:02

Excel中，用另一個值替換單元格值（如果條件滿足）

回答

相關問題