Excel宏（改變選擇的單元格的值如果大於或小於）

Question

我有一項任務需要完成，它非常耗時，搜索一些解決方案，但它不起作用。

我有這個工作簿需要在每個單元格中編輯。 如果我選擇像B2至B8的範圍內，並且其內容是

B2 = 70, B3 = 75, B4 = 80, B5 = 85, B6 = 90, B7 = 95, B8 = 100

和條件是如果細胞是<=100 but >=96 =A, <=95 but >=91 =B, <=90 but >=86 =C, <=85 but >=81 =D, <=80 but >=76 = E, <=75 but >=71 =F And <=70 =G.

所以每個單元將改變爲例如B2 = 70現在將變爲70 （G）與「（）」。

等B2至B8

B2 = 70(G), B3 = 75(F), B4 = 80(E), B5 = 85(D), B6 = 90(C), B7 = 95(B), B8 = 100(A)

Answer 1

有了自己的價值觀選擇運行該宏：

Sub transform() 
Dim v, a As String 
For Each v In Selection 
Select Case v 
    Case Is <= 70 
    a = "G" 
    Case Is <= 75 
    a = "F" 
    Case Is <= 80 
    a = "E" 
    Case Is <= 85 
    a = "D" 
    Case Is <= 90 
    a = "C" 
    Case Is <= 95 
    a = "B" 
    Case Is <= 100 
    a = " A" 
End Select 
v.Value = v & "(" & a & ")" 
Next 
End Sub