28. oktober 2003 - 10:25Der er
4 kommentarer og 1 løsning
Kontrol af cellerværdier - VB i Excel97
Jeg har tidligere fået hjælp til at lave nedenstående kontrol af nogle celler, og den virker fint. Nu vil jeg imidlertid meget gerne kunne give brugere af arket valgte om de vil forsætte med at gemme uden at udfylde cellerne, eller om de vil gå tilbage (som den gør nu). Jeg kan desværre ikke få min VbYesNo til at virker (jeg er meget grøn i det her).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim omrode As Range Set omrode = Range("A2,A3,A5") ' Indsæt dine celler For Each cell In omrode If cell.Value = "" Then Cancel = True MsgBox ("Celle " & cell.Address & " er ikke udfyldt") End If Next End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim omrode As Range Set omrode = Range("A2,A3,A5") ' Indsæt dine celler For Each cell In omrode If cell.Value = "" Then Cancel = True svar = MsgBox("Celle " & cell.Address & " er ikke udfyldt, skal jeg fortsætte ?.", vbYesNo) If svar = vbYes Then Cancel = False ActiveWorkbook.Save Else Cancel = True Exit Sub End If End If Next End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim omrode As Range Set omrode = Range("A2,A3,A5") ' Indsæt dine celler For Each cell In omrode If cell.Value = "" Then Cancel = True svar = MsgBox("Celle " & cell.Address & " er ikke udfyldt, skal jeg fortsætte ?.", vbYesNo) If svar = vbYes Then Cancel = False ActiveWorkbook.Save Exit Sub Else Cancel = True Exit Sub End If
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim omrode As Range Set omrode = Range("A2,A3,A5") ' Indsæt dine celler For Each cell In omrode If cell.Value = "" Then Cancel = True svar = MsgBox("Celle " & cell.Address & " er ikke udfyldt, skal jeg fortsætte ?.", vbYesNo) If svar = vbYes Then Cancel = False ActiveWorkbook.Save Exit Sub Else Cancel = True Exit Sub End If End If Next 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.
