使用 Select Case 引用命名范围中的所有行答案

【问题标题】：Using Select Case to reference all rows in Named Range使用 Select Case 引用命名范围中的所有行
【发布时间】：2018-10-18 15:17:12
【问题描述】：

我有以下工作表更改代码。当前的迭代我会在每个 Case 中手动指定行号，效果很好。

每个案例的数量或行数由另一个宏动态更改，该宏将在 2 个命名范围“TotalAcc”和“TotalRate”内插入或删除行。

我有没有办法修改它，以便案例引用命名范围内的所有行或单元格？

提前谢谢你。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Inte As Range, r As Range

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets(1)
Set ws2 = ThisWorkbook.Worksheets(2)

Set A = Range("TotalAcc", "TotalRate")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub

Application.EnableEvents = False
    For Each r In Inte
        Select Case Target.Row
        Case 10, 11, 12, 13, 14, 15
            Range("A" & r.Row).Offset(0, 3).Value = Application.WorksheetFunction.SumIfs(ws2.Range("Y:Y"), ws2.Range("D:D"), ws1.Range("A" & r.Row), ws2.Range("AB:AB"), ws1.Range("B" & r.Row), ws2.Range("M:M"), ws1.Range("C" & r.Row))
            Range("A" & r.Row).Offset(0, 5).Value = Application.WorksheetFunction.SumIfs(ws2.Range("P:P"), ws2.Range("D:D"), ws1.Range("A" & r.Row), ws2.Range("AB:AB"), ws1.Range("B" & r.Row), ws2.Range("M:M"), ws1.Range("C" & r.Row))
        Case 18, 19, 20, 21
            If Range("E" & r.Row).Value <> "" Then
                Range("C" & r.Row).Value = Application.WorksheetFunction.SumIfs(ws2.Range("Y:Y"), ws2.Range("V:V"), ws1.Range("E" & r.Row))
                Range("E" & r.Row).Offset(0, -1).Value = "CONTRACTS@"
                Range("E" & r.Row).Offset(0, 1).Value = Application.WorksheetFunction.Product(Range("C" & r.Row), Range("E" & r.Row))
            Else:
                Range("C" & r.Row).Value = ""
                Range("E" & r.Row).Offset(0, -1).Value = ""
                Range("E" & r.Row).Offset(0, 1).Value = ""
            End If
        End Select
    Next r


Application.EnableEvents = True

【问题讨论】：

您将如何对 Case 语句进行分组？选择案例需要特定的测试值。

标签： excel vba worksheet named-ranges select-case

【解决方案1】：

像这样简单：

For Each r In Inte
    If not Application.Intersect(r, Range("TotalAcc")) Is Nothing Then
        'is in TotalAcc
    Else
         'is in TotalRate
    End if
Next r

在您发布的代码中仅供参考：

Select Case Target.Row

如果 Target 中有多个单元格，则仅查看第一个单元格。应该是

Select Case r.Row

【讨论】：

工作表更改很难理解，但这似乎有效。非常感谢。