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

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

Если я правильно понял, что вы планируете, вы должны искать тему событий 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 
  • Как оптимизировать функцию VBA в Excel
  • Является ли это RegEx для сопоставления любой ссылки на ячейку в формуле Excel?
  • Кнопка добавления / вычитания Excel VBA
  • Почему работает Range, но не Cells?
  • VBA извлекает данные XML в Excel
  • Не удается VBA записывать данные в ячейки Excel 2007/2010 внутри функции
  • Создание документов Word (в Excel VBA) из серии шаблонов документов
  • MySQL для EXCEL (2010) - пользовательский запрос выбора
  • VBA: разделите значения ячеек на несколько строк и сохраните другие данные
  • Можно ли программным образом передавать параметры в запросе на обновление Microsoft Access?
  • Excel: невероятное сокращение и расширение элементов управления
  • Давайте будем гением компьютера.