ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору     Обсуждаем вопросы только по Excel VBA (программирование макросов, скриптов, пользовательских функций и т.п.). Приветствуются ссылки на ресурсы и справочную литературу по теме.   Вопросы по работе с MS Excel, не относящиеся к программированию, задаем в теме Excel FAQ   Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются. Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)   Предыдущие ветки топика: Часть 1   Информация общего характера: Список соответствия имен функций в английской и русской версиях 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 Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:58 23-04-2007 | Исправлено: JekG, 22:32 10-01-2010

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Solenaja у меня всё работает. Возьми новую создай Книгу и вставь туда макрос, и поробуй снова. Он самый -2007 ))   Roka Цитата: И надо ли после данной процедуры заново ставить защиту книги?   ну это я не знаю, надо ли тебе ставить пароль на книгу???))) Если тебе надо, то ставь, а если не надо - то не ставь ) Цитата: а как передать пароль ActiveSheet.Unprotect/Protect ?   Возьми в редакторе VBA поставь на это слово курсор и нажми F1. Найди в справке команду в сочетании ActiveSheet.Unprotect и увидишь синтаксис. Вот так ActiveSheet.Unprotect ПеременнаяТвойПароль Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 10:47 25-09-2009 | Исправлено: visual73, 10:53 25-09-2009

Solenaja Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору visual73 почему то выскакивает окно для ввода пароля - "Снять защиту книги" ---------- Могу помочь, но только своими знаниями и ... Всего записей: 4246 | Зарегистр. 02-09-2001 | Отправлено: 11:10 25-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Solenaja Еще раз взял код из http://forum.ru-board.com/topic.cgi?forum=33&topic=8273&start=3680#15 Вставил в новую книгу. Запустил - все сработало. Сработало то что написано в макросе! По другому быть не может.   Твой вопрос из области "почему то не работает"! Что не работает, что перед этим сделано, нет конкретики. На такие вопросы нет ответа. Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 11:24 25-09-2009

Solenaja Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору visual73 я же и говорю конкретно после запуска макроса почему то выскакивает окно для ввода пароля - "Снять защиту книги" макрос добавлен в PERSONAL.XLSB запуск из новой книги тоже самое   жмешь отмену вываливается с ошибкой, на книгу ставится пароль в общем удлив строку ActiveWorkbook.Protect PWORD, true, true - окно с вводом пароля не появляется   Sub superprotect()       Dim PWORD As String, i As Integer, n As Integer     PWORD = "xxxxxx"     n = ActiveWorkbook.Sheets.Count     For i = 2 To n         With Sheets(i)             .EnableSelection = xlUnlockedCells             .Visible = 2             .protect Password:=PWORD, AllowFormattingRows:=True         End With     Next           Sheets(1).protect Password:=PWORD, AllowFormattingRows:=True     Sheets(1).EnableSelection = xlUnlockedCells           With ActiveWindow            .DisplayHorizontalScrollBar = False            .DisplayVerticalScrollBar = False            .DisplayHeadings = False            .DisplayWorkbookTabs = False            .DisplayGridlines = False     End With     ActiveWorkbook.protect Structure:=True End Sub     большое спасибо ! ---------- Могу помочь, но только своими знаниями и ... Всего записей: 4246 | Зарегистр. 02-09-2001 | Отправлено: 11:44 25-09-2009 | Исправлено: Solenaja, 11:45 25-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Solenaja у меня и в PERSONAL.XLSB работает. Можно означить конкретную книгу по имени. Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 12:40 25-09-2009 | Исправлено: visual73, 12:41 25-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору alexusav повесь кнопку не на лист а на панель инструментов/ленту Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 20:56 25-09-2009

brok3n Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору есть такая табличка:     можно ли как-нибудь сделать, чтобы Excel автоматически выделял номера песен (01, 02... 99) жирным?   если да, то можно как-нибудь применить это к уже введённым данным? а ещё хочется, если, опять же, можно, чтобы по мере ввода песен ("01 - Название", например), номера становились жирненькими Всего записей: 61 | Зарегистр. 17-08-2006 | Отправлено: 22:59 25-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору alexusav Если у тебя не выше Excel2003, то помести в твой файл макрос ВоркБук_Автооупен, и при открытии книги будет создаваться кнопка на панели, а при закрытии можно сделать чтобы удалялась   Добавлено: brok3n у тебя там одна ячейка - а это текстовая строка. Обработка каждой такой строки будет достаточно затруднительна. Также нужно учесть что цифры могут попадаться и в названии песен. Если подходить здраво - не реализуемо (не в смысле того что совсем нельзя). Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 09:24 26-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору brok3n великолепно! Можно сказать - тонкое решение проблемы! )) Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 12:09 26-09-2009

visual73 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SaporousWolf не проще ли будет реализовать эту задачу в Access? Он намного гибче при работе с выборками и связями. Можно например сделать таблицу со списком оборудования и его стоимостью, таблицу с заказами на ремонт. Если стоимость оборудования увеличилась, легко изменить либо конкретную одну запись, либо всё оборудование списком умножить на константу. Далее формирую новый заказ уже будут использоваться новые цены.   Roka     ActiveCell.Rows(0).Insert     ActiveCell.Rows(0).Delete   SaporousWolf я так понимаю список оборудования - это уникальные позиции? Тогда набрав все члены оборудования в ListBox мы уже знаем их расположение. Дальше дело техники. Всего записей: 962 | Зарегистр. 26-12-2005 | Отправлено: 13:19 26-09-2009 | Исправлено: visual73, 14:07 26-09-2009

InSe0F Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору есть следующая задача: каждую неделю приходит определенного формата Excel файл с расписанием надо его импортить в Outlook - есть какие нить штатные возможности или только VBA? Всего записей: 533 | Зарегистр. 13-03-2006 | Отправлено: 16:21 27-09-2009

ZlydenGL Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Разве что запаролить (запаролить макросы, конечно - дописал позже). Или вынести макросы в "общий" файл .xla.   Если нужно запаролить сам ФАКТ присутствия макросов - то либо .xla, либо подписать своим сертификатом макрос, установить этот сертификат на нужной машине и открыть файл, поставив галочку "Запомнить выбор". ---------- Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 18:06 28-09-2009 | Исправлено: ZlydenGL, 18:08 28-09-2009

Страницы: 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

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

ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование