skapa macro i excel

2 svar · 584 visningar · startad av Oranje 9 nov. 2004

OranjeMedlem sedan sep. 200435 inlägg

Frågan9 nov. 2004 15:06#1

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?

Kalle MMedlem sedan mars 20041 936 inlägg

14 nov. 2004 18:47#2

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

OranjeMedlem sedan sep. 200435 inlägg

15 nov. 2004 07:45#3

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