Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
 
Обсуждаем вопросы только по Excel VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.
 
Вопросы по работе с MS Excel, не относящиеся к программированию, задаем в теме Excel FAQ

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Предыдущие ветки топика: Часть 1, Часть 2
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях Excel
  • Описание Microsoft Excel File Format (eng.)
     
    Рекомендации:
    Если у Вас есть проблема, не решаемая стандартными средствами Excel (об этом можно уточнить здесь) или требующая автоматизации, попробуйте для начала записать макрос самим Excel через меню Сервис (Tools) - Макрос (Macro) - Начать запись (Record New Macro). Подробнее здесь. В большинстве случаев получившийся код (Сервис-Макрос-Макросы-Изменить) Вас не удовлетворит, но подскажет, какие объекты-методы-свойства использовать.  
    Другой Ваш помощник - Просмотр объектов (Object Browser). Ну и встроення помощь (F1), естественно.
     
    Если Вы в тупике, покажите Ваш код (или часть кода) здесь.  Если вылазит ошибка, цитируйте ее полностью. Если код слишком большой, используйте тeг [more].
    Используйте отладчик - Breakpoints (F9), Watches (Shift-F9), Steps (F8 и др.) Сильно облегчает поиск ошибок.
     
    Рекомендуется к прочтению:
  • Первые шаги с Excel VBA
  • Excel VBA: Приёмы программирования
  • WinApi. Лекция из курса "Основы офисного программирования и язык VBA" (для продвинутых)
  • Daily Dose of Excel (eng.) - тематический блог: советы по работе с Excel и прочие материалы
  • Excel Macros & Excel VBA Code Tips, Tricks (eng.) - советы, трюки и уловки
  • Mr. Excel (forum) (eng.) - весьма оживленный форум по Excel&VBA.
  • Приемы, хитрости, трюки и нюансы работы в Microsoft Excel - сайт "Планета Excel", целиком посвященный Excel и всему, что с ним связано.
  • Microsoft Excel: Таблицы и VBA. Справочник. Вопросы и Ответы. Советы. Примеры.  
     
    Родственные топики:
  • Вопросы по работе с MS Excel - Excel FAQ - часть 1, часть 2, часть 3
  • Технические проблемы с MS Office 2003 или Office XP.
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • Книжульки по VBA - книги по программированию с использованием VBA
     
    Конкретные вопросы:
    Форма-заставка
    Как запустить макрос при изменении положения курсора или значения ячейки
  • Пример 1
  • Пример 2
  • Пример 3 (проверка области)
  • Пример 4
  • Пример 5
    Зацикливание в функции Change или SelectionChange
     
    Ранжирование без пробелов (макрос включает функции сортировки массива и удаления дубликатов, работает и в Excel 2007)
  • под Office 97
     
    Добавление в главное меню своего пункта, ассоциированного с макросом
    Создание ярлыка на рабочем столе
    Снятие защиты листа при забытом пароле
    Смена раскладки клавиатуры
    Скролл формы колесом прокрутки мыши
    Оптимизация кода по быстродействию использованием массивов
    Найти "чужое" окно и нажать в нем кнопку (вписать текст в текстовое поле)
    Работа с UNICODE-символами в VBA: запись, чтение из ячейки, перевод в ASС и обратно
    Как программно подключить дополнительные библиотеки (например, "Microsoft Scripting Runtime" или "Microsoft ActiveX Data Objects 2.8 Library) через References
     
    Перечень основных ColorIndex'ов из MSDN
     
    Смежные темы:
    Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
    Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
    Программы » Word FAQ | Excel FAQ | Access FAQ
    Прикладное программирование » Word VBA | Access VBA  
    Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
    Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
    Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
    Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007
    • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:16 11-01-2010 | Исправлено: ALeXkRU, 16:42 03-08-2021
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ребят, откуда Вы это все знаете?
    smirnvlad
    спасибо, код сработал так как надо!
    Правда у меня не получилось использовать его как функция, зато в тексте данный скрипт не выдавал ошибок.
    Благодарю!
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 22:06 08-05-2011
    smirnvlad

    Full Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980

    Цитата:
    не получилось использовать его как функция

    Подробнее...
    Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 18:49 09-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    smirnvlad
    Хорошо, спасибо.
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 11:03 10-05-2011
    fluffykzn

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Приветствую.
    Подскажите, как запустить на печать сразу всю книгу, но перед этим вызвав диалог выбора принтера.
     
    По команде Application.Dialogs(xlDialogPrint).Show диалог выводится, но стоит галочка на "печать выделенных листов" и постоянно ее нужно прекючать на "печать всей книги". Может при открытии этого диалогового окна сразу возможно установить этот параметр?
     
    Команда ActiveWorkbook.PrintOut Copies:=1, Collate:=True не подходит потому что печатается на выбранный по умолчанию принтер, что не устраивает, но и конкретного имени принтера нет - поэтому хотелось бы выбрать самому.
    Всего записей: 2 | Зарегистр. 18-06-2007 | Отправлено: 16:46 10-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    fluffykzn, а Application.ActivePrinter не поможет? И для Application.Dialogs есть еще xlDialogPrinterSetup. Может удастся что-то скомбинировать :)
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 17:11 10-05-2011
    fluffykzn

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    asbo
    Спасибо, так и сделаю.
    Всего записей: 2 | Зарегистр. 18-06-2007 | Отправлено: 09:53 11-05-2011
    Mpa3b



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    На Хрюше выдает ошибку, что файл очень сильно поврежден, восстанавливает, пишет очень сильно поврежден и восстановить мало что удалось,  

    такая же петрушка(vista). писал в офисе 98 ом. затем 2000 м конвертировал. сегодня после попытки восстановления весь vba код теряется. сообщение excel я, что утерян VBA код.
    чего только не перепробовал... 98ой офис не открывает, такая же петрушка. наверное нужно в 98ой винде все восстанавливать.
    да, вьювер екселевский и тот не может открыть такие файлы
    Всего записей: 1101 | Зарегистр. 23-03-2004 | Отправлено: 21:48 11-05-2011
    geka6pucT

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет!
    Тут мне поручили разобраться с макросом ексель... С макросами я всего лишь сталкивался пару раз.
    Макрос на excel' е 2003, вылетает с ошибкой Runtime error 438 Object doesn't support this property or method, на строке:

    Код:
     
    Worksheets("ТОтч").Date_TN.Value = Format(DateToday, "dd.mm.yy")
     

     
    Собственно сначала процедура даже компилится не хотела, но затем я установил microsoft windows common controls-2 6.0, и теперь вот, описанная выше ошибка. В Referances крыжик напротив microsoft windows common controls-2 6.0 стоит.
    Я поискал эти переменные Date_TN и Date_TE, но их определения я не нашел.
     
    Подскжите пожалуйста куда копать? Раньше все работало, но пришлось переставить систему и все поломалось.
    Спасибо за помощь!
     
    Весь код процедуры
    Всего записей: 38 | Зарегистр. 08-09-2006 | Отправлено: 15:47 23-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    geka6pucTПолучается какие-то контроы на листах размещены, которые называются Date_TN и Date_TE. Там таких еще полно (Date_V, Opl_TOtch, FormOpl). Посмотри в ObjectBrowser (F2) или ПКМ на переменной Definition.
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 16:55 23-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день, Коллеги.
    Возник вопрос. При открытии книги макрос сканирует, например с/н диска С и записывает его в ячейку. Нужно, что бы при первом запуске он скопировал с/н в ячейку, удалил часть этого кода (запись в ячейку) и дальше проверил текущий с/н с записанным, если все ок, выход.
    Заранее спасибо.
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 16:08 26-05-2011
    AndVGri

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980

    Цитата:
    проверил текущий с/н с записанным

    Э, может сравнил?

    Цитата:
    если все ок, выход

    Ок - это при каком условии?
     
    Переведи себя
    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 16:28 26-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Извините.
     
    Private Sub Workbook_Open()
    z = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)
    Worksheets("Data").Range("A100") = z
     
    z1 = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)
    If z <> z1 Then MsgBox (Error) Else Exit Sub
     
    End Sub
     
    Тут есть пару вопросов:
    1) Можно ли записать значение SerialNumber не в ячейку листа, а в модуль?
    2) Как при первом запуске удалить строчку:
     
    z = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)
     
    Спасибо.
     
    Добавлено:
    Может опять неясно выразился.
    1 запуск, должен быть код ввиде:
     
    Private Sub Workbook_Open()  
    z = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)  
    Worksheets("Data").Range("A100") = z  
    z1 = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)  
    If z <> z1 Then MsgBox (Error) Else Exit Sub  
    End Sub
     
    Повторные запуски (код должен трансформироватся в такой):
     
    Private Sub Workbook_Open()  
    Worksheets("Data").Range("A100") = z  
    z1 = Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber)  
    If z <> z1 Then MsgBox (Error) Else Exit Sub  
    End Sub  
     
    Спасибо.
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 17:07 26-05-2011 | Исправлено: andrewkard1980, 17:19 26-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980Для программного модифицирования кода нужно подключить библиотеку VBIDE (Microsoft Visual Basic for Applications Extensibility 5.3). А далее см. класс CodeModule.
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 17:42 26-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    asbo
    Спасибо. Но наверное не туда копаю. Может тут можно сделать 2 модуля с:
    Private Sub Workbook_Open()  
     
    первый проверит с/н и запишет в ячейку и удалится
    второй будет сверять текущие значение с/н с записанным?
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 18:22 26-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    ...сделать 2 модуля с: Private Sub Workbook_Open()

    Нет. Это ведь не просто программный модуль, а модуль класса, и Private Sub Workbook_Open не просто процедура, а обработчик события Open класса Workbook.  
     
    Честно говоря эта защита белыми нитками шита...
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 18:47 26-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Честно говоря эта защита белыми нитками шита...

    Не спорю, asbo. Но хоть что-то...
    А сейчас есть вариант более или менее?
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 21:46 26-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    Я не спец, просто немного представляю себе эту проблему. Да и тема немного не для этого топика - вопрос-то об идее, концепции, а не ее реализации... По реализации я тебе подсказал, что смог :)
     
    Определись, что тебе защитить надо - данные, структуру или код? Или в комбинации... В зависимости от этого и подходы будут разные. Но, повторюсь, здесь это будет оффтоп :(
     
    Погугли. Материалов, уверяю, множество в сети по всем названным.  
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 22:16 26-05-2011
    AndVGri

    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    Вот, потихонечку становиться ясно. Вопрос состоит из двух частей
    1. Что считать повторным запуском и как его определить?
    Скорее всего повторный запуск по времени. То есть получаем текущее время, сравниваем с уже сохранённым, если разница меньше допустимой, то считаем запуск повторным и выполняем действия для повторного запуска. Если разница больше допустимой, то запуск первичный - выполняем действия для первого запуска, сохраняем время первого запуска для последующих сравнений времени запусков.
    2. Как хранить.
    Думаю, что модифицировать модуль ни к чему. Проще записывать/читать с/н и дату первого запуска (см. выше):
    2.1 в ячейки скрытого листа книги.
    2.2 в реестр методами SaveSetting, GetSetting
    2.3 создать свою структуру и читать/писать её в файл  
     
    Естественно нужно предусмотреть отслеживание ситуации, когда всё это выполняется первый раз. То есть проверить: существование файла, записей реестра, записей в ячейках, считать такой момент первым запуском и создать: файл, записи реестра, записи в ячейках.
    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 03:22 27-05-2011
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    asbo
    Спасибо. После гугления начинаешь понимать - что все это бесполезно
    AndVGri
    Спасибо. Будем пробывать.
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 12:23 27-05-2011
    asbo

    BANNED    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    Цитата:
    ...все это бесполезно

    Ну, примерно так. Я не хотел это категорично утверждать сразу, на уровне аксиомы. Эксель можно эффективно защитить от пользователя в концепции фулпруф. Но, похоже, это не твой случай :) Все остальное или ломается на 1-2-3, или же затраты на защиту вырастают просто неприлично.
     
    В конечном итоге все зависит от уровня подготовленности конечного пользователя. Но ему никто не мешает обратиться к более опытным.
    Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 13:08 27-05-2011
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru