如何创buildA1到A10提示input框之间的点击function，以便用户inputvba中的数字

我正在尝试创buildinput框来select范围（A1到A10），每当我点击1到10之间的任何单元格时，我想提示input框input数字。 这就是我做的，但它不能正常工作，任何build议。也有我的代码在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 

Answer 1

你必须把你的代码放在适当的子部分。 这一次，您需要使用Sheet Selection Change事件来在每次用户单击某处时运行代码。 您还希望确保代码仅在用户在所需范围内单击时运行。

另外，我认为你的代码还有几个错误，比如不检查用户input以确保他们input了一个数字，或者没有正确地find第一个空单元，但是你可以自己弄清楚，或者提出另一个问题。 我不确定你需要什么，所以我不会试图解决这些问题。

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim QtyInput As Double Dim BlankRow As Long Application.EnableEvents = False If Target.Column = 1 And Target.Row < 11 Then BlankRow = Range("A11").End(xlUp).Row QtyInput = InputBox("Enter today expense") Cells(BlankRow, 1).Font.Bold = True Cells(BlankRow, 1).Value = QtyInput End If Application.EnableEvents = True End Sub