主页 / coding / 问题 / 78286041
Accepted
Shiela
Asked: 2024-04-07 06:05:54 +0800 CST

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

  • 772

对于我之前提出的问题，我有一个后续问题。为了避免混淆，我没有包含这个问题。

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

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

第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

1 个回答

  1. Best Answer
    • 添加Worksheet_SelectionChange()到Page2VBE中的模块
    • MePage2是对工作表对象的引用

    微软文档：

    Range.CountLarge 属性 (Excel)

    Range.Offset 属性 (Excel)

    范围.调整大小属性 (Excel)

    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("Page3") ' modify as needed
                oSht.Range("E3").Resize(3, 1).Value = Application.Transpose(.Offset(, -2).Resize(1, 3).Value)
                ' you may need to apply date and time formatting
'                oSht.Range("E3").NumberFormatLocal = "m/d/yyyy;@"
'                oSht.Range("E4").NumberFormatLocal = "[$-en-US]h:mm:ss AM/PM;@"
                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

    在此输入图像描述

    • 1

相关问题