Наверное, вопрос слишком простой, но перепробовал много вариантов, но так и не смог получить желаемое.
Хотел бы попросить помочь с вводом данных в ячейку, и обратиться к ней через переменные.
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("$B$12:$B$340")) Is Nothing Then col = ActiveCell.Column r = ActiveCell.Row h = InputBox("Ввод числа", , 0) Cells(r, сol).Value = h End If End Sub
[/vba]
При вводе этого кода выдает ошибку. Debug останавливается на строчке Cells(r, сol).Value = h
Вопрос более менее общий, весь файл скинул сюда. Заранее благодарю!
Добрый вечер!
Наверное, вопрос слишком простой, но перепробовал много вариантов, но так и не смог получить желаемое.
Хотел бы попросить помочь с вводом данных в ячейку, и обратиться к ней через переменные.
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("$B$12:$B$340")) Is Nothing Then col = ActiveCell.Column r = ActiveCell.Row h = InputBox("Ввод числа", , 0) Cells(r, сol).Value = h End If End Sub
[/vba]
При вводе этого кода выдает ошибку. Debug останавливается на строчке Cells(r, сol).Value = h
Вопрос более менее общий, весь файл скинул сюда. Заранее благодарю!Siktorovich
Сообщение отредактировал Siktorovich - Понедельник, 16.11.2020, 21:24
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim h As Long If Not Intersect(Target, Range("$B$12:$B$340")) Is Nothing Then h = InputBox("Ввод числа", , 0) Target = h End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim h As Long If Not Intersect(Target, Range("$B$12:$B$340")) Is Nothing Then h = InputBox("Ввод числа", , 0) Target = h End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
