Архивы автора: kos20

Получить нормализованное значение счета ОСВ

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

Function GetNormalOSV(r As Range) TXT = Trim(r.Value) If Len(TXT) = 3 And Mid(TXT, 2, 1) 0 Then L1 = Left(TXT, 1) R1 = Right(TXT, 1) GetNormalOSV = L1 + «,0» + R1 ElseIf Len(TXT) = 4 And Mid(TXT, 3, 1) Продолжить чтение Получить нормализованное значение счета ОСВ→

Сумма по 51 + классы DataCopy

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

Sub test_GET_SUM() Dim DC As New DataCopy Dim DC90 As New DataCopy90 Dim Format1 As New Format Dim TotaRec As Integer Application.ScreenUpdating = False DC.SheetSelect ActiveSheet.Name, «Контрагент (приходы)» ThisWorkbook.Sheets(«Приходы»).Select Range(DC.KontrRow — 3 & «:» & DC.ObItog2Row).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Продолжить чтение Сумма по 51 + классы DataCopy→

Новая преобразовалка 606276

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

Sub Преобразовать606276() Max = Cells.SpecialCells(xlLastCell).Row For i = 6 To Max Select Case shd.Range(«E» & i).Value Case 60.21: shd.Range(«E» & i) = 60.01 Case 60.22: shd.Range(«E» & i) = 60.02 Case 60.31: shd.Range(«E» & i) = 60.01 Case 60.32: shd.Range(«E» Продолжить чтение Новая преобразовалка 606276→

Получить данные после знака новой строки Chr(10)

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

Function GetCompanyNameNew(r As Range) As Variant s_left = InStr(1, r, Chr(10), vbTextCompare) s_right = InStr(s_left + 1, r, Chr(10), vbTextCompare) If s_left = 0 Then GetCompanyNameNew = r Else GetCompanyNameNew = Mid(r, 1, s_left — 1) End If End Function Продолжить чтение Получить данные после знака новой строки Chr(10)→

Удалить разделы (разделители страниц) в ворде

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

Sub Удалить_раделы() ‘ Удаляет разделы в Ворде Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Application.DisplayAlerts = False .Text = «^b» .Replacement.Text = «^p» .Wrap = wdFindContinue Application.DisplayAlerts = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

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

Опубликовано автор 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→