Como posso criar uma função de clique entre A1 a A10? inputbox para o usuário inserir números em vba

Question

Eu estou tentando criar caixa de entrada para selecionar o intervalo (A1 a A10), toda vez que clico em qualquer célula entre 1 a 10, eu quero solicitar caixa de entrada para inserir números. Isso é o que eu fiz, mas não está funcionando corretamente, qualquer sugestão .. Também tenho meu código em THISWORKBOOK em vez disso 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

Se eu entendi corretamente o que você está planejando, você deve pesquisar o tópico de eventos do Excel. Nesse caso, provavelmente Worksheet_SelectionChange ou Worksheet_BeforeDoubleClick. Abaixo, o exemplo é para o módulo de planilha.

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