Проверка на заполнение.

Pavel55 · 11 июл 2007, 22:34

Только, на сколько я знаю, её надо обязательно в конце макроса сбрасывать, т.е.

Application.StatusBar = False

Asya · 11 июл 2007, 22:43

AlexZZZ писал(а):Asya, не будем Гуру по пустякам отвлекать.

я этого не знала, простите за отвлечение по пустякам

AlexZZZ · 11 июл 2007, 22:58

&quot писал(а): я этого не знала, простите за отвлечение по пустякам

Я конечно же пошутил, имея Aenta в виду, извините! Признаю, что я самый малограмотный в этом топике (а может и на всём форуме)!

Aent · 11 июл 2007, 23:10

&quot писал(а):её надо обязательно в конце макроса сбрасывать

Не обязательно, но хороший тон

И не забываем включать отображение StatusBar

Юзер ведь может его отключить ...

Код: Выделить всё

Dim saveStatusBar as boolean
saveStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
............................................
Application.StatusBar = False 'Microsoft Excel has control of the status bar
Application.DisplayStatusBar = saveStatusBar 'Restore old state

AlexZZZ · 11 июл 2007, 23:26

Полезные советы, спасибо! Кстати, почему-то когда сделал так

Код: Выделить всё

    Application.DisplayFullScreen = True
    Application.DisplayStatusBar = True

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

Может, нужно ещё какой-нибудь параметр задать?

Aent · 12 июл 2007, 00:32

Во весь экран - это во весь экран. Если вы задаёте
Application.DisplayFullScreen = True
Режим отображения строки состояния не имеет значения. Её по определению не будет.
Как и остального ...

AlexZZZ · 12 июл 2007, 00:45

&quot писал(а):Режим отображения строки состояния не имеет значения. Её по определению не будет.

Ну как же не будет? Application.DisplayFullScreen = True убирает все, кроме меню, а Application.DisplayStatusBar = True как раз строку состояния выводит! Достаточно убрать панель задач мышкой и вот она родная под ней прячется! Кстати потом можно вернуть панель задач на место и размер окна Excel автоматически подгоняется под её верхнюю границу. Только почему-то автоматически это делать не хочет. Видимо, такой глюк с фуллскрином и панелью задач.

Aent · 12 июл 2007, 01:15

AlexZZZ, с FullScreen был неправ. Поторопился

AlexZZZ · 12 июл 2007, 22:11

Бывает... Обратная сторона медали: когда много знаешь, на мелочи иногда внимания не обращаешь. По себе знаю (я не про vba, конечно!).

Aent · 14 июл 2007, 02:29

Кстати, вы можете для проверки на заполнение нужных ячеек использовать
валидацию данных (Данные-> Проверка).
Так для того что бы указать что в ячейку С1 можно вводить данные только когда
непусты ячейки A1 и B1 нужно:
1.Выбрать ячейку С1
2.Выбрать в меню Данные->Проверка
3.Выбрать тип данных Другой и ввести формулу: =(ДЛСТР(A1)*ДЛСТР(B1))>0
флаг "Выводить сообщение об ошибке" на одноимённой закладке лучше сбросить.
Проверка распространяется элементарным копированием содержащей её ячейки.
Excel автоматически модифицирует формулы.