وظيفة جاهزة لأولئك الذين غالبًا ما يضطرون إلى استخدام أسعار العملات البنك الأهلي الأوكراني في Excel .
يساعد على الحصول على قيمة سعر الصرف تلقائيا من موقع البنك الوطني الأوكراني من خلال الكود والتاريخ الخاص به.
لإضافة ميزة أسعار صرف الواردات من البنك الأهلي الأوكراني ، افتح القائمة Service - Macros - محرر Visual Basic , أدخل الوحدة الجديدة (قائمة طعام Inser - Module ) وانسخ نص هذه الوظيفة هناك:
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
أغلقه محرر Visual Basic والعودة إلى Excel .
الآن يمكنك إدخال وظيفتنا يدويًا NBU_RATE() . بناء جملة هذه الوظيفة كما يلي:
=NBU_RATE (
ستكون لدينا النتيجة التالية:
يمكنك أيضًا استخدام الدالة NBUA() عن طريق تثبيت الامتداد المجاني YouLibreCalc.xlam .
بعد ذلك ستكون هذه الوظيفة متاحة في كافة الملفات التي سيتم فتحها في Excel.