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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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 214

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

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
    Vitus_Bering



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    BeTheRED
    выложите файл, посмотрим
    Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 20:28 28-03-2013
    BeTheRED

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    оригинал:
     
    https://dl.dropbox.com/u/41311998/%D0%9F%D0%BE%D0%B4%D0%B1%D0%BE%D1%80%20%D0%B3%D1%80%D0%BE%D0%BC%D0%BA%D0%BE%D0%B3%D0%BE%D0%B2%D0%BE%D1%80%D0%B8%D1%82%D0%B5%D0%BB%D0%B5%D0%B9%20%D0%B8%20%D1%83%D1%81%D0%B8%D0%BB%D0%B8%D1%82%D0%B5%D0%BB%D0%B5%D0%B9.xls
     
     
    со снятой защитой листа:
     
    https://dl.dropbox.com/u/41311998/%D0%9F%D0%BE%D0%B4%D0%B1%D0%BE%D1%80%20%D0%B3%D1%80%D0%BE%D0%BC%D0%BA%D0%BE%D0%B3%D0%BE%D0%B2%D0%BE%D1%80%D0%B8%D1%82%D0%B5%D0%BB%D0%B5%D0%B9%20zashita%20snyata.xlsm
    Всего записей: 8 | Зарегистр. 04-04-2011 | Отправлено: 04:29 29-03-2013
    Vitus_Bering



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    BeTheRED
    попробуйте ЕGlavryba1 для оригинала
    Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 09:21 29-03-2013 | Исправлено: Vitus_Bering, 10:04 29-03-2013
    BeTheRED

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vitus_Bering
     
    не подходит  
     
    абырвалг  :\
    Всего записей: 8 | Зарегистр. 04-04-2011 | Отправлено: 12:00 29-03-2013
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    BeTheRED
    Попробуйте тут: http://rghost.ru/44871858
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 17:36 29-03-2013
    BeTheRED

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    тысяча чертей!
    но как?!?!
    Всего записей: 8 | Зарегистр. 04-04-2011 | Отправлено: 19:11 29-03-2013
    Vitus_Bering



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    BeTheRED
    Advanced VBA Password Recovery Pro (or simply AVPRP)
    Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 21:18 29-03-2013
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vitus_Bering
    Не угадали, зачем ломать если можно просто открыть...
     
    Добавлено:
    Вернее подбирать.
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 22:23 29-03-2013
    BeTheRED

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
     
    как бы то ни было, спасибо.
    мой револьвер всегда  к вашим услугам.
    Всего записей: 8 | Зарегистр. 04-04-2011 | Отправлено: 05:26 30-03-2013
    Anton V

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите с VBA скриптом, есть есть табличка с множеством столбцов и строк, нужно по трем столбцам найти совпадения и проставить какой-нибудь символ в пустой столбец(x символ 1).  
     
    у меня получается сравнить только первую строку со всей табличкой.  
     
    nss1= 2  '(начало таблички)'  
    nss2= nss1+ 1 '(начальная точка сравнения)'  
    Do While nss2 < nss '(кол-во строк)'  
    If Range("C" & nss1.Formula = Range("C" & nss2).formula And Range("U" & nss1).Formula = Range("U" & nss2.Formula And Range("V" & nss1).Formula = Range("V" & nss2).Formula Then  
    Range("X" & nss1).Formula = 1  
    Range("X" & nss2).Formula = 1  
    Else  
    End If  
    nss2 = nss2 + 1  
    Loop  
    мб как то массивами можно, туплю.
    Всего записей: 4 | Зарегистр. 02-04-2007 | Отправлено: 08:00 03-04-2013
    aidomars



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

    Код:
    For nss1 = 1 To 1000
        For nss2 = nss1 + 1 To 1000
            If Range("C" & nss1) & Range("U" & nss1) & Range("V" & nss1) = _
                Range("C" & nss2) & Range("U" & nss2) & Range("V" & nss2) Then
                    Range("X" & nss1) = 1
                    Range("X" & nss2) = 1
            End If
        Next
    Next
    Всего записей: 982 | Зарегистр. 23-04-2007 | Отправлено: 10:14 03-04-2013
    Anton V

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    aidomars
    Спасибо огромное...
    Всего записей: 4 | Зарегистр. 02-04-2007 | Отправлено: 11:10 03-04-2013
    gjf



    Platinum Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Уважаемые умельцы, прошу помочь в решении одной задачки. В VB не силён, поэтому приведу алгоритм, буду очень благодарен, если кто-то оформит его в макрос.
     
    Имеется большая таблица длиной M строк. Необходимо произвести следующую работу.
     
    1. i:=1
     
    2. Пока строка D(i):G(i) не пустая, то:
     
       2.1 Пока данные части строки D(i):G(i) совпадают (соответственно) с данными части следующей строки D(i+1):G(i+1) cтроку i+1 полностью удалить.
       2.2 end
     
    3 i:=i+1
    4. end
    5. end.
     
    Короче говоря - таблицу надо почистить от строк, в которых идёт последовательный дубляж данных в столбцах от D до G.
     
    Исправлено: защита от зацикливания в конце.
    Всего записей: 11444 | Зарегистр. 14-03-2007 | Отправлено: 20:32 04-04-2013 | Исправлено: gjf, 04:02 05-04-2013
    aidomars



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    gjf, так вы его практически уже написали, похожий пример постом выше, а удаление просмотрите в коде через "Запись макроса".
    Всего записей: 982 | Зарегистр. 23-04-2007 | Отправлено: 21:59 04-04-2013
    gjf



    Platinum Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    aidomars
    В примере организовано циклами for и проверками if.
    Как в VB с условными циклами while?  
    Потому как по моей логике именно ими легче организовать процесс.

    ----------
    Тут могла бы быть Ваша реклама... или эпитафия
    Всего записей: 11444 | Зарегистр. 14-03-2007 | Отправлено: 04:03 05-04-2013
    aidomars



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    В VBA все тоже самое, что и везде. А For удобен тем, что в нем же идет перебор строк, в то время как в While для перехода по строкам надо дополнительно считать x=x+1.
    Ваш пример лучше решить используя расширенный фильтр, имхо быстрее будет.

    Код:
     
    Sub УдалениеСтрок()
    lastrow = Cells(Rows.Count, 4).End(xlUp).Row ' последняя строка в столбце 4
    For i1 = 1 To lastrow
        For i2 = i1 + 1 To lastrow
            If Cells(i1, 4) & Cells(i1, 5) & Cells(i1, 6) & Cells(i1, 7) = _
                Cells(i2, 4) & Cells(i2, 5) & Cells(i2, 6) & Cells(i2, 7) Then
                Rows(i2).Select ' выделить строку
                Rows(i2).Delete ' удалить строку
                n = n + 1 ' считаем удаления
                i2 = i2 - 1 ' сместить номер текущей строки выше
                lastrow = lastrow - 1 ' сместить номер последней строки выше
            End If
        Next
    Next
    MsgBox "Удалено строк: " & n
    End Sub
     
    Всего записей: 982 | Зарегистр. 23-04-2007 | Отправлено: 08:12 05-04-2013
    gjf



    Platinum Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    aidomars
    Вы немного не поняли задачу. Речь о том, чтобы удалять не дубликаты по всему файлу, а только дубликаты-соседи.
     
    Поэтому Ваш вариант макроса нужно изменить таким образом:

    Код:
    Sub DelDouble1()
    lastrow = Cells(Rows.Count, 5).End(xlUp).Row  
        For i1 = 1 To lastrow
            i2 = i1 + 1
            While Cells(i1, 5) & Cells(i1, 6) & Cells(i1, 7) & Cells(i1, 8) & Cells(i1, 9) & Cells(i1, 10) & Cells(i1, 1)= Cells(i2, 5) & Cells(i2, 6) & Cells(i2, 7) & Cells(i2, 8) & Cells(i2, 9) & Cells(i2, 10) & Cells(i2, 1)
                    Rows(i2).Select
                    Rows(i2).Delete
                    lastrow = lastrow - 1
            Wend
        Next
    End Sub

     
    Но всё равно спасибо за помощь, она действительно подтолкнула к решению проблемы!

    ----------
    Тут могла бы быть Ваша реклама... или эпитафия
    Всего записей: 11444 | Зарегистр. 14-03-2007 | Отправлено: 16:18 05-04-2013
    andrewkard1980

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Наверное лучше между Cells(i1, 5) & Cells(i1, 6) установить какой-то разделитель, а то могут быть ошибки типа
    Cells(i1, 5) = 112
    Cells(i1, 6)=211
     
    и  
     
    Cells(i1, 5) = 11
    Cells(i1, 6)=2211
     
    Что не совсем равно друг другу...
     
     
    Добавлено:
    Rows(i2).Select  
    Rows(i2).Delete  
    Выделять строку перед удалением не обязательно, можно сразу  
     
    Rows(i2).Delete  
     
     
    Добавлено:
    Для удаления дубликатов лучше идти с конца в начало:
     
    For i1 =  lastrow to 1 step -1
    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 01:00 10-04-2013
    gjf



    Platinum Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980 (00:00 10-04-2013)
    Цитата:
    Наверное лучше между Cells(i1, 5) & Cells(i1, 6) установить какой-то разделитель, а то могут быть ошибки

    Принимается. Все цифры в указанных столбцах меньше 100, таким образом разделителем может быть, например, 888:

    Код:
    Sub DelDouble1()
    lastrow = Cells(Rows.Count, 5).End(xlUp).Row  
        For i1 = 1 To lastrow
            i2 = i1 + 1
            While Cells(i1, 5) & 888 & Cells(i1, 6) & 888 & Cells(i1, 7) & 888 & Cells(i1, 8) & 888 & Cells(i1, 9) & 888 & Cells(i1, 10) & 888 & Cells(i1, 11)= Cells(i2, 5) & 888 & Cells(i2, 6) & 888 & Cells(i2, 7) & 888 & Cells(i2, 8) & 888 & Cells(i2, 9) & 888 & Cells(i2, 10)& 888 & Cells(i2, 11)
                    Rows(i2).Delete
                    lastrow = lastrow - 1
            Wend
        Next
    End Sub  

     
    andrewkard1980 (00:00 10-04-2013)
    Цитата:
    Для удаления дубликатов лучше идти с конца в начало:
     
    For i1 =  lastrow to 1 step -1

    При каждом удалении строки в цикле while-wend мы уменьшаем значение lastrow. В противном случае собъётся нумерация строк. Я не уверен, что если организовать так:

    Код:
    Sub DelDouble1()
    lastrow = Cells(Rows.Count, 5).End(xlUp).Row  
        For i1 = lastrow To 1 Step -1
            i2 = i1 -1 1
            While Cells(i1, 5) & 888 & Cells(i1, 6) & 888 & Cells(i1, 7) & 888 & Cells(i1, 8) & 888 & Cells(i1, 9) & 888 & Cells(i1, 10) & 888 & Cells(i1, 11)= Cells(i2, 5) & 888 & Cells(i2, 6) & 888 & Cells(i2, 7) & 888 & Cells(i2, 8) & 888 & Cells(i2, 9) & 888 & Cells(i2, 10)& 888 & Cells(i2, 11)
                    Rows(i2).Delete
                    lastrow = lastrow - 1
            Wend
        Next
    End Sub  

    не будет конфликта из-за изменения стартовой величины lastrow в цикле for с каждым шагом цикла.
     
    Может я и туплю - но у меня тут уже середина ночи Если есть светлые идеи - выразите в готовом коде.
     
     
    Добавлено:
    P.S. Стоп-стоять: в Excell VBA для числовых данных операция & - это логическое И или просто слияние строки? Если И - то никакие разделители нас не спасут. Если слияние строки - то можно ввести любой символ, его среди чисел точно не встретится.
     
    Проще говоря: в коде у нас математическое сравнение или строчное?

    ----------
    Тут могла бы быть Ваша реклама... или эпитафия
    Всего записей: 11444 | Зарегистр. 14-03-2007 | Отправлено: 02:13 10-04-2013 | Исправлено: gjf, 10:45 10-04-2013
    AndVGri

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

    Цитата:
    для числовых данных операция & - это логическое И или просто слияние строки?

    Сцепление строк только. Логическое И это And (оно же бинарное умножение).
    Не совсем понятно, что делается? Нужно оставить только уникальные строки по столбцам 5,6,7,8,9,10 или удаляются только идущие подряд?
    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 06:02 10-04-2013
    Открыть новую тему     Написать ответ в эту тему

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

    Компьютерный форум 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