Søg
Avatar billede Egonolsen Praktikant
07. januar 2017 - 23:17 Der er 2 kommentarer

Hjælp til at skjule data udfra en værdi

Hej alle,

Mit spørgsmål går meget enkelt ud på jeg har en masse data fra et spørgeskema, da jeg hiver det ned i Excel har den lagt lavet rækker til alt data selvom respondenten slet ikke skal svare på disse spørgsmål.

Så hvis jeg f.eks. har jeg en kolonne med værdier fra 1 til 4 på hver række og udfra den værdi, vil jeg gerne have vist nogen bestemte kolonner og skjult de andre kolonner.
Kan dette lade sig gøre??

Håber virkelig en kan hjælp mig.
Avatar billede excelent Ekspert
08. januar 2017 - 08:41 #1
Hvis du selv indtaster tallene 1-4 i fx kolonne A så :
Højre klik på aktuel arkfane og vælg Vis Programkode. Indsæt kode der.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A60")) Is Nothing Then Exit Sub
If Application.CountIf(Range("A1:A60"), 1) >= 1 Then Columns(4).Hidden = True Else Columns(4).Hidden = False
If Application.CountIf(Range("A1:A60"), 2) >= 1 Then Columns(6).Hidden = True Else Columns(6).Hidden = False
If Application.CountIf(Range("A1:A60"), 3) >= 1 Then Columns(8).Hidden = True Else Columns(8).Hidden = False
If Application.CountIf(Range("A1:A60"), 4) >= 1 Then Columns(10).Hidden = True Else Columns(10).Hidden = False
End Sub
Avatar billede excelent Ekspert
08. januar 2017 - 08:43 #2
Anvend denne i stedet :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A60")) Is Nothing Then Exit Sub
If Application.CountIf(Range("A1:A60"), 1) >= 1 Then _
Columns(4).Hidden = True Else Columns(4).Hidden = False
If Application.CountIf(Range("A1:A60"), 2) >= 1 Then _
Columns(6).Hidden = True Else Columns(6).Hidden = False
If Application.CountIf(Range("A1:A60"), 3) >= 1 Then _
Columns(8).Hidden = True Else Columns(8).Hidden = False
If Application.CountIf(Range("A1:A60"), 4) >= 1 Then _
Columns(10).Hidden = True Else Columns(10).Hidden = False
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
HVIS + LOPSLAG til flere værdier Af SQF i Excel 4 09/10/202510:50 14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel 9 08/10/202519:21 10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel 3 01/10/202512:22 03/10/202513:32
Eliminer kendte Af andershl i Excel 1 30/09/202520:40 01/10/202512:54
Numering af række efter størst til mindst Af Excel Optimisten i Excel 4 30/09/202512:56 30/09/202514:23
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
18/1020:59 Gentagen fejlmeddelelse. Af aj9430dk i Windows
18/1018:00 Min HP MFP176 falder hle tiden af lan-netværket. Kan det sparkes i gang? Af andershl i Printere
18/1016:26 Fejlmelding på 64 GB Philips USB-drev Af hudsonium i PC
16/1010:01 W11 opdatering stopper Af barth i Windows
15/1019:59 TOMTOM GO Af nu_igen i Andet hardware
White papers
Flere white papers »