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

Function ЗаменитьСимволы_на_крестики(ByVal txt1 As Range) Dim ddd() As String txt = txt1.Value ReDim ddd(Len(txt)) For i = 1 To Len(txt) If Mid(txt, i, 1) = » » Then ddd(i) = » » ElseIf Mid(txt, i, 3) = «ООО» Then ddd(i) Продолжить чтение Заменить символы на крестики→

Public Rng As Range Public Sum As Range Public Function GETName51(ByVal i As Integer, Optional Pozz As Integer = 0) As String Select Case Range(«E» & i).Value Case 55.03: GETName51 = «Депозит (размещение) » & Range(«K» & i) GoTo Nexti Продолжить чтение Вытаскиваем нужное слово между символами новой строки Chr10→

Application.SendKeys «^g ^a {DEL}» ‘Очистка Immediate Window

SELECT `name`, SUM(IF(`exam`=1,`exam`,NULL)) AS `exam1`, SUM(IF(`exam`=2,`exam`,NULL)) AS `exam2`, SUM(IF(`exam`=3,`exam`,NULL)) AS `exam3`, SUM(IF(`exam`=4,`exam`,0)) AS `exam4` FROM `exams` GROUP BY `name`; SELECT `SchD` , SUM( IF( `Period` =20150101, `Period` , NULL ) ) AS `2015-0101`, SUM( IF( `Period` =20150201, `Period` , NULL Продолжить чтение Сводная таблица MySQL→

AscW(«1»)

http://www.ict.edu.ru/ft/005347/mar05079.pdf http://www.codenewsfast.com/cnf/article/0/permalink.art-ng1875q742

Sub Sample212122() ColNo = 3 Debug.Print Split(Cells(1, 1).Address, «$»)(1) StartRange = Range(«Y3») StartRange2 = Range(«A16») Set Rng = Selection Start = Rng.Column Count = Start + Rng.Count — 1 For Each r In Rng If r.MergeCells And Count Mod 3 Продолжить чтение получить нужный адрес ячейки→

Public Count As Integer Function GetNormalOSV_NEW(ByVal txt As String) If Len(txt) = 6 And Mid(txt, 5, 2) = 10 Then GetNormalOSV_NEW = zamentochku(Mid(txt, 2, 5)) ElseIf Len(txt) = 4 And Mid(txt, 3, 1) 0 Then GetNormalOSV_NEW = Left(txt, 1) + Продолжить чтение Для работы с общими ОСВ→

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) Продолжить чтение Получить нормализованное значение счета ОСВ→