Avatar billede jbc Nybegynder
11. oktober 2001 - 11:15 Der er 10 kommentarer og
1 løsning

macro til omregning af en celles værdi

I en celle står en værdi f.eks. 100. Deen skal divederes med 3 tre og ganges med 4.
Hvordan laver man en macro der laver denne beregning på den celle markørene er placeret i? Hvis man bruger den alm. optager vil den bruge den celle som den indspilles i som en absolut reference, ligesom den vil huske værdien.
Et hastesvar ville være skønt.
jbc
Avatar billede janvogt Praktikant
11. oktober 2001 - 11:23 #1
Sub Beregning()
    x = ActiveCell.Value / 3 * 4
    ActiveCell.Value = x
End Sub
Avatar billede janvogt Praktikant
11. oktober 2001 - 11:26 #2
Eller på en linie:
Sub Beregning()
    ActiveCell.Value = ActiveCell.Value / 3 * 4
End Sub
Avatar billede jbc Nybegynder
11. oktober 2001 - 11:38 #3
janvogt Tak for din hurtige respons men den virker ikke. Den markere blot cellen som om den vil bruge som reference men uden at lave en beregning
11. oktober 2001 - 12:02 #4
Det kan laves som en function

Public Function Regn34(dTal As Double) As Double
    Application.Volatile
    Regn34 = dTal / 3 * 4
End Function

I din celle skriver du så   
    =Regn34(100)
skift evt. 100 ud med en celle reference således  =Regn34(A1)  hvis du har dit tal placeret i celle A1
Avatar billede janvogt Praktikant
11. oktober 2001 - 12:13 #5
Det SKAL virke!

Du skal markere den celle du ønsker at køre beregningen på, og så trykke ALT+F8 og køre makroen \"Beregning\".

Hvor har du lagt makroen ind?
Avatar billede janvogt Praktikant
11. oktober 2001 - 12:15 #6
Prøv at skrive \"100\" i f.eks. celle A8, marker cellen og kør så makroen. Så skulle der stå 133,33.

Eller skal de \"100\" hentes fra et andet sted på arket?
11. oktober 2001 - 12:35 #7
jan>> det gør det også.
Avatar billede jbc Nybegynder
11. oktober 2001 - 12:36 #8
Hej - Jeg har et regneark med de tre første kvartalers regnskabstal. Disse celler skal nu estimeres tre 4 kvartaler, derfor kunne det være rart med en macro der kunne iværksættes blot ved et enkelt tastetryk, f.eks. ctrl+z. Håber du forstår hvad jeg mener, for jeg forstår ikke helt hvad du mener med \"funcktion\".
Avatar billede janvogt Praktikant
11. oktober 2001 - 13:06 #9
Du kan sagens lægge makroen ind på en genvejstast eller på en knap.

Har du mulighed for at sende mig dit ark, så skal jeg få det på plads.
Det lader til, at beregningen skal være på grundlag af en sum af 3 celler i stedet for bare en celle.

jan_vogt_hansen@hotmail.com
11. oktober 2001 - 13:07 #10
Sub OpdaterMarkering()
Dim rCell As Range
    For Each rCell In Selection
        rCell.Value = rcell / 3 * 4
    Next rCell
End Sub
11. oktober 2001 - 13:09 #11
Marker hele dit område tryk Alt+F8 og afspil makroen OpdaterMarkering
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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