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