gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 20:03:45 25 4
gpt4 key购买 nike

我真的需要你的帮助。
基本上我有两张我真正关心我的项目的工作表,如下图所示。

  • 三菱日联客户
  • MUFG 匹配

  • enter image description here
    enter image description here
    我正在寻找允许我执行以下操作的 VBA 代码:
  • 双击 MUFG 客户表上范围 (B3:B300) 内的单元格。
  • 在双击时,它将获取我双击的单元格的内容(可以是上述范围内的任何单元格)并自动将文本/值粘贴到 MUFG 匹配表(单元格 D4)上的不同单元格中。

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

    最佳答案

    以下 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 客户端,因为您将在此处双击。

    关于excel - 双击复制单元格并自动粘贴到另一张纸上的不同单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62751677/

    25 4 0
    Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
    广告合作:1813099741@qq.com 6ren.com