=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7

=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")

Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub

function RefreshImports() {
    var s=SpreadsheetApp,
        e=s.getUi(),
        t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL);
    if(t.getSelectedButton()==e.Button.OK) {
        var r=t.getResponseText(),
            n=LockService.getScriptLock();
        n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){
            var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi,
                n=[t.getDataRange()].map(function(e){
                    return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()}
                })[0],
                e = [].concat.apply([],n.f.map(function(e,r){
                    return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}})
                })).filter(function(e){return -1!==e.f.search(r)});
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")});
            Utilities.sleep(5e3);
            e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)})
        }),s.flush(),n.releaseLock())
    }
}

=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

AA    =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)

BB    =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24

ПР    =!$E$11:$E$12

=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)

<xs:import namespace="http://www.w3.org/2001/XMLSchema"/>

<xs:element ref="xs:schema"/>

cd /d .
AltovaXML -xslt2 xsl\main.xslt -in xsd\test1.xsd -param SourceFilePath='%~dp0src\test.xlsx'
pause

Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFileName = sFolder & "xsd\test1.xsd"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With

Dim sFolder
sFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
With CreateObject("AltovaXML.Application").XSLT2
    .InputXMLFromText = "<xs:schema id='NewDataSet' xmlns='' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:msdata='urn:schemas-microsoft-com:xml-msdata'>" & vbCrLf & _
    "<xs:element name='NewDataSet' msdata:IsDataSet='true' msdata:MainDataTable='OrderHeader' msdata:UseCurrentLocale='true'>" & vbCrLf & _
    "<xs:complexType>" & vbCrLf & _
    "<xs:choice minOccurs='0' maxOccurs='unbounded'>" & vbCrLf & _
        "<xs:element name='OrderHeader'>" & vbCrLf & _
        "<xs:complexType>" & vbCrLf & _
        "<xs:sequence>" & vbCrLf & _
        "<xs:element name='Id' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "<xs:element name='Cl' type='xs:string' minOccurs='0' />" & vbCrLf & _
        "</xs:sequence>" & vbCrLf & _
        "</xs:complexType>" & vbCrLf & _
        "</xs:element>" & vbCrLf & _
    "</xs:choice>" & vbCrLf & _
    "</xs:complexType>" & vbCrLf & _
    "</xs:element>" & vbCrLf & _
    "</xs:schema>"
    .XSLFileName = sFolder & "xsl\main.xslt"
    .AddExternalParameter "SourceFilePath", "'" & sFolder & "src\test.xlsx'"
    .AddExternalParameter "DestFolder", "'" & sFolder & "'"
    .AddExternalParameter "DestFIle", "'test1.xml'"
    .Execute ""
End With

DBASE IV;CharacterSet=65001

[Красный][<1,5]Основной;Основной

Sub sdf()
    On Error Resume Next
    Dim cell As Range, sPath$, sNewPath$, sHref$
    sPath = ThisWorkbook.Path & "\"
    sNewPath = sPath & "Отчет" & Format(Now, "dd.MM.yyyy hh_mm\\")
    MkDir sNewPath
    With ActiveSheet.UsedRange.Columns("K")
        For Each cell In Intersect(.Cells, .Offset(1)).SpecialCells(2, 23).SpecialCells(12).Cells
            sHref = cell.Hyperlinks(1).Address
            FileCopy sPath & sHref, sNewPath & Mid(sHref, InStrRev(sHref, "\") + 1)
        Next
    End With
End Sub