时间戳

首页 > 解决方案 > 将输入框默认更改为当前输入

excel - 将输入框默认更改为当前输入

问题描述

我正在尝试编写一个宏，它将输入框默认值重新设置为最后输入的值，因此如果我在下面的输入框中键入“2”，默认值将更改为 2，以便下次运行宏.

只有在我运行宏的工作簿关闭后，才能恢复原来的默认值

(Excel 2007)

    ROWSDOWN = InputBox("enter no.of rows DOWN to move the cells", "VerticalMove", _
            -1) 'default -1 (=1 row up)

我尝试过设置PREV_ROWSDOWN = ROWSDOWN，但我的尝试（如下）不起作用：下次我运行宏时，输入框默认值为 0。宏结束时 PREV_ROWSDOWN（和 ROWSDOWN）的值会丢失吗？

ROWSDOWN = InputBox("enter no.of rows DOWN to move the cells (0=no change, - =move UP)", "VerticalMove", _
            PREV_ROWSDOWN) 'should set default as value entered last time the macro run
        PREV_ROWSDOWN = ROWSDOWN ''NW-not saved after macro finished, default changed to "0"

我怎样才能做到这一点？

标签： excelvbainputbox

解决方案

  1. 为了更好的可读性，我建议不要使用全大写变量名。
  2. 我建议使用Application.InputBox 方法，而不仅仅是InputBox因为您可以指定Type输入的。所以如果你设置Type:=1用户只能输入数字。
  3. 确保您使用Option Explicit强制正确的变量声明。我建议始终激活Option Explicit：在 VBA 编辑器中转到工具›选项›需要变量声明。

一直持续到工作簿关闭……</h3>

要使您的默认值在工作簿关闭之前保持不变，您需要将其声明为Static（请参阅静态语句）。

Option Explicit

Public Sub Test()
    Static RowsDown As Long  'Static variables will keep the value until next call
    RowsDown = Application.InputBox(Prompt:="enter no.of rows DOWN to move the cells (0=no change, - =move UP)", Title:="VerticalMove", Default:=RowsDown, Type:=1) 
End Sub

请注意，如果您关闭并重新打开工作簿，它将0再次以beeing 开始。如果您希望它有所不同，您需要在您的Static行之后放置类似以下内容：

If RowsDown = 0 Then RowsDown = -1

永远坚持……</h3>

当工作簿关闭时，变量无法保留值。如果即使工作簿关闭并重新打开，您也想让您的价值保持不变，那么您需要将其保存到（可能是隐藏的）工作表的单元格中。

Option Explicit

Public Sub Test()
    Dim RowsDown As Long
    RowsDown = Application.InputBox(Prompt:="enter no.of rows DOWN to move the cells (0=no change, - =move UP)", Title:="VerticalMove", Default:=ThisWorkbook.Worksheets("hiddensheet").Range("A1").Value, Type:=1) 
    ThisWorkbook.Worksheets("hiddensheet").Range("A1").Value = RowsDown
End Sub

推荐阅读