Excel에서 NBU 환율을 자주 사용해야 하는 분들을 위해 미리 만들어진 기능입니다. 코드 및 날짜별로 통화 값을 자동으로 삽입하는 데 도움이 됩니다. NBU 웹사이트 . 우크라이나의 은행 직원에게 바칩니다.
Service - Macros - Visual Basic Editor 메뉴를 엽니다. 새 모듈을 삽입 (메뉴 Insert - Module) 그리고 이 함수의 텍스트를 거기에 복사하세요:
Function NBU_RATE(sCurr$, iiDate As Date)
'moonexcel.com.ua
Dim sURI As String
Dim oHttp As Object
Dim htmlcode As String
Dim C As Range
Dim Q As Long
Dim iP As Long, z As Long
Dim S As String, S1 As String, iOnlyTable As String
Dim b As Object
Dim massive(30, 5)
Dim iDatas As Date
sURI = "http://bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=daily&date=" & iiDate & "&execute"
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
If oHttp Is Nothing Then Exit Function
On Error GoTo ConnectionError
oHttp.Open "GET", sURI, False
On Error GoTo ConnectionError
oHttp.Send
htmlcode = oHttp.responseText
iP = InStr(1, htmlcode, "України<"&"br/>встановлює")
htmlcode = Mid(htmlcode, iP, 10000)
iP = InStr(1, htmlcode, "<"&"td class=") + 6 + 11 '">
iDatas = Mid(htmlcode, iP, 10)
iOnlyTable = Mid(htmlcode, InStr(100, htmlcode, "<"&"table cellpadding="), InStr(1000, htmlcode, "<"&"/table>") - _
InStr(100, htmlcode, "<"&"table cellpadding=") + 10)'">
Set Doc = CreateObject("HTMLFile")
Doc.Write iOnlyTable
Set b = Doc.all.tags("TABLE")
For Each uTableElement In b
iRows = uTableElement.Rows.Length
iCells = uTableElement.Cells.Length
j = 0
For k = 1 To iRows
For l = 1 To 5
j = j + 1
massive(k, l) = uTableElement.Cells(j - 1).innerHTML
If j = uTableElement.Cells.Length Then GoTo 1
Next l
Next k
1:
Next uTableElement
For k = 2 To iRows
For l = 1 To 5
If massive(k, l) = sCurr Then
NBU_RATE = Replace(massive(k, 5), ".", ",")
NBU_RATE = NBU_RATE / massive(k, 3)
End If
Next l
Next k
Calculate
NextForLoop:
Set oHttp = Nothing
Exit Function
ConnectionError:
End Function
Visual Basic Editor을 닫고 Excel로 돌아갑니다.
이제 정의된 User 카테고리의 Function wizard에서 NBU_RATE 함수를 찾아 사용할 수 있습니다. 이 함수의 구문은 다음과 같습니다.
=NBU_RATE ( 통화 코드 ; 날짜 )
우리는 다음과 같은 결과를 얻게 될 것입니다:
