Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
График рабочей смены, Автоматичсекий пересчёт рабочих дней при изменении месяца
 
Можно сделать так
Экспорт данных из access в excel по признаку
 

На все ~6 секунд, база на сетевом диске 395252 записей

Код
Sub ImportToExcel()
    t = Timer
    
    Dim Connection As New ADODB.Connection
    Dim Recordset As New ADODB.Recordset
    
    Connection.Provider = "Microsoft.ACE.OLEDB.12.0"
    Connection.ConnectionString = "Data Source=S:\Database1.accdb;Persist Security Info=False;"""
    Connection.Open
    Recordset.Open "SELECT * FROM DataAuto WHERE Mark IN ('Pajero', '4Runner')", Connection
    
    Col = 1
    For Each Header In Recordset.Fields
        Cells(1, Col).Value2 = Header.Name
        Col = Col + 1
    Next
    Cells(2, 1).CopyFromRecordset Recordset
    
    Recordset.Close
    Connection.Close
    
    MsgBox Timer - t
End Sub
Изменено: Mnham - 09.07.2020 12:17:18
Определить количество строк для вывода текста на печать
 
Да, строки должны быть объединены.

Самый простой вариант, это поделить длину строки, но результат будет не оптимальный.
Определить количество строк для вывода текста на печать
 
Нет, нужно не подогнать высоту строки, а именно задать необходимое количество строк.
Определить количество строк для вывода текста на печать
 
Как определить количество строк, которые должен занимать текст, что бы при печати текст не обрезался.
Ширина ячейки фиксированная, шрифт Calibri 8
Изменено: Mnham - 09.07.2020 10:54:56
Чтение писем из gmail с помощью Excel
 
Зачем? В VS сразу создаешь проект под Excel.
 
Изменено: Mnham - 05.10.2019 18:33:48
Чтение писем из gmail с помощью Excel
 
Если на c#, то можно написать надстройку, передать данные там не проблема.
Reading emails from Gmail in C#
Подписка через WebSocket на Streaming market-data, Подключаюсь к API, как получить данные потока?
 
Если знаком с java или c#, то там все достаточно просто, у них даже свой SDK есть.
Надстройка VSTO для SQL запросов
 
ExTools

Необходимые компоненты:
.NET Framework 4.8
Access Database Engine 2010

Ctrl+R - выполнить скрипт
Ctrl+S - сохранить
Ctrl+Shift+R - выполнить выделенный текст
Ctrl + Shift + C - скопировать скрипт для вставки в vba

Чек-бокс HDR обозначает использование заголовков таблиц или просто поля F1, F2, ...

Если возникнет ошибка при установке, то необходимо удалить или переименовать файл VSTOInstaller.exe.config
в папке C:\Program Files (x86)\Common Files\microsoft shared\VSTO\10.0
Почему вызов процедуры с параметром, через CommandBars, срабатывает 2 раза?
 
SuperCat, Вы бы могли раскрыть суть апострофа? Что он обозначает и для чего нужен в данном контексте?
Изменено: Mnham - 08.08.2016 10:02:57
Почему вызов процедуры с параметром, через CommandBars, срабатывает 2 раза?
 
Пожалуй оставлю еще одну заметку.
Если через параметр передавать имя листа вытянутое с помощью ADO. То необходимо избавляться от апострофа '
Код
Table_Name = Replace(Table_Name, "'", "")
Изменено: Mnham - 08.08.2016 10:02:00
Почему вызов процедуры с параметром, через CommandBars, срабатывает 2 раза?
 
Точно, не знал.

Такой вариант тоже работает:
Код
.OnAction = "'Called_Sub_For_Menus(" & i & ")'"

Благодарю!
Выделение цветом дубликатов, помощь в редактировании готового кода
 
А не проще применить условное форматирование?
Почему вызов процедуры с параметром, через CommandBars, срабатывает 2 раза?
 
Цитата
Sanja написал:
Файл проблемный, не открывается
Перезалил, если не поможет, модули в архиве.

Либо вот:
Скрытый текст


Скрытый текст
Изменено: Mnham - 07.08.2016 10:34:51
Копирование, автозаполнение ячеек, упростить макрос
 
Цитата
Ts.Soft написал:
Но почему-то такой "оптимизированный" код работает дольше неоптимизированного
Как это определил?

Единственное, что повлияет на скорость, это количество символов в каждой ячейке и значение параметра Type. xlFillCopy будет быстрее чем xlFillDefault.

Код
Sub Макрос1()
    t = Timer
    Range("A1:W1").AutoFill Destination:=Range("A1:W100000"), Type:=xlFillCopy
    Debug.Print Timer - t
End Sub

xlFillCopy, 1 символ ~ 0,4375
xlFillCopy, 10 символов ~ 0,4765625

xlFillDefault, 1 символ ~ 0,671875
xlFillDefault, 10 символов ~  0,7421875
Изменено: Mnham - 07.08.2016 10:11:04
Как связать ячейки между собой из разных листов из разных умных таблиц
 
Цитата
товары одинаковые но в источниках они отображаются по разному пример имена и идентификаторы не совпадают
В чем же они тогда одинаковые? Если нет полей с одинаковыми значениями, естественно не получится связать таблицы между собой.
Второй вопрос вообще не понятен. Что за источник? Какие значения из него берутся? Каким образом берутся эти значения? Для каких вычислений нужны эти значения? Каким образом происходит вычисление?
Почему вызов процедуры с параметром, через CommandBars, срабатывает 2 раза?
 
Если свойству OnAction задать вызов процедуры с параметром
Код
.OnAction = "Called_Sub_For_Menus(" & i & ")"
, то вызываемая процедура
Код
Called_Sub_For_Menus(i)
сработает 2 раза.

Код
Sub SetUpFileMenu(File_Menu)
    Dim cb As CommandBar
    Dim i As Byte
    On Error Resume Next
    Application.CommandBars(File_Menu).Delete
    On Error GoTo 0
    Set cb = Application.CommandBars.Add(File_Menu, msoBarPopup)
    For i = 1 To 4
        With cb.Controls.Add(msoControlButton)
            .Caption = "New" & i
            .Style = msoButtonCaption
            .OnAction = "Called_Sub_For_Menus(" & i & ")"
        End With
    Next i
End Sub
Sub Called_Sub_For_Menus(i)
    MsgBox i
End Sub

Изменено: Mnham - 07.08.2016 10:28:05
После выполнения вычислений и закрытия формы, лист остается неактивным.
 
Попробуйте закрыть Excel, применить форматирование к ячейкам, покрутить колесом мыши. Ничего из вышеперечисленного у меня не работает, пока не перейдешь на другой лист.
После выполнения вычислений и закрытия формы, лист остается неактивным.
 
Не могу понять, почему, после переноса данных, с одного листа на другой, последний, остается неактивным. Перенос через команду DataLoad, на форме.
Консолидация v1.03
Страницы: 1
Наверх