2016-06-15 313 views
0

我有一個包含值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 

enter image description here

+0

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

+0

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

+0

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

回答

0

這是你怎麼做,

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 
相關問題