17. april 2007 - 18:25Der er
12 kommentarer og 1 løsning
Hjælp til kode - If Or Then Else
Jeg har problemmer med denne kode:
Sættet går fra "I5" til "I24"
Private Sub CommandButton9_Click() Worksheets("Lotto").Activate If Range("I5") = 4 + 0 Or 4 + 1 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("M4") Else frmGevinst.TextBox27.Visible = False End If
Worksheets("Lotto").Activate If Range("I5") = 5 + 0 Or 5 + 1 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("K4") Else frmGevinst.TextBox27.Visible = False End If
Worksheets("Lotto").Activate If Range("I5") = 6 + 0 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("I4") Else frmGevinst.TextBox27.Visible = False End If
Worksheets("Lotto").Activate If Range("I5") = 6 + 1 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("G4") Else frmGevinst.TextBox27.Visible = False End If
Worksheets("Lotto").Activate If Range("I5") = 7 + 0 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("E4") Else frmGevinst.TextBox27.Visible = False End If
denne del: Worksheets("Lotto").Activate If Range("I5") = 4 + 0 Or 4 + 1 Then Worksheets("Trækninger").Activate frmGevinst.TextBox27.Value = Range("M4") Else frmGevinst.TextBox27.Visible = False End If
Burde kunne forkortes til :
If Worksheets("Lotto").Range("I5") = 4 + 0 Or 4 + 1 Then frmGevinst.TextBox27.Value = Worksheets("Trækninger").Range("M4") Else frmGevinst.TextBox27.Visible = False End If
Du burde tjekke for 7 rigtige først, og så gå nedad, hvis så der er gevinst, så skal du exit sub, ellers vil din tekstboks blive skjult ved den næste if.
If Worksheets("Lotto").Range("I5") = 4 + 0 Or 4 + 1 Then frmGevinst.TextBox27.Value = Worksheets("Trækninger").Range("M4")
Eller skal der noget andet til, fordi jeg syntes ikke rigtigt det virker.
Hvor skal koden helt stå På userformen eller regnearket. Det er sådan at mit regneark selv henter lottotalene så tekstboxene skal bare dukke op hvis der er gevinst. Håber du forstår mig.
Public Sub CommandButton9_Click() Dim Gevinst As Variant, T, I, X As String Gevinst = Worksheets("Trækninger").Range("E4:M4") For I = 5 To 24 X = Worksheets("Lotto").Range("I" & I) Select Case X Case "7+0" Me.Controls("TextBox" & I + 22) = Gevinst(1, 1) Case "6+1" Me.Controls("TextBox" & I + 22) = Gevinst(1, 3) Case "6+0" Me.Controls("TextBox" & I + 22) = Gevinst(1, 5) Case "5+1" Me.Controls("TextBox" & I + 22) = Gevinst(1, 7) Case "4+1" Me.Controls("TextBox" & I + 22) = Gevinst(1, 9) Case "4+0" Me.Controls("TextBox" & I + 22) = Gevinst(1, 9) Case Else Me.Controls("TextBox" & I + 22) = "Nitter" End Select Next End Sub
Nu har jeg prøvet med de nye tal - og nej det er desværre ikke det som jeg søgte. Men jeg roder lidt videre med det for at finde en løsning, for tilfreds det skal jeg blive. ;) - med det kæmpe arbejde.
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.
