PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se
PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAskapa makro som frågar efter antal rader, skapar och fyller i dessa.skapa makro som frågar efter antal rader, skapar och fyller i dessa.
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2010-04-23 15:04
 
Gäst

Medlem sedan: 2009-01-13
339 inlägg
 Ändrad av Gäst på 2010-04-23 15:07:04

Hej!

Jag är sjukt grön på VBA, jag kom precis igenom Excel's egen kurs så jag vet i alla fall hur jag döper ett makro nu. :)

Hur som helst skulle jag vilja veta om det går, och i så fall hur, man får ett makro som promptar texten "hur många rader?" där man kan fylla i en siffra varefter makrot skapar så många rader och fyller i dessa nyskapade rader  i kolumnen B med ett värde t.ex. 5671. Går detta att åstadkomma överhuvudtaget?

Hoppas ni förstår hur jag menar och tack på förhand! :)

 

//Erik
Nytt inlägg
 2010-04-26 13:07
 
Andreas Gustafsson

Medlem sedan: 2009-12-18
54 inlägg
 Ändrad av Andreas Gustafsson på 2010-04-26 13:12:38

Public Sub Test()
    Dim i As Long
    Dim lngAntalRader As Long
    lngAntalRader = InputBox("Hur många rader?")
    For i = 1 To lngAntalRader
        Blad1.Rows(1).Insert Shift:=xlDown
        Blad1.Range("B1") = 5671
    Next
End Sub

Andreas Gustafsson

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Nytt inlägg
 2010-04-27 10:07
 
erikmel

Medlem sedan: 2010-04-23
6 inlägg

Grymt!

Går det att samtidigt fråga vad värdet ska vara som ska fyllas i? (Jag försökte tolka din kod och lägga till frågan om värde men det slutade med att excel endast pumpade ut en massa rader i nummerföljd i oändligheten. )
Nytt inlägg
 2010-05-03 08:29
 
Andreas Gustafsson

Medlem sedan: 2009-12-18
54 inlägg

Antingen kan du använda en InputBox till och lagra resultatet i en variant, typ:

Public Sub Test()
    Dim i As Long
    Dim lngAntalRader As Long
    Dim vntText As Variant
    lngAntalRader = InputBox("Hur många rader?")
    vntText = InputBox("Värde?")
    For i = 1 To lngAntalRader
        Blad1.Rows(1).Insert Shift:=xlDown
        Blad1.Range("B1") = vntText
    Next
End Sub

 ..eller också kan du kolla lite på hur man skapar dialogrutor för att visa båda inmatningsfälten samtidigt.

/Andreas 

Andreas Gustafsson

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Nytt inlägg
 2010-05-03 16:31
 
erikmel

Medlem sedan: 2010-04-23
6 inlägg
 Ändrad av erikmel på 2010-05-03 16:46:04

Cool, tack så jättemycket!

Har du några tips på var man kan läsa om sådant du pratar om? (Jag läser gärna så man lär sig något på vägen!)

Tack hur som helst!

//Erik

 
Nytt inlägg
 2010-05-04 16:02
 
Andreas Gustafsson

Medlem sedan: 2009-12-18
54 inlägg
 Ändrad av Andreas Gustafsson på 2010-05-04 16:06:22

Den interna hjälpen i Excel 2007 är ganska bra. Om du vill ha utförligare dokumentation kan du kolla upp boken "Power Programming with VBA" som finns både i en 2003- och en 2007-upplaga. Ytterligare ett alternativ är att gå en kurs här hos hos. Gör gärna en titt på vår utbildningssida:

http://www.excel-specialisten.se/Utbildning/VBAGrund/tabid/212/language/sv-SE/Default.aspx

/Andreas

 

Andreas Gustafsson

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Nytt inlägg
 2010-05-21 13:22
 
erikmel

Medlem sedan: 2010-04-23
6 inlägg

Andreas Gustafsson skrev

Antingen kan du använda en InputBox till och lagra resultatet i en variant, typ:

Public Sub Test()
    Dim i As Long
    Dim lngAntalRader As Long
    Dim vntText As Variant
    lngAntalRader = InputBox("Hur många rader?")
    vntText = InputBox("Värde?")
    For i = 1 To lngAntalRader
        Blad1.Rows(1).Insert Shift:=xlDown
        Blad1.Range("B1") = vntText
    Next
End Sub

 ..eller också kan du kolla lite på hur man skapar dialogrutor för att visa båda inmatningsfälten samtidigt.

/Andreas 

Finns det en variant där man bara "skriver" i de befintliga cellerna istället för att infoga nya rader? Alltså exakt samma resultat men utan nya infogade rader.
 Sida 1 av 1
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAskapa makro som frågar efter antal rader, skapar och fyller i dessa.skapa makro som frågar efter antal rader, skapar och fyller i dessa.

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter