Месяц: Сентябрь 2016

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