Месяц: Апрель 2016

Автоматическое объединение ячеек для банков

Опубликовано автор kos20 — Нет комментариев ↓

Sub MergeCells() StartRow = Selection.Row EndsRow = Selection.Rows.Count StartCol = Selection.Column EndsCol = Selection.Columns.Count StartCol0 = StartCol EndsCol0 = EndsCol Count = CInt(InputBox(«Ââåäèòå êîë-âî áàíêîâ: «)) Debug.Print Count Colincriment = Round((EndsCol — Count — StartCol) / Count) Colincriment0 = Colincriment Продолжить чтение Автоматическое объединение ячеек для банков→

pop-up для 6062

Опубликовано автор kos20 — Нет комментариев ↓

‘Это кидаем в Модуль ‘Option Explicit Sub AddToShortCut2() ‘ Adds a menu item to the Cell shortcut menu (all open workbook windows) Dim NewControl As CommandBarButton Dim NewContro2 As CommandBarButton Dim NewContro3 As CommandBarButton Dim activeWin As Window Dim w Продолжить чтение pop-up для 6062→

VBA Excel and SQL

Опубликовано автор kos20 — Нет комментариев ↓

Sub Get_Data_from_SQL() Dim sPath As String, strSQL As String, objCon As Object, objRS As Object sPath = ThisWorkbook.FullName Set objCon = CreateObject(«ADODB.Connection») objCon.Open «Provider=Microsoft.Jet.OLEDB.4.0;» & _ «Data Source=» & sPath & «;» & _ «Extended Properties=»»Excel 8.0;HDR=No»»;» ‘tab — именованный Продолжить чтение VBA Excel and SQL→

Удалить лишние пробелы

Опубликовано автор kos20 — Нет комментариев ↓

Function УдалитьЛишниеПробелы(r As Range) Dim arr() As String arr() = Split(r) For i = 0 To UBound(arr) If Len(arr(i)) > 0 And i > UBound(arr) Then arr(i) = arr(i) Exit Function End If Next i УдалитьЛишниеПробелы = Join(arr(), » «) Продолжить чтение Удалить лишние пробелы→