Як я можу створити функцію клацання між вхідним полем швидкого входу від A1 до A10 для введення користувачем цифр у vba

Я намагаюся створити поле введення для вибору діапазону (від A1 до A10), кожного разу, коли я клацаю будь-які комірки від 1 до 10, я хочу підказати поле введення для введення цифр. Ось що я і зробив, але це не працює належним чином, будь-яка пропозиція .. Також я маю свій код під THISWORKBOOK замість модуля1.

  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

Якщо я правильно зрозумів, що ви плануєте, вам слід знайти тему подій 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