Zum Inhalt springen

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

Aus Wikibooks

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

Datei:ODfrmMessP.png

Option Explicit

Private Sub cmdok_Click()
If ODfrmMessp.chkT11.Value = True Then ODMESSP = "T11 "
If ODfrmMessp.chkT12.Value = True Then ODMESSP = ODMESSP & "T12 "
If ODfrmMessp.chkL1.Value = True Then ODMESSP = ODMESSP & "L1 "
If ODfrmMessp.chkL2.Value = True Then ODMESSP = ODMESSP & "L2 "
If ODfrmMessp.chkL3.Value = True Then ODMESSP = ODMESSP & "L3 "
If ODfrmMessp.chkL4.Value = True Then ODMESSP = ODMESSP & "L4 "
If ODfrmMessp.chkL5.Value = True Then ODMESSP = ODMESSP & "L5 "
Unload ODfrmMessp
End Sub

Private Sub UserForm_Initialize()
Me.chkT11.Value = False
Me.chkT12.Value = False
Me.chkL1.Value = True
Me.chkL2.Value = True
Me.chkL3.Value = True
Me.chkL4.Value = False
Me.chkL5.Value = False
End Sub