Avatar billede nocs Nybegynder
16. december 2006 - 20:33 Der er 2 kommentarer

omregning af DKK og EURO

Hvordan kan man i excel inden for samme ark regne frem og tilbage mellem euro og kroner. Samtidigt skal det være muligt at angive kurserne. Så vidt det er muligt gerne ved hjælp af makrofunktioner + knapper.
Avatar billede supertekst Ekspert
17. december 2006 - 13:59 #1
Her er en model:
Ellers senden mail til: pb@supertekst-it.dk - så sender jeg filen


Dim Antræk, Antkol, euroKurs
Private Sub CheckBox1_Click()          'kontrolelement
    omregning
End Sub
Sub omregning()
Dim cFormat, cIndhold
    Antræk = ActiveCell.SpecialCells(xlLastCell).Row
    Antkol = ActiveCell.SpecialCells(xlLastCell).Column
   
    For ræk = 1 To Antræk
        For kol = 1 To Antkol
            cFormat = Cells(ræk, kol).NumberFormat
            cIndhold = Cells(ræk, kol)
            If InStr(cFormat, "$") > 0 And cIndhold <> "" Then
                omRegn ræk, kol
            End If
        Next kol
    Next ræk
End Sub
Private Sub omRegn(r, k)
Dim beløb, kurs, kr, euro
    kurs = Cells(1, 7)              'eurokurs I G1
    beløb = Cells(r, k)
   
    If CheckBox1.Value = True Then
Rem omregn til Euro
        euro = beløb / kurs * 100
        Cells(r, k).Select
        ActiveCell = euro
        visEuro
    Else
Rem omregning til kr
        beløb = Cells(r, k)
        kr = beløb * kurs / 100
        Cells(r, k).Select
        ActiveCell = kr
        visDkr
    End If
End Sub
Private Sub visEuro()
    Selection.NumberFormat = "[$€-2] #,##0.00"
End Sub
Private Sub visDkr()
    Selection.NumberFormat = "[$kr-2] #,##0.00"
End Sub
Avatar billede supertekst Ekspert
30. december 2006 - 15:40 #2
???
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester