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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)

Модерирует : ShIvADeSt

ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

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
    SAS888

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Sunnych
    Предлагаемый вариант найдет нужные файлы и выполнит над каждым из них нужные Вам действия.

    Код:
    Sub rename()
     
        Set fs = Application.FileSearch
        With fs
            .NewSearch
            .LookIn = "D:\TEMP\FileSearch\"
            .FileName = "*.xls"
            .Execute
            If .FoundFiles.Count = 0 Then
                MsgBox "Файлы не найдены"
                Exit Sub
            End If
        End With
     
        For i = 1 To fs.FoundFiles.Count
            Call ProcessFiles(fs.FoundFiles(i))
        Next i
     
    End Sub
     
    Sub ProcessFiles(FileName As String)
     
        'Здесь расположите Ваш код
        'который будет исполняться для каждого
        'найденного файла
        'входной параметр - имя файла (например: Workbooks.Open FileName:=FileName)
     
    End Sub
    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 18:01 06-03-2008
    kalinakrasnay



    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Опять за консультацией, вот есть строчка проги...
    If kol_osh / dlina > 0.000001 Then
     
    короче kol_osh и dlina изначально описаны как integer (не знаю правильно ли это)
    kol_osh / dlina - получается число порядка 1,3333E-3
     
    все отлично,  
    но мне  нужно чтобы вместо  0.000001, брались данные из label, который находится на форме, и тогда возникает проблема: несовместимые типы, в какой только тип  я не пробывала преобразовывать данные из лейбл и все одно и тоже, опять ошибка...подскажите!
     
    Добавлено
    ой, все получилось, вот это я ступила....
    в label надо вводить число ч/з ",", а не ч/з точку...
    бейсик меня попутал...
    Всего записей: 351 | Зарегистр. 04-01-2007 | Отправлено: 20:06 06-03-2008 | Исправлено: kalinakrasnay, 22:49 06-03-2008
    DocBeen



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Ребята не поймите меня превратно:  
    в чем может быть дело: Макрос на ура отрабатывает примерную таблицу с 500 строками,
    а когда тот же макрос начинает обробатывать 15000 строк - Excel вывешивается...  
     
     
    Подскажите пожалуйста, может код как то оптимизировать или еще каким либо способом можно увеличить быстро действие
    Всего записей: 147 | Зарегистр. 15-07-2005 | Отправлено: 21:17 06-03-2008
    ol7ca

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

    Цитата:
    Set ws = Sheets(a(i))
    Если у Вас массив - это имена листов, то ошибки не будет.

     
    это имена листов но ошибка есть
     
    Добавлено:
    подскажите, пожалуйста
    у меня есть скрипт
    он вставляет формулу во все листы книги
    что нужно сделать, чтобы скрипт проходя по текущему листу, в эту формулу вставлял имя текущего листа?
    при этом чтобы формула была вставлена в коротком виде а не в виде указания полного пути к фаилу
     
    Dim ws As Worksheet, wb As Workbook
    Application.ScreenUpdating = False
    Set wb = Application.Workbooks("MAP2.xls")
    For Each ws In wb.Worksheets
    If ws.Type = xlWorksheet Then
    For i = 1 To ws.Cells(65536, 28).End(xlUp).Row
    If IsNumeric(ws.Cells(i, 28)) Then 'And ws.Cells(i, 28) <> "" Then
    ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]A'!C6:C8,3,FALSE)"
    End If
    Next
    End If
    Next
     
    спасибо
    Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 02:01 07-03-2008 | Исправлено: ol7ca, 03:09 07-03-2008
    SAS888

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ol7ca
    1. Протестил ваш код обращения к листам книги из массива. Код рабочий. Проверьте наличие всех имен листов, которые содержатся в массиве.
    2. По поводу
    Цитата:
    что нужно сделать, чтобы скрипт проходя по текущему листу, в эту формулу вставлял имя текущего листа?  

    Если имеется ввиду строка  
    Код:
    ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]A'!C6:C8,3,FALSE)"
    , где A - имя листа, то для того, чтобы это имя менялось в цикле на текущее, следует эту строку изменить на

    Код:
    ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]" & ws.Name & "'!C6:C8,3,FALSE)"

    И еще. Зачем у Вас проводится проверка
    Цитата:
    If ws.Type = xlWorksheet Then
    ?
     
     
     
     
    Добавлено:
    DocBeen
    Ваш вопрос не конкретный. Можно, конечно, дискутировать, но это ни к чему. Приведите пример кода (или фрагмента) для обстоятельного разговора.
    Очень часто в подобных процедурах "тормозит" цикл прохождения по строкам. Более эффективным будет использование метода "Find" ("FindNext").
    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 05:22 07-03-2008
    DocBeen



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    SAS888, Спасибо - я в VBA не сильно силен но все же...  
     
    В моем случае помогло вставка в Цикл DoEvents
    Всего записей: 147 | Зарегистр. 15-07-2005 | Отправлено: 12:23 07-03-2008
    ol7ca

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888
     
    спасибо  
     

    Цитата:
    И еще. Зачем у Вас проводится проверка
    Цитата:If ws.Type = xlWorksheet Then  

     
    не могу ответить на этот вопрос
    такой пример кода мне кто то дал  этом форуме
    что-то не так?  
     
    Добавлено:

    Цитата:
    Код:ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]" & ws.Name & "'!C6:C8,3,FALSE)"  

    сообщает об ошибке application-defined or object-defined error
    хотя этот работает

    Цитата:
    Код:ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]A'!C6:C8,3,FALSE)"  

    все дело в том, что " & ws.Name & "кодом воспринимается как название листа
     
    у меня еще вопрос:
    надо сделать проверку:
    если в столбце техт (обозначающий имя ячейки) то надо взять значение этой ячейки
    и записать напротив в соседнем столбце
    иначе, ищем далее до конца таблицы
     
    как это сделать?
    спасибо
    Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 17:33 07-03-2008 | Исправлено: ol7ca, 03:11 08-03-2008
    SAS888

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ol7ca
    1. Проверка
    Цитата:
    If ws.Type = xlWorksheet Then
    - это лишнее, т.к. Вы описываете
    Цитата:
    Dim ws As Worksheet

    2. По поводу
    Цитата:
    если в столбце техт (обозначающий имя ячейки) то надо взять значение этой ячейки
    и записать напротив в соседнем столбце
    иначе, ищем далее до конца таблицы  

    Пусть в столбце "A", начиная с ячейки "A1", находятся какие-нибудь значения.
    Следующий макрос "просматривает" их, и если это значение является именем ячейки, то в столбец "B" этой же строки помещается значение ячейки с этим именем.

    Код:
    Sub NameCell()
     
        For i = 1 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
            On Error Resume Next
            Cells(i, "B") = Range(Cells(i, "A"))
        Next
         
    End Sub

     
    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 10:01 08-03-2008 | Исправлено: SAS888, 10:12 08-03-2008
    nick7inc



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

    Цитата:
    И еще. Зачем у Вас проводится проверка
    Цитата:If ws.Type = xlWorksheet Then
    ol7ca
    Цитата:
    Цитата:
    не могу ответить на этот вопрос  
    такой пример кода мне кто то дал  этом форуме  
    что-то не так?  
    Надо, по крайней мере в Excel 2000. Я давал.
    SAS888

    Цитата:
    ol7ca  
    1. Проверка  
    Цитата:If ws.Type = xlWorksheet Then  
     
    - это лишнее, т.к. Вы описываете  
    Цитата:Dim ws As Worksheet

    По логике - согласен, лишнее. Но Excel 2000 (не знаю, как остальные версии) всё равно возвращает листы всех типов. Даже если вы работаете в версии, которая корректно возвращает типы листов, всё равно стоит проверять, чтобы была совместимость.
     
    Добавлено:
    DocBeen

    Цитата:
    В моем случае помогло вставка в Цикл DoEvents

    Вы поосторожнее с этим. Иногда бывают проблемы с DoEvents.
     
    Добавлено:
    kalinakrasnay

    Цитата:
    мне  нужно чтобы вместо  0.000001, брались данные из label, который находится на форме


    Код:
    Private Sub CommandButton1_Click()
    Dim f As Single
     
    f = Val(Label1.Caption)
    Debug.Print f
    End Sub

    Используйте f  в выражении вместо 0.000001. Хотите больше точности - измените Single на Double.
     
    Добавлено:
    Только есть проблема: у вас там какой разделитель: точка или запятая? Если запятая, то вместо val() надо использовать CDbl().
    Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 15:18 08-03-2008 | Исправлено: nick7inc, 15:33 08-03-2008
    ol7ca

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888
    nick7inc
    спасибо за помощь!
     
    SAS888
    поиск имени работает отлично
     
     
    пожалуйста, подскажите еще как решить это:
     
     Код:ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]" & ws.Name & "'!C6:C8,3,FALSE)"  
     
    сообщает об ошибке application-defined or object-defined error
    хотя этот работает
    Цитата:
    Код:ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]A'!C6:C8,3,FALSE)"  
     
    все дело в том, что " & ws.Name & "кодом воспринимается как название листа  
     
    я уже все перепробывал(
    мне нужно чтобы функция брала имя текущего листа
    т.к. всего 50 листов куда это надо вставить.
     
    спасибо
    Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 22:17 08-03-2008
    SERGE_BLIZNUK

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

    Цитата:
    мне нужно чтобы функция брала имя текущего листа  

    послушайте, не могу понять, если Вы в формулу хотите вставить ссылку на ТЕКУЩИЙ лист, то ЗАЧЕМ?! Попробуйте вообще убрать имя книги и листа, тогда для Excel это и будет означать, что формула ссылается на текущий лист:
     
    ws.Cells(i, 27) = "=VLOOKUP(RC[-3],C6:C8,3,FALSE)"    
     
    если я правильно понял Вас...
    Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 01:40 09-03-2008
    ol7ca

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SERGE_BLIZNUK
     
    это ссылка на лист с таким же именем в другом файле
    мне нужно сравнить информацию в 2 файлах, которые имеют листы с одинаковыми названиями
    и если названия строк совпадают, то вставить значения
    быть может это можно как-то иначе решить?
    Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 18:23 09-03-2008
    DocBeen



    Junior Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Погорячился я с DoEvents...  
    все равно, замечаю что при обработке начинает скорость обработки падать и весьма существенно.  
    Так вот данные я решил обработать с помощью Массивов - и у меня такая же проблема что и ol7ca описывает на 85 странице.
    Subscript out of range
     
    Вставка Option Base 1 - ни к чему не приводит...
    Всего записей: 147 | Зарегистр. 15-07-2005 | Отправлено: 20:09 09-03-2008
    nick7inc



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    DocBeen
    Цитата:
    у меня такая же проблема что и ol7ca описывает на 85 странице.

    ol7ca
    Цитата:
    Подскажите, пожалуйста,
    [...]
    For i = 0 To UBound(a)

    Полный текст здесь.
    Вообще-то это неправильно, также как и не совсем корректно использовать Option Base. Правильно так:

    Код:
    a = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
    For i = LBound(a) To UBound(a)

    Добавлено:
    DocBeen

    Цитата:
    Subscript out of range

    Давайте код или ищите отладчиком, в чём проблема. Смотрите значение того, что передаёте функции Sheet(). Используйте Debug.Print(), чтобы это отслеживать (не забудьте включить отображение Immediate Window).
     
    Добавлено:
    Если вы выходите за границы массива и/или передаёте функции Sheet()несуществующее имя листа, то получите эту ошибку. Также надо учитывать, что Sheet() без ссылки на конкретную книгу ищет лист с заданным вами именем в текущей книге (в которой макрос у вас запущен).
    Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 20:41 09-03-2008 | Исправлено: nick7inc, 20:54 09-03-2008
    DocBeen



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

    Всего записей: 147 | Зарегистр. 15-07-2005 | Отправлено: 21:53 09-03-2008 | Исправлено: DocBeen, 03:22 10-03-2008
    Mint86



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите пожалуйста кусочек кода который выводит определенную форму если выделена (активирована) определенная ячейка?
    Всего записей: 166 | Зарегистр. 25-06-2007 | Отправлено: 05:19 10-03-2008
    ol7ca

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nick7inc
     
    спасибо.
     

    Цитата:
    мне нужно чтобы функция брала имя текущего листа  
     Код:ws.Cells(i, 27) = "=VLOOKUP(RC[-3],'[1.xls]" & ws.Name & "'!C6:C8,3,FALSE)"  
     

    я вставил эту функцию как текст "'=VLOOKUP(RC[-3],'[1.xls]" & ws.Name & "'!C6:C8,3,FALSE)"
    и имя текущего листа появилось на каждой странице
    но потом я попытался сделать замену убрав " ' "
    но тогда выскакивает ошибка тут "RC[-3]"
    в общем никак.
    пришлось вставлять руками(
    но на будущее, я бы хотел знать решение такой задачи.
     
    еще вопрос,
    можно ли как-то проверить использование имен в книге?
    я на одном листе присвоил ячейкам имена
    далее на остальных листах я использую ссылки на эти имена
    мне нужно чтобы все 100% имен были бы использованы и ни одно не пропущено.
    как сделать такую проверку?
    спасибо.
    Всего записей: 125 | Зарегистр. 01-02-2007 | Отправлено: 05:23 10-03-2008 | Исправлено: ol7ca, 05:24 10-03-2008
    Mint86



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

    Цитата:
    Подскажите пожалуйста кусочек кода который выводит определенную форму если выделена (активирована) определенная ячейка?

     
    Вот примерчик, подскажите что делается не так? И как правильно?
     
    http://slil.ru/255628901
    Всего записей: 166 | Зарегистр. 25-06-2007 | Отправлено: 06:08 10-03-2008 | Исправлено: Mint86, 11:53 10-03-2008
    SAS888

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ol7ca
    Данный макрос покажет все имена в активной рабочей книге.

    Код:
    Sub ShowNames()
     
        Dim n As Name
        For Each n In ActiveWorkbook.Names
            MsgBox n.Name
        Next n
         
    End Sub
    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 08:52 10-03-2008
    nick7inc



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

    Цитата:
    http://slil.ru/255628901

    Файл не найден.
    Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 12:06 10-03-2008
       

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


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru