Søg
Avatar billede jjohs Nybegynder
30. januar 2008 - 11:22 Der er 2 kommentarer

Makro Excel

Hej derude
Jeg mangler lige et par linier der kan fortælle hvordan jeg kan styrer antallet af kopier efter inputbox i vb
kan nogen hjælpe
Avatar billede jjohs Nybegynder
30. januar 2008 - 17:12 #1
Sub Små10ksAlle()
'
' Små10ksAlle Makro
' Makro indspillet 16-05-2007 af Bruger
'

'
    Range("B25:L35,B48:L58").Select
    Range("B48").Activate
    ActiveWindow.SmallScroll Down:=38
    Range("B25:L35,B48:L58,B67:L77,B90:L100").Select
    Range("B90").Activate
    ActiveWindow.SmallScroll Down:=35
    Range("B25:L35,B48:L58,B67:L77,B90:L100,B109:L133").Select
    Range("B109").Activate
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveWindow.ScrollRow = 4
    Range("L17").Select
End Sub
Sådan ser makroen ud, og den fungerer fint, bortset fra jeg ønsker at styre antallet af kopier via en forudgående indputbox
Selection.PrintOut Copies:=1, Collate:=True

Dette bare for forståelsens skyld
Avatar billede epimetheus Nybegynder
30. januar 2008 - 18:54 #2
Prøv med denne her.

Sub Små10ksAlle()
   
    Dim n As Long
    n = InputBox("Hvor mange kopier skal printes?", "Print")
   
    Range("B25:L35,B48:L58").Select
    Range("B48").Activate
    ActiveWindow.SmallScroll Down:=38
    Range("B25:L35,B48:L58,B67:L77,B90:L100").Select
    Range("B90").Activate
    ActiveWindow.SmallScroll Down:=35
    Range("B25:L35,B48:L58,B67:L77,B90:L100,B109:L133").Select
    Range("B109").Activate
   
    Selection.PrintOut Copies:=n, Collate:=True
   
    ActiveWindow.ScrollRow = 4
    Range("L17").Select
End Sub
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 10:32 Asus R565 legetøj Af Svend_J i PC
I går 18:59 Ang fifa 26 til Ps5 Af made18 i Andet software
I går 17:01 Kom til at tilslutte nogle 3.5 disk med et forkert Sata kabel fra en anden PSU Af Thomas B i Andet hardware
31/1021:35 Nokia 6.1 rcs Af rasmuso i Mobilnetværk
31/1013:55 Samsung Galaxy A21s ændre ringetone Af nu_igen i Mobiltelefoner
White papers
Flere white papers »