29. april 2004 - 06:53Der er
9 kommentarer og 1 løsning
Find dato
Kan følgende måde at finde en dato på, modifiseres så den finder cellerne ud fra et valg i en Calender Control 9.0, i stedet for indtastninger i celle B1 og B2. Calender Controleren ligger i samme ark som datoerne.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub Calendar1_Click() Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row md = Month(Calendar1.Value) aar = Year(Calendar1.Value) For Each C In Range("A1:A" & r) If Month(C) = md And Year(C) = aar Then If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select
Fungerer fint. Har udvidet lidt, med også at finde dag.
Private Sub Calendar1_Click() Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row dd = Day(Calendar1.Value) md = Month(Calendar1.Value) aar = Year(Calendar1.Value) For Each C In Range("A1:A" & r) If Month(C) = md And Year(C) = aar And Day(C) = dd Then If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select
Private Sub Calendar1_Click() Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row For Each C In Range("A1:A" & r) If C = Calendar1.Value Then If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select
For ikke at koden går i fejl ved at en dato ikke er der, så har jeg lige sat On error ind i denne.
Private Sub Calendar1_Click() On Error Resume Next Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row For Each C In Range("A1:A" & r) If C = Calendar1.Value Then If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select
Private Sub Calendar1_Click() On Error Resume Next Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row For Each C In Range("A1:A" & r) If C = Calendar1.Value Then If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select If Nr1 = False Then msgbox" Dato eksisterer IKKE" End Sub
Private Sub Calendar1_Click() On Error Resume Next Dim Nr1 As Boolean, Fad As String Nr1 = False r = Range("A65536").End(xlUp).Row For Each C In Range("A1:A" & r) If Int(C) = Calendar1.Value Then 'DER ER RETTET HER If Nr1 = False Then Fad = C.Address Nr1 = True Else Fad = Fad & "," & C.Address End If End If Next Range(Fad).Select If Nr1 = False Then MsgBox " Dato eksisterer IKKE" 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.
Ny bruger
Nybegynder
Opret
Preview
