Flueben i Userforme må ikke forsvinde
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3088
Udskrevet den: 04.Maj.2024 kl. 09:49
Emne: Flueben i Userforme må ikke forsvinde
Besked fra: Gambino
Emne: Flueben i Userforme må ikke forsvinde
Posteringsdato: 05.Jul.2017 kl. 23:50
|
Jeg vil gerne
sætte/slette et flueben. Hvordan fastholder jeg det i Userformen når denne
lukkes? Det virker som om fluebenet optræder i 2 versioner. Det normale og når Userformen loades i en "Goostet" version. Nedenstående kode virker ikke efter hensigten. Kan nogen komme med et forslag.
Private Sub CheckBox1_Click() 'MsgBox ("Dette er verdien= " & CheckBox1.Value) End Sub
Private Sub UserForm_Initialize() On Error Resume Next CheckBox1.Value = Evaluate("CheckBox1_Value") End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next ThisWorkbook.Names("CheckBox1_Value").Delete ThisWorkbook.Names.Add Name:="CheckBox1_Value", RefersToR1C1:="=" & Chr$(34) & CheckBox1.Value & Chr$(34), Visible:=True 'False End Sub |
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 07.Jul.2017 kl. 08:01
|
Hvad er det, der ikke virker??? Når jeg indsætter koden i en UserForm, så virker det uden problemer... Prøv evt. at /topic662.html - uploade dit regneark, så vi ved selvsyn kan se, hvad der sker (eller ikke sker). ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. |
Besked fra: Gambino
Posteringsdato: 07.Jul.2017 kl. 18:41
uploads/1976/Userform_Flueben.xlsm" rel="nofollow - uploads/1976/Userform_Flueben.xlsm Her
er mit problem med flueben.
|
Besked fra: EXCELGAARD
Posteringsdato: 07.Jul.2017 kl. 19:42
|
Jeg er ikke helt med? Det virker da fint - formen husker om der er sat 'Sand' eller 'Falsk'. ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. |
Besked fra: EXCELGAARD
Posteringsdato: 07.Jul.2017 kl. 19:46
Hvis det er fordi, du synes, at det er en 'skønhedsfejl', at checkbox'en viser 'TriState', hvis du har sat regnearksnavnet forkert, så kan du ændre kodelinjen til:
------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. |