☰

当我在一个单元格中输入新值时，如何使单元格值从一个单元格更改为另一个单元格

tag-icon • tag-icon microsoft-excel-2010
当我在一个单元格中输入新值时，如何使单元格值从一个单元格更改为另一个单元格

我想问一下如何制作和编写公式，使当我向单元格输入新值时，单元格值从一个单元格变为另一个单元格。等等 A1 单元格有 111 B1 单元格有 222 C1 单元格有 333 D1 单元格有 444
在这种情况下，当我将新值 555 放入 A1 时......我想要得到的是 A1 有 555 B1 有 111 C1 有 222 D1 有 333 之类的。请告诉我公式。

答案1

您正在描述单元格中输入值的下推堆栈或历史记录A1。

在工作表代码区域输入以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, B As Range, C As Range, D As Range
    Dim temp As Variant

    Set A = Range("A1")
    Set B = Range("B1")
    Set C = Range("C1")
    Set D = Range("D1")

    If Intersect(Target, A) Is Nothing Then Exit Sub
    If Target.Count <> 1 Then Exit Sub

    Application.EnableEvents = False
        temp = [A]
        Application.Undo
        [D] = [C]
        [C] = [B]
        [B] = [A]
        [A] = temp
    Application.EnableEvents = True
End Sub

因为它是工作表代码，所以很容易安装并自动使用：

  1. 右键单击 Excel 窗口底部附近的选项卡名称
  2. 选择查看代码-这将打开一个 VBE 窗口
  3. 粘贴内容并关闭 VBE 窗口

如果您有任何疑虑，请首先在试用工作表上尝试一下。

如果您保存工作簿，宏将随之保存。如果您使用的是 2003 以后的 Excel 版本，则必须将文件保存为 .xlsm 而不是 .xlsx

到消除宏：

  1. 调出如上所示的 VBE 窗口
  2. 清除代码
  3. 关闭 VBE 窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其工作！

相关内容