Как узнать код символа
AscW(«1»)
Архив рубрики: Без рубрики
http://www.ict.edu.ru/ft/005347/mar05079.pdf
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) Продолжить чтение Получить нормализованное значение счета ОСВ
Сумма по 51 + классы DataCopy
Sub test_GET_SUM() Dim DC As New DataCopy Dim DC90 As New DataCopy90 Dim Format1 As New Format Dim TotaRec As Integer Application.ScreenUpdating = False DC.SheetSelect ActiveSheet.Name, «Контрагент (приходы)» ThisWorkbook.Sheets(«Приходы»).Select Range(DC.KontrRow — 3 & «:» & DC.ObItog2Row).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Продолжить чтение Сумма по 51 + классы DataCopy
удалить альт
https://cloud.mail.ru/public/4fYb/riyAhTECY https://cloud.mail.ru/public/MvQ8/DP2GUnWyU https://cloud.mail.ru/public/Akv3/74QHXTyXW https://cloud.mail.ru/public/3N4h/SiqgPAnq3
Новая преобразовалка 606276
Sub Преобразовать606276() Max = Cells.SpecialCells(xlLastCell).Row For i = 6 To Max Select Case shd.Range(«E» & i).Value Case 60.21: shd.Range(«E» & i) = 60.01 Case 60.22: shd.Range(«E» & i) = 60.02 Case 60.31: shd.Range(«E» & i) = 60.01 Case 60.32: shd.Range(«E» Продолжить чтение Новая преобразовалка 606276
Получить данные после знака новой строки Chr(10)
Function GetCompanyNameNew(r As Range) As Variant s_left = InStr(1, r, Chr(10), vbTextCompare) s_right = InStr(s_left + 1, r, Chr(10), vbTextCompare) If s_left = 0 Then GetCompanyNameNew = r Else GetCompanyNameNew = Mid(r, 1, s_left — 1) End If End Function Продолжить чтение Получить данные после знака новой строки Chr(10)
Задать имя области (или ячейки)
Sheets(1).Range(«C1:F1»).Name = «InputArea» Sheets(1).Range(«InputArea»).Name.Delete