Ввод числа в ячейки без заливки
Из этого видео вы узнаете ввести любое число в заранее выбранный диапазон в ячейки без заливки Коротко и по делу. Никакой воды. Меня зовут Томаш, я работаю в приложениях MS Office более 9 лет и умею эффективно использовать их. Хочу поделиться с Вами своим опытом. На канале Вы найдёте ролики, которые помогут Вам избавиться от рутины в работе, эффективно решать стоящие перед Вами задачи в Excel, Power Query и Word. Почта для вопросов, Ваших задач и консультаций: me@tomash100.ru Код макроса: Sub Ввод_чисел_в_ячейки_без_заливки() 'Объявляем переменные Dim some_variable_number As Integer Dim some_variable_range As Range 'Пользователь выбирает диапазон и число для ввода Set some_variable_range = Application.InputBox("Выбирите диапазон", Type:=8) some_variable_number = Application.InputBox("Введите число", Type:=1) 'Цикл по перебору ячеек из диапазона и проверки есть ли в ячейке заливка For Each some_variable_range In some_variable_range If some_variable_range.Interior.ColorIndex = xlNone Then some_variable_range.Value = some_variable_number End If Next some_variable_range End Sub Telegram канал: t.me/tomash_rakhovetckii Тайм коды: 00:00 - Приветствие 00:05 - О чём видео 00:26 - Работа макроса 01:05 - Разбор кода макроса 01:33 - Окончание
Из этого видео вы узнаете ввести любое число в заранее выбранный диапазон в ячейки без заливки Коротко и по делу. Никакой воды. Меня зовут Томаш, я работаю в приложениях MS Office более 9 лет и умею эффективно использовать их. Хочу поделиться с Вами своим опытом. На канале Вы найдёте ролики, которые помогут Вам избавиться от рутины в работе, эффективно решать стоящие перед Вами задачи в Excel, Power Query и Word. Почта для вопросов, Ваших задач и консультаций: me@tomash100.ru Код макроса: Sub Ввод_чисел_в_ячейки_без_заливки() 'Объявляем переменные Dim some_variable_number As Integer Dim some_variable_range As Range 'Пользователь выбирает диапазон и число для ввода Set some_variable_range = Application.InputBox("Выбирите диапазон", Type:=8) some_variable_number = Application.InputBox("Введите число", Type:=1) 'Цикл по перебору ячеек из диапазона и проверки есть ли в ячейке заливка For Each some_variable_range In some_variable_range If some_variable_range.Interior.ColorIndex = xlNone Then some_variable_range.Value = some_variable_number End If Next some_variable_range End Sub Telegram канал: t.me/tomash_rakhovetckii Тайм коды: 00:00 - Приветствие 00:05 - О чём видео 00:26 - Работа макроса 01:05 - Разбор кода макроса 01:33 - Окончание