उन लोगों के लिए एक रेडीमेड फ़ंक्शन जिन्हें अक्सर मुद्रा दरों का उपयोग करना पड़ता है एनबीयू में Excel .
से विनिमय दर का मूल्य स्वचालित रूप से प्राप्त करने में मदद करता है एनबीयू वेबसाइट उसके कोड और दिनांक के अनुसार।
एक सुविधा जोड़ने के लिए एनबीयू की आयात विनिमय दरें , मेनू खोलें Service - Macros - विज़ुअल बेसिक एडिटर , नया मॉड्यूल डालें (मेनू Insert - Modle ) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:
Function NBU_RATE(ByVal pCurrency, ByVal pDate)
'moonexcel.com.ua
If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function
With WorksheetFunction
tDate = .Text(pDate, "YYYYMMDD")
Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"
RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
WebServiceResponse = .WebService(RequestString)
NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")
End With
End Function
इसे बंद करें विजुअल बेसिक एडिटोर्ट और वापस लौटें Excel .
अब आप मैन्युअल रूप से हमारे फ़ंक्शन में प्रवेश कर सकते हैं NBU_RATE() . इस फ़ंक्शन का सिंटैक्स इस प्रकार है:
=NBU_RATE (
हमारे पास निम्नलिखित परिणाम होंगे:
आप निःशुल्क एक्सटेंशन इंस्टॉल करके NBUA() फ़ंक्शन का भी उपयोग कर सकते हैं YouLibreCalc.xlam .
उसके बाद, यह फ़ंक्शन Excel में खोली जाने वाली सभी फ़ाइलों में उपलब्ध होगा।