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

Fierce1 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору reanews1 Инет листал неделю, а эту тему даже и не смотрел. Посмотри 161 страницу, там у mistx была аналогичная задача     Всего записей: 70 | Зарегистр. 08-01-2006 | Отправлено: 19:51 09-04-2009

reanews1 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вобщем непонятки какието вышли... Я попытаюсь еще раз объяснить что получается, а что нет (поскольку после вставки кода с листа 161 макрос очищает лист "шаблона и считает что отделался.) Опишу то как делаю это я, но думаю что это танцы с бубном народов крайнего севера)))   Я уже нашел код с сайта Микрософта:   Sub DelDups_TwoLists() Dim iListCount As Integer Dim iCtr As Integer Application.ScreenUpdating = False iListCount = Sheets("Sheet2").Range("A1:A7715").Rows.Count For Each x In Sheets("Sheet1").Range("A1:A4878")    For iCtr = 1 To iListCount       If x.Value = Sheets("Sheet2").Cells(iCtr, 1).Value Then          Sheets("Sheet2").Cells(iCtr, 1).Clear          iCtr = iCtr + 1       End If    Next iCtr Next Application.ScreenUpdating = True MsgBox "Готово" End Sub   Только этот код удалял ячейки в столбце со сдвигов вверх, а напротив этих ячеек есть значения и в итоге получается путаница,   Sheets("Sheet2").Cells(iCtr, 1).Delete xlShiftUp   И поэтому пришлось заменить на:   Sheets("Sheet2").Cells(iCtr, 1).Clear   в итоге аолучается список с пустыми ячейками, напротив которого через нескколько строк я вставляю такой же, делаю фильтр по уже пустым ячейкам и остается то чего макрос не нашел на перввом листе и копирую значения на 3й лист, далее сортирую как все Не пустые и в правом листе остаються только те значения которые он нашел и опять копирую на 4й уже лист, а потом предполагаю поменять названия листов sheet1 на sheet2 и сделать наоборот и тогда у меня останется только уникальные значения из второго списка. Ну вот както так... Так что ситуация несколько не та, насколько я понимаю и эту ветку форума я изучил вроде.   Это слишком долго получается. сортировка на 1ядерном пне 2.2Гц 1,5Гб оперативы длиться 2часа примерно с небольшим. а тут надо минимум 2 раза сортировать.... Всего записей: 3 | Зарегистр. 28-12-2007 | Отправлено: 11:04 10-04-2009 | Исправлено: reanews1, 11:07 10-04-2009

iLord Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день! Прошу у Вас помощи. В Excel'e необходимо сократить таблицу выгруженную из SAP BW, Хочу сделать это при помощи макроса, но столкнулся с одной проблемой.   В солбцах С и D находится текстовые значения формата "  5.456,78", т.е впереди два пробела и разделитель разрядов "."    Перевод формата вида   Selection.Replace What:=".", Replacement:="" Selection.Replace What:=" ", Replacement:="" Selection.NumberFormat = "#,##0.00"     ни к чему не приводит, т.е. значение всё равно остаётся текстовым. Всего записей: 38 | Зарегистр. 19-01-2007 | Отправлено: 12:16 10-04-2009

x997 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Подскажите, как автоматически сделать группировку листа ? (есть прайс-лист , нужно сгрупировать его по разделам, вручную это делать - нереально, 3000 позиций, почти 100 разделов) Всего записей: 41 | Зарегистр. 20-05-2005 | Отправлено: 19:22 12-04-2009

x997 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору есть автоматически генерируемый прайс:   вот тут     из этого прайса нужно сделать что-то читаемое, выглядеть это должно примерно так:     Всего записей: 41 | Зарегистр. 20-05-2005 | Отправлено: 23:49 12-04-2009 | Исправлено: x997, 23:51 12-04-2009

palamars Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Здравствуйте, подскажите, пожалуйста, как программно поставить фильтр в сводной таблице:   Такой код работает:     ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("НужноеПоле").PivotItems("09-04-436а").Visible = False       А такой - нет   dim zakaz As String   zakaz="09-04-436а"   ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("НужноеПоле").PivotItems(zakaz).Visible = False   Выдает ошибку Всего записей: 93 | Зарегистр. 10-11-2006 | Отправлено: 14:11 14-04-2009

isabpchereda Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, можно ли разрешить изменение содержимого ячеек в Excel только через VBA-программу? Всего записей: 8 | Зарегистр. 25-04-2008 | Отправлено: 10:39 17-04-2009 | Исправлено: isabpchereda, 15:40 17-04-2009

Grif91 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Написал программу, а она не работает. Подскажите пожалуйста в чем ошибка!   Sub min() Dim minim As Single, b As Single, c As Single, m As Single If b < c Then min b Else min = c End Sub Function min (b As Single, c As Single, m As Single) As Single If b < c Then min = b Else min = c End Function   Private Sub CommandButton1_Click() Dim x As Single, y As Single, x As Single, a As Single Dim m1 As Single, m2 As Single, m3 As Single x = Val(InputBox("x=")) y = Val(InputBox("y=")) z = Val(InputBox("z=")) Call minim(x + y, x * y, m1) Call minim(x, y * z, m2) Call minim(x * y, x * z, m3) a1 = (m1 + m2) / m3 a2=(min(x+y, x*y)+(min (x, y+z))/(min(x*y, x*z)) TextBox1.Text = a1 TextBox2.Text = a2 End Sub   Private Sub CommandButton2_Click() End End Sub Всего записей: 11 | Зарегистр. 09-08-2008 | Отправлено: 18:20 18-04-2009

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Grif91 Перепутаны имена функции min с переменной minim В коде Call minim(x ... Должно быть Call min(x ... Функция min() и  sub min() c одинаковым кодом? Оригинально  x As Single декларирован 2 раза z, а1, а2 не декларированы вообще 3-й параметер m As Single вообще не используется в функции К переменным, объявленным в sub min(), нельзя обращаться из кода вне этой sub Каждый вызов Call minim(x... не возвращает никакого значения. Значения m1, m2, m3 ВСЕГДА = 0 На 0 делить нельзя В строке a2=(min... функции передается только 2 параметра при каждом к ней обращении   Цитата: Написал программу, а она не работает Зто не программа. Просто набор псевдо кода.   Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:08 18-04-2009 | Исправлено: dneprcomp, 01:15 20-04-2009

AlexMV Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот мне надо ввести кучу данных , как сделать чтобы я выделил те места куда были вставлены данные , а по завершению у меня выскакивает окно и я просто ввожу подряд данные, а они у меня становятся в те ячейки которые я выделил! Всего записей: 166 | Зарегистр. 23-02-2006 | Отправлено: 23:33 19-04-2009

MaximuS_G Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем привет! Давно не заходил, так много новых пользователей Подскажите следующий вопрос:   Есть вот такие числа и их порядковый номер:   1    1000 2    3000 3    2200 4    1000 5    5000 6    300 7    250 8    1000 9    800 10    1400 11    2300   Есть интервал : 4176 - 3888   Задача такая: необходимо провести группировку вышеприведенных чисел таким образом, чтобы они попали в этот интервал. Количество может быть разное. Например: 1000(1) + 3000(2) = 4000 - в интервал попадает, больше никакого другого числа добавить нельзя, потому что выйдет из интервала. То-есть это Вариант 1. И так дальше:1000(4) + 2300(11) + 800(9) = 4100. Это Вариант 2. Ну и так дальше. Нужно понимать, что 1000 с 1го числа, и 1000 с 4го это разные варианты, поэтому 1000(1)+3000(2) и 1000(4)+3000(2) - это 2 разных варианта.   Может кто подбросит идейку какаю, а может и код на vba Спасибо большое за помощь! Всего записей: 113 | Зарегистр. 15-08-2008 | Отправлено: 13:00 20-04-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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование