小编Bra*_*don的帖子

单击其他单元格时设置单元格值

我正在尝试执行一个简单的任务,即根据用户是否单击了单元格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
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba

1
推荐指数
1
解决办法
4464
查看次数

标签 统计

excel ×1

excel-vba ×1

vba ×1