单元格变更时自动运行VBA：将按钮触发的文本打印代码改为单元格触发

完全可以做到！你只需要借助Excel内置的Worksheet_Change事件，就能让A2:D2区域的单元格发生变化时，自动执行你原本需要手动点击按钮才运行的“导出3列数据到文本文件”的代码。下面是具体的实现步骤和注意事项：

步骤1：打开目标工作表的代码窗口 #

• 打开你的Excel文件，按下Alt + F11快速打开VBA编辑器；
• 或者右键点击数据所在的工作表标签（比如「Sheet1」），选择「查看代码」，直接进入该工作表的代码编辑界面。

步骤2：编写Worksheet_Change事件代码 #

在代码窗口中粘贴以下代码，把你原来的导出文本文件的代码替换到指定位置即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的单元格范围：A2到D2
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("A2:D2")
    
    ' 检查变化的单元格是否在我们监控的范围内
    If Not Intersect(Target, MonitorRange) Is Nothing Then
        ' --------------------------
        ' 这里替换成你原来的导出文本文件的VBA代码
        ' 以下是一个示例参考（根据你的实际需求修改）：
        Dim FilePath As String
        Dim LastRow As Long
        Dim i As Long
        Dim FileNum As Integer
        
        ' 替换成你想要保存的文件路径
        FilePath = "C:\Users\YourName\Documents\output.txt"
        ' 假设数据在A列，找到数据的最后一行
        LastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
        
        ' 打开文本文件准备写入
        FileNum = FreeFile()
        Open FilePath For Output As #FileNum
        
        ' 循环写入A、B、C列的数据（根据你的实际列调整）
        For i = 2 To LastRow ' 从第2行开始，假设第1行是表头
            Print #FileNum, Me.Cells(i, "A").Value & vbTab & Me.Cells(i, "B").Value & vbTab & Me.Cells(i, "C").Value
        Next i
        
        ' 关闭文件
        Close #FileNum
        ' 可选：弹出提示框告知导出完成
        MsgBox "数据已成功导出到文本文件！"
        ' --------------------------
    End If
End Sub

关键注意事项 #

• 代码位置要正确：这段代码必须放在对应数据所在的工作表的代码窗口中，不能放在普通模块里，否则事件不会触发；
• 防止无限循环：如果你的导出代码中会修改A2:D2区域的单元格内容，一定要在代码开头加上Application.EnableEvents = False，结尾加上Application.EnableEvents = True，避免触发无限循环的事件触发。示例如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("A2:D2")
    
    If Not Intersect(Target, MonitorRange) Is Nothing Then
        ' 关闭事件触发，防止循环
        Application.EnableEvents = False
        
        ' 你的导出代码...
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

• 公式单元格的特殊情况：如果A2:D2是公式单元格，当公式计算结果变化时，Worksheet_Change事件不会触发。这种情况下你需要改用Worksheet_Calculate事件，有需要的话可以再进一步调整。

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