så nå man er kommet så langt så skal man indtaste tal og trykke på gem og så er man færdig, den gemmer så det tal under det svar i regnearket. Håber nogen kan hjælpe, det vil være til STOR hjælp derfor vurdere jeg den her som meget svær, derfor vil jeg godt give 200 point for løsningen!!
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Det lyder godt at man kan lave det! Tænker på at data til listerne kommer fra en kolonne, så f.eks. kolonne a har data til rulle liste 1 kolonne b har data til rulleliste 2 og kolonne c har data til rulleliste 3. Det skal så være tal den så gemmer under det man vælger af svar. Det skal holdes overskueligt på en eller andet måde, for der er originalt 46 muligheder i liste 1, og så grener det ud med mange muligheder for hver i liste 2, og igen mange muligheder i liste 3 Til sidst skal man så kunne se hvor mange antal der er indtastet til de forskellige svar. Selve valgmulighederne i listerne er tekst, indtastningen er tal=antal.
Private Sub CboAfdeling_Change() Dim SP As Variant 'spørgsmål Dim I As Integer, X As Integer SP = Ark1.Range("D2:F21")
CboSpørgsmål.Clear X = 0 For I = 1 To UBound(SP) If Val(SP(I, 1)) = Val(CboAfdeling.Column(0)) Then
CboSpørgsmål.AddItem SP(I, 2) CboSpørgsmål.List(X, 1) = SP(I, 3) X = X + 1 End If Next Application.EnableEvents = True End Sub
Private Sub CboSpørgsmål_Change() Dim SV As Variant ' svar Dim I As Integer, X As Integer SV = Ark1.Range("K2:H41") On Error Resume Next CboSvar.Clear X = 0 For I = 1 To UBound(SV) If Val(SV(I, 1)) = Val(CboAfdeling.Column(0)) And Val(SV(I, 2)) = Val(CboSpørgsmål.Column(0)) Then CboSvar.AddItem SV(I, 3) CboSvar.List(X, 1) = SV(I, 4) X = X + 1 End If Next End Sub
Private Sub CmdGem_Click() If Me.CboSvar <> "" Then Ark1.Range("L" & Val(CboSvar.Column(0)) + 1) = Ark1.Range("L" & Val(CboSvar.Column(0)) + 1) + 1 CboSvar.Clear Else MsgBox "Du har ikke udfyldt alle felter" End If Me.CboAfdeling.SetFocus 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.
