Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.12.2008, 19:26   #1
Siver
Пользователь
 
Регистрация: 17.12.2008
Сообщений: 13
По умолчанию MsgBox кнопка "Отмена"

Здравствуйте!
Помогите доработать макрос.
У меня сравниваются две ячейки при деактивации листа и если значения не равны выскакивает окно с предупреждением и выделяется лист и ячейка где необходимо исправить значение. Окно имеет две кнопки: "ОК" и "Отмена", мне нужно что-бы при нажатии "Отмена" не происходило: "выделяется лист и ячейка где необходимо исправить значение", а просто выделялся следующий лист для редактирования.
В прикрепленном файле это лист с названием: "590", ячейки с желтой заливкой.
Я пока-что не силен в VBA, но учусь.
Спасибо!
отчет1.rar
Siver вне форума
Старый 23.12.2008, 19:45   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
Private Sub Worksheet_Deactivate()
    If [S55] <> [Y55] Then
        If MsgBox("Не совпадает расход топлива!", vbOKCancel + vbExclamation, "Внимание!") = vbOK Then Sheets("590").Select: Range("Y55").Select
    End If
End Sub
EducatedFool вне форума
Старый 23.12.2008, 19:55   #3
Siver
Пользователь
 
Регистрация: 17.12.2008
Сообщений: 13
По умолчанию

EducatedFool
Огромное Спасибо! Все работает.
Может посоветуешь литературу по VBA, где объясняется все человеческим языком?
Siver вне форума
Старый 23.12.2008, 20:02   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Может посоветуешь литературу по VBA, где объясняется все человеческим языком?
Честно говоря, я ещё не встречал книг с изложением материала на нечеловеческом языке

Я изучал VBA, пользуясь исключительно справочной системой Office
(файл C:\Program Files\Microsoft Office\OFFICE11\1049\VBAXL10.CHM)

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

Книг по VBA множество - начните с любой (наберите в поиске строку Книги по VBA)

Я начинал изучение VBA с анализа кода, записанного макрорекордером.
EducatedFool вне форума
Старый 23.12.2008, 20:10   #5
Siver
Пользователь
 
Регистрация: 17.12.2008
Сообщений: 13
По умолчанию

Спасибо!!!
Siver вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49
Прцедура для Кнопки "Отмена" Inbox Общие вопросы Delphi 4 04.06.2007 01:32