10. september 2007 - 12:24Der er
11 kommentarer og 1 løsning
Indsæt TekstBokse i Ark - mest hensigtsmæssige metode
Har på Ark2 oprettet TekstBoks1 og TekstBoks2, indeholdende forskellige tekster og er således i forskellige størrelser.
Tekstboksene er lavet vha Shapes på nederste menuline – altså ikke som kontrolelementer. Årsagen er den at hvis TekstBox oprettes som kontrolelement kunne jeg ikke lave noget af teksten fed samt i øvrigt benytte forskellige tekststørrelser og indrykning jeg som normalt henter på øverste værktøjslinies ikoner. (Ikoner er med andre ord ikke aktive) Det er muligt at det kan lade sig gøre i Properties – jeg ved bare ikke hvordan .
Ønsket funktion: Hvis celle A4 på Ark2 er TRUE skal TekstBox1 indsættes i Ark1 celle B20. Hvis celle A4 på Ark2 er FALSE er det i stedet TekstBox2 der skal indsættes.
Da kun én TekstBox skal vises, skal koden formuleres således den først sletter den TeksBox som ikke er gældende. F.eks. hvis der er gjort et fejlvalg og TekstBox2 først blev vist vil det ikke være hensigtsmæssigt at den noget mindre TekstBoks1 blot ”blev lagt oven på.” Altså før indsættelse af ny TekstBoks skal der slettes tidligere indsat TekstBoks
En anden ting som driller mig er at TekstBokse skifter nummer hver gang de indsættes fra Ark2 til Ark1. Har forsøgt at navngive TeksBokse men det driller også . (Ville det være bedre hvis TekstBokse alligevel var oprettet som kontrolelement så navngivning forløb under Properties? Hvordan navngiver jeg TekstBoks 1 som”HOT” og TekstBoks2 som ”COLD”
Sidst men ikke mindst: – Ville det være bedre hvis et tomt tekstfelt med fast størrelse på Ark1 celle B20 blev oprettet. Herefter kunne en kode bestemme om det var den ene eller anden tekst der blev indsat, - dette ville også afhjælpe problemet med navngivning af TekstBoks.
På Ark1 har jeg to OptionButtons , OptHeat(linker til Celle A20 på Ark2) og OptCool (linker til A4 på Ark2). Da kun een OptButton kan være TRUE har jeg tilfældigvis valgt at benytte A4 som bestemmende for hvilken Tekst som bliver indsat på Ark1. Dvs hvis OptCool er TRUE gælder det at jeg skal have TekstBoks1 sat ind i Ark1 Celle B20. Hvis ikke OptCool er TRUE må den nødvendigvis være FALSE hvilket betyder at det er Tekstboks2 der skal indsættes i Ark1 Celle B20.
Mine TekstBokse og andre rådata har jeg på Ark2 som jeg vil skjule for brugeren. Det ville i øvrigt lette lidt hvis jeg kunne få min navngivning til at fungere så TekstBoks1 vil hedde "TekstCool" og TekstBoks2 "TekstHeat"
Hmm...kommentarer, ved ikke lige præcis hvad du mener, men måske jeg skulle undersøge denne mulighed !
SHIFT + F2 virker OK, men jeg ønsker at få et blivende tekstfelt på arket dvs at tekst skal være synligt uanset om cursor er på cellen eller ej. Det er sådan at Ark med Tekstfeltet skal danne grundlag for et PrintArk som i form og udseende skal informere brugeren omkring et produktvalg.
En kommentar kan også være synlig hele tiden, men bortset fra det hvilken tekstboks ønsker du at anvende/hvor kommer den fra ? Etiket fra Formular-kassen Tekstboks fra Kontrol element-kassen Tekstboks fra Tegne-menuen
Fint - med din TekstBoks fra Tegnemenuen er det muligt at Editere i teksten som jeg ønsker. Funktionen er også som den skal være. Jeg har dog ikke helt forstået hvorledes du navngiver TeksBoksene. Jeg mener konden i Module1 er jo ikke aktiv og Sub boks () kaldes ikke fra anden kodemodul. Hvordan kan det være at jeg ikke kan finde navnene i Insert - Name - Define menuen ?
Private Sub OptionButton1_Click() If OptionButton1 = True Then ActiveSheet.Shapes("Heat").Visible = True ActiveSheet.Shapes("Cool").Visible = False End If End Sub
Private Sub OptionButton2_Click() If OptionButton2 = True Then ActiveSheet.Shapes("Cool").Visible = True ActiveSheet.Shapes("Heat").Visible = False End If End Sub
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.
