Live Forex Priser I Excel

wiki Hvordan lage en valutaomregner med Microsoft Excel Slik bytter du penger i Storbritannia Slik konverterer du Microsoft Money-filer til Microsoft Excel-filer Slik legger du til to celler som allerede inneholder summen av andre formler Hvordan gjenoppretter du en korrupt Excel-fil Slik tar du en beslutning Bruke et kvantitativt scoring system Slik bruker du Morningstar til å evaluere en aksje Slik konverterer du Excel til PDF Slik bygger du inn en SQL-spørring i Microsoft Excel Hvordan trekker du ut i Excel Hvordan lage et diagram i ExcelForeign Valutakursfunksjon i Excel Dette Excel-regnearket har en VBA-funksjon (UDF) som skraper live valutakurser fra Yahoo Finance. Les videre for gratis Excel-regneark og VBA. Excel-funksjonen er perfekt for når du trenger en valutaomregning. Jeg bruker den til å holde styr på britiske pundverdien av en amerikansk og kanadisk dollar bankkonto. Prisene er skrapt fra Yahoo Finance, og er i sanntid (men forsinket med 15 eller 20 minutter). UDF er enkel å bruke. Here8217 er syntaksen. FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) Dette er et eksempel på hvordan du bruker FXRate () i Excel for en valutaomregning mellom GBP og USD. De to første argumentene er valutaen du konverterer fra og valutaen du konverterer til. Dette er tre bokstaver valutakoder (for eksempel GBP for britiske pund, eller CAD for kanadiske dollar) inngått som strenger. Det tredje argumentet er en av 8220close8221, 8220open8221, 8220bid8221 eller 8220ask8221 (igjen som en streng). Den lukkede prisen er den forrige næringen. Koblingen til Excel-regnearket er nederst i dette innlegget, men her er VBA. Alternativ Eksplisitt Funksjon FXRate (valuta1 Som streng, valuta2 Som streng, rateType As String) Som dobbel Dim Str. Dim Dim som String Dim BidStart Så langt Dim bidEnd Så lenge Dim askStart så lenge Dim askEnd Så lenge Dim openStart så lenge Dim openEnd As Long Dim closeStart så lang dim dim closeEnd så lenge dim-bud som dobbel dim-spørre som dobbel dimensjonering som dobbel dimensjonering som dobbel str kvotefinansiering. yahooqsquot amp currency1 amp currency2 amp quotXquot temp ExecuteWebRequest (str) bidStart InStr (temp, quotBid: quot) bidEnd InStr (budStart, temp, kvot) bud Mid (temp, budStart 65, budEnd - budStart - 72) spørStart InStr (temp, kvot): spørEnd InStr (spørreStart, temp, kvot) spør Mid (temp, askStart 65, askEnd - askStart - 72) openStart InStr (temp, quotOpen: quot) openEnd InStr (openStart, temp, quotot) ropen Mid (temp, openStart 38, openEnd - openStart - 38) closeStart InStr (temp, quotPrev Lukk: quot) closeEnd InStr , temp, kvot) rclose Mid (temp, closeStart 4 4, closeEnd - closeStart - 44) Hvis rateType quotaskquot Spør FXRate spør ElseIf rateType quotbidquot Så FXRate bud ElseIf rateType quotopenquot Så FXRate ropen ElseIf rateType quotclosequot Så FXRate rclose End Hvis End Funksjon Funksjon ExecuteWebRequest (ByVal url Som String) Som String Dim OXHTTP Som Objekt Hvis InStr (1, url, kvot, 1) ltgt 0 Så er url url forsterker quotampcbquot amp Timer () 100 Else url url forsterker quotcbquot amp Timer () 100 End Hvis Set oXHTTP CreateObject (quotMSXML2.XMLHTTPquot) oXHTTP. Open quotGETquot, url, Falsk oXHTTP. send ExecuteWebRequest oXHTTP. responseText Angi oXHTTP Ingenting End Function ExecuteWebRequest () ble kopiert og endret herfra. ExecuteWebRequest () henter HTML-en av en nettside, mens FXRate () behandler HTML for å trekke ut valutakursene. Husk at FXRate () skraper dataene fra Yahoo Finance med litt enkel strengbehandling. Så, hvis strukturen på dataene på Yahoo Finance endres, kan denne funksjonen ikke fungere lenger. Gi meg beskjed hvis dette skjer, og I8217ll oppdaterer VBA slik at det fungerer igjen. Hvis du vil ha historiske valutaomregningskurser over et datoperiode, kan du sjekke ut dette regnearket. Du kan også bruke en QueryTable til å pakke ut valutakurser. Legg igjen en kommentar hvis du har spørsmål eller kommentarer. 22 tanker om ldquo Valutakursfunksjon i Excel rdquo Funksjonen bryter når plasseringen av substringssøkene overstiger 32767-maksimumsverdien for integerdatatypen. Hvis du endrer erklæringene for bidStart, bidEnd, etc. til Long i stedet for Integer, fungerer funksjonen pålitelig når lengden på Temp-variabelen er ekstremt stor. For en side som returneres i dag var lengden på Temp-variabelen 76104 med budStart tilsvarende 33422. De lange deklarasjonsaksjonene gjør at funksjonen kan fungere som forventet igjen. Takk, I8217ve har endret datatypen til Long i VBA og regneark. Mye verdsatt Takk for koden ovenfor. I8217m har problemer med plasseringen av fx-hastighetene i HTML-kilden. I8217m prøver å hente GBPSGD fx-hastigheten. Nedenfor er posisjonene for 8220bid8221 (den første prisen koden søker etter i HTML-kilden) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72 Så fordi BidStart og BidEnd er det samme, kan Mid-funksjonen can8217t finne budrenten . Hvorfor gjør du budEnd-posisjonen ved å lete etter 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve prøvde bare å bruke funksjonen FXRate () i regnearket for å fange GBPSGD-valutakursen. Det ser ut til å fungere bra 8211 UDF skraper budet riktig. pris fra Yahoo Finance. Så fordi BidStart og BidEnd er det samme, kan Mid-funksjonen ikke finne budsatsen. Synes å finne budsatsen for meg, jeg prøvde å bruke denne konverteringen, men jobber ikke lenger eller gir ikke lenger en resultatverdi. Jeg brukte før lignende funksjon: (se nedenfor). men når jeg bruker den nedenfor og konverterer fra IDR til EUR, gir det 5 euro konvertering i stedet for 3,5 Euro (som jeg får når jeg går online til Yahoo-konverteringssiden) Så jeg så etter en bedre løsning og kom på din side, Det er imidlertid ikke gitt noe resultat: Funksjon YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Valgfri ByVal strResultType 8220Value8221) På Feil GoTo ErrorHandler 8216Init Dim StrURL Som String Dim ObjXMLHttp Som Objekt Dim StrRes Som String, dblRes Som Dobbel Sett objXMLHttp CreateObject (8220MSXML2.ServerXMLHTTP8221) 8216strURL 8220finance. yahoodquotes. csve. csvampfc4l1amps8221 amp strFromCurrency amp strToCurrency amp 8220X8221 strURL 8220finance. yahooqs8221 amp strFromCurrency amp strToCurrency amp 8221 X8221 8216Send XML forespørsel Med objXMLHttp. Åpen 8220GET8221, strURL, False. setRequestHeader 8220Content-Type8221, 8220applicationx-www-form URLEncoded8221.send strRes. responseText End med 8216Parse respons dblRes Val (Split (strRes, 8220,8221) (1)) Sel ect Case strResultType Case 8220Value8221: YahooCurrencyConverter dblRes Case Else: YahooCurrencyConverter 82201 8221 amp StrFromCurrency amp 8221 8221 amp dblRes amp 8221 8221 amp strToCurrency End Velg CleanExit: Angi objXMLHttp Ingenting Avslutt Funksjon ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Funksjon Vennligst kan noen hjelpe meg jeg trenger noen Excel-regneark for å vise valutakursene på en bestemt dato. Eksempler: USD til GBP-valutakurs i 10. oktober 2014. USD til BRL-valutakurs i 10. oktober 2014. Jeg tror det kan være en funksjon, for eksempel: FXRateatDate (currency1, currency2,8221Date8221) Er dette mulig Det andre er at det må jobbe med min brasilianske laptop excel, som bruker. som desimalskiller (International Units System) Takk på forhånd VB fungerer bra. Sammen med den åpne valutakursen (som er den eneste delen jeg bruker), vil jeg også trekke ut datoen til en celle. Kan du foreslå noe Fungerer dette fortsatt Fordi det ikke ser ut til å fungere når jeg bruker det, prøvde jeg følgende formel: FXRate (8220EUR8221,8221USD8221,8221bid8221), og den returnerte 8220VALUE8221. Kjære alle, det fungerte fint til slutten av desember 2016. Det virker som Yahoo har forandret noe på deres nettsted. Kan noen se på koden og gi en løsning som må endres, takk. Denne justerte koden ser ut til å fungere. Jeg testet ikke det med alle mulige kombinasjoner, men det virket for de få jeg testet Funksjon FXRate (currency1 As String, currency2 As String, rateType As String) Som Dobbel Dim Str Streng Dim Temp Som String Dim BidStart As Long Dim bidEnd As Lang Dim askStart så lenge Dim askEnd Så lenge Dim åpenStart så lenge Dim åpenEnd så lang Dim dim closeStart så lenge Dim closeEnd Så lenge Dim-bud Som dobbel Dim-spørre som dobbel Dim-rope As Double Dim rclose Så dobbelt dim jeg så lenge, i1 så lenge, i2 Så lang Dim myArray () Som Variant str 8220finance. yahooqs8221 amp valuta1 amp currency2 amp 8220X8221 temp ExecuteWebRequest (str) ReDim myArray (1 Til Len (temp) 500) For I 1 Til Len (temp) 500 I1 (I 8211 1) 500 1 i2 i1 500 8211 1 Hvis (i2 gt Len (temp)) Så i2 Len (temp) myArray (i) Midt (temp, i1, 500) Neste i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temp, 8220Bid: 8221) budStart InStr (budStart, temp, 8220x82218221gt8221) 4 budEnd InStr (budStart 1, temp, 82208221) 4 askEnd InStr (askSt art 1, temp, 82208221) 7 åpneEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (closeStart 1, temp, 8220ltquot) bud Mid (temp, bidStart, bidEnd 8211 bidStart) spør Mid (temp, spørStart, spørEnd 8211 askStart ) ropen Mid (temp, openStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) Hvis rateType quotaskquot Spør FXRate spør ElseIf rateType quotbidquot Så FXRate bud ElseIf rateType quotopenquot Så FXRate ropen ElseIf rateType quotclosequot Så FXRate rclose End If Function ExecuteWebRequest (ByVal url Som String) Som String Dim OXHTTP Som Objekt Hvis InStr (1, Url, Quotot, 1) 0 Deretter Url Url amp 8220ampcb8221 amp Timer () 100 Else url url amp 8220cb8221 amp Timer () 100 End Hvis Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Sett oXHTTP Ingenting Oops 8211 igjen i noen feilsøkingskode. Du kan slette disse tingene: ReDim myArray (1 til Len (temp) 500) For i 1 Til Len (temp) 500 i1 (i 1) 500 1 i2 i1 500 1 Hvis (i2 gt Len (temp)) Så i2 Len temp) myArray (i) Midt (temp, i1, 500) Neste i ActiveSheet. Range (A50) myArray Grrr Moderator 8211 Vennligst slett de ovennevnte kommentarene. Klipp og lim klarte ikke riktig og lot noen kode ut. Forhåpentligvis er det som er under, fullstendig og riktig. Takk Funksjon FXRate (valuta1 Som streng, valuta2 Som streng, rateType As String) Som doble Dim str. String Dim temp Som String Dim bidStart Så langt Dim-bud Og så lenge Dim askStart så lenge Dim askEnd Så lenge Dim åpenStart så lenge Dim åpenEnd som lenge Dim tettStart så lang Dim dim closeEnd så lenge Dim-bud som dobbelt dim-spørre, så dobbelt dim-ropen som dobbelt dim-rclose som dobbelt dim jeg så lenge, i1 så lang, i2 så lang temp ExecuteWebRequest (str) ReDim myArray (1 til Len 500) For i 1 Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 Hvis (i2 gt Len (temp)) Så i2 Len (temp) myArray (i) Midt (temp, i1, 500 ) Next i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temp, 8220Bid: 8221) bidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 budEnd InStr (bidStart 1, temp, 82208221) 4 askEnd InStr (spørStart 1, temp, 82208221) 7 åpneEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (closeStart 1, temp, 8220ltquot) bud Mid (temp, bidStart, bidEnd 8211 bidStart) a sk Mid (temp, askStart, askEnd 8211 askStart) ropen Mid (temp, openStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) Hvis rateType kvotebeskrivelse Spør FXRate spør ElseIf rateType quotbidquot Så FXRate bud ElseIf rateType quotopenquot Så FXRate ropen ElseIf rateType quotclosequot Deretter FXRate rclose End Hvis Function ExecuteWebRequest (ByVal url Som String) Som String Dim OXHTTP Som Objekt Hvis InStr (1, Url, Quotot, 1) 0 Deretter Url Url amp 8220ampcb8221 amp Timer () 100 Else url url amp 8220cb8221 amp timer () 100 End Hvis Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Sett oXHTTP Ingenting som gratis regneark Master Knowledge Base Siste innleggHva slags regneark støtter en formel som Følgende: Resultatet skal være 3000 USD utvekslet til euro. Eventuelt kan en dato gis for en historisk valutakurs. Alternativt, gjennomsnittet for den siste måneden eller så. Jeg ville bruke en slik funksjon hele tiden, og den må være relevant for så mange andre brukere. Jeg foretrekker å jobbe i Excel, men elektroniske regneark som Google eller Zoho er også bra. spurte mai 20 11 kl 12:07 GOOGLE SPREADSHEETS Det er et Google Spreadsheet-skript som returnerer valutakursen mellom EURO og en valuta du angir. Data er angivelig fra Den europeiske sentralbanken. Åpne et Google Dokumenter-regneark. Klikk på Sett inn skript Søk etter ECBExchangeRate Med anførselstegn på datoen Dette vil returnere valutakursen mellom USD og EUR for datoen mmddyyyy. Dessverre er datakilden ikke oppdatert. Beregning mellom 2 valutaer: For eksempel ønsker vi å få USDJPY-prisen for i dag. Få EURUSD og EURJPY ved hjelp av formelen ovenfor. Del EURJPY-prisen med EURUSD-satsen. Du får USDJPY. Jeg tror ikke en slik funksjon eksisterer for Excel (minst som standard). Du kan imidlertid sette opp et ark som importerer data fra en online valutakurs tabell som den på Yahoo Finance siden (finance. yahoo Investing Currencies Currencies Investing Cross Rates). Du kan da sette opp en VLOOKUP eller INDEXMATCH formel for å få de relevante valutakursene for deg. Opprett et nytt ark (anbefales). Klikk Data fra web Skriv inn følgende URL: Klikk den gule pilen ved siden av valutakorttabellen. Pilen skal bli et grønt merke. Klikk Importer. Klikk Egenskaper. Under Oppdateringskontroll. angi hvor ofte du vil at Excel skal hente nye data, eller velg Oppdater data når du åpner filen. Klikk OK, vent deretter på Excel for å laste dataene. For å oppdatere dataene, trykk bare Ctrl-Alt-F5. Dataene på Yahoo Finance Page er ganske begrenset, men dekker de mest populære valutaene. Du kan bruke andre kilder, for eksempel: Nettstedet xeucc har historiske satsetabeller som du kan konsolidere. Du vil ikke finne noe som er bygget inn i et regneark for noe som endrer seg konstant som valutakurser. Heldigvis finnes det løsninger der ute allerede som andre har skapt for denne typen ting, for eksempel WikiHow. Yahoo svar. OzGrid. EHow. Det finnes mange andre løsninger, men de fleste følger de samme generelle designmønstrene. Hvis ingen av de ovennevnte linkene er det du leter etter, foreslår jeg å søke på OzGrid-siden. Deres fora er ofte et av de beste for å finne Excel-løsninger. svarte mai 20 11 kl 12:27 Ingen av koblingene er nyttige. Jeg vil fortsatt være bedre i å kopiere og lime inn den oppdaterte valutakursen. Det må være en bedre løsning. ndash David May 20 11 at 13:25 Du kan bruke Spearian for MS Excel, spearianforexcel. å jobbe og laste ned all historikk av hvilken som helst valutakurs. Det er veldig behagelig for å få tilgang til alle store markedsdata, inkludert Yahoo FinanceReal-Time Forex-priser i Excel Få real-time live valutakurser i Excel med dette gratis regnearket. Sitatene er forsinket med ca 15 eller 20 minutter, men oppdateres hvert minutt eller så. Alt er automatisert i VBA. VBA kan ses og modifiseres. Knappens mutter og bolter er en QueryTable som trekker ut de nyeste valutakursene fra finance. yahoo for de to spesifiserte valutaene. Alt du trenger å gjøre er å skrive inn to tre bokstaver valuta koder, og klikk på en knapp (du kan finne en liste over valuta koder her). VBA laster deretter ned de siste valutakursene fra Yahoo til Excel, ved hjelp av et spørrebord. Excel laster deretter ned forrige lukkede, åpne og nåværende budsatser for valutaparet. Ved å klikke på knappen, oppdateres anførselstegnene med de nyeste verdiene. Automatisk oppdatert Real-Time Forex i Excel Nå, her8217s hvor vi kan være klare og få Excel til å automatisk oppdatere valutakursene live. 1. Velg QueryTable som vist nedenfor, høyreklikk og velg Data Range Properties. 2. I menyen Egenskaper for ekstern datahastighet, legg inn en sjekk i oppdateringen hvert alternativ, og velg en oppdateringstid (du kan bare velge et heltall antall minutter). Klikk nå OK. Excel oppdaterer nå dataene i QueryTable automatisk, uten at du trenger å klikke på knapper eller kjøre makroer. Cool, eh Jeg bruker en variant av dette regnearket for å holde oversikt over sterlingsverdien av mine utenlandske besparelser. Du kan for eksempel endre VBA for å laste ned Forex-priser for mange valutapar (gi meg beskjed hvis du vil ha dette regnearket). Et annet Excel-regneark henter daglige historiske valutakurser mellom to datoer. 9 tanker om ldquo Real-Time Forex Priser i Excel rdquo Som Free Spreadsheets Master Knowledge Base Siste Innlegg