Ещё один сайт на WordPress
Sub test() Application.ScreenUpdating = False i = 0 For Each WAr In ActiveSheet.UsedRange.Rows i = i + 1 If WAr.OutlineLevel = 4 Then ‘ 4 — поле для удаления. Возможно, что макрос нужно запустить несколько раз Rows(i & «:» & Продолжить чтение Удалить OutlineLevel (вертикальные свертки)
https://drive.google.com/file/d/0B3wA5YYTt—_MnhBbTFvU292aDQ/view?usp=sharing
http://www.delphisources.ru/forum/showthread.php?t=21797 transform sum(Сумма) select Компания from Таблица group by Компания pivot Month(Дата) http://www.sql.ru/forum/1203537/kak-perevernut-tablicu
‘ЭТО ВСЕ работатет для 51 счета!!!!!! НО БЕЗ КОРРЕКТИРОВОК НА ЗНАЧЕНИЯ (ПРОСТО ИЩЕТ ЗАГОЛОВКИ) Sub GetKeyColumnsFOR51() Dim arr() As String ReDim arr(9) arr(0) = «Период» arr(1) = «Документ» arr(2) = «Аналитика Дт» arr(3) = «Аналитика Кт» arr(4) = «Дебет» arr(5) Продолжить чтение Универсальный поиск для 51 счета
Sub GetKeyColumns20000() Dim arr() As String ReDim arr(5) Dim arri() As String ReDim arri(5) arr(0) = «Дата» arr(1) = «Приход» arr(2) = «Сумма2» arr(3) = «Расход» arr(4) = «Сумма» i = -1 For Each a In arr i = i Продолжить чтение Как бы универсальный поиск колонок
Sub ddd() ‘ Ser rn = Range(«A1:M10») For Each r In Range(«A1:M10») ‘диапазон для поиска If r.Value = «Сумма» Then ‘ поиск ячеки искомого текста If r.MergeCells Then r.Select ‘ проверка на объединение ‘ Debug.Print Selection.Address(ReferenceStyle:=xlRC, ColumnAbsolute:=True, RowAbsolute:=True); Debug.Print Selection.Column Продолжить чтение Работа с объединенными ячейками MergeCells
DELETE FROM ТОСВ WHERE Код NOT IN ( SELECT MIN(Код) FROM ТОСВ GROUP BY КредитН);
Option Compare Database Option Explicit Private Declare Function GetKeyboardLayoutName Lib «user32» _ Alias «GetKeyboardLayoutNameA» (ByVal pwszKLID As String) As Long Private Declare Function LoadKeyboardLayout Lib «user32» _ Alias «LoadKeyboardLayoutA» (ByVal HKL As String, _ ByVal flags As Long) As Long Продолжить чтение Дудис
ADO
Sub CreateConnection() ‘Declare and instantiate the connection Dim cnn As ADODB.Connection Dim rs As New ADODB.Recordset Dim arr() As Variant Set cnn = New ADODB.Connection ‘Open the connection cnn.Open «Provider=Microsoft.ACE.OLEDB.12.0;» & _ «Data Source=C:\Documents and Settings\KonKram\Рабочий стол\SQLiteForExcel\ADO\BD-01.accdb;» & _ «Persist Продолжить чтение пример использования ADODB.Connection