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

Public Sub www() Dim r As Range With ActiveSheet Set r = Intersect(.UsedRange, .[A:A]).Offset(1) r.FormulaLocal = r.FormulaLocal End With End Sub

Sub sdsdsd() ii = 0 s01 = 0 s02 = 0 For i = 47 To 100 If Range(«B» & i).Value = 1 And s01 = 0 Then s01 = Range(«G» & i).Value ii = i End If If Range(«B» Продолжить чтение Поиск субсчетов в общей ОСВ 01,02,68,69→

Function Open_SQL() Dim ie As Object Set ie = CreateObject(«InternetExplorer.Application») ie.Visible = True ie.Navigate «http://www.sql.ru/» End Function

Private Sub SpecificationsNet() ‘http://www.sql.ru/forum/actualthread.aspx?tid=276571 Dim strComputer As String Dim objWMIService As Object, colBIOS As Object, objBIOS As Object strComputer = «.» Set objWMIService = GetObject(«winmgmts:\\» & strComputer & «\root\cimv2») Set colBIOS = objWMIService.ExecQuery(«SELECT * FROM Win32_NetworkAdapter») For Each objBIOS In Продолжить чтение MAC-adress:→

Sub dddd() For Each r In Range(«h3:h4») With Range(«D1:D100») Set c = .Find(«*» & r.Value & «*», LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Range(«F» & c.Row) = r.Value Do ‘ c.Value = 5 Set c = Продолжить чтение Поиск текста в тексте→

‘ Универсальная функция возврата даты Function GetMes_New(r As Range) As String Dim arr(12) As String Dim adress1 As Integer arr(0) = «январь» arr(1) = «февраль» arr(2) = «март» arr(3) = «апрель» arr(4) = «май» arr(5) = «июнь» arr(6) = «июль» Продолжить чтение Универсальный поиск по диапазону (переписать)→

Sub kos20() Dim x columns(1).copy columns(2) For Each x In Range(«H1:H3″).Value ‘массив искомых слов в H1:H3 ‘массив текста в 1 столбце, массив результатов во 2 столбце Columns(2).Replace What:=»*» & x & «*», Replacement:=x, _ LookAt:=xlWhole, MatchCase:=False, SearchFormat:= _ False, ReplaceFormat:=False Продолжить чтение Быстрый поиск с заменой→

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

‘Последнее число Function delcr2000(r As Range) Dim arr() As String ReDim arr(200) For i = 1 To Len(r) arr(i) = Mid(r, i, 1) If IsNumeric(Mid(r, i, 1)) Then arr(i) = Mid(r, i, 1) If Mid(r, i, 1) = » » Продолжить чтение Получить число из текста→

‘ ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ‘ (C) Александр, http://mtdmacro.ru, mtdmacro@mail.ru ‘ ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Option Explicit Private N(1 To 14) As Byte Private A, строка As String Private A1_муж, A1_жен, A2, a3, a0 Function Пропись(Сумма, Optional Показывать_ноль_копеек As Boolean) Dim Миллиарды, Миллионы, Тысячи, Рубли, Копейки Продолжить чтение Сумма прописью от http://mtdmacro.ru (платежка)→