Нет, однако развивает мелкую моторику!
Правила условного форматирования для мониторинга цены
Правила условного форматирования для мониторинга цены
Обработка больших массивов содержащих формулы, оптимизировать работу кода
|
12.11.2016 23:16:45
|
|||
|
|
|
Правила условного форматирования для мониторинга цены
Правила условного форматирования для мониторинга цены
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Автоматическая простановка даты при открытии файла
Макрос для вставки строки если ячейка содержит слово
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
|
10.11.2016 09:31:00
|
|||
|
|
|
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
|
09.11.2016 21:06:38
|
|||
|
|
|
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
Обработка больших массивов содержащих формулы, оптимизировать работу кода
|
08.11.2016 20:25:36
Добрый день, столкнулся с проблемой при обработке больших таблиц. Есть БД, данные их которой выгружаются в EXCEL, на листе формируется таблица состоящая из 60 тысяч строк (иногда меньше - до 30 тысяч) и содержащая 20-25 столбцов. В этой таблице необходимо в смежных сроках сравнивать ячейки и если эти ячейки совпадают, то эти строки сохранять, остальные удалять!
Написал 2 макроса, все работает, только если строк в таблице не более 10-15 тысяч, если больше - все ужасно тормозит, макрос выполняется час и более.Можно-ли это как-то решить. P.S. все что может тормозить процесс из таблицы убрано имхо как: очищены форматы во всей таблице, убраны все возможные автофильтры, файл сохраняется как двоичная книга.
Изменено: - 09.11.2016 20:57:33
|
|
|
|
|
Помогите с возможностью случайного выбора!
Помогите с возможностью случайного выбора!
|
03.11.2012 14:18:18
Со скрытым листом, тоже идея. Работает!
Sub test() Цитаты = Array(Shets("Лист1").Range("A1").Value, Shets("Лист1").Range("A2").Value, Shets("Лист1").Range("A3").Value, Shets("Лист1").Range("A4").Value, Shets("Лист1").Range("A5").Value, Shets("Лист1").Range("A6").Value, Shets("Лист1").Range("A7").Value, Shets("Лист1").Range("A8").Value, Shets("Лист1").Range("A9").Value, Shets("Лист1").Range("A10").Value, Shets("Лист1").Range("A11").Value, Shets("Лист1").Range("A12").Value) СлучайнаяЦитата = Цитаты(Fix(Rnd(1) * (UBound(Цитаты) + 1))) MsgBox СлучайнаяЦитата, vbInformation, "МОЁ ОКНО" End Sub |
|
|
|
|
Помогите с возможностью случайного выбора!
Помогите с возможностью случайного выбора!
Помогите с возможностью случайного выбора!
|
03.11.2012 13:29:32
Добрый день.
Необходимо при открытии Книги Excel автоматически запускать макрос, который случайным образом выбирает цитату и в дальнейшем, в определеный интервал времени случайным образом выбирать следующую цитату. В файле примера интервал задан 15 секунд. Однако не происходит случайного выбора, только частичный случайный выбор (из 3 варианта случайных цитат) |
|
|
|
|
DataForm всплывающая подсказка?
Формат даты предыдущий месяц
|
30.09.2012 13:00:54
Добрый день!
Подскажите! Необходимо макросом создавать папку и присваивать ей имя состояшее из даты в формате mmmm.yyyy + текст, однако mmmm - должен быть предыдущим. Т.е. если папка создается в сентябре, то имя ей присваивается август и т.д. Sub Создание_папки() Dim PathToSave As String, FolderName As String, FellPathToSave As String Dim fs As Object PathToSave = "C:\" FolderName = CStr(Format(Now, "mmmm.yyyy") & "Электроэнергия") FellPathToSave = PathToSave & FolderName & "\" Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder (FellPathToSave) End If End Sub |
|
|
|
|