Архив рубрики: Без рубрики

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→

Function GetNumBefoZappp(txt As String) As String zpt = InStr(1, txt, «,», vbTextCompare) probel = InStr(1, txt, » «, vbTextCompare) сводными If zpt 0 And zpt < probel Then world! GetNumBefoZappp = Left(txt, InStr(1, txt, «,», vbTextCompare) — 1) Else: GetNumBefoZappp Продолжить чтение Вернуть данные после запятой→

Function GetNormalNeme(r Range) As Variant GetNormalNeme = InStr(1, r, «(«, vbTextCompare) GetNormalNeme = Mid(r, GetNormalNeme + 1, Len(r) — InStr(1, r, «(«, vbTextCompare) — 1) End Function