VBA (Exel) и не только

Function Getget(rn As Range) As Variant Dim arr(1, 4) As String arr(0, 0) = «Оборотно-сальдовая ведомость по счету» arr(0, 1) = «Оборотно-сальдовая ведомость:» arr(0, 2) = «Оборотно-сальдовая ведомость» arr(0, 3) = «ОСВ» For i = 0 To UBound(arr, 2) If Продолжить чтение если в шапка содержит субсчет→

Function GetColorIndex(Cell_Font As Range) As Double GetColorIndex = Cell_Font.Interior.ColorIndex End Function Sub DD() For i = 1 To 200 For j = 1 To 8 If GetColorIndex(Cells(i, j)) = 4 Or GetColorIndex(Cells(i, j)) = 15 Or GetColorIndex(Cells(i, j)) = 19 Продолжить чтение Удалить цвет→

If Worksheets(«Лист1»).Cells(1, 3).MergeCells Then MsgBox «Таки да!»

Function Getj(FileN, Optional shi = 1, Optional KeyName = «Код») As Integer Dim c As Range With FileN.Worksheets(shi) Set c = .Cells.Find(KeyName, .Cells(.Rows.Count, .Columns.Count), xlValues, xlPart, xlByRows, xlNext, False) If Not c Is Nothing Then Getj = c.Column End With Продолжить чтение Getij→

Sub rrrrr(myD As Variant, Optional myD1 As Variant, Optional myD2 As Variant, Optional myD3 As Variant) ‘ ‘ Макрос3 Макрос ‘ If IsMissing(myD1) = True Then myD1 = myD End If If IsMissing(myD2) = True Then myD2 = myD End Продолжить чтение Сортировка сводной таблицы→

Часто бывает так, что нужно применить функцию Left, но аргументов для поиска более 1. На помощь придет данная функция LeftMASS, где: txt – строка поиска или просто ссылка на ячейку; rn – массив искомых данных; startPoz – начальное значение для Продолжить чтение Функция Left только с использованием массива→

Sub GetUserRange() Dim UserRange As Range Prompt = «Select a range for the random numbers.» Title = «Select a range» ‘ Display the Input Box On Error Resume Next Set UserRange = Application.InputBox( _ Prompt:=Prompt, _ Title:=Title, _ Default:=ActiveCell.Address, _ Продолжить чтение Пример работы с Range→

Function Sh_Exist(sName As String) As Boolean Dim wsSh As Worksheet On Error Resume Next Set wsSh = Sheets(sName) Sh_Exist = Not wsSh Is Nothing End Function Sub Add_New_Sheet() If Not Sh_Exist(«Новый лист») Then Sheets.Add(, Sheets(Sheets.Count)).Name = «Новый лист» End If Продолжить чтение существует ли лист→

Function GetColorIndex(Cell_Font As Range) As Double GetColorIndex = Cell_Font.Interior.ColorIndex End Function Sub DD() For i = 1 To 200 For j = 1 To 8 If GetColorIndex(Cells(i, j)) = 4 Or GetColorIndex(Cells(i, j)) = 15 Then GoTo NEXT_ Else: Cells(i, Продолжить чтение Как узнать цвет шрифта в Excel→

Sub DictionaryUniq() Dim x, arr, y, i As Long, Rng As Range, t As Single ‘ Это не включаем в затраты метода (одинаково для всех) With Columns(1) .Cells(Rows.Count, 1) = Empty Set Rng = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) End With Продолжить чтение Поиск уникальных значений VBA→