excel - 双击复制单元格并自动粘贴到另一张纸上的不同单元格

Question

我真的需要你的帮助。

基本上我有两张我真正关心我的项目的工作表，如下图所示。

1. 三菱日联客户端
2. MUFG 匹配

我正在寻找允许我执行以下操作的 VBA 代码：

• 双击 MUFG 客户表上范围 (B3:B300) 内的单元格。
• 在双击时，它将获取我双击的单元格的内容（可以是上述范围内的任何单元格）并将文本/值自动粘贴到 MUFG 匹配表（单元格 D4）上的不同单元格中。

任何帮助将不胜感激。我已经尝试了几件事，例如在范围内创建超链接，但它仍然根本不起作用并且失败了太多次。

谢谢

仁迪

标签： excelhyperlinkworksheetdouble-click

Answer 1

以下 VBA 代码应如您所描述的那样工作：

Option Explicit
Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If InRange(ActiveCell, Worksheets("MUFG Client").Range("B3:B300")) Then
        Selection.Copy Worksheets("MUFG Matched").Range("d4")
    End If
End Sub

确保将此代码放入MUFG Client的工作表代码区域，因为您将在此处双击。