☰

如何在 A1 到 A10 提示输入框之间创建点击功能以供用户在 vba 中输入数字

tag-icon • tag-icon worksheet-function vba
如何在 A1 到 A10 提示输入框之间创建点击功能以供用户在 vba 中输入数字

我正在尝试创建用于选择范围（A1 到 A10）的输入框，每次单击 1 到 10 之间的任何单元格时，我都希望提示输入框输入数字。这就是我所做的，但它无法正常工作，有什么建议吗？另外，我的代码位于 THISWORKBOOK 下，而不是 module1 下。

  Function Find_Blank_Row() As Double

       Dim QtyInput As Double
       Dim BlankRow As Long
       BlankRow = Range("A10").End(xlUp).Row
       QtyInput = InputBox("Enter today expense")
       Cells(BlankRow, 1).Font.Bold = True
       Cells(BlankRow, 1).Value = QtyInput
  End Function

答案1

如果我正确理解了您的计划，您应该查找 Excel 事件主题。在这种情况下可能是 Worksheet_SelectionChange 或 Worksheet_BeforeDoubleClick。以下示例适用于工作表模块。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim PopupRange As Range
    Set PopupRange = Me.Range("A1:A10")

    If Not Intersect(PopupRange, Target) Is Nothing Then
        Dim InputCell As Range
        Set InputCell = PopupRange.Cells(PopupRange.Cells.Count).End(xlUp).Offset(1)
        InputCell.Font.Bold = True
        InputCell.Value = InputBox("Enter today expense")
    End If
End Sub

相关内容