select h.id,
h.name,
listagg(c.conn, ',') within group(order by c.conn) as phone
from humans h
left join connects c on c.humanid = h.id
where c.type = 'phone'
group by h.id,
h.name=СЦЕПИТЬ(ЛЕВСИМВ(A1; ПОИСК(" ";A1;1)-1);" ";ЛЕВСИМВ(ПСТР(A1; ПОИСК(" ";A1) + 1; ПОИСК(" ";A1;ПОИСК(" ";A1)+1) - ПОИСК(" ";A1) - 1);1);".";ЛЕВСИМВ(ПРАВСИМВ(A1;ДЛСТР(A1) - ПОИСК(" "; A1; ПОИСК(" "; A1) + 1));1);".")--С помощью регулярного выражения
select REGEXP_REPLACE('ДГН-04-13601/21-53', '-\d{1,}/', '-********/') from dual;
--Если строка всегда одной длины, то можно с помощью substr
select substr('ДГН-04-13601/21-53', 0, 7) || '********' || substr('ДГН-04-13601/21-53', 13) from dual;Text = "абвгд"
For i = 1 To Len(Text)
Cells(1, i) = Mid(Text, i, 1)
Next
... Как следствие этого правила, не стоит в качестве первичного ключа таблицы использовать монотонно возрастающую последовательность, например, timestamp.
Sub MM1()
For c = 1 To 8
For r = 1 To 8
Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
Next r
Cells(1, 1).Offset(0, c - 1).ColumnWidth = 2.5
Next c
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Корешки").Range("A1:AC200").ClearContents
i = 2
j = 0
Offset1 = 0 'Смещение по вертикали
Offset2 = 0 'Смещение по горизонтали
Do While Sheets("Таблица").Cells(i, 1) <> ""
If Sheets("Таблица").Cells(i, 3) = "да" Then
Sheets("Корешки").Cells(1 + Offset1, 1 + Offset2).Value = Sheets("Таблица").Cells(i, 4)
Sheets("Корешки").Cells(2 + Offset1, 1 + Offset2).Value = "Зарплата"
Sheets("Корешки").Cells(2 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 1)
Sheets("Корешки").Cells(3 + Offset1, 1 + Offset2).Value = "пеработк"
Sheets("Корешки").Cells(3 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 8)
Sheets("Корешки").Cells(4 + Offset1, 1 + Offset2).Value = "премия"
Sheets("Корешки").Cells(4 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 10)
Sheets("Корешки").Cells(5 + Offset1, 1 + Offset2).Value = "Карточка"
Sheets("Корешки").Cells(5 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 9)
Sheets("Корешки").Cells(6 + Offset1, 1 + Offset2).Value = "аванс нал"
Sheets("Корешки").Cells(6 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 14)
Sheets("Корешки").Cells(7 + Offset1, 1 + Offset2).Value = "Итого:"
Sheets("Корешки").Cells(7 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11)
Sheets("Корешки").Cells(8 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 12)
Sheets("Корешки").Cells(9 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11) + Sheets("Таблица").Cells(i, 12)
Offset2 = Offset2 + 3
If j = 9 Then
j = 0
Offset1 = Offset1 + 10
Offset2 = 0
Else
j = j + 1
End If
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End SubPublic Function fun1(x As Double) As Double
fun1 = (x * x - 5 * 2 ^ 0.5) / (2 * x ^ 3 + 1)
End Function