Excel UserForm中如何根据输入姓名链接显示员工当前平均成绩？

我明白你现在的需求：你有一个依附在TestingFile1上的Excel UserForm，员工输入姓名后要显示他本次测试前的累计平均成绩（存在员工个人文件的O26单元格），完成13道题后提交结果到个人文件，还要汇总数据给员工、提交窗体给主管。但你第一次写的代码没法运行，咱们来一步步修正它。

原代码的问题 #

你的初始代码有几个关键错误导致无法运行：

• 没有正确引用外部工作簿的单元格，路径和工作表的语法格式完全不对
• 缺少End If语句，代码结构不完整
• 控件名称逻辑有点混乱（用CSRep.Text判断，却赋值给TextBox1.Text，得确认控件对应关系）

修正后的完整代码 #

假设你的姓名输入框控件名为CSRep，显示平均成绩的文本框为TextBox1，修正后的代码如下：

Private Sub CSRep_Change()
    ' 定义变量存储员工文件路径和工作簿对象
    Dim employeeFilePath As String
    Dim employeeWB As Workbook
    
    ' 根据员工姓名匹配对应的文件路径
    Select Case CSRep.Text
        Case "Alyssa Vangundy"
            employeeFilePath = "X:\Audit Tracking\Reps\2018 Reps\VanA.xlsx"
        ' 可以继续添加更多员工的匹配规则
        Case "SchJ"
            employeeFilePath = "X:\rep testing\2018 reps\SchJ.xlsm"
    End Select
    
    ' 检查是否匹配到有效路径
    If employeeFilePath <> "" Then
        ' 先尝试找到已打开的工作簿，避免重复打开
        On Error Resume Next
        Set employeeWB = Workbooks(Dir(employeeFilePath))
        On Error GoTo 0
        
        ' 如果工作簿没打开，就以只读模式打开
        If employeeWB Is Nothing Then
            Set employeeWB = Workbooks.Open(Filename:=employeeFilePath, ReadOnly:=True)
        End If
        
        ' 读取O26单元格的平均成绩并显示（替换VanA为员工文件实际工作表名）
        TextBox1.Text = employeeWB.Worksheets("VanA").Range("O26").Value
        
        ' 关闭工作簿（如果是我们打开的）并释放对象
        If Not employeeWB Is Nothing Then
            employeeWB.Close SaveChanges:=False
            Set employeeWB = Nothing
        End If
    Else
        ' 输入姓名无匹配时清空显示框
        TextBox1.Text = ""
    End If
End Sub

代码关键点说明 #

• 用Select Case替代多个If判断，后续添加新员工时只需新增Case条目，维护更方便
• 以只读模式打开员工文件，避免和其他正在编辑文件的用户冲突
• 先检查工作簿是否已打开，防止重复打开导致的错误
• 明确指定工作表名称，避免默认工作表变化引发的读取错误
• 用完工作簿后及时关闭并释放对象，避免内存占用和潜在的文件锁定问题

额外注意事项 #

• 确认控件名称：在VBA编辑器的属性窗口里检查姓名输入框和显示框的Name属性是否和代码里一致
• 路径准确性：确保文件路径完全正确，包括文件名后缀（.xlsx/.xlsm），路径含空格也无需额外处理
• 工作表名：代码里的Worksheets("VanA")要替换成员工文件中实际存储数据的工作表名称

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