Excel VBA BeforeDoubleClick事件：双击单元格值转至Sheet1指定单元格

你已经实现了双击Sheet1中A2-A15单元格将数值传递到指定单元格的功能，但应该是不想添加冗余代码或者不想依赖工作表模块里的事件绑定吧？我给你几个更优雅的实现思路，既保留功能又能解决你的顾虑：

方案1：精简现有工作表事件代码 #

如果你的现有代码是写在Sheet1的模块中，可以通过限制触发范围来避免不必要的执行，让代码更高效：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅响应A2至A15区域的双击操作
    If Not Intersect(Target, Me.Range("A2:A15")) Is Nothing Then
        ' 将下方的"B1"替换为你需要的指定单元格地址
        Me.Range("B1").Value = Target.Value
        Cancel = True ' 取消双击默认的单元格编辑模式
    End If
End Sub

这段代码只会在双击目标区域时触发，不会干扰其他单元格的操作，而且不需要额外添加任何模块，只是优化了原有逻辑。

方案2：用类模块封装，实现代码与工作表分离 #

要是你不想把代码写在单个工作表模块里，或者以后需要扩展到其他工作表，用类模块封装会更整洁：

1. 打开VBA编辑器，插入一个类模块，将其命名为clsDoubleClickHandler
2. 在类模块中写入以下代码：

Public WithEvents TargetSheet As Worksheet
' 可根据需求修改以下两个常量
Private Const TRIGGER_RANGE As String = "A2:A15"
Private Const DESTINATION_CELL As String = "B1"

Private Sub TargetSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, TargetSheet.Range(TRIGGER_RANGE)) Is Nothing Then
        TargetSheet.Range(DESTINATION_CELL).Value = Target.Value
        Cancel = True
    End If
End Sub

3. 打开ThisWorkbook模块，添加初始化代码：

Private clickHandler As clsDoubleClickHandler

Private Sub Workbook_Open()
    Set clickHandler = New clsDoubleClickHandler
    Set clickHandler.TargetSheet = ThisWorkbook.Worksheets("Sheet1")
End Sub

这种方式把事件逻辑和工作表分离，后续修改目标区域或指定单元格时，只需要调整类模块里的常量即可，还能轻松扩展到其他工作表。

方案3：无VBA替代方案（纯Excel内置功能） #

如果完全不想添加VBA代码，也可以用Excel的内置功能实现类似效果：

• 选中你用来接收值的指定单元格（比如B1）
• 点击「数据」选项卡 → 「数据验证」→ 允许类型选择「序列」
• 在「来源」框中选择A2:A15，确定后该单元格会变成下拉菜单，选择对应数值即可完成传递，全程不需要宏。

你可以根据自己的实际需求选择合适的方案，如果还有具体的“不想添加”的细节（比如不想启用宏、不想用事件等），可以补充说明我再调整~

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