01. oktober 2003 - 22:02Der er
17 kommentarer og 1 løsning
Sikring af Regneark til medicingivning
Hej Jeg har brug for stor hjælp til nedenstående projekt - og det kræver at vedkommende der tør modtage udfordringen får mailet en kopi af arket:
På min arbejdsplads har en projektmappen indeholdende flere regneark bl.a. arket: Medicin. Området medicingivning er ømtåleligt og ofte genstand for mange fejl. Jeg ville gerne forsøge at sikre den skriftlige ordination bedre.
Som det vil fremgå af arket ordineres medicinen i første kolonne (medicinen hentes fra en liste). Dagens medicin (givet optil 4 gange dagligt) angives som ex: 1-1-1-1 el 0-1-1-0 etc. Når dagens medicin er ordineret skriver lægen sine initialer forneden. Sygeplejeskerne skriver sine initialer til hø for medininen (den første kvitterer for ophældning af medicinen, den anden for at videregive den til patienten). Hvis lægen efter at medicinen er kvitteret af sygeplejersken ændrer ordinationen skal ændringen fremgå med en anden farve og der skal fremkomme en MsgBox hvergang arket aktiveres indtil sygeplersken har kvitteret for ændringen.
Pyh jeg håber at ovenstående giver mening og at en ekspert har lyst til at gøre et forsøg.
Det fungerer tilsyneladende rigtig godt. Nu er det en del af en projektmappe og for at gøre det besværligt er delt og det ville fortsat være godt med en pop-up meddelelse vedr den ændrede medicinering
Til orientering - her er koden, som der er givet point for
Public Sub Afmærk(target As Range) On Error GoTo Slut If Not Intersect(target, Range("ordinering")) Is Nothing Then If target.Offset(0, 1) <> "" Or target.Offset(0, 2) <> "" Then target.Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End If End If If Not Intersect(target, Range("SGP")) Is Nothing Then If target.Offset(0, -1).Interior.ColorIndex = 6 Then target.Offset(0, -1).Interior.ColorIndex = xlNone End If If target.Offset(0, -2).Interior.ColorIndex = 6 Then target.Offset(0, -2).Interior.ColorIndex = xlNone End If End If Slut: End Sub
Der er fortsat et problem idet ovenstående kode ikke fungerer når arket er låst - selvom omtalte ranges("ordinering" & "SGP")er ulåste. Nu er det jo selvfølgelig nemt og hurtigt vha vba at fjerne låsningen og siden genlåse arket .. hvis det da ikke lige var fordi at projektmappen er delt. At ophæve og gendanne deling er IKKE en hurtig proces. Kan ovenstående på nogen måde ændres så den kan foregå på et låst ark?
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.
