[es] - Convert Currency in excel

killer monitor

Član broj: 248325
Poruke: 5
62.68.98.*

Profil

^{08.02.2010. u 21:58 - pre 185 meseci}

Cesto rucno unosim neke vrednosti u kolonu ali ponekad to treba da je u euro, da li postoji jednostavan nacin da kad npr u nekoj celiji stoji kurs a onda kad popunjvam u toj koloni kliknem neged i pretovri se u eur po tom kursu?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
*.3dnet.rs.

Sajt: www.gowi.rs

+112 Profil

Re: Convert Currency in excel

^{09.02.2010. u 21:17 - pre 185 meseci}

Standardan postupak je da
1/ U nekoj ćeliji, bilo gde u radnoj svesci imaš tekući kurs. Tu ćeliju najbolje da imenuješ i dodeliš joj ime Kurs
2/ u jednoj koloni imaš unos u dinarima (ili nekoj drugoj valuti) a u drugoj koloni pomoću formule dobiješ iznos u evrima.
Na različite načine možeš obezbediti da se iznos u koloni EUR ne prikazuje ukoliko u koloni DIN nije ništa uneseno (http://www.elitesecurity.org/t369908-0#2333486)

Ukoliko baš želiš da ti se na klik (dvostruki klik u ovom slučaju) promeni iznos koji si uneo iz dinara u evre, možeš to uraditi pomoću VBA koda, ali imaj u vidu da to sa sobom nosi niz problema (sigurnost, ne radi Undo...). Ako je unos u koloni C (npr u opsegu C2:C20) može se iskoristiti sledeći kod koji obradjuje dogadjaj dupli klik na odredjenom listu

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
' Na dupli klik u oblasti C1:C20 pretvara unesenu vrednost u EUR
' prema kursu upisanom u imenovanu ćeliju Kurs
'
' P.Jovanovic za elitesecurity.org
'
If Not _
  (Application.Intersect(Target, Range("C2:C20")) Is Nothing) Then

    If Not IsEmpty(Target) Then
      ' Konverzija u EUR
       Target.Value = Target.Value / ThisWorkbook.Names("Kurs").RefersToRange.Value
    End If
End If

' Simulacija unosa
Application.SendKeys ("^{ENTER}")

End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

DinUEUR.xls - 36k

Odgovor na temu