获取所选单元格的范围来自Excel中的其他工作表

时间:2010-07-12 18:06:12

标签: excel vba excel-vba excel-2003

我正在尝试设置Excel,以便在第一个工作表中选择的单元格值设置为在另一个工作表中双击的单元格的值。到目前为止,我的代码看起来像这样:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



Dim c As Range

For Each c In Sheet1.Range("M11:M24")
    If IsEmpty(c) Then
        c.Value = Target.Value
        Exit For
    End If
Next c
End Sub

这样做是将m11:m24范围内的第一个空单元格设置为另一个工作表中双击单元格的内容。我想要的不是静态“M11:M24”范围,而是让用户通过点击它在第一个工作表中选择一个单元格,移动到另一个工作表,双击该工作表中的单元格并显示值在第一个工作表上的选定单元格中。我想我可以拥有它,以便有一个变量设置来保存在第一个工作表中选择哪个单元格然后只从另一个工作表访问它。但我更喜欢如果内置Excel而只选择所选的单元格。

有没有办法在Excel中获取所选单元格/范围?

1 个答案:

答案 0 :(得分:0)

我轻松解决了这个问题。代码是:

Sheet1.Activate
ActiveCell.Value = Target.Value

如果您想进行整体选择,请尝试

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Sheet1.Activate

    Dim r As Range
    Set r = Selection

    r.Value = Target.Value

End Sub