Месяц: Февраль 2016

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) = » » Продолжить чтение Получить число из текста→