If Not Application.Intersect(Target, Union(Range("A1:A10"), Range("C1:D10"))) Is Nothing Then MsgBox "你选择正确,选择的地址是:" & Target.Address(0, 0) & "单元格" End If End Sub 代码解析:Union方法是Application对象的方法,可以将两个或多个单元格区域联合起来,生成一个新的单元格区域。In...
下面的代码限制用户必须在工作表Sheet1的单元格区域“A1:D3”中进行操作: Private SubWorkbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range Set rng = Sheet1.Range("A1:D3") If Sh.Nam...
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If Not IsNumeric(Target.Value) Or Target.Value <> Int(Target.Value) Then MsgBox "请输入一个整数。" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End Sub ``` 上述代码中,我们使用Worksheet...
If Intersect(Target, rngForbidden) IsNothing Then Exit Sub '选择A1并发出警告 Range('A1').Select MsgBox '不能选择' &rngForbidden.Address & '中的单元格.', vbCritical End Sub 每当用户在与包含该事件过程的模块相关联的工作表中选择单元格区域时,就会触发工作表的Worksheet_SelectionChange事件过程。代码...
If Intersect(Target, Sheet1.Range("A1:D10")) Is Nothing Then Exit Sub '指定原始数据的范围 Dim pt As PivotTable Set pt = Worksheets("Sheet2").PivotTables("PivotTable1") '指定数据透视表的位置 pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheet1.Us...
If Application.Intersect(Target, Range("A11:A"&range("A65536").end(xlup).row)) Is Nothing Then Exit Sub '问题一：定义target的范围，来限制change的区域 '问题二：如果if语句没有换行（回车）则不用end if Application.EnableEvents = False '问题三：EnableEvents = False的作用是暂时关闭...
End Sub---PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)IfIntersect(Target,[a1:c12])Is Nothing Then MsgBox"你只能在[a1:c12]区域中工作!"[a1].Select EndEnd Sub ②intersect()交集函数
Private Sub Worksheet_Change(ByVal Target As Range) Dim var As Variant, x As Long, CityVar() As Variant, y As Long Dim CityStr As String If Not Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing The...
If Application.Intersect(Target, Range()) Is Nothing Then Exit Sub '指定区域 if not is nothing then goto1 '如果有 If rng.Row Mod 2 = 1 Then'隔行 If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then'指定选择区域 If Target.Column <> 2 Or Target.Row < 4 Then ...
#003MsgBox "你选择了" & Target.Address(0, 0) & "单元格" #004 End If #005 End Sub 代码解析: 当选择工作表A1到A10,C1到C10单元格时将所选的单元格地址显示在消息框中。 第2行代码使用Intersect方法判断所选单元格是否与A1到A10,C1到C10单元格重叠,如果重叠说明所选单元格在A1到A10,C1到C10单元格...