Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketAfkrydningsfelter i xlsm fil - ny version

 Besvar Besvar
Forfatter
Sidsel Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 25.Okt.2012
Status: Offline
Point: 11
Direkte link til dette indlæg Emne: Afkrydningsfelter i xlsm fil - ny version
    Sendt: 25.Okt.2012 kl. 11:39
Jeg har oprettet et spørgskema i excel, som en xlsm fil i Excel 2007 - => skal tilrettes i 2010 version
 
Jeg har indsat et kontrolelement med et JA/Nej spørgsmål, hvor jeg har sat en makro op for om række 40:51 skal være synlige ud fra om man vælger JA eller nej.
 
Koden er:
Sub Project2_Ændring()
If Sheets("liste_valg").Range("A32").Value = 1 Then
        Rows("40:51").Select
        Selection.EntireRow.Hidden = False
    ElseIf Sheets("liste_valg").Range("A32").Value = 2 Then
        Rows("40:51").Select
        Selection.EntireRow.Hidden = True
    End If
End Sub
 
I række 40:51 har jeg sat 4 afkrydsningsfelter ind.
 
Jeg oprettede dette skema sidste år, hvor jeg havde excel 2007. Nu har jeg version 2012, og vil gerne lave nogle rettelser i skemaet.
 
Problemet er, at når jeg gemmer arket i et nyt navn så virker kontrolelementet kun, men afkrydningsfelterne "forsvinder" bag de rækkerne har været skjult, når rækkerne gøres synlige igen.
Det er som om at afkrydningsfelterne "klapper sammen - altså at de ikke åbner ikke i den oprindelige cellehøjde. 
 
Hvis jeg formatere afkrydningsfelterne med "Flyt sammen med celler, men justere ikke i størrelsen" kan afkrydningsfelterne ikke skjules når sammen med de udvalgte celler
 
Så hvordan har jeg muliheden for både at skjule og efterfølgende vise afkrydningsfelterne?
 
Håber nogen kan hjælpe!
 
 
 
 
 
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 26.Okt.2012 kl. 10:44
Hej Sidsel,
 
Det kan være frustrerende at arbejde med skjul/vis for at opnå en tilfredstillende brugeroplevelse.
Hvis dit eneste formål med at skjule rækkerne er at skjule dine afkrydsningsfelter (Kontrolelementer) bør du i stedet skjule/vise dem i stedet.
 
Først skal du finde ud af hved disse kontroller hedder. Der ser du ved at markere en af dem med højre musetast og kigge i feltet umiddelbart over kolonne A
Når dette er gjort, skal du skrive navnene ind i koden herunder.
 
Sub Project2_Ændring()
If Range("A32").Value = 1 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 1").Visible = True
    ElseIf Range("A32").Value = 2 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 1").Visible = False
    End If
End Sub
 
Kan du få det til at virke?
 
//Allan
Til top
Sidsel Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 25.Okt.2012
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 10.Nov.2012 kl. 15:53
Hej Allan
 
det virker helt perfekt! Tak for et godt råd!
 
Mvh
Sidsel
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 12.Nov.2012 kl. 15:20
Velbekomme Sidsel, det var dejligt du fik det til at virke.
 
//Allan
Til top
Sidsel Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 25.Okt.2012
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 08.Mar.2013 kl. 12:50
Nyt spm:
Jeg bruger mit regneark, som et simpelt spørgeskema ang. ang. et produkt.
På et faneblad har jeg ca. 20 afkrydsningsfelter (Kontrolelementer)
 
Min ønske er, at jeg skal have et samlet regneark for ialt 10 produkter - et faneblad for hver produkt.
 
Det vil sige at for hver faneblad er der 20 afkrydsningsfelter (Kontrolelementer) med individuelle programkoder. Kan dette lade sig gøre? og Hvad er den letteste løsning, så jeg ikke skal til at oprette de 20 afkrydsningsfelter (Kontrolelementer) på ny og tildele macroer til hver?
 
//Sidsel
  
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk