สด จากอัตราแลกเปลี่ยน อัตรา ใน excel

wiki วิธีการสร้างตัวแปลงสกุลเงินด้วย Microsoft Excel วิธีการแลกเปลี่ยนเงินในสหราชอาณาจักรวิธีการแปลงไฟล์เงิน Microsoft ไฟล์ Microsoft Excel วิธีการเพิ่มสองเซลล์ที่มีอยู่แล้วรวมของสูตรอื่น ๆ วิธีการกู้คืนไฟล์ Excel ที่เสียหายวิธีการตัดสินใจ การใช้ระบบการให้คะแนนเชิงปริมาณวิธีการใช้ Morningstar เพื่อประเมินสต็อกวิธีการแปลง Excel เป็น PDF วิธีการฝัง Query SQL ใน Microsoft Excel วิธีการลบใน Excel วิธีการสร้างแผนภูมิวงกลมใน ExcelForeign Exchange Rate Function in Excel สเปรดชีต Excel นี้มี ฟังก์ชัน VBA (UDF) ที่ scrapes อัตราแลกเปลี่ยนเงินตราต่างประเทศสดจาก Yahoo การเงิน อ่านต่อในสเปรดชีต Excel และ VBA ฟรี ฟังก์ชัน Excel เหมาะสำหรับทุกครั้งที่คุณต้องการแปลงสกุลเงิน ฉันใช้มันเพื่อติดตามค่าเงินปอนด์อังกฤษของบัญชีธนาคารสกุลเงินดอลลาร์สหรัฐและแคนาดา อัตรานี้ถูกคัดลอกจาก Yahoo Finance และเป็นแบบเรียลไทม์ (แต่ล่าช้า 15 หรือ 20 นาที) UDF ใช้งานง่าย Here8217s ไวยากรณ์ FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) นี่คือตัวอย่างของวิธีใช้ FXRate () ใน Excel เพื่อแปลงสกุลเงินระหว่าง GBP และ USD อาร์กิวเมนต์สองข้อแรกคือสกุลเงินที่คุณแปลงจากและสกุลเงินที่คุณแปลงไปเป็น รหัสสกุลเงินสามตัวอักษร (เช่น GBP for British Pounds หรือ CAD for Canadian Dollars) ป้อนเป็นสตริง อาร์กิวเมนต์ที่สามเป็นหนึ่งใน 8220close8221, 8220open8221, 8220bid8221 หรือ 8220ask8221 (อีกครั้งเป็นสตริง) ราคาปิดใกล้เคียงก่อน ลิงก์ไปยังสเปรดชีต Excel อยู่ที่ด้านล่างของบทความนี้ แต่นี่คือ VBA ตัวเลือก Explicit Function FXRate (currency1 As String, currency2 As String, rateType เป็น String) เป็น Double Dim Str As String Dim temp เป็น String Dim bidStart As Long Dim bidEnd As Long Dim สตาร์ท As Long Dim ขอร้องตราบใดที่ OpenStart As Long Dim openEnd As Long Dim close ปิดสตาร์ทเป็นตราบใดที่ Dim Dim As Long Dim As Dim Dim As Double Dim เป็น Double Dim ropen As Double Dim rclose เป็น strfinance. yahooqsquot amp คู่สกุลเงิน 1 amp currency2 amp quotXquot temp ExecuteWebRequest (str) bidStart InStr (temp, quotBid: quot) bidEnd เสนอราคากลาง (temp, bidStart 65, bidEnd - bidStart - 72) askStart InStr (temp, quotAsk: quot) ถาม InStr (askStart, temp, quotquot) ถาม Mid (temp, askStart 65, askEnd - (temp, openStart 38, openEnd - openStart - 38) openStart InStr (temp, quotOpen: quot) openEnd InStr (openStart, temp, quotquot) ropen กลาง (temp, openStart 38, openEnd - openStart - 38) close สตาร์ท InStr (temp, quotPrev ปิด: quot) closeEnd InStr (closeStart , temp, quotquot) rclose Mid (temp, close เริ่มต้น 4 หลังจากนั้น FXRate จะเสนอราคา ElseIf rateType quotbidquot จากนั้น FXRate bid ElseIf rateType quotopenquot จากนั้น FXRate ropen ElseIf rateType quotclosequot จากนั้น FXRate rclose End If End Function Function ExecuteWebRequest (ByVal url As String) As String Dim oXHTTP As Object หาก InStr (1, url, quotquot, 1) ltgt 0 จากนั้น URL url amp quotampcbquot amp Timer () 100 อื่น URL url amp quotcbquot amp Timer () 100 End If Set oXHTTP CreateObject (quotMSXML2.XMLHTTPquot) oXHTTP. Open quotGETquot, url, Failed oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nothing End Function ExecuteWebRequest () ถูกคัดลอกและแก้ไขจากที่นี่ ExecuteWebRequest () เรียก HTML ของหน้าเว็บในขณะที่ FXRate () ประมวลผล HTML เพื่อแยกอัตราแลกเปลี่ยน โปรดจำไว้ว่า FXRate () จะประมวลผลข้อมูลจาก Yahoo Finance ด้วยการประมวลผลสตริงแบบง่ายๆ ดังนั้นถ้าโครงสร้างข้อมูลใน Yahoo Finance เปลี่ยนแปลงฟังก์ชันนี้อาจไม่ทำงานอีกต่อไป แจ้งให้เราทราบหากเกิดเหตุการณ์เช่นนี้และ I8217 จะอัพเดต VBA เพื่อให้สามารถทำงานได้อีกครั้ง หากคุณต้องการอัตราการแปลงสกุลเงินในอดีตในช่วงวันที่ให้ตรวจสอบสเปรดชีตนี้ คุณยังสามารถใช้ QueryTable เพื่อแยกอัตราแลกเปลี่ยน แสดงความคิดเห็นหากคุณมีคำถามหรือความคิดเห็น 22 ความคิดเห็นเกี่ยวกับ ldquo อัตราแลกเปลี่ยนเงินตราต่างประเทศฟังก์ชันใน Excel rdquo ฟังก์ชันแบ่งเมื่อตำแหน่งของการค้นหาสตริงเกินกว่าค่าสูงสุด 32767 สำหรับชนิดข้อมูล Integer ถ้าคุณเปลี่ยนการประกาศสำหรับ bidStart, bidEnd ฯลฯ เป็น Long แทน Integer ฟังก์ชันจะทำงานได้อย่างน่าเชื่อถือเมื่อความยาวของตัวแปร Temp มีขนาดใหญ่มาก สำหรับเพจที่ส่งคืนวันนี้ความยาวของตัวแปร Temp เท่ากับ 76104 โดยมี bidStart เท่ากับ 33422 การประกาศแบบยาวช่วยให้ฟังก์ชันสามารถทำงานได้ตามปกติ ขอขอบคุณ I8217ve เปลี่ยนประเภทข้อมูลเป็น Long ใน VBA และสเปรดชีต ขอบคุณมากสำหรับโค้ดด้านบน I8217m มีปัญหาเกี่ยวกับตำแหน่งของอัตรา FX ในแหล่ง HTML I8217m กำลังพยายามเรียกคืนอัตรากิกะไบต์ GBPSGD ด้านล่างเป็นตำแหน่งสำหรับ 8220bid8221 (ราคาแรกที่โค้ดค้นหาในแหล่งข้อมูล html) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72 เนื่องจาก bidStart และ BidEnd มีค่าเท่ากันฟังก์ชันกลางจึงสามารถหาอัตราการเสนอราคาได้ . ทำไมคุณเลือกตำแหน่ง bidEnd ด้วยการค้นหา 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve เพิ่งลองใช้ฟังก์ชัน FXRate () ในสเปรดชีตเพื่อคว้าอัตราแลกเปลี่ยน GBPSGD ด้วยดูเหมือนว่าจะทำงานได้ดี 8211 UDF ทำการตรวจสอบราคาเสนออย่างถูกต้อง ราคาจาก Yahoo Finance ดังนั้นเนื่องจาก BidStart และ BidEnd เหมือนกัน Cant cant ระดับกลางหาอัตราการเสนอราคาดูเหมือนว่าจะหาอัตราการเสนอราคาสำหรับฉันฉันพยายามใช้ Conversion นี้ แต่ไม่ได้ทำงานอีกต่อไปหรือไม่ให้ผลการค้นหาอีกต่อไป ฉันใช้ก่อนหน้าที่คล้ายกัน: (ดูที่นี่) แต่เมื่อฉันใช้ด้านล่างหนึ่งและแปลงจาก IDR ไป EUR จะให้การแปลง 5 ยูโรแทน 3,5Euro (ซึ่งฉันได้รับเมื่อฉันไปออนไลน์ด้านแปลง Yahoo) ดังนั้นฉันมองหาทางออกที่ดีและมาในด้านของคุณ, อย่างไรก็ตามไม่มีผลลัพธ์ให้: ฟังก์ชัน YahooCurrencyConverter (ByVal strFromCurrency, ByVal strTranslation, ByVal strResultType 8220Value8221) เกี่ยวกับข้อผิดพลาด GoToHandler ErrorHandler 8216Init Dim strURL เป็น String Dim objXMLHttp ในฐานะวัตถุ Dim strRes As String, dblRes เป็นชุดคู่ objXMLHttp CreateObject (8220MSXML2.ServerXMLHTTP8221) 8216strURL 8220finance. yahoodquotes. csve. csvampfc4l1amps8221 แอมป์แอมป์ strFromCurrency strToCurrency แอมป์ 8220X8221 strURL 8220finance. yahooqs8221 แอมป์แอมป์ strFromCurrency strToCurrency แอมป์ 8221 คำขอ XML X8221 8216Send ด้วย objXMLHttp. Open 8220GET8221, strURL ปลอม. setRequestHeader 8220Content-Type8221, 8220applicationx-www ฟอร์ม URLEncoded8221 ส่งคำตอบ strRes. responseText ด้วย 8216Parse response dblRes Val (Split (strRes, 8220,8221) (1)) Sel ect กรณี strResultType Case 8220Value8221: YahooCurrencyConverter dblRes กรณีอื่น ๆ : YahooCurrencyConverter 82201 8221 แอมป์ strFromCurrency amp 8221 8221 amp dblRes amp 8221 8221 amp strToCurrency End เลือก CleanExit: ตั้ง objXMLHttp ไม่มีอะไรออกจากฟังก์ชัน ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Function โปรดทุกคนสามารถช่วยฉันได้ ต้องมีสเปรดชีต Excel เพื่อแสดงอัตราแลกเปลี่ยน ณ วันที่ระบุ ตัวอย่าง: อัตราแลกเปลี่ยน USD ต่อ GBP ในวันที่ 10 ตุลาคม 2014. อัตราแลกเปลี่ยนเป็น USD ต่อ BRL ในวันที่ 10 ตุลาคม 2014 ฉันคิดว่าอาจเป็นเช่นฟังก์ชัน: FXRateatDate (currency1, currency2,8221Date8221) นี่เป็นไปได้หรือไม่ ต้องทำงานร่วมกับแล็ปท็อปชาวบราซิลของฉันซึ่งใช้ เป็นตัวคั่นทศนิยม (International Units System) ขอบคุณล่วงหน้า VB ทำงานได้ดี พร้อมกับอัตราแลกเปลี่ยน OPEN (ซึ่งเป็นส่วนเดียวที่ฉันใช้) ฉันต้องการแยกวันที่แลกเปลี่ยนลงในเซลล์ด้วย คุณสามารถแนะนำบางสิ่งบางอย่างไม่นี้ยังคงทำงานเพราะ doesn8217t ดูเหมือนจะทำงานเมื่อฉันใช้ฉันพยายามสูตรต่อไปนี้: FXRate (8220EUR8221,8221USD8221,8221bid8221) และมันกลับ 8220VALUE8221 เรียนทั้งหมดมันทำงานได้ดีจนถึงสิ้นเดือนธันวาคมปี 2016 ดูเหมือนว่า Yahoo เปลี่ยนอะไรบางอย่างในเว็บไซต์ของพวกเขา ใครสักคนสามารถมองเข้าไปในรหัสและให้การแก้ปัญหาสิ่งที่จะต้องมีการเปลี่ยนแปลงขอบคุณ โค้ดที่ปรับเปลี่ยนนี้ดูเหมือนจะทำงานได้ดี ฉัน didn8217t ทดสอบด้วยคอมโบที่เป็นไปได้ทั้งหมด แต่มันทำงานไม่กี่ฉันได้ทดสอบ Function FXRate (currency1 As String, currency2 As String, rateType เป็น String) เป็น Double Dim เป็นสตริง Dim temp As String Dim bidStart As Long Dim bidEnd As Long Dim เริ่มต้นเป็นยาว Dim askEnd As Long Dim openStart ตราบเท่าที่ขนาดยาวเปิดเป็นเท่าไหร่ใกล้ปิดสตาร์ท As Long Dim ปิดตราบเท่าที่การประมูลเป็น Double Dim ขอเป็น Double Dim ropen As Double Dim rclose เป็น Double Dim i As Long, i1 As Long, i2 เป็นเวลานาน myArray () ในฐานะที่เป็นตัวแปร str 8220finance. yahooqs8221 amp currency1 amp currency2 amp 8220X8221 temp ExecuteWebRequest (str) ReDim myArray (1 ถึง Len (temp) 500) สำหรับ i 1 ถึง Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 ถ้า (i2 gt Len (temp)) แล้ว i2 Len (temp) myArray (i) กลาง (temp, i1, 500) ถัดไป i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temp, 8220Bid: 8221) bidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 bidEnd InStr (bidStart 1, temp, 82208221) 4 askEnd InStr (ถามเลขที่ 1 temp, 82208221) 7 openEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (closeStart 1, temp, 8220ltquot) การเสนอราคากลาง (temp, bidStart, bidEnd 8211 bidStart) ถาม Mid (temp, askStart, askEnd 8211 askStart (temp, openStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) หาก rateType quotaskquot จากนั้น FXRate จะถาม ElseIf rateType quotbidquot จากนั้น FXRate bid ElseIf rate พิมพ์ค่า quotopenquot จากนั้น FXRate ropen ElseIf rateType quotclosequot จากนั้น FXRate rclose End If Function ExecuteWebRequest (ByVal url As String) เป็น String Dim oXHTTP เป็น Object หาก InStr (1, url, quotquot, 1) 0 แล้ว URL url amp 8220ampcb8221 amp Timer () 100 อื่น ๆ url url 8220cb8221 amp Timer () 100 End If Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP ไม่มีอะไรที่เหลืออยู่ในรหัสดีบัก 8211 คุณสามารถลบสิ่งนี้: ReDim myArray (1 ถึง Len (temp) 500) สำหรับ i 1 ถึง Len (temp) 500 i1 (i 1) 500 1 i2 i1 500 1 ถ้า (i2 gt Len (temp)) แล้ว i2 Len ( temp) myArray (i) กลาง (temp, i1, 500) ถัดไป i ActiveSheet. Range (A50) myArray Grrr ผู้ดูแล 8211 โปรดลบความคิดเห็นข้างต้น การตัดและวางไม่ทำงานอย่างถูกต้องและทำให้โค้ดบางส่วนออกไป หวังว่าสิ่งที่อยู่ด้านล่างนี้สมบูรณ์และถูกต้อง ขอบคุณฟังก์ชัน FXRate (currency1 As String, currency2 As String, rateType เป็นสตริง) เป็นคู่เป็นสตริงที่สตริงเป็นสตริง Dim temp เป็นสตริง Dim bidStart As Long Dim bidEnd As Long Dim เริ่มต้นเป็นยาว Dim askEnd As Long Dim openStart As Long Dim openEnd As Long Dim close เริ่มต้นใช้งาน As Long Dim ปิดการประมูล As Long Dim ให้เป็น Double Dim ขอเป็น Double Dim ropen As Double Dim rclose เป็น Double Dim i As Long, i1 As Long, i2 เป็น Long temp ExecuteWebRequest (str) ReDim myArray (1 ถึง Len (temp) 500) สำหรับ i 1 ถึง Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 ถ้า (i2 gt Len (temp)) แล้ว i2 Len (temp) myArray (i) Mid (temp, i1, 500 ) Next i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temp, 8220Bid: 8221) bidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 อินพุท bidEnd (bidStart 1, temp, 82208221) 4 askEnd InStr (ขอร้อง 1, 82208221) 7 openEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (การเริ่มต้น 1, temp, 8220ltquot) ราคากลาง (temp, bidStart, bidEnd 8211 bidStart) a (temp, askStart, askEnd 8211 askStart) ropen Mid (temp, openStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) หาก rateType quotaskquot จากนั้น FXRate จะถาม ElseIf rateType quotbidquot จากนั้น FXRate bid ElseIf rateType quotopenquot จากนั้น FXRate ropen ElseIf rateType quotclosequot จากนั้น FXRate rclose End If Function ExecuteWebRequest (ByVal url As String) เป็น String Dim oXHTTP เป็น Object หาก InStr (1, url, quotquot, 1) 0 แล้ว url amp 8220ampcb8221 amp Timer () 100 อื่น ๆ url url 8220cb8221 () 100 End If Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, OXHTTP. send ExecuteWebRequest oXHTTP. responseText ตั้ง oXHTTP ไม่มีอะไรเหมือนกับสเปรดชีทฟรีฐานความรู้ทั่วไปบทความล่าสุดสเปรดชีตชนิดใดสนับสนุนสูตรเช่น ต่อไปนี้: ผลที่ควรจะเป็น 3000 เหรียญสหรัฐแลกเปลี่ยนเป็นยูโร อาจมีการจัดวันที่สำหรับอัตราแลกเปลี่ยนในอดีต หรือค่าเฉลี่ยสำหรับเดือนที่ผ่านมาหรือดังนั้น ฉันจะใช้คุณลักษณะดังกล่าวตลอดเวลาและจะต้องเกี่ยวข้องกับผู้ใช้รายอื่นจำนวนมาก ฉันชอบทำงานใน Excel แต่สเปรดชีตออนไลน์เช่น Google หรือ Zoho ก็ใช้ได้เช่นกัน ถาม 20 พ. ค. ที่ 11 เวลา 12:07 GOOGLE SPREADSHEETS จะมีสคริปต์สเปรดชีตของ Google ซึ่งส่งกลับอัตราแลกเปลี่ยนระหว่าง EURO และสกุลเงินที่คุณระบุ ข้อมูลคาดว่าจะมาจากธนาคารกลางยุโรป เปิดสเปรดชีต Google Docs คลิกแทรกการค้นหาสคริปต์สำหรับ ECBExchangeRate ด้วยคำพูดในวันที่ซึ่งจะส่งคืนอัตราแลกเปลี่ยนระหว่าง USD และ EUR สำหรับวันที่ mmddyyyy น่าเสียดายที่แหล่งข้อมูลไม่ได้รับการอัพเดต การคำนวณระหว่าง 2 สกุลเงิน: ตัวอย่างเช่นเราต้องการได้รับอัตรา USDJPY สำหรับวันนี้ รับ EURUSD และ EURJPY โดยใช้สูตรด้านบน แบ่งอัตรา EURJPY ตามอัตรา EURUSD คุณได้รับ USDJPY ฉันไม่เชื่อว่าฟังก์ชันดังกล่าวมีอยู่สำหรับ Excel (อย่างน้อยตามค่าเริ่มต้น) อย่างไรก็ตามคุณสามารถตั้งค่าแผ่นงานที่นำเข้าข้อมูลจากตารางอัตราแลกเปลี่ยนแบบออนไลน์ได้เช่นเดียวกับหน้า Yahoo Finance (finance. yahoo การลงทุนสกุลเงินการลงทุนใน Cross Rates) จากนั้นคุณสามารถตั้งค่าสูตร VLOOKUP หรือ INDEXMATCH เพื่อรับอัตราแลกเปลี่ยนที่เกี่ยวข้องกับคุณ สร้างแผ่นงานใหม่ (แนะนำ) คลิกข้อมูลจากเว็บป้อน URL ต่อไปนี้: คลิกที่ลูกศรสีเหลืองข้างตารางอัตราแลกเปลี่ยน ลูกศรควรเปลี่ยนเป็นเครื่องหมายถูกสีเขียว คลิกนำเข้า คลิกคุณสมบัติ ภายใต้การควบคุมการรีเฟรช ระบุความถี่ที่คุณต้องการให้ Excel เรียกค้นข้อมูลใหม่หรือเลือกรีเฟรชข้อมูลเมื่อเปิดไฟล์ คลิก OK จากนั้นรอให้ Excel โหลดข้อมูล หากต้องการรีเฟรชข้อมูลเพียงแค่กด Ctrl-Alt-F5 ข้อมูลในหน้าการเงินของ Yahoo มีค่อนข้าง จำกัด แต่ครอบคลุมสกุลเงินที่เป็นที่นิยมมากที่สุด คุณสามารถใช้แหล่งข้อมูลอื่นเช่น: รถจักรยานยนต์ของเว็บไซต์มีตารางอัตราค่าย้อนหลังที่คุณสามารถรวมไว้ได้ คุณจะไม่พบสิ่งที่สร้างอยู่ในสเปรดชีตใด ๆ ที่เปลี่ยนแปลงตลอดเวลาเช่นอัตราแลกเปลี่ยน Thankfully มีวิธีแก้ปัญหาออกมีอยู่แล้วที่คนอื่นได้สร้างขึ้นสำหรับชนิดของสิ่งนี้เช่น WikiHow คำตอบของ Yahoo OzGrid eHow มีโซลูชันอื่น ๆ อีกมากมาย แต่ส่วนใหญ่ทำตามรูปแบบการออกแบบทั่วไปเดียวกัน หากไม่มีการเชื่อมโยงข้างต้นเป็นสิ่งที่คุณกำลังมองหาฉันขอแนะนำให้ค้นหาในเว็บไซต์ OzGrid ฟอรัมของพวกเขามักเป็นหนึ่งในดีที่สุดสำหรับการค้นหาโซลูชันของ Excel ตอบ 20 พ. ค. เวลา 12:27 ไม่มีลิงค์ใดที่เป็นประโยชน์ ฉันยังคงดีกว่าการคัดลอกและวางในอัตราสกุลเงินที่อัปเดต ต้องมีทางออกที่ดีกว่า ndash David May 20 11 at 13:25 คุณอาจใช้ Spearian for MS Excel, spearianforexcel ในการทำงานและเพื่อดาวน์โหลดประวัติทั้งหมดของอัตราแลกเปลี่ยนใด ๆ ความสะดวกสบายในการเข้าถึงข้อมูลทางการตลาดที่สำคัญทั้งหมดรวมทั้งอัตราแลกเปลี่ยนเงินตราต่างประเทศของ Yahoo Finance ใน Excel รับอัตราแลกเปลี่ยนเงินตราต่างประเทศแบบเรียลไทม์ใน Excel ด้วยสเปรดชีตฟรีนี้ คำพูดล่าช้าประมาณ 15 หรือ 20 นาที แต่จะมีการอัปเดตทุกๆนาทีเป็นต้น ทุกอย่างทำงานโดยอัตโนมัติใน VBA VBA สามารถดูและแก้ไขได้ ถั่วและสลักเกลียวของรหัสคือ QueryTable ที่สกัดอัตราแลกเปลี่ยนล่าสุดจาก finance. yahoo สำหรับสกุลเงินที่ระบุไว้ทั้งสองสกุล ทั้งหมดที่คุณต้องทำคือพิมพ์สองรหัสสกุลเงินสามตัวและคลิกปุ่ม (คุณสามารถดูรายการรหัสสกุลเงินที่นี่) VBA จะดาวน์โหลดอัตราแลกเปลี่ยนเงินตราต่างประเทศล่าสุดจาก Yahoo ไปยัง Excel โดยใช้ตารางแบบสอบถาม Excel จะดาวน์โหลดอัตราปิดบัญชีก่อนปิดและปัจจุบันสำหรับคู่สกุลเงิน การคลิกปุ่มนี้จะเป็นการรีเฟรชคำพูดด้วยค่าล่าสุด Forex แบบเรียลไทม์ที่ปรับปรุงโดยอัตโนมัติใน Excel ตอนนี้ here8217s ที่เราสามารถฉลาดและได้รับ Excel เพื่อปรับปรุงอัตราแลกเปลี่ยนสดโดยอัตโนมัติ 1. เลือก QueryTable ตามที่แสดงด้านล่างคลิกขวาและเลือก Data Range Properties 2. ในเมนูคุณสมบัติช่วงข้อมูลภายนอกให้วางเครื่องหมายในรีเฟรชทุกตัวเลือกและเลือกเวลาอัพเดต (คุณสามารถเลือกจำนวนนาทีได้) ตอนนี้ให้คลิก OK Excel จะอัปเดตข้อมูลใน QueryTable โดยอัตโนมัติโดยที่คุณไม่จำเป็นต้องคลิกปุ่มหรือเรียกใช้แมโคร เย็นเอ๊ะฉันใช้สเปรดชีตฉบับนี้เพื่อติดตามค่าสเตอร์ลิงของเงินฝากออมทรัพย์ต่างประเทศของฉัน ตัวอย่างเช่นคุณสามารถแก้ไข VBA เพื่อดาวน์โหลดอัตราแลกเปลี่ยนสำหรับคู่สกุลเงินจำนวนมาก (โปรดแจ้งให้เราทราบหากคุณต้องการสเปรดชีตนี้) สเปรดชีต Excel อื่น ๆ จะเรียกคืนอัตราแลกเปลี่ยนในอดีตระหว่างสองวัน 9 ข้อคิดเห็นเกี่ยวกับ Real-Time Forex Rate ใน Excel rdquo เช่นเดียวกับ Free Spreadsheets Master Knowledge Base บทความล่าสุด