如何获得剪切或复制位置的单元格对象，或地址？

yfzdb

如图，我如何得到虚线框的单元格对象，或者它的对应地址？

phsu

手動複製時，必須先選取單元格範圍。選取的動作會觸發工作表的SelectionChange事件。在該事件裡，Target就代表被選取單元格範圍對象；亦即Target代表選取的單元格，而Target.Address則會傳回該單元格的位址。

huang1314wei

上传附件并描述问题是一个很好的习惯，如果你选中了它，那自然就是selection.address

onlycxb

selection.address

yfzdb

感谢楼上各位{:soso_e183:}
是这样的，我要实时获得复制或剪切的对象，用于其他操作。利用 Target 或  selection 获得的对象，属于间接方式，有以下两个问题。
因为，复制或剪切操作在选择（也就是选择事件）之后，所以，很难对复制或剪切对象进行精准定位，所以下面两种方法， 都不能达到理想要求。
所以，最好的办法是：是否有一种能直接得到复制或剪切对象或地址的方法？
问题如下：
1、 如果在重复两次及两次以上复制或剪切操作时，只能获得第一次剪切或复制的单元格对象 。         
  If Globals.ThisAddIn.Application.CutCopyMode = 0  Then
             nRanged = Target
             nCopyRange = Nothing
        ElseIf Not nRanged Is Nothing Then
            nCopyRange = nRanged
        End If
2、 获得的对象都是上一次选择的单元格，不能固定在复制或剪切的单元格。      
        If Globals.ThisAddIn.Application.CutCopyMode = 0  Then
            nCopyRange = Nothing
        ElseIf Not nRanged Is Nothing Then
            nCopyRange = nRanged
        End If
        nRanged = Target

huang1314wei

yfzdb 发表于 2015-11-2 11:08
感谢楼上各位
是这样的，我要实时获得复制或剪切的对象，用于其他操作。利用 Target 或  sel ...

1、是这样的，我要实时获得复制或剪切的对象，用于其他操作，其他什么操作请明示
2、请上传完整代码或者附件，并说明问题
3、是否有一种能直接得到复制或剪切对象或地址的方法    没有听懂，你既然复制或剪切了，对象或地址不就用了嘛，可以用dataobject把数据放在剪切板上

yfzdb

huang1314wei 发表于 2015-11-2 11:23
1、是这样的，我要实时获得复制或剪切的对象，用于其他操作，其他什么操作请明示
2、请上传完整代码或者 ...

1、要实现的目的是跨行粘贴，如图，把虚线内的内容复制到L17：L91可见的的位置
2、 相关问题已经明确，主要的代码，也已上传了。
3.1、dataobject  获得的是一串文本，不能获得一组数据，很难对 dataobject 获得的内容进行分割 ，或者说，能有对 dataobject 对象加工成数组形式结果的方法，也行。
3.2 “ 你既然复制或剪切了，对象或地址不就有了嘛”。关于这一点，要考虑到实际应用问题，用户可能会进行多次剪切操作，或者剪切后进行多次选择操作，然后才进行“仅可见粘贴”操作时，你会发现，很难找到实时剪切对象了。。 如果剪切了，又马上进行 “仅可见粘贴”操作，是没有问题的。
3.3“是否有一种能直接得到复制或剪切对象或地址的方法”  ，比如，会不会有一种，Application.CopyRange  这样的对象， 代表虚线框位置的对象。
   

yfzdb

持续求助中。

wxhnr

Private strAdd As String

Sub auto_open()
    Application.CommandBars("cell").FindControl(ID:=19).OnAction = "myCopy"
End Sub

Sub auto_close()
    Application.CommandBars("cell").FindControl(ID:=19).OnAction = ""
End Sub

Sub myCopy()
    strAdd = Application.Selection.Address
    Application.StatusBar = "你选择的单元格是：" & strAdd
    Application.SendKeys "^c"
End Sub

yfzdb

wxhnr 发表于 2015-11-4 09:59
Private strAdd As String

Sub auto_open()

感谢wxhnr大神。这样确实是可以捕捉到通过右键进行的复制操作。。很不错的思路。
不过还是有个小问题，通过快捷键 ctrl+c进行的操作则捕捉不到。