Question

帮忙详细解说一下代码，谢谢了

Private Sub worksheet_beforerightclick(ByVal target As Range, cancel As Boolean)
Set rng = Application.Intersect(target, Range("b18:p28"))
If Not rng Is Nothing Then
If rng.Cells.Count = target.Cells.Count Then
target.Interior.Color = 16777215
cancel = True
End If
End If
End Sub
Private Sub worksheet_selectionchange(ByVal target As Range)
Set rng = Application.Intersect(target, Range("b18:p28"))
If Not rng Is Nothing Then
If rng.Cells.Count = target.Cells.Count Then
target.Interior.Color = vbGreen
End If
End If
End Sub

Answer 1

'本代码为工作表页内的鼠标右键事件前的响应程序
Private Sub worksheet_beforerightclick(ByVal target As Range, cancel As Boolean)
'利用方法Intersect返回右键事件前的选定单元格范围与指定单元格范围b18:p28重合的部分，赋值给rng变量
Set rng = Application.Intersect(target, Range("b18:p28"))
'判断rng是否为空，如果有内容（即上句中返回的重合部分单元格内容），就运行下一句，否则退出本代码
If Not rng Is Nothing Then
'判断重合部分的单元格数是否与右键事件前选定的单元格数相同，是则运行下一句，否则退出
If rng.Cells.Count = target.Cells.Count Then
'选定单元格填充颜色，色号16777215
target.Interior.Color = 16777215
'设置cancel参数后，右键事件将不会弹出系统默认的快捷菜单
cancel = True
End If
End If
End Sub

'本代码为工作表页内“拖动选择”事件的响应程序
Private Sub worksheet_selectionchange(ByVal target As Range)
'利用方法Intersect返回事件发生时的选定单元格范围与指定单元格范围b18:p28重合的部分，赋值给rng变量
Set rng = Application.Intersect(target, Range("b18:p28"))
'判断rng是否为空，如果有内容（即上句中返回的重合部分单元格内容），就运行下一句，否则退出本代码
If Not rng Is Nothing Then
'判断重合部分的单元格数是否与右键事件前选定的单元格数相同，是则运行下一句，否则退出
If rng.Cells.Count = target.Cells.Count Then
'选定单元格填充颜色为vbgreen（绿色）
target.Interior.Color = vbGreen
End If
End If
End Sub