[ killer monitor @ 08.02.2010. 21:58 ] @
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?
[ Jpeca @ 09.02.2010. 21:17 ] @
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