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

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

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

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
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    Не подходит. мдб файл весит порядка 200 мегабайт. Архивация внешним софтом приводит к тому, что архивация запускается и долго и упорно висит в фоне не подавая никаких сигналов о том, завершена она или нет.
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 17:34 24-03-2010
    vlth

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

    Цитата:
    архивация запускается и долго и упорно висит в фоне не подавая никаких сигналов о том, завершена она или нет

    Drazhar, ну так замените vbHide на vbMaximizedFocus, или что там Вас больше устроит...
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 17:54 24-03-2010
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    Не подходит. мдб файл весит порядка 200 мегабайт. Архивация внешним софтом приводит к тому, что архивация запускается и долго и упорно висит в фоне не подавая никаких сигналов о том, завершена она или нет.
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 17:57 24-03-2010
    vlth

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

    Цитата:
    vlth  
    Не подходит. мдб файл весит порядка 200 мегабайт. Архивация внешним софтом приводит к тому, что архивация запускается и долго и упорно висит в фоне не подавая никаких сигналов о том, завершена она или нет.  

    Я эту фразу уже видел. Поэтому и предлагаю Вам сделать окно WinRar видимым.
     
    Что значит "не подавая никаких сигналов", если WinRar выводит полную информацию о ходе процесса, включая ориентировочное время до его завершения?!
    К тому же, используя в командной строке ключи для отправки архива по почте, можно вообще не дожидаться его окончания.
     
    Добавлено:
    Проверил способ упаковки, которым Вы пользуетесь. Вы считаете, что визуально он более информативен? - моментально показывается прогресс выполнения процесса 100%, а каков он на самом деле и когда ожидать его завершения - неизвестно.
    Добавлю, что Этот способ тоже, по сути, использует "внешний софт".
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 18:43 24-03-2010 | Исправлено: vlth, 19:21 24-03-2010
    jurris



    Full Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Уважаемые, кто в курсе о проблеме с функцией LinEst?
     
    Как я понимаю, эта функция недостаточно точно выдавала результат в некоторых случаях в версиях еще до Excel 2003. Как обстоят дела сейчас? И относится ли это к функции LinEst в VBA или это характерно только в Excel?  
     
    Буду очень признателен за ответ.
     
    Всего записей: 535 | Зарегистр. 13-01-2005 | Отправлено: 22:14 24-03-2010 | Исправлено: jurris, 22:14 24-03-2010
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar
    Попробуй сначала сделать compact

    Код:
    Sub CompressIt()
            Dim jro As JRO.JetEngine
            jro = New JRO.JetEngine()
            jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SourceDB.mdb", _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DestDB.mdb;Jet OLEDB:Engine Type=5")
        End Sub

    http://support.microsoft.com/?scid=kb%3Ben-us%3B306287&x=13&y=14
    http://www.motobit.com/tips/detpg_CompactMDB/
     
    Смотреть в самом конце страницы
    http://webcache.googleusercontent.com/search?q=cache:lnkPn3V1nhwJ:www.experts-exchange.com/Microsoft/Development/MS_Access/Q_23022020.html+mdb+compress&cd=4&hl=en&ct=clnk&gl=us
    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 00:12 25-03-2010
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dneprcomp
    compact я  и  так делаю в другом модуле.
    vlth
    Проблема ко всему прочему лежит в том, что не у всех есть Рар. Кто-то юзает 7zip, а у кого-то вообще winzip classic
     
    Добавлено:
    vlth
    Этот способ упаковки в данном случае лучше, так как независим от внешних упаковщиков(zip-папки - не внешний упаковщик) и плюс, он не дает дальше работать макросу пока архивация не завершится(ну не могу выделять минут по 10 на архивацию по максимуму)
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 10:55 25-03-2010
    vlth

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar, дело хозяйское, конечно ))
    Вы, кстати, не пояснили, что значит "в Win 2000 не работает"? - выдаёт ошибку?
     

    Цитата:
    плюс, он не дает дальше работать макросу пока архивация не завершится

    В том-то и дело, что я при проверке кода после
    Код:
    oApp.Namespace(ActiveWorkbook.Path & "\db.zip\").CopyHere ActiveWorkbook.Path & "\db.mdb"  
    поставил MsgBox "" - окно сообщения вывалилось сразу после начала архивации. Поэтому я и говорю, что по сути, этот способ тоже использует "внешний софт" - передаёт задачу архивации в систему.
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 11:44 25-03-2010
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    проблема в том, что как выяснилось zip-папки без геморроя в win2000 не работают.
     
    Добавлено:
    vlth
    Не вполне верно выразился. Правильность архивного файла проверяю следующим кодом

    Код:
    150   j = 1
    160   Do Until oApp.Namespace(ActiveWorkbook.Path & "\db.zip\").items.Count = i
    170       Application.Wait (Now + TimeValue("0:00:01"))
    180       If j >= maxi Then
    190         MsgBox "Отправка была прервана!", vbOKOnly + vbExclamation, "Quantor"
    200         End
    210       Else
    220         j = j + 1
    230       End If
    240   Loop

    Каким образом проверить,окончилась ли обработка архива, в случае использования внешнего архиватора, я не представляю(вариант с msgbox "нажмите ОК когда процесс архивации закончится" не проходил).
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 11:53 25-03-2010
    vlth

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

    Код:
    Dim fso As Object, File2 As Object, lngFSize As Long
    Sub One()
    Dim File1 As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(ActiveWorkbook.Path & "\db.rar") Then _
        fso.GetFile(ActiveWorkbook.Path & "\db.rar").Delete
    Set File1 = fso.GetFile(ActiveWorkbook.Path & "\db.mdb")
    Shell "C:\Program Files\WinRAR\WinRAR.exe a db.rar " & File1.Path  ', vbHide
    Application.Wait Now + TimeValue("0:00:10")
    Set File2 = fso.GetFile(ActiveWorkbook.Path & "\db.rar")
    Two
    End Sub
    Sub Two()
    DoEvents
    On Error GoTo ErrHnd
    If File2.Size = lngFSize Then
        MsgBox "Файл базы данных заархивирован", vbOKOnly + vbInformation, "Quantor"
        lngFSize = 0: Set fso = Nothing: Set File2 = Nothing
        Exit Sub
    End If
    Application.OnTime Now + TimeValue("0:00:02"), "Two"
    lngFSize = File2.Size
    Exit Sub
    ErrHnd:
    MsgBox Err.Description & "; Операция отменена?", vbOKOnly + vbQuestion, "Quantor"
    lngFSize = 0: Set fso = Nothing: Set File2 = Nothing
    End Sub
     

     
    Добавлено:

    Цитата:
    И относится ли это к функции LinEst в VBA или это характерно только в Excel?  

    jurris, такой функции в VBA нет: это функция рабочего листа Excel (она же ЛИНЕЙН() ). Т.е., говоря иначе, если её применить в коде VBA (Application.WorksheetFunction.LinEst() ), её точность должна быть такой же, как и при вычислениях на листе.
    Больше ничего добавить, к сожалению, не могу.
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 19:15 25-03-2010 | Исправлено: vlth, 19:21 25-03-2010
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    Может я чего-то недопонимаю, но откуда берется исхзодное значение lngFSize
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 23:17 25-03-2010
    vlth

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar, изначально значение lngFSize равно нулю. После завершения первого запуска процедуры Two() lngFSize присваивается значение текущего размера создаваемого архива. Далее, при каждом запуске Two(), текущий размер архива сравнивается с предыдущим. Two() запускается до тех пор, пока размер архива не перестанет изменяться, что является признаком окончания архивации.
    У меня запуск Two() происходит раз в 2 сек., но Вы смело можете, думаю, увеличить этот период.
     
     
    Добавлено:

    Цитата:
    Проблема ко всему прочему лежит в том, что не у всех есть Рар. Кто-то юзает 7zip

    Можно программно проверять наличие их экзешников (у 7zip режим командной строки также имеет место быть).
    Что касается winzip classic - не знаю.
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 00:04 26-03-2010
    Drazhar

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    Грац. Сегодня попробую.
    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 07:14 26-03-2010
    jurris



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

    Цитата:
    jurris, такой функции в VBA нет: это функция рабочего листа Excel (она же ЛИНЕЙН() ). Т.е., говоря иначе, если её применить в коде VBA (Application.WorksheetFunction.LinEst() ), её точность должна быть такой же, как и при вычислениях на листе.  
    Больше ничего добавить, к сожалению, не могу.

     
    Спасибо.
     
    А как можно порыться в исходном коде этой функции?  
    Интересно, есть такая возможность?
    Наверно можно как-нибудь просмотреть библиотеку всех встроенных WorksheetFunction?
    Всего записей: 535 | Зарегистр. 13-01-2005 | Отправлено: 10:48 26-03-2010 | Исправлено: jurris, 10:49 26-03-2010
    vlth

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

    Цитата:
    А как можно порыться в исходном коде этой функции?
    Если это возможно, то уже точно не с помощью VBA
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 11:12 26-03-2010
    vchobo

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите, плиз, как лучше создать синхронные копии одного диапазона на нескольких листах, причем все изменения в эталоне должны отслеживаться в копиях. Через =смещ() не получается, т.к. при добавлении строки в эталон, размер копии не меняется (добавленной строки в копии не видно).  
    Всего записей: 22 | Зарегистр. 01-12-2008 | Отправлено: 11:40 26-03-2010
    vlth

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vchobo, оптимальное решение для Вашей задачи предложить не смогу, т.к. Вы дали слишком мало исходной информации.
    Посмотрите в кач-ве примера это:
    Код:
    Private Sub Worksheet_Deactivate()
    With ThisWorkbook.Worksheets(1).Range("Мой_диапазон")
        .Copy ThisWorkbook.Worksheets(2).Cells(1, 1)
        .Copy ThisWorkbook.Worksheets(3).Cells(1, 1)
    End With
    End Sub

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 12:05 26-03-2010
    vchobo

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

    Цитата:
    vchobo, оптимальное решение для Вашей задачи предложить не смогу, т.к. Вы дали слишком мало исходной информации.
    Посмотрите в кач-ве примера это:
    Код:
    Private Sub Worksheet_Deactivate()
    With ThisWorkbook.Worksheets(1).Range("Мой_диапазон")
        .Copy ThisWorkbook.Worksheets(2).Cells(1, 1)
        .Copy ThisWorkbook.Worksheets(3).Cells(1, 1)
    End With
    End Sub
     
     

     
     
    Спасибо огромное vlth, то, что надо, а как сделать, чтобы копировались только значения, без формул?
    Всего записей: 22 | Зарегистр. 01-12-2008 | Отправлено: 12:47 26-03-2010 | Исправлено: vchobo, 14:35 26-03-2010
    vlth

    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vchobo, вот пример кода:
    Код:
    For i = 2 To 3
        With ThisWorkbook.Worksheets(i)
            With Range(.Cells(1, 1), .Cells(20, 5))
                .Copy
                .PasteSpecial Paste:=xlPasteValues
            End With
        End With
    Next
    Как его применить, понятно?
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 10:03 29-03-2010
    Sniper1



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Экселоводы, помомогите. есть такая таблица в которой хочу что б можно было со строками играться, вверх или вниз. например выбрал строку нужную и смещать её вниз или вверх, как это делается в менеджерах закачек. Можно ли такое как нибудь осуществить?
    Всего записей: 319 | Зарегистр. 04-08-2003 | Отправлено: 12:12 29-03-2010 | Исправлено: Sniper1, 12:13 29-03-2010
    Открыть новую тему     Написать ответ в эту тему

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

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