a1:b5区域复制后，选择b10单元格，如何通过VBA获得有虚框的range("a1:b5")?

tobeahumanbeing · 发表于 2024-9-6 21:01

tobeahumanbeing · 发表于 2024-9-6 21:05

a1:b5区域复制后，选择b10单元格，如何通过VBA获得有虚框的range("a1:b5")的引用?就是带虚框的复制区域的引用

小凡、、、 · 发表于 2024-9-6 21:15

tobeahumanbeing 发表于 2024-9-6 21:05
a1:b5区域复制后，选择b10单元格，如何通过VBA获得有虚框的range("a1:b5")的引用?就是带虚框的复制区域的 ...

你要如何引用，纯获取地址a1:b5 还是以一个单元格对象返回

tobeahumanbeing · 发表于 2024-9-6 21:18

以一个range对象返回

tobeahumanbeing · 发表于 2024-9-6 21:19

小凡、、、发表于 2024-9-6 21:15
你要如何引用，纯获取地址a1:b5 还是以一个单元格对象返回

以一个range对象返回

小凡、、、 · 发表于 2024-9-6 21:36

tobeahumanbeing 发表于 2024-9-6 21:19
以一个range对象返回

笨方法就是用KeyUp事件监听是否按下ctrl+c组合键，如果发生就把当前选定单元格set给单元格对象。高阶的需要读取剪切板的话需要用啊api，有难度

tobeahumanbeing · 发表于 2024-9-6 21:41

小凡、、、发表于 2024-9-6 21:36
笨方法就是用KeyUp事件监听是否按下ctrl+c组合键，如果发生就把当前选定单元格set给单元格对象。高阶的需 ...

虽然光标转移啦，a1:b5还有复制的虚框，所以就想有什么法子可以返回虚框range对象的引用。
Ctrl+C可能要设置外部变量保存下来，不想这样子。

lss001 · 发表于 2024-9-7 07:37

本帖最后由 lss001 于 2024-9-7 19:52 编辑

tobeahumanbeing 发表于 2024-9-6 21:41
虽然光标转移啦，a1:b5还有复制的虚框，所以就想有什么法子可以返回虚框range对象的引用。
Ctrl+C可能要 ...

'请把以下代码放置在ThisWorkbook

Dim ar$(1 To 2), i%
Private Sub Workbook_SheetSelectionChange( _
ByVal Sh As Object, ByVal Target As Range)
If i > 1 Then i =0
ar(i + 1) = Target.Address
If Application.CutCopyMode = xlCopy Then
      If i Then x= 1 Else x = 2
      Set Rng = Range(ar(x))
      MsgBox  Rng.Address
      Application.CutCopyMode = False
End If
i = i + 1
End Sub

tobeahumanbeing · 发表于 2024-9-7 08:26

a1:b5区域复制后，
选择b10单元格，如何通过VBA获得有虚框的range("a1:b5")?
以一个range对象返回

		自动登录	找回密码
密码			免费注册