23. november 2006 - 17:30Der er
21 kommentarer og 1 løsning
Låse Checkboxe
Til excelent: Jeg har først haft tid til at prøve dit råd af idag omkring at låse 18 checkboxe så kun 5 kan markeres. Du skrev:
"Her er koden for de 3 første Checkboxe, indsæt selv resten i arkets kodemodul jeg går ud fra du i forvejen har celleref. i Linkedcell i Egenskaber.
Private Sub CheckBox1_Click() If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P6") = False End Sub
Private Sub CheckBox2_Click() If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P7") = False End Sub
Private Sub CheckBox3_Click() If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P8") = False"
Hvordan gør jeg det? Er det i det dér Visual Basic, eller...? Du bliver nok nødt til at skære det ud i pap... :o/ Du behøver ikke skrive koderne, det har jeg styr på, men hvor og hvordan?
Oprettede et nyt spørgsmål, så du kan få lidt ekstra point! :o)
ok først skal du have den lille kontrolelement menu frem: højreklik oppe i værktøjslinien og vælg kontrolelementer klik i øverste venstre hjørne af menuen så du kommer i designtilstand
dobbeltklik på den første kontrolcheckbox i arket det bringer dig til VBA-editoren,- indsæt følgende linie som linie 2 If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P6") = False vend tilbage til arket og gentag procedure for alle dine checkbokse
til sidst skal du blot ændre i de linier du har indsat, P6 til P7,P8 osv.
If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P7") = False If WorksheetFunction.CountIf(Range("P6:P23"), True) > 6 Then Range("P8") = False osv.
Ved ikke om det har noget med det at gøre, men jeg har indsat kontrolelementerne via værktøjslinien Formularer...!?
I kontrolelement-værktøjsliniens venstre hjørne hedder menuen "Afslut designtilstand", så jeg går ud fra jeg er i designtilstand. Når jeg så klikker på checkboxen skriver den nogen med at makroerne er deaktiveret pga højt sikkerhedsniveau...?
ok du skal være i designtilstand (øverste venstre hjørne af menu) så marker checkboks1 i arket og klik på egenskaber i kontrolelement-menuen (øverste højre hjørne) i properties-menuen finder du nede midt på et punkt som hedder LinkedCell, klik i feltet til højre herfor og tast P6 luk menuer (x) marker checkboks2 - klik påegenskaber osv. for alle bokse
Ok. Så går jeg ud fra at jeg skal afslutte designtilstanden. Når jeg gør det får jeg den dér makro-sikkerhedsbesked uanset hvad sikkerhedsniveauet er...?
jeg ændrede til 6 efter du havde skrevet følgende:
I det faktiske regneark hedder cellerne der skal vise navnene C5,G5,K5,C16,G16 og K16. De står altså ikke i en kolonne som vist ovenover!
og ja du skal blot ændre 6 til 5
velbekom
Synes godt om
Ny brugerNybegynder
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.
