如何申請我的VBA代碼的全細胞中的Excel

Question

我有以下代碼：

Sub level() 
x = Range("f1").Value 
Select Case x 

Case 0 To 4.4 
Range("b1").Value = 10 
Case 4.4 To 9.4 
Range("b1").Value = " B" 
Case Else 
Range("b1").Value = "false" 
End Select 
End Sub 

它只是一個細胞「F1'.I想爲F1到F365這些代碼。 我試了一些FOR循環，但沒有慾望的結果 !! ?? !!

Answer 1

試試這個代碼：

Sub level() 

    For Each x In Range("F1:F365") 
     'x.Offset(0, -4) gets B1 for F1, B2 for F2 and so on..' 
     With x.Offset(0, -4) 
      Select Case x 
       Case 0 To 4.4 
        .Value = 10 
       Case 4.4 To 9.4 
        .Value = " B" 
       Case Else 
        .Value = "false" 
      End Select 
     End With 
    Next 
End Sub 

Answer 2

你可以在一個單杆添加IF測試，然後轉換爲數值，或做如下

Sub Quick() 
[f1:f65] = Application.Evaluate("=IF(B1:B365>0,IF(B1:B365>4.4,IF(B1:B365>9.4,""false"",""B""),""10""),""false"")") 
End Sub