Сводная таблица MySQL

1 2 3 4 5 6 7 8 9 10 11 12 13 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, Читать далее Сводная таблица MySQL

Работа с закладками Word

  ThisDocument.Bookmarks.Add Name:="temp", Range:=Selection.Range ThisDocument.Bookmarks("temp").Range.Text = "fdfdfdfd fdf dfdf " ThisDocument.Bookmarks("temp1").Range.Text = "fdfdfdfd fdf dfdf — 2220000 "   ActiveSheet.DrawingObjects.Select ‘Выделить все объекты на листе Более подробно читать здесь:

получить нужный адрес ячейки

Split(Cells(1, 1).Address, «$»)(1)   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 Читать далее получить нужный адрес ячейки

Для работы с общими ОСВ

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 Читать далее Для работы с общими ОСВ

Получить нормализованное значение счета ОСВ

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

Сумма по 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 Читать далее Сумма по 51 + классы DataCopy

Новая преобразовалка 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 Читать далее Новая преобразовалка 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 Читать далее Получить данные после знака новой строки Chr(10)