Public Function getShortName(strText As Variant) As String
Dim myRegExp As New RegExp
Dim matches As MatchCollection
myRegExp.Global = True
myRegExp.IgnoreCase = True
myRegExp.Pattern = "(\S+)\s+(\S)\S*\s+(\S)\S*"
Set matches = myRegExp.Execute(strText)
getShortName = matches(0).SubMatches(0) & " " & matches(0).SubMatches(1) & "." & matches(0).SubMatches(2) & "."
End Function
Function getShortName(strText As String) As String
Dim a
a = Split(strText, " ")
getShortName = a(0) & " " & Left(a(1), 1) & "." & Left(a(2), 1) & "."
End Function
=('лист1'!$B$26)*$D$6
=
ДВССЫЛ("R"&(СТРОКА()*3-2)&"C1";0)&" "&
ДВССЫЛ("R"&(СТРОКА()*3-1)&"C1";0)&" "&
ДВССЫЛ("R"&(СТРОКА()*3)&"C1";0)
=если(A2="";D1;A2)
=если(A2="";""; ЕСЛИ(B2="";E1;B2) )
=если(ИЛИ(A2="";B2="");""; ЕСЛИ(C2="";F1;C2) )
Private Function getData(strUrl As String) As String
Dim http As Object
On Error Resume Next
Set http = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set http = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If http Is Nothing Then
getData = ""
Exit Function
End If
http.Open "GET", strUrl, False
http.Send
getData = http.responseText
Set http = Nothing
End Function
=FILTER(C:C;D:D=макс(D:D))
=array_constrain(ArrayFormula(ЕСЛИ(ТРАНСП(sort(ТРАНСП(ArrayFormula({RANDARRAY(1;31-B3)\1+RANDARRAY(1;B3);RANDARRAY(1;31)}));2;1))>=1;"!";""));1;31)
=array_constrain(
ArrayFormula(
ЕСЛИ(
ТРАНСП(sort(
ТРАНСП(ArrayFormula(
{RANDARRAY(1;31-B3)\1+RANDARRAY(1;B3);
RANDARRAY(1;31)
}
))
;2;1))>=1
;"!";"")
)
;1;31)
=И(
ДВССЫЛ("RC"&ПОИСКПОЗ(СЕГОДНЯ();$1:$1;0);0)="";
ДВССЫЛ("RC";0)<>""
)
=ЕСЛИ(И($F$1>0;$F$1<=G14);H14;0)+
ЕСЛИ(И($F$1>G15;$F$1<=G15);H15;0)+
ЕСЛИ(И($F$1>G16;$F$1<=G16);H16;0)+
ЕСЛИ(И($F$1>G17;$F$1<=G17);H17;0)+
ЕСЛИ(И($F$1>G18;$F$1<=G18);H18;0)+
ЕСЛИ(И($F$1>G19;$F$1<=G19);H19;0)+
ЕСЛИ(И($F$1>G20;$F$1<=G20);H20;0)+
ЕСЛИ(И($F$1>G21;$F$1<=G21);H21;0)+
ЕСЛИ(И($F$1>G22;$F$1<=G22);H22;0)+
ЕСЛИ(И($F$1>G23;$F$1<=G23);H23;0)+
ЕСЛИ($F$1>G24;H24;0)