Question

所以我有一个公式，考虑其他单元格中的另外两个给定值（L：L和K：K）来确定分数。现在它只适用于指定的引用单元格（L2，K2，M2），我试图让它适用于整个列，而不只是一个。

这是VBA代码：

Sub ExplicitScore()
    If Range("L2").Value = "Healthcare" Then
        Select Case Range("K2").Value
        Case "Executive"
            Range("M2").Value = 60
        Case "IT", "Clinical", "Finance/Revenue Cycle", "Security/Risk/Compliance", "Patient Access/Records"
            Range("M2").Value = 50
        Case "HIM", "Patient Quality/Safety"
            Range("M2").Value = 40
        Case "Pharmacy", "Telecommunications", "Admin"
            Range("M2").Value = 20
        Case Else
            Range("M2").Value = 10
        End Select
    Else
        Select Case Range("K2").Value
         Case "Executive", "IT"
            Range("M2").Value = 10
        Case Else
            Range("M2").Value = 0
        End Select
    End If

End Sub

Answer 1

一个很好的工作是创建一个函数，而不是一个子函数。将您的标准设置为变量。这是转换后的代码：

value

将单个单元格引用转换为整个列引用Excel VBA

1 个答案: