Private Sub AgListCommandButton2_Click()
End
Unload Me
End Sub

Sub SumPropPadej()
 
With Selection
        aa = Replace(Replace(.Range.Text, Chr(160), ""), " ", "")
End With
 
 
Dim summa As String
summa = aa
dot = InStr(1, summa, ",", vbTextCompare)
If dot = 0 Then
summa = summa & ",00"
dot = InStr(1, summa, ",", vbTextCompare)
End If
summaL = Len(summa)
rub = Left(summa, dot - 1)
kop = Right(summa, summaL - dot)


UserForm1.Show


    If UserForm1.OptionButton1 = True Then
    p = 5
    Else
        If UserForm1.OptionButton2 = True Then
        p = 8
        Else
            If UserForm1.OptionButton3 = True Then
            p = 11
            Else
                If UserForm1.OptionButton4 = True Then
                p = 14
                Else
                    If UserForm1.OptionButton5 = True Then
                    p = 17
                    Else
                        If UserForm1.OptionButton6 = True Then
                        p = 20
                        Else
                        MsgBox "Выберите падеж"
                        End If
                    End If
                End If
            End If
        End If
    End If


Dim url As String
url = "https://summa-propisyu-online.ru/?sum=" & rub & "%2C" & kop & "&cur=RUB&nds=20&nds=20"
 
' Creating and sending the request:
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
 
xmlhttp.Open "GET", url, False
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send ""
 
 
' Getting the response:
Dim objHTML As Object
Set objHTML = CreateObject("htmlFile")
 
With objHTML
    .Open
    .write xmlhttp.responseText
    .Close
End With
 

 
' Parsing the response
Dim objDivs As Object, objDiv As Object
Dim objLis As Object, objLi As Object
Dim retText As String
 
Set objDivs = objHTML.getElementsByTagName("table")
 
For Each objDiv In objDivs
    If objDiv.ClassName = "table  table-bordered table-hover adaptive-table" Then
        Set objLis = objDiv.getElementsByTagName("td")
        For Each objLi In objLis
            retText = retText & objLi.innerText & vbNewLine
        Next objLi
        Exit For
    End If
Next objDiv


'собираем массив из строковой переменной
Dim arr() As String
arr = Split(retText, vbNewLine)


'Именительный падеж
ImPad = arr(p)
iP = Split(ImPad, " ")
iPl = UBound(iP)

Dim x As Variant
For j = 0 To iPl
    x = InStr(1, iP(j), "рубл", 1)
    If x > 0 Then
        rubSlovo = j
    End If
Next j

Dim iPr As String
For r = 0 To rubSlovo - 1
    If r = rubSlovo - 1 Then
    iPr = iPr & iP(r) & ") " & iP(r + 1)
    Else
    iPr = iPr & iP(r) & " "
    End If
Next r

If kop = "00" Then
    If p = 11 Then
        iPrk = " (" & iPr & " " & kop & " копейкам"
        Else
            If p = 17 Then
                iPrk = " (" & iPr & " " & kop & " копейками"
                Else
                    If p = 20 Then
                        iPrk = " (" & iPr & " " & kop & " копейках"
                        Else
                        iPrk = " (" & iPr & " " & kop & " копеек"
                        End If
            End If
    End If
Else
    iPrk = " (" & iPr & " " & kop & " " & iP(iPl)
End If

iPrk = Replace(iPrk, Mid(iPrk, 3, 1), LCase(Mid(iPrk, 3, 1)))


With Selection
    .Range.Text = .Range.Text & iPrk
End With


End Sub

Sub SumPropPadej()
 
Dim url As String
url = "https://summa-propisyu-online.ru/?sum=36%2C56&cur=RUB&nds=20&nds=20"
 
' Creating and sending the request:
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP") '??XML??
 
xmlhttp.Open "GET", url, False '?GET ????
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send ""
 
 
' Getting the response:
Dim objHTML As Object
Set objHTML = CreateObject("htmlFile")
 
' Note: this objHTML.write will not work with early binding!
' In that case you have to use the .body.innerHTML
' like in the code sample above.
With objHTML
    .Open
    .write xmlhttp.responseText
    .Close
End With
 

 
' Parsing the response
Dim objDivs As Object, objDiv As Object
Dim objLis As Object, objLi As Object
Dim retText As String
 
Set objDivs = objHTML.getElementsByTagName("table")
 
For Each objDiv In objDivs
    If objDiv.ClassName = "table  table-bordered table-hover adaptive-table" Then
        Set objLis = objDiv.getElementsByTagName("td")
        For Each objLi In objLis
            retText = retText & objLi.innerText & vbNewLine
        Next objLi
    End If
Next objDiv
 
Debug.Print retText
 
 
End Sub

Sub SumPropPadej()

Dim url As String
url = "https://summa-propisyu-online.ru/?sum=36%2C56&cur=RUB&nds=20&nds=20#main_form" 'запрос пока фиксированный = 36,56

' Creating and sending the request:
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP") '??XML??

xmlhttp.Open "GET", url, False '?GET ????
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send ""


' Getting the response:
Dim objHTML As Object
Set objHTML = CreateObject("htmlFile")

' Note: this objHTML.write will not work with early binding!
' In that case you have to use the .body.innerHTML
' like in the code sample above.
With objHTML
    .Open
    .write xmlhttp.responseText
    .Close
End With

' Parsing the response
Dim objDivs As Object, objDiv As Object
Dim objLis As Object, objLi As Object
Dim retText As String

Set objDivs = objHTML.getElementsByTagName("table")

For Each objDiv In objDivs
    If objDiv.ClassName = "table  table-bordered table-hover adaptive-table" Then
        Set objLis = objDiv.getElementsByTagName("td")
        For Each objLi In objLis
            retText = retText & objLi.innerText & vbNewLine
        Next objLi
    End If
Next objDiv

Debug.Print retText


End Sub

ActiveCell.FormulaR1C1Local = _
        "=ЕСЛИОШИБКА(ВПР(RC[-1];Лист2!R2C2:R6C3;2;0);"")"