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

问题描述 投票:0回答:1

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

所以我已经有了一个完整的工作提交功能,可以保存从第 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

非常感谢您的帮助。

excel vba copy cell spreadsheet
1个回答
0
投票
  • 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
© www.soinside.com 2019 - 2024. All rights reserved.