Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

30 Март 2020, 09:34 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2 3 4 5 6 7 8 »   Вниз
  Печать  
Автор Тема: Выполнить поиск на странице макросом  (Прочитано 21999 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 864


« Ответ #45519: 28 Февраль 2018, 16:50 »

А вот еще интересный момент
Код:
d=InputBox("Введите статус", "Статус документа")
      If d="" Then Exit Sub
человек случайно ничего не ввел, и все - процедура прекращается, в независимости от того, что до этого она там в ячейки что-то понаписала, и скорее всего уже повторный запуск будет некорректным.

но тут то хоть сразу проверяет  и выходит, а здесь
Код:
a=InputBox("Введите номер", "Параметры поиска")
For i=1 To 6
oSheet = oDoc.Sheets(i)
If a="" Then Exit Sub
сперва ввод, потом запуск цикла, инициализация переменной и только потом смотрим, а ввели ли мы чего и, если нет, все закрываем Улыбка
Записан
Страниц: « 1 2 3 4 5 6 7 8 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!