如何通过单击一个单元格将一行值从一张纸复制到另一张纸？

Question

我对这个上一个问题有一个后续问题。我没有在那里包含这个问题以避免混淆。

所以我已经有了一个完整的工作提交功能，可以保存从第 1 页 (Sheet1) 到第 2 页 (Sheet2) 的所有内容。

现在，每当我单击第 2 页中的随机票号时，我都希望将其复制到第 3 页（表 3），并自动填充其详细信息 - 日期、时间、票、分数和是/否/不适用答案。

第2页

使用上面第 2 页的图像，如果单击范围 C 中票号的任何单元格，它会将其整行值复制到第 3 页。

例如，当我点击 Ticket 7789 2024 时，

Values of Date, Time, Ticket will go to cells E3:E5 of Page 3
Value of Score will go to J3 of Page3
Values of Yes/No/NA answers from Range E:BC of Page2 will go to cells E7:57 of Page3

当我点击上方图片第2页的票号7789 2024时，会显示如下：

第3页

我开始将此代码放入 Page2 工作表模块中（说实话，我不知道如何继续）：

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    
    Dim sh, sh2 As Worksheet
    Set sh = ThisWorkbook.Sheets("Page2")
    Set sh2 = ThisWorkbook.Sheets("Page3")
    
    
    If Selection.Count = 1 Then
        If Not Intersect(Target, sh.Range("C:C")) Is Nothing Then
            'Values of Date, Time, Ticket from Page2 will go to cells E3:E5 of Page 3
            'Value of Score from Page2 will go to J3 of Page3
            'Values of Yes/No/NA answers from Range E:BC of Page2 will go to cells E7:57 of Page3
        End If
    End If
End Sub

非常感谢您的帮助。

Answer 1

• 将

  Worksheet_SelectionChange()

  添加到VBE中的Sheet2模块

• Me

  是Sheet2对象的引用

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .CountLarge = 1 Then
            If .Row > 2 And .Column = 3 And Len(.Value) > 0 Then
                Application.EnableEvents = False
                Dim oSht As Worksheet
                Set oSht = Sheets("Sheet3")
                oSht.Range("E3").Resize(3, 1).Value = Application.Transpose(.Offset(, -2).Resize(1, 3).Value)
                oSht.Range("J3").Value = .Offset(, 1).Value
                oSht.Range("E7").Resize(51, 1).Value = Application.Transpose(.Offset(, 2).Resize(1, 51).Value)
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub