02. januar 2006 - 13:39Der er
6 kommentarer og 1 løsning
Indtaste tal og udskrive automatisk?
Goddag!
Min spörgsmäl gär ud pä fölgende: pä Ark2 har jeg en liste med forskellige tekster. Disse tekster träkkes ind i forskellige felter pä Ark1 ved hjälp af Lopslag. Dvs., skriver man tallet 2 i felt A21 pä Ark1, träkkes teksterne fra linie 2 pä Ark2 ind i felterne pä Ark1. Herefter udskrives Ark1 manuelt. Sä langt, sä godt... Probleme er, at hvis jeg har 100 linier pä Ark2, skal jeg först skrive tallet 1 i felt A21, og derefter udskrive. Sä skal jeg skrive tallet 2 i felt A21, og derefter udskrive, osv.
Hvordan kan dette göres automatisk säledes at: linie 1 pä Ark2 läses. Dataene fra linie 1 pä Ark2 träkkes over i felterne pä Ark1 (lopslag). Ark1 udskrives. linie 2 pä Ark2 läses. Dataene fra linie 2 pä Ark2 träkkes over i felterne pä Ark1 (lopslag). Ark1 udskrives. osv. osv.
Jeg er ikke ferm til VB, sä hvordan göres ovenstäende ellers?
Du kan bruge denne makro. Ret det første range til det område i Ark2, hvor du har dine opslagsværdier (altså cellerne i første kolonne i opslagsmatrixen:
Sub UdskrivAlleLopslag() For Each c In Sheets(2).Range("a1:a6").Cells Sheets(1).Range("a21").Value = c.Value ActiveSheet.PrintOut Next c End Sub
Det er formentlig det, jeg skal bruge. Jeg forstär koden, men kan du forklare, hvor jeg skal indsätte den, da jeg aldrig har arbejdet med makroer i Excel?!
Højreklik på en værktøjslinie. Vælg at vise linjen Formularer. Ved hjælp af knapværktøjet trækker du en knap ud i regnearket. Så åbner en dialogboks, hvor du skal vælge den makro, som knappen skal afspille. Højreklik på knappen og vælg rediger tekst. Så kan du rette knappens tekst til noget fornuftigt. Vælg derefer Formater kontrolelement. I fanebladet Egenskaber, skal du sikre dig, at der IKKE er flueben i Udskriv objekt. Ellers skrives knappen med ud på alle sider.
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.
