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

denisdenmm Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Так кто-нить может ответить на вопрос !!09:37 19-10-2007!!   Или же подскажите как в макросе сделать активную пустую нижнюю строку после определенного действия (она может находить и на 2-3 ячейки ниже)     не используй автофильтр, просто поставь условие   например цикл от 1 до последнего члена списка (номер последнего можно задавать в процессе) а результат выводи в ячейки рядом а над ними установи номер столбца, допустим первый раз делаешь, первый столбец, второй раз, соответственно второй столбец, вот у тебя и будет каждый раз своеобразный фильтр в следующем столбце,   можно улучшить если введёшь в прогу выбор столбца, где хочешь чтобы высвечивались результаты, можешь дополнить всё это второй кнопкой которая будет прятать ненужные столбцы     Добавлено: спасибо за помощь с диалоговыми окнами, получилось всё в наилучшем виде, долго прыгал от радости, получилось следующее:     Private Sub CommandButton1_Click()   If ComboBox3.Value = "перейти к расчёту по выбранному пункту" Then   Dim abc(26) As Object Set abc(1) = сухие_смеси_и_т_п Set abc(2) = кирпич Set abc(3) = листовой_материал Set abc(4) = металлокаркас Set abc(5) = армирующие_сетки Set abc(6) = утеплители Set abc(7) = рулонные_покрытия Set abc(8) = пиломатериалы Set abc(9) = мебельн_щит_фасад_столеш_фурн Set abc(10) = панели_ламинат_паркет Set abc(11) = плинтус_пороги_профили Set abc(12) = двери_карнизы_жалюзи_фурнитура Set abc(13) = потолки_акусто_реечные Set abc(14) = пенополистерол_плитка_плинтус Set abc(15) = принадлежности_ванных_туалета Set abc(16) = плитка Set abc(17) = шурупы_дюбеля_заклёпки_болты Set abc(18) = крепёж_фасованный_гвозди Set abc(19) = тросы_цепи Set abc(20) = пр_гоф_кабкан_оборудование Set abc(21) = подогр_обогр_щит_счёт_клем_авт Set abc(22) = трубы_фитинги_припои_флюсы Set abc(23) = радиат_терморег_водонагр_сауны Set abc(24) = всё_для_вентиляции_лючки Set abc(25) = крас_анти_раств_герм_грунт_кл Set abc(26) = материалы_от_себя n = 1 While ComboBox2.Value <> cells(n, 34) n = n + 1 Wend For i = 1 To 26 If cells(n, 35) = abc(i).Caption Then abc(i).Show Exit Sub End If Next End If Всего записей: 18 | Зарегистр. 20-10-2007 | Отправлено: 13:03 22-10-2007

denisdenmm Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору у меня вопрос, а можно ли сделать так, чтобы ListBox не показывал нулевые значения, то есть если например число в третьем столбце ListBox заводится из ячейки рабочего листа, а его величина равна 0, или ""  то на экране 0,   можно как-то убрать такие нули? моя благодарность будет безгранична в пределах разумного!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Всего записей: 18 | Зарегистр. 20-10-2007 | Отправлено: 20:23 22-10-2007

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору denisdenmm Это хорошо, что получилось. Но честно говоря, не понятно зачем надо такое количество диалоговых окон. Если все они(как я подозреваю) однотипны, то можно было бы вообще обойтись одним. Просто модифицировать его на load. Ну еще может добавить переменную, определяющую тип. Программа сразу станет меньше и нагляднее. Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 20:44 22-10-2007

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору denisdenmm Цитата: число в третьем столбце ListBox заводится из ячейки рабочего листа Так может быть их в листе убрать? Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 20:46 22-10-2007 | Исправлено: Vitus_Bering, 20:49 22-10-2007

denisdenmm Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору не. в листе нельзя, там связь с другими ячейками, я не хотел усложнять програмно, а просто загнал формулы, а когда выпадает основное окно, то пересчёт ячеек становится ручным, для скорости, у меня ListBox постоянно меняется, в зависимости от того где нахожусь, а с окнами конечно можно и уменьшить, но тогда в каждом вкладки добавятся, да нет, такое количество наверно лучше, быстрее потом ориентироваться будет, смысл в том, что по каждому пункту работ выскакивают определённые подсказки, со своими списками, и чем их меньше тем потом быстрее считать Всего записей: 18 | Зарегистр. 20-10-2007 | Отправлено: 22:48 22-10-2007

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору denisdenmm Вкладки не нужны. Просто после load окна все его лейбл, листы, подсказки меняются согласно надобности для данного вызова. Затем, после когфигурации, можно и show сделать. При таком подходе не придется добавлять новые окна. Просто добавляется новая конфигурация. PS. При ответе не плохо бы указывать кому отвечаешь, а не валить все в кучу. Для этого надо кликнуть на имя. Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 02:53 23-10-2007

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ddashevskiy А то, что Oyger предлагал, не подходит? Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 14:32 23-10-2007

CEMEH Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Простейший вопрос Есть форма, на ней календарик. Как сделать календарь=сегодня при открытии формы? Cflendar = Now() ' Куда ставить эту формулу? Всего записей: 237 | Зарегистр. 17-09-2006 | Отправлено: 23:04 23-10-2007

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору CEMEH UserForm_Initialize Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 00:36 24-10-2007

CEMEH Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dneprcomp Спасибо! Всего записей: 237 | Зарегистр. 17-09-2006 | Отправлено: 01:00 24-10-2007

vasiliy74 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Кто нить видел примеры на VBA, для создания интерфейса ввода даных в базу SQL?   Добавлено: Ещё есть проблема виснет EXCEL 2003   Код:      With Sheets("TOTAL").Cells         .Validation.Delete         .ClearContents         .ClearComments         .FormatConditions.Delete         .Font.Size = 10         .Borders(xlDiagonalDown).LineStyle = xlNone         .Borders(xlDiagonalUp).LineStyle = xlNone         .Borders(xlEdgeLeft).LineStyle = xlNone         .Borders(xlEdgeTop).LineStyle = xlNone         .Borders(xlEdgeBottom).LineStyle = xlNone         .Borders(xlEdgeRight).LineStyle = xlNone         .Borders(xlInsideVertical).LineStyle = xlNone         .Borders(xlInsideHorizontal).LineStyle = xlNone         .Interior.ColorIndex = xlNone         .Font.ColorIndex = 0         .Font.Bold = True         .Font.Bold = False         .NumberFormat = "General"     End With       Виснет на строке  .Font.Size = 10 Помогает только перезагрузка, почему такое может быть? Может я не правильно присваиваю размер шрифта? Всего записей: 289 | Зарегистр. 21-02-2006 | Отправлено: 13:41 24-10-2007

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование