Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Zvuk9
0 / 0 / 12
Регистрация: 07.01.2016
Сообщений: 49
#1

Заполнение ячеек - VBA

13.06.2017, 17:30. Просмотров 159. Ответов 1
Метки нет (Все метки)

Отлавливаю ошибку и нужно реализовать такую последовательность:если хоть одна ячейка заполнена,то не выводим MsgBox,а если не заполнена не одна,то выводим:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Long, chislo As Long, i As Long, del As String
On Error GoTo Message
'тело процедуры
Exit Sub
Message:
MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!"
End Sub
Когда я ввожу значение в любую ячейку,то после ввода и обработки его все равно выводится MsgBox,а мне надо только,чтобы выводилось,когда ячейки все пустые.
http://www.cyberforum.ru/vba/thread1659221.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2017, 17:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполнение ячеек (VBA):

Заполнение ячеек из массива
Доброго времени суток! Помогите разобраться. Я понимаю код корявый, но надо...

Заполнение диапазона ячеек
Еще вопрос. Запросите у пользователя диапазон ячеек и заполните его...

Заполнение диапазона ячеек
Запросите у пользователя диапазон ячеек и заполните его случайными цифрами от 0...

Автоматическое заполнение ячеек матрицы
Помогите написать код программы, чтобы при нажатии на кнопку автоматически...

Заполнение ячеек по нажатию на кнопку
Здравствуйте! Помогите, пожалуйста, исправить мой код.. Эта функция вызывается...

1
nodirstein
25 / 25 / 8
Регистрация: 12.04.2015
Сообщений: 75
14.06.2017, 08:50 #2
Цитата Сообщение от Zvuk9 Посмотреть сообщение
Когда я ввожу значение в любую ячейку,то после ввода и обработки его все равно выводится MsgBox,а мне надо только,чтобы выводилось,когда ячейки все пустые.
Может так?

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a As Long, chislo As Long, i As Long, del As String
    If Target.Value = "" Then GoTo Message
        'тело процедуры
        Exit Sub
Message:
    MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!"
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2017, 08:50
Привет! Вот еще темы с решениями:

Заполнение заданого количества ячеек
Ребятушки, Ich brauche Hilfe, как говорят немцы) Нужно мне чтобы прога брала...

Заполнение диапазонов ячеек MS Excel
1. Создать макрос для рабочей книги MS Excel, позволяющий формировать значения...

Заполнение ячеек датами с интервалов
Как это можно сделать? Заполнить с помощью макроса ячейки столбца А датами от...

Заполнение ячеек случайными числами
Поскажите пожалуйсто, каким самым простым способом можно забить ячейки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru