VBA打印味精盒

Question

我被困在學校分配的值，這是我必須做的：

這是當前的代碼，我有：

Answer 1

你需要循環的數組已加載和：

Sub Ratio() 

Dim OperatingRatio() As Double 
Dim j As Long 

With Sheets("Summary") 
    OperatingRatio = .Cells("I80:M80").Value 

    For j = LBound(OperatingRatio, 2) To UBound(OperatingRatio, 2) 
     If OperatingRatio(1, j) > 100 Then 
      MsgBox .Cells(14, 9 + j) 
      .Cells(80, 9 + j).Interior.Color = vbRed 
     Else 
     End If 
    Next j 
End With 

End Sub 

Answer 2

這是更好，如果你遍歷所有單元格單獨，就像這樣：

Dim i As Integer 

'9 means column I and 13 is column M 
For i = 9 To 13 
    ' Getting the percent values 
    Debug.Print Worksheets("Summary").Cells(80, i).Value 
Next 

這樣你可以自己繼續。