Làm cách nào tôi có thể tạo chức năng nhấp giữa hộp nhập nhanh nhắc A1 đến A10 để người dùng nhập số trong vba

Tôi đang cố gắng tạo hộp đầu vào để chọn phạm vi (A1 đến A10), mỗi khi tôi nhấp vào bất kỳ ô nào trong khoảng từ 1 đến 10, tôi muốn nhắc hộp nhập để nhập số. Đó là những gì tôi đã làm nhưng nó không hoạt động chính xác, bất kỳ đề xuất nào..Cũng tôi có mã của mình theo THISWORKBOOK thay vì 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

Nếu tôi hiểu chính xác những gì bạn đang lên kế hoạch, bạn nên tìm kiếm chủ đề sự kiện Excel. Trong trường hợp này có thể là Worksheet_SelectionChange hoặc Worksheet_B BeforeDoubleClick. Ví dụ dưới đây là cho mô-đun bảng tính.

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