Как я могу создать функцию щелчка между A1 и A10, чтобы пользователь мог вводить числа в VBA?

Question

Я пытаюсь создать поле ввода для выбора диапазона (от А1 до А10), каждый раз, когда я щелкаю по любой ячейке от 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

Answer 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