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

vasiliy74 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору denisdenmm Наверно суть вопроса я выразил не явно, нужно чтобы при сравнении строковых переменных регистр не учитывался.... как? Всего записей: 289 | Зарегистр. 21-02-2006 | Отправлено: 16:11 06-11-2007

qEraser Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SERGE_BLIZNUK Большое спасибо за время потраченное Вами, конечно же предложенные во втором посте решения универсальнее.   1) Как выделить диапозон ячеек используя переменную? Задача - известана ширина таблицы, а длина - переменная. Нужно выделить эту таблицу и нарисовать все границы.     2) Существует заголовок таблицы (Журнал выдачи экспортных/импортных справок). Причем "экспортных" или "импортных" подставляется в зависиомсти от того, какие последние 3 цифры в номерах заданной длины в заданной колонке.   Например:   12345678/0000/0000/2/0 и 12345678/0000/0000/4/0 - Импорт 12345678/0000/0000/1/0 и 12345678/0000/0000/3/0 - Экспорт   Т.е. колонка может быть или с импортными номерами или с экспортными. И  в зависимости от этого меняется переменная в заголовке. Возможно ли такое осуществить? Всего записей: 185 | Зарегистр. 04-06-2004 | Отправлено: 17:43 06-11-2007 | Исправлено: qEraser, 18:12 06-11-2007

CEMEH Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору qEraser То есть вам надо определить последнюю заполненную строку?   Если в таблице заполнены все ячейки то подойдет =СЧЁЕЗ(A:A) Или в коде VBA =Application.WorksheetFunction.CountA(Range("A:A")) Есть еше способы, мне в этой теме на подобный вопрос уже отвечали.   Ну а все остальное (границы, шрифт, оформление) проще, наверное, сделать через запись макросов   Возможно, специалисты предложат более простое решение решение. Всего записей: 237 | Зарегистр. 17-09-2006 | Отправлено: 19:35 06-11-2007

GreenRay Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Требуется выделять красным цветом в Диаграмме (Гистограмме) столбик, если соответствующее ему значение в таблице > 5   Код:   Sub Макрос1()   Worksheets("Лист1").ChartObjects("Chart 1").Activate   ActiveChart.SeriesCollection(1).Select   Set cr = Worksheets("Лист1").ChartObjects("Chart 1").Chart.SeriesCollection(1)   j = 0     For Each cell In Sheets("Лист1").Range("b4:b12")      j = j + 1      Set ch = cr.Points(j)        if cell >= 5 Then          ch.Interior.ColorIndex = 3 'Красный цвет        Else          ch.Interior.ColorIndex = 2 'Белый цвет        End If   Next cell   End Sub   Может есть более изящный способ , присваивающий цвет столбику Диаграммы?   Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 21:38 06-11-2007 | Исправлено: GreenRay, 21:39 06-11-2007

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору denisdenmm Цитата: вот при вызове функции переменные теряются (ну те что в sub присутствуют) ия как правило присваиваю эти значения переменных например Label1.Caption (присваиваю в sub), а затем уже (в функции) использую   Просто объявляй переменные не в sub, а в модуле. Тогда они будут видны во всех процедурах. И существовать будут пока существует модуль.   Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:59 06-11-2007

denisdenmm Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору народ, я вот задавал ещё вопросы, наверно их никто не увидел, я попробую повторить, может быть кто-нибудь выручит Цитата: Добавлено: у меня есть ещё такой вопрос, в форме есть текстбокс, как для него установить возможность копирования из него и вставки скопированного в него путём нажатия правой кнопки мыши я повозился сам и использовал для этого просто ячейку рабочего листа, ну то есть кнопка "вставить" вставляет то что в буфере обмена в определённую ячейку (причём если в буфере несколько строк то естественно в ячейке только верхняя строка (что мне собственно и нужно) а затем текстбокс = величине этой ячейки, в принципе уже работает прекрасно, но на будущее, если не трогать рабочий лист, можно ли как то осуществить подобное     и вопрос номер 2 я создал калькулятор (ну простенький  "-","+","*","/", "корень", 4-ре памяти, короче не для инженерных расчётов, а завёлся собственно с того что у не знал как програмно использовать виндоусовский, то есть я его могу програмно вызвать а что с ним делать дальше не знаю,   так вот вопрос такой (меня мой сделанный с помощью ехеля устраивает больше, всё же четыре памяти и видно что в каждой из них находится, но иногда можно попроще, да и виндоусовский покрасивше - кнопочки овальные, то, сё) так вот, как после програмного вызова виндоускалькулятора можно так же програмно его использовать   Добавлено: и ещё вопрос вот например макрос Sub Макрос1()     ActiveCell.FormulaR1C1 = "='D:\[материалы 2.xls]р'!R10C6"    ActiveCell.Value = ActiveCell.Value End Sub  как правильно написать для  ActiveCell.Value =...... чтобы не писать потом ActiveCell.Value = ActiveCell.Value   Добавлено: кстати прикольно получилось написал с целью узнать что получится ActiveCell.Value = (ActiveCell.FormulaR1C1 = "='D:\[материалы 2.xls]р'!R10C6") в итоге в активной ячейке получилось значение ЛОЖЬ в принципе вышла интересная штука, с которой можно дальше что-то пробовать, если кому надо возмите на заметку   Добавлено: активная ячейка была пустой  !!!!!     Добавлено: dneprcomp большое спасибо за участие Всего записей: 18 | Зарегистр. 20-10-2007 | Отправлено: 00:41 07-11-2007

GreenRay Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Попробовал сделать так, чтобы не надо было каждый раз в макросе менять диапазоны ячеек (B4:B12), но не получается без него пока.   Есть задумки, но не знаю как их реализовать: 1. Получить диапазон ячеек, на основании которого строится ряд и его подставлять при сравнении 2.  При обращении к столбцу ряда гистограммы получить значение (или номер ячейки), на основании которого формируется значение столбца.   У метода Points нет Value, но при наведении на столбец указателем мышки, показывает "Значение:50. " (Собака!) Подскажите, люди добрые, в каком направлении плыть ?     Код:   Sub Макрос1()         Set cr = Worksheets("Лист1").ChartObjects("Chart 1").Chart.SeriesCollection(1)   '  j = 0       For j=1 to cr.Points.Count ' Чтобы не зависить от привязки к диапазону ячеек b4:b12 '  For Each cell In Sheets("Лист1").Range("b4:b12")       ' j = j + 1        Set ch = cr.Points(j)          if cell >= 5 Then            ch.Interior.ColorIndex = 3 'Красный цвет          Else            ch.Interior.ColorIndex = 2 'Белый цвет          End If     'Next cell   Next j   End Sub   Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 10:12 07-11-2007

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

32sasha Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Динамический двумерный массив на втором цикле видает ошибку. Что не так?     Dim ВехиIDs() As String         d = d + 1         ReDim Preserve ВехиIDs(d, 2) As String         ВехиIDs(d, 1) = Right(T.EnterpriseText8, 3)         ВехиIDs(d, 2) = DateFormat(T.Finish, pjDate_mm_dd_yyyy) Всего записей: 67 | Зарегистр. 05-01-2006 | Отправлено: 11:56 07-11-2007

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору davidyantz По-моему, никак, как и сортировка невозможна на защищенном листе. Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 13:15 07-11-2007 | Исправлено: Vitus_Bering, 13:17 07-11-2007

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору davidyantz Цитата: AllowSorting в методе Protect Это есть, начиная с  Excel 2002. Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 13:49 07-11-2007

David Kats Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет! Кто-нибудь знает как вообще искать программные синонимы встроенных функций Excel? Например Функция "ГОД()" в коде будет назваться "YEAR()". Сейчас мне нужно найти синоним функции СчитатьПустоты(). Да и вообще, может есть где-нить список соответствия? Всего записей: 29 | Зарегистр. 06-11-2007 | Отправлено: 15:50 07-11-2007

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору David Kats Англо-русское сопоставление всех функций Excel с описанием. Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 16:31 07-11-2007

David Kats Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Vitus_Bering  Ну блин, спасибо, ВИТАС! Выручил. Всего записей: 29 | Зарегистр. 06-11-2007 | Отправлено: 16:45 07-11-2007

qEraser Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Большое спасибо за помощь. Цитата: Подскажите, как удалить все строки (максимум 30), кроме 1й и на которой стоит курсор? А если необходимо удалить  строки кроме 1й и тех на которых отмечены ячейки (например через ctrl)? Всего записей: 185 | Зарегистр. 04-06-2004 | Отправлено: 17:36 07-11-2007 | Исправлено: qEraser, 17:37 07-11-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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование