我对这个上一个问题有一个后续问题。我没有在那里包含这个问题以避免混淆。
所以我已经有了一个完整的工作提交功能,可以保存从第 1 页 (Sheet1) 到第 2 页 (Sheet2) 的所有内容。
现在,每当我单击第 2 页中的随机票号时,我都希望将其复制到第 3 页(表 3),并自动填充其详细信息 - 日期、时间、票、分数和是/否/不适用答案。
使用上面第 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时,会显示如下:
我开始将此代码放入 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
非常感谢您的帮助。
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