爲此做了一個非常基本的VBA腳本,如果你只是想使用它。代碼如下。
Public Sub UpdateTheLevel()
Dim Currentlevel, templevel As String
Dim i, j, MaxLevel, column, MaxSkill, currlevel, wantedlevel As Integer
column = 0
''Need to set MaxLevel, MaxSkill
Currentlevel = ActiveSheet.Cells(2, 1).Value
For i = 4 To MaxLevel
templevel = ActiveSheet.Cells(2, i).Value
If templevel = Currentlevel Then
column = i
Exit For
Else
Next i
If column = 0 Then
MsgBox "Level Not Found."
Else
For j = 3 To MaxSkill
currlevel = Cells(j, 2).Value
wantedlevel = Cells(j, column).Value
If currlevel < wantedlevel Then
Range (Cells(j, 2)), Interior.ColorIndex = 3
Else
Range (Cells(j, 2)), Interior.ColorIndex = 4
Next j
End Sub
您可以將它綁定到表單中,以便按下按鈕或打開文件時運行。