用户窗体不会打开

如何解决用户窗体不会打开

错误说明

运行时错误 13 类型不匹配

每次我将其添加到用户表单时。任何想法为什么？

我已将其设置为模块，然后将其调用到 <li> 中，然后显示错误并且不会打开用户表单 我正在尝试将标题和控件添加到 UserForm_Initialize 报价详细信息列表

Listbox

解决方法

使用以下语法设置您的 .RowSource：

.RowSource = RngData.Address(0,xlA1,xlExternal)

清理和整理您的代码后，请尝试以下修改后的代码：

修改后的代码

Sub Fill_Quote_Detail()


Dim QDetails As MSForms.ListBox
Dim ws       As Worksheet
Dim RngData  As Range

Set QDetails = Body_And_Vehicle_Type_Form.Quote_Details

Set ws = ThisWorkbook.Sheets("Quote Detail")
With ws
    Set RngData = .Range("A1:K" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With

With QDetails
    .ColumnHeads = True
    .ColumnCount = RngData.Columns.Count
    
    Set RngData = RngData.Resize(RngData.Rows.Count - 1).Offset(1) ' remove Header row
    .RowSource = RngData.Address(0,xlExternal) ' set your List-Box Source
    
    .ColumnWidths = "90;60;100;150;90;80;100;95;60"
End With

End Sub

,

代码应该在用户表单的 Initialize 事件中。

Private Sub UserForm_Initialize()
Dim ws       As Worksheet
Dim RngData  As Range
  
    
    Set ws = Sheets("Quote Detail")
    Set RngData = ws.Range("A1:K" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
    Set RngData = RngData.Resize(RngData.Rows.Count - 1).Offset(1)
    
    With Me.Quote_Details

        .ColumnHeads = True
        .ColumnCount = RngData.Columns.Count
 
        .RowSource = RngData.Address(External:=True)
  
        .ColumnWidths = "90;60;100;150;90;80;100;95;60"
  
  End With

End Sub

现在您在 Fill_Quote_Detail 中只需要一行。

Sub Fill_Quote_Detail()
    Body_And_Vehicle_Type_Form.Show
End Sub