Swl
http://vbex.ru/index.php/VBA/Excel/Access/Word/Access/OLEDBXLSQLite XLSQLite SQLite ODBC Driver http://www.gatekeeperforexcel.com/other-freebies.html startbootstrap-creative-1.0.2
Ещё один сайт на WordPress
http://vbex.ru/index.php/VBA/Excel/Access/Word/Access/OLEDBXLSQLite XLSQLite SQLite ODBC Driver http://www.gatekeeperforexcel.com/other-freebies.html startbootstrap-creative-1.0.2
‘Типа автоформат Sub SetRowHeight() Application.ScreenUpdating = False For Each ac In Selection sss = Round(Len(ac.Value) / ac.ColumnWidth, 0) If ac.ColumnWidth * 2 < Len(ac.Value) Then ac.RowHeight = sss Else: ac.RowHeight = ac.RowHeight End If Next Application.ScreenUpdating = True End Sub
‘Процедура получает данный из столбца N(наименования компаний берутся из 60,62 счетов) и Заполняет контрагентов Sub ПолучитьКонтрагентов() For i = 6 To shd.Cells.SpecialCells(xlLastCell).Row For ii = 1 To 12 If Not Range(«C» & i).Find(Range(«N» & ii)) Is Nothing Then ‘исходные данные Продолжить чтение Поиск компаний для 51 счета
‘Option Explicit »Возможные варианты: ДебетН, КредитН, ДебетО, КредитО, ДебетК, КредитК Sub main() ‘ Удаление существующего листа сводной таблицы Dim Sname As String Sname = «Приходы» Call delSheet(Sname) Dim arr0() As String Dim arr() As String Dim arr1() As String Dim Продолжить чтение приход по 51
Sub test() Dim arr1() As String ReDim arr1(3) arr1(0) = «51» arr1(1) = «91.02» arr1(2) = «60.01» Call test2(arr1) End Sub Sub test2(ByRef arr() As String) For i = 1 To 100 For i0 = 0 To UBound(arr, 1) — Продолжить чтение Передача массива в процедуру
‘Option Explicit ‘Приходы Sub main() ‘ Удаление существующего листа сводной таблицы Call UPT(«ЛистСВОД», «Лист1», «B3», «A1», «SvodT1», «ДебетО», «60.01») ‘ Call UPT(«ЛистСВОД», «Лист1», «B3», «A10», «SvodT2», «ДебетК», «62.01») ‘ Call UPT(«ЛистСВОД», «Лист1», «B3», «A15», «SvodT3», «ДебетК», «76.05») End Sub Sub Продолжить чтение Процедура работы со сводными таблицами
Sub run() For i = Selection.Row To Selection.Row + Selection.Rows.Count — 1 For j = Selection.Column To Selection.Column + Selection.Columns.Count — 1 Cells(i, j) = Rnd * 1000 Next j Next i End Sub
‘Option Explicit ‘Приходы Sub ПриходСводТаб() Dim PTcache As PivotCache Dim pt As PivotTable Dim PItem As PivotItem Application.ScreenUpdating = False ‘ Удаление существующего листа сводной таблицы On Error Resume Next Application.DisplayAlerts = False Sheets(«List8»).Delete On Error GoTo 0 Worksheets.Add ActiveSheet.Name Продолжить чтение Правильно работаем со сводными таблицами
Sub sortt() ‘ Функция поиска двойных денежных потоков Application.ScreenUpdating = False ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort.SortFields.Add Key:= _ Range(«F5»), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End Продолжить чтение Двойное выделение
Function delcr(r As Range, cr As String) Dim arr() As String arr() = Split(r) For i = 0 To UBound(arr) arr(i) = arr(i) If Left(arr(i), 1) = «;» Then arr(i) = Right(arr(i), Len(arr(i)) — 1) If Right(arr(i), 1) = «;» Продолжить чтение Удалить ненужный символ спереди и сзади слова