Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ввод информации в ячейку через переменные - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод информации в ячейку через переменные (Макросы/Sub)
Ввод информации в ячейку через переменные
Siktorovich Дата: Понедельник, 16.11.2020, 19:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый вечер!

Наверное, вопрос слишком простой, но перепробовал много вариантов, но так и не смог получить желаемое.

Хотел бы попросить помочь с вводом данных в ячейку, и обратиться к ней через переменные.

[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 - Понедельник, 16.11.2020, 21:24
 
Ответить
СообщениеДобрый вечер!

Наверное, вопрос слишком простой, но перепробовал много вариантов, но так и не смог получить желаемое.

Хотел бы попросить помочь с вводом данных в ячейку, и обратиться к ней через переменные.

[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
Дата добавления - 16.11.2020 в 19:36
Pelena Дата: Понедельник, 16.11.2020, 21:22 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16817
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
А что такое h?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
А что такое h?

Автор - Pelena
Дата добавления - 16.11.2020 в 21:22
Siktorovich Дата: Понедельник, 16.11.2020, 21:25 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, извиняюсь. Указал переменную h.
 
Ответить
СообщениеPelena, извиняюсь. Указал переменную h.

Автор - Siktorovich
Дата добавления - 16.11.2020 в 21:25
Pelena Дата: Понедельник, 16.11.2020, 21:31 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16817
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
У Вас слова col по-разному написаны. Видимо, где-то русская буква затесалась)

Вот для таких случаев и нужен Option Explicit :)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеУ Вас слова col по-разному написаны. Видимо, где-то русская буква затесалась)

Вот для таких случаев и нужен Option Explicit :)

Автор - Pelena
Дата добавления - 16.11.2020 в 21:31
Siktorovich Дата: Понедельник, 16.11.2020, 21:41 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, так и есть. Спасибо. Всегда ставил option explicit, а сейчас пропустил. Премного благодарен!
 
Ответить
СообщениеPelena, так и есть. Спасибо. Всегда ставил option explicit, а сейчас пропустил. Премного благодарен!

Автор - Siktorovich
Дата добавления - 16.11.2020 в 21:41
Kuzmich Дата: Понедельник, 16.11.2020, 21:46 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
[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
[/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
[/vba]

Автор - Kuzmich
Дата добавления - 16.11.2020 в 21:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод информации в ячейку через переменные (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!