多工作簿运行时Excel双击单元格弹出窗体初始化有问题

owniu

各位大神，


工作簿1在A列设置双击单元格弹出窗体，如果当前有工作簿1和工作簿2打开，在工作簿1双击A列单元格前有切换到工作簿2，切换回来后双击A列单元格，那么窗体初始化时后弹出时就会将工作簿2切换到当前（窗体后），且初始化的数据也变成获取工作簿2的数据。如果只是单个工作簿运行，代码是可以正常运行的。
请大神帮忙解决，谢谢。

3190496160

在相应工作表前面加上thisworkbook试试看看呗

owniu

3190496160 发表于 2023-3-8 09:36
在相应工作表前面加上thisworkbook试试看看呗

加了Application.ThisWorkbook.Activate，获取的数据貌似可以了，但还是会显示在其它工作簿前，可以再帮忙看看如何调整？谢谢。

Private Sub Userform_Initialize()

On Error Resume Next

Dim i, r

Application.ThisWorkbook.Activate

'设置listview的标题和属性

    With Me
        .tt0 = ""
        
        With .ListView1
            
            .ColumnHeaders.Add , , "序号", 25, 0
            .ColumnHeaders.Add , , "客户名称", 90, 0
            .ColumnHeaders.Add , , "介质", 25, 0
            .ColumnHeaders.Add , , "储罐资产号", 80, 0
            .View = lvwReport
            .Gridlines = True
            .FullRowSelect = True
            .LabelEdit = lvwManual
            
        End With
        
        r = Selection.Row
        For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
            .Controls("tt" & i).Value = ""
            .Controls("tt" & i).Value = Cells(r, i).Value
        Next
        
    End With

End Sub

owniu

3190496160 发表于 2023-3-8 09:36
在相应工作表前面加上thisworkbook试试看看呗

在userform加一句Application.ThisWorkbook.Activate,但还是没解决到其它工作簿弹到窗体后面的问题。可以帮忙再看看吗？