---
title: "skapa macro i excel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/115478-skapa-macro-i-excel"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "Oranje"
published: "2004-11-09T15:06:06.000Z"
updated: "2004-11-15T07:45:22.000Z"
replies: 2
views: 613
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/115478-skapa-macro-i-excel"
---

# skapa macro i excel

## #1 — Oranje, 2004-11-09T15:06Z

Hej!
Jag ar ganska ny nar det handlar om att skapa macros osv.
Tycker det ar kul och forsoker lara mig mer och mer varje dag.
Det jag nu vill gora ar att utveckla ett macro for ett test vi har.

Testet ar en excel-fil med ett gang fragor uppradade och man ska skriva svaret i den cellen bredvid fragan. Detta tar lite tid med tanke pa att testet gors via telefon oftast.

Det jag vill ar foljande.
Jag skulle vilja ha sa att i denna excelfil dras ett macro igang direkt nar man oppnar upp filen. Darefter skall rutor komma upp, dvs en ruta for varje fraga och man ska kunna skriva in texten i rutan. trycka ok och texten skall da hamna i pa vald plats i spreadsheetet.

Ar detta ett genomforbart projekt?
svart? enkelt?

Permalänk: https://www.webforum.nu/p/115478

## #2 — Kalle M, 2004-11-14T18:47Z

Tryck Alt/f11 och skapa en ny modul.

Här har du liten kod du kan testa dig fram och ändra.
Du använder funktionen Inputbox och objektet Range för att lagra i cellerna. 

Vill du att makrot ska köras när du öppnar filen skriver du workbooks.open längst upp i modulen.
Eller matar in koden vid Workbooks och händelsen "Open" för den bok du vill ha det i. Den blir då "Private". 

```
 Sub testmakro()
    VarBank = InputBox( _VarBank = InputBox( _
        "Vilket är bankens namn?" _
        , "Banknamn", Range("A7").FormulaR1C1)
    VarSumma = InputBox( _
        "Hur mycket tänker du spara per månad?" _
        , "Månadssparande i " & VarBank _
        , VarSumma)
    VarRänta = InputBox( _
        "Hur stor är månadsräntan?" _
        , "Månadssparande i " & VarBank _
        , VarRänta)
    VarÅr = InputBox( _
        "Hur många år har du tänkt att spara?" _
        , "Månadssparande i " & VarBank _
        , VarÅr)
If VarSumma <> "" And VarRänta <> "" And _
VarÅr <> "" Then
    Range("B1").FormulaR1C1 = VarSumma
    Range("B2").FormulaR1C1 = VarRänta / 100
    Range("B3").FormulaR1C1 = VarÅr
    Range("A7").FormulaR1C1 = VarBank
End If
End Sub
```

Permalänk: https://www.webforum.nu/p/1484059

## #3 — Oranje, 2004-11-15T07:45Z

Tack, det var ett bra tips på vägen detta.
Ska sitta och leka lite och testa. 
ett stort tack

Permalänk: https://www.webforum.nu/p/1484212

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/115478-skapa-macro-i-excel