Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - KeyPressNumbersOnly

Public Sub KeyPressNumbersOnly(ByVal KeyAscii As MSForms.ReturnInteger)
'Flemming Vadet, April 2000, fv@smartoffice.dk
    'eks. i KeyPress subben:    KeyPressNumbersOnly KeyAscii
    Select Case KeyAscii
        Case vbKey0 To vbKey9, vbKeyBack
        Case Else
            Beep
            KeyAscii = 0
    End Select
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyPressNumbersOnly KeyAscii
End Sub