基于单元格触发跨工作表复制值的VBA代码问题求助

你的问题主要出在workorder子程序的单元格引用语法错误，还存在一些潜在的工作表引用歧义问题，我来一步步帮你修正：

1. 核心语法错误：Range 与 Cells 的误用 #

你写的Range(ActiveCell.Row, 3)是错误的用法——Range对象通常用于引用单元格区域（比如Range("C3")或Range("C1:C10")），如果要按行号+列号的方式引用单个单元格，应该用Cells(行号, 列号)这个语法。

2. 优化建议：用 Target 替代 ActiveCell，更稳定 #

在Worksheet_SelectionChange事件里，我们已经有Target参数（就是当前选中的目标单元格），直接把它传给子程序比依赖ActiveCell更可靠，因为ActiveCell可能在事件触发过程中意外变化。

修正后的完整代码 #

触发事件代码（放在你要监听的工作表代码模块里） #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 确保只选中单个单元格，且选中的是C列
    If Target.Count = 1 And Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
        ' 把选中的单元格作为参数传给子程序
        workorder Target
    End If
End Sub

修正后的 workorder 子程序 #

Sub workorder(selectedCell As Range)
    ' 明确指定目标工作表（比如"Sheet2"，请替换成你的实际目标表名）
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 将选中的C列单元格值，赋值给命名区域Requester_name
    ' 注意：确保Requester_name是单个单元格的命名范围
    targetSheet.Range("Requester_name").Value = selectedCell.Value
End Sub

额外注意事项 #

• 如果Requester_name是工作表级命名范围（仅属于某个特定工作表），一定要明确指定所属工作表，否则VBA会默认引用当前激活的工作表，可能导致赋值失败。
• 如果不需要跨工作表复制，只是在同一工作表内操作，可以去掉targetSheet的定义，直接用Me.Range("Requester_name")（Me指代事件所在的工作表）。

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