下面的代码限制用户必须在工作表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...
MsgBox "你选择正确,选择的地址是:" & Target.Address(0, 0) & "单元格" End If End Sub 代码解析:Union方法是Application对象的方法,可以将两个或多个单元格区域联合起来,生成一个新的单元格区域。Intersect方法也是Application对象的方法,返回两个或多个单元格重叠的部分,以上过程用两种方法指定专属区域范围工作...
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 Not Application.Intersect(Target, Union(Range("A1:A10"), Range("C1:D10"))) Is Nothing Then MsgBox "你选择正确,选择的地址是:" & Target.Address(0, 0) & "单元格" End If End Sub 代码窗口: 代码解析: 当选择工作表A1到A10,C1到C10单元格时将所选的单元格地址显示在消息框中。 第2行代...
MsgBox "你选择正确,选择的地址是:" & Target.Address(0, 0) & "单元格" End If End Sub 代码窗口: 代码解析: 当选择工作表A1到A10,C1到C10单元格时将所选的单元格地址显示在消息框中。 第2行代码使用Intersect方法判断所选单元格是否与A1到A10,C1到C10单元格重叠,如果重叠说明所选单元格在A1到A10,C1...
Font.Color = RGB(0, 0, 0) '如果当前选择区域不在数据区域范围则退出此过程 If Application.Intersect(Target, dataRange) Is Nothing Then Exit Sub '如果当前选择的不止一个单元格，则将选取的第一个单元格作为目标单元格 If Target.Count > 1 Then Set Target = Target.Cells(1) '在数...
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的作用是暂时关闭...
Set oRng=Intersect(theRng,theRng.Parent.UsedRange)GetUseRows2=oRng.Rows.Count Else GetUseRows2=theRng.Rows.Count End If End Function 代码仅检查用户是否为自定义函数指定了超过50万行的单元格区域。 另一种更复杂的最小化执行时间的方法是将已使用单元格区域内的行数存储在某个缓存中,并在需要时从缓存...
If Not Intersect(Target, Range("A1:C3")) Is Nothing Then Cancel = True Target.Interior.Color = vbRed End If End Sub 代码效果如图3所示。 图3 BeforeRightClick事件 Worksheet_BeforeRightClick(ByValTarget As Range, Canc...
#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单元格...