1

我正在尝试执行简单的任务，即根据用户单击单元格 B、C 还是 D 来更改单元格 A 的值。由于某种原因，下面的代码仅适用于第一个 with 语句（在这种情况下，这会将单元格 A 的值设置为“低”）。有谁知道为什么当我单击 B 或 C 时它不起作用？对此代码的任何帮助都会很棒！谢谢！ 

Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If Not Intersect(.Cells, Columns(1)) Is Nothing Or .Count > 1 Then Exit Sub
Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "Low"

If Not Intersect(.Cells, Columns(2)) Is Nothing Or .Count > 1 Then Exit Sub
Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "Medium"

If Not Intersect(.Cells, Columns(3)) Is Nothing Or .Count > 1 Then Exit Sub
Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "High"

End With

End Sub
4

2 回答 2

8

如果它不是第一列，您的第一条语句将导致例程退出。改变测试，你会有更多的成功

此外，当您正在查找特定列时，请使用 select case 语句检查它们以减少拥挤

Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

    if .Count > 1 then exit sub
    Select Case .column
        Case 2
            Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "Low"
        Case 3
            Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "Medium"
        Case 4
            Sheets("Sheet1").Range("A" & ActiveCell.row).Value = "High"
    end Select
End With

End Sub
于 2013-01-26T03:10:38.787 回答
1

试试这个：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rOut As Range

With Target
   Set rOut = Me.Range("A" & .Row)
   If .Count = 1 Then
       If Not Intersect(.Cells, Columns(2)) Is Nothing Then
            rOut.Value = "Low"
       Else
            If Not Intersect(.Cells, Columns(3)) Is Nothing Then
                rOut.Value = "Medium"
            Else
                If Not Intersect(.Cells, Columns(4)) Is Nothing Then
                    rOut.Value = "High"
                End If
            End If
        End If
    End If
End With

End Sub
于 2013-01-26T02:50:58.063 回答