Zum Inhalt springen

Makros für Radiologen: Makro zum Report der lumbalen Knochendichtemessung mit QCT: Makro Osteodensitometrie: ODfrmIndik

Aus Wikibooks

Dieses Makro gehört zu Makro zum Report der lumbalen Knochendichtemessung mit QCT.

Datei:ODfrmIndik.png

Option Explicit

Private Sub cmdok_Click()
ODINDIK = "Beschwerden und Befunde: "
If ODfrmIndik.optVAOP.Value = True Then ODINDIK = ODINDIK & "Verdacht auf Osteoporose. " & vbCrLf
If ODfrmIndik.optTherap.Value = True Then ODINDIK = ODINDIK & "Osteoporose unter Therapie. " & vbCrLf
ODINDIK = ODINDIK & "Rechtfertigende Indikation: "
If ODfrmIndik.optKnD.Value = True Then ODINDIK = ODINDIK & "Knochendichte? "
If ODfrmIndik.optVerl.Value = True Then ODINDIK = ODINDIK & "Verlauf? "
ODINDIK = ODINDIK & vbCrLf
Unload ODfrmIndik
End Sub

Private Sub UserForm_Initialize()
Me.optVAOP.Value = True
Me.optKnD.Value = True
End Sub