请教如何修改代码实现点击选择某个表时窗体后面的表跟着激活显示

peter-chen

请教各位老师，1、在窗体代码中如何修改附件代码实现点击选择某个表时，窗体后面的表跟着激活显示。比如附件：我在“选择来源表”时，我点击“SHEET1"时，窗体依然不关闭，但是后面的表改为SHEET1为激活，方便查看SHEET1。如果点击“SHEET3"时，窗体依然不关闭，但是后面的表改为SHEET3为激活，方便查看SHEET3等是否自己要汇总的表，因为有上百个表。同样没在”选择汇总表“时也实现点击哪个表时，窗体依然保持在前面，后面的表显示刚点击选择的那个表。以方便查看和确定选择的表是否正确。谢谢。


2、如果复制多个表，就是把“选择来源表”改为可以选择多个表，并复制到”选择汇总表“选定的表格里，怎么修改？当在选择多个表时，每点击一个表，窗体后面也激活显示刚点击选择的表，同时把这选择的多个表逐个表按照目前的 A4到G8区域条件复制数据追加到summaryWorksheet表A6开始的位置往后面追加数据，谢谢。

peter-chen

记得彭老大的一个VBA代码可以实现的，不记得是哪一个了找半天也没没有找到，求助各位老师指点，谢谢

taller

peter-chen

taller 发表于 2023-12-18 03:03

谢谢您的指点，怎么这次无法送花的？是否因为是图片？？？

peter-chen

taller 发表于 2023-12-18 03:03

谢谢你的回复，前段时间病了，现在测试后发现只有退出窗口才会跳到选择的表中。我想要实现的是在不退出窗口的情况下也可以点击 DatalstWorksheets 或 OutputlstWorksheets 的任何一个表（不退出选择窗口）都能触发窗口背后的表转到被选择的表。谢谢
Private Sub DatalstWorksheets_change()
   With Me.DatalstWorksheets
      If .ListIndex > -1 Then
         Sheets(.List(.ListIndex)).Activate
      End If
    End With
End Sub
Private Sub OutputlstWorksheets_change()
   With Me.OutputlstWorksheets
      If .ListIndex > -1 Then
         Sheets(.List(.ListIndex)).Activate
      End If
    End With
End Sub

Public Sub LoadWorksheetList()
    ' 清空数据列表框
    Me.DatalstWorksheets.Clear
    ' 添加工作表名到数据列表框
    Dim ws As Worksheet
    For Each ws In sourceWorkbook.Worksheets ' 使用新的工作簿 sourceWorkbook
        Me.DatalstWorksheets.AddItem ws.Name
    Next ws

    ' 清空输出列表框
    Me.OutputlstWorksheets.Clear
    ' 添加工作表名到输出列表框
    For Each ws In sourceWorkbook.Worksheets ' 使用新的工作簿 sourceWorkbook
        Me.OutputlstWorksheets.AddItem ws.Name
    Next ws

    ' 清除之前的选择
    Me.DatalstWorksheets.ListIndex = -1
    Me.OutputlstWorksheets.ListIndex = -1
    selectedDataWorksheet = False  ' 重置选择标记
    selectedOutputWorksheet = False  ' 重置选择标记
End Sub
Public Sub LoadWorksheetList2()  '当前文件使用此版（不另外选文件），主程序用Set summaryWorkbook = ThisWorkbook
    ' 清空数据列表框
    Me.DatalstWorksheets.Clear
    ' 添加工作表名到数据列表框
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Me.DatalstWorksheets.AddItem ws.Name
    Next ws

    ' 清空输出列表框
    Me.OutputlstWorksheets.Clear
    ' 添加工作表名到输出列表框
    For Each ws In ThisWorkbook.Worksheets
        Me.OutputlstWorksheets.AddItem ws.Name
    Next ws

    ' 清除之前的选择
    Me.DatalstWorksheets.ListIndex = -1
    Me.OutputlstWorksheets.ListIndex = -1
    selectedDataWorksheet = False  ' 重置选择标记
    selectedOutputWorksheet = False  ' 重置选择标记
End Sub

peter-chen

taller 发表于 2023-12-18 03:03

我想实现的效果如图：

peter-chen

awaiting your reply with thanks

peter-chen

期待老师的指点，谢谢

peter-chen

期待老师指点，谢谢

peter-chen

就是这里，假设点窗口/窗体的“total”，则窗口后面的表切换到“total”，若窗口/窗体点击选中sheet3，则窗口/窗体后面的表切换到sheet3，窗口/窗体没有确认（没有退出前）后面的表不遮盖窗口