01. september 2007 - 15:31Der er
12 kommentarer og 1 løsning
sortere overskredne mødetider i database
Hejsa.
Endnu engang må jeg ty til hjælp hos de kloge excel eksperter, da jeg selv er en novice i fht sådan kode.
Har i et stykke tid haft gang i en database, hvor jeg booker mødetider med kunder.
Det fungerer sådan at jeg aftaler en tid med en kunde som kan være fra 2 uger til 3 måneder fremme i tiden. Uheldigvis fungerer det også sådan at disse kunder sommetider ikke møder op til aftalt tid, hvorefter jeg så bare har en aftale figurerende i mit regneark som jeg ikke ved om er overholdt. Da jeg har et vist ansvar overfor mine kunder skal jeg kunne kontakte disse hurtigst muligt.
Jeg skal derfor bruge en makro som kan give mig et lynhurtig overblik over overskredne datoer dvs. at hvis jeg eksempelvis logger på databasen den 1 sept. kan få vist overskredne dati til og med 1 sept.
eksemplet ku være på overskredne dati til 1 sept marianne tid 23/7 tlf 31491... ole tid 11/8 tlf 31658...
kunne være supercool hvis data poppede frem i boks eller bare blev markeret på række niveau i arket.
Kode indlægges i det pågældende ark: Rem Række 1 Overskrifter Rem Navn | Tflnr. | 1. tid | 2. tid o.s.v. Dim antalRæk, antalKol, aftKol Sub testTider() antalRæk = ActiveCell.SpecialCells(xlLastCell).Row antalKol = ActiveCell.SpecialCells(xlLastCell).Column
For ræk = 2 To antalRæk aftKol = 0 For kol = 3 To antalKol If IsDate(Cells(ræk, kol)) = True Then Cells(ræk, kol).Interior.ColorIndex = xlNone aftale = Cells(ræk, kol) aftKol = kol End If Next kol Rem check sidste aftale - marker hvis mindre/= dags dato If aftKol > 0 And aftale <= Now Then Cells(ræk, aftKol).Interior.ColorIndex = 6 'gul markering End If Next ræk End Sub
Nu er excel ikke mit "hovedprogram" her på eksperten. Men hvis dags dato defineres som en dato og en måned, vil den samme dato jo eksistere både i år 2007, 2008 o.s.v. Datoen bliver jo gemt som en numerisk værdi på harddisken, men hvordan Excel reagerer overfor dette, må vi nok lade supertekst svare på.
Den gule farve kan du vel blot ændre til en anden numerisk værdi for farven. I Access har f.eks den røde farve den numeriske værdi 255.
ok, var også bare en forespørgsel.. jeg må jo hellere skrive hele den numeriske korrekte værdi.. Kan godt se det kan kokse når vi når til 2008 o.s.v ---- tak for hjælpen
lige en ting skal man oprette et svar før spørger kan give point. ved ikke lige om jeg har fået givet point rigtigt. kan jeg ikke lige få en pointtilbagemelding
Selv tak - Du er den eneste der har lagt et svar, og kun svar (ikke kommentarer) kan honoreres med point. Du er nødt til at vente på, at supertekst lægger et svar. Indtil dette sker, forbliver spørgsmålet åbent.
Rem Række 1 Overskrifter Rem Navn | Tflnr. | 1. tid | 2. tid o.s.v. Dim antalRæk, antalKol, aftKol Sub testTider() antalRæk = ActiveCell.SpecialCells(xlLastCell).Row antalKol = ActiveCell.SpecialCells(xlLastCell).Column
For ræk = 2 To antalRæk aftKol = 0 For kol = 3 To antalKol If IsDate(Cells(ræk, kol)) = True Then Rows(ræk).Select Selection.Interior.ColorIndex = xlNone aftale = Cells(ræk, kol) aftKol = kol End If Next kol Rem check sidste aftale - marker hele rækken, hvis mindre/= dags dato If aftKol > 0 And aftale <= Now Then Rows(ræk).Select Selection.Interior.ColorIndex = 6 'gul markering End If Next ræk Cells(ræk, 1).Select 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.