Question

你好 求教EXCEL当中如何用VB实现指定的某一个单元格只要被修改就立刻自动保存！谢谢

求教EXCEL当中如何用VB实现指定的某一个单元格只要被修改就立刻自动保存！谢谢

Answer 1

当A2被修改，立刻自动保存一次。其中，Y2是用来比较的辅助单元，可把它隐藏掉。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("Y2") <> Range("A2") Then
Range("Y2") = Range("A2")
ActiveWorkbook.Save
Else
End If
End Sub

追问

很接近啦 ！需要改变的单元格是个编号：比如说是A2单元格内的编号是2222，每次打开时会自动加1 变为2223 另存为之后 原来的文件里面的编号依然是2222 只需要一个命令时允许 A2只要打开文件时被修改了 就立即保存原文件！确保下次再打开时 它的编号是2223 另存的文件是2224 这个意思 谢谢

追答

以下是以A2内容为文件名另存在Excel默认目录下（A2有修改时才另存）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("Y2") Range("A2") Then
Range("Y2") = Range("A2")
'ActiveWorkbook.Save
m = Range("A2")
ActiveWorkbook.SaveAs Filename:=m, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Else
End If
End Sub

Answer 2

我觉得你这样会增加电脑负担。可以在打开excel时就运行vb代码，把指定的单元格数值赋值给一个变量，然后不断地检查这个单元格是否等于变量，如果相等，就执行保存。

追问

多谢 ！我简单说下我要实现的功能 一份打印单据里面的内容框架是固定不变的 需要实现每次打开文件时指定单元格内的编号便会自动+1，编辑完成后关闭文件时会自动以特定单元格里的内容为名称自动保存到指定的文件夹内 源文件格式内容不变，再打开时依然是空白的固定框架。现在想实现的是允许在关闭时 有编号（加过1的）单元格可以在源文件内改变！多谢！