Excel VBA技术求助：从工作表取数填充用户窗体并导出PDF

1. 修正ComboBox选择后的数据填充代码 #

原代码存在两个核心问题：一是Application.Match未找到匹配值时直接转换类型会触发错误；二是不能直接将整行值赋值给单个文本框，需逐个控件对应工作表列赋值。以下是修正后的完整代码：

窗体初始化（加载ComboBox数据） #

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Master Skills Matrix")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清空ComboBox原有内容
    ComboBox1.Clear
    ' 加载A列User ID（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value <> "" Then
            ComboBox1.AddItem ws.Cells(i, "A").Value
        End If
    Next i
End Sub

ComboBox选择变更事件（填充窗体控件） #

假设你的窗体有以下控件（可根据实际控件和列位置自行调整）：

• TextBox_Name：对应工作表B列（姓名）
• TextBox_Skill1：对应工作表C列（技能1）
• TextBox_Skill2：对应工作表D列（技能2）

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim matchResult As Variant
    Dim resultRow As Long
    
    If ComboBox1.Value = "" Then Exit Sub
    
    Set ws = ThisWorkbook.Sheets("Master Skills Matrix")
    ' 使用Match查找行号，先存为Variant避免错误
    matchResult = Application.Match(ComboBox1.Value, ws.Range("A:A"), 0)
    
    If IsError(matchResult) Then
        ' 未找到匹配项，清空所有控件
        TextBox_Name.Value = ""
        TextBox_Skill1.Value = ""
        TextBox_Skill2.Value = ""
        ' 其他控件同理清空
        MsgBox "未找到该User ID对应的记录", vbExclamation
        Exit Sub
    End If
    
    resultRow = CLng(matchResult)
    ' 逐个控件赋值
    TextBox_Name.Value = ws.Cells(resultRow, "B").Value
    TextBox_Skill1.Value = ws.Cells(resultRow, "C").Value
    TextBox_Skill2.Value = ws.Cells(resultRow, "D").Value
    ' 继续添加其他控件与列的对应关系
End Sub

2. 窗体导出为PDF功能 #

添加一个命令按钮（命名为CommandButton_ExportPDF），点击后将窗体内容导出为PDF。原理是先将窗体内容临时写入隐藏工作表，再导出该工作表为PDF，最后删除临时表：

Private Sub CommandButton_ExportPDF_Click()
    Dim wsTemp As Worksheet
    Dim savePath As Variant
    
    ' 创建临时工作表
    Set wsTemp = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsTemp.Visible = xlSheetHidden ' 隐藏临时表
    
    ' 写入窗体内容到临时表（示例结构，可根据实际调整排版）
    wsTemp.Range("A1").Value = "User ID"
    wsTemp.Range("B1").Value = ComboBox1.Value
    wsTemp.Range("A2").Value = "姓名"
    wsTemp.Range("B2").Value = TextBox_Name.Value
    wsTemp.Range("A3").Value = "技能1"
    wsTemp.Range("B3").Value = TextBox_Skill1.Value
    wsTemp.Range("A4").Value = "技能2"
    wsTemp.Range("B4").Value = TextBox_Skill2.Value
    
    ' 自动调整列宽
    wsTemp.UsedRange.Columns.AutoFit
    
    ' 选择保存路径
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="PDF文件 (*.pdf), *.pdf", _
        Title:="导出工程师技能信息为PDF")
    
    If savePath <> False Then
        ' 导出临时表为PDF
        wsTemp.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath, _
            Quality:=xlQualityStandard
        MsgBox "PDF导出成功！", vbInformation
    End If
    
    ' 删除临时工作表
    Application.DisplayAlerts = False
    wsTemp.Delete
    Application.DisplayAlerts = True
End Sub

关键说明 #

• 所有控件名称需与代码中一致，可在VBA编辑器的属性窗口修改控件名称
• 工作表列的对应关系需根据你的实际技能矩阵表结构调整
• 临时表的内容排版可自行优化（比如设置字体、边框等）

内容的提问来源于stack exchange，提问作者Craig Barnes