Untuk yang date.
Syaratnya, input dalam format YYYYMMDD :: 4 digit tahun diikuti 2 digit
bulan dan diakhiri 2 digit tanggal (total input = 8 digit selalu)
Dipilih format input ini agar tidak terbentur masalah regional setting
komputer yang bisa jadi berbeda antar komputernya.
Misal nama control textbox adalah txtTgl
Pada event change txtTgl diberi script :
Dim lChar As Long
Dim sText As String
sText = CStr(CLng(Replace$(txtTgl.Text, "-", vbNullString)))
lChar = Len(sText)
Select Case lChar
Case 5, 6
sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2)
If Not IsDate(sText & "-01") And lChar = 6 Then
txtTgl.Text = Left$(sText, 6)
Else
txtTgl.Text = sText
End If
Case 7, 8
sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2) & "-" &
Mid$(sText, 7, 2)
If Not IsDate(sText) And lChar = 8 Then
txtTgl.Text = Left$(sText, 9)
Else
txtTgl.Text = sText
End If
End Select
Wassalam,
Kid.
2013/2/15 Eko NS <[email protected]>
> **
>
>
> misi para mastah excel,
>
> ane ada sedikit kesulitan dalam pembuatan makro & ingin bantuan dari para
> mastah.
>
> dalam userform ane ingin ketika input data angka akan secara otomatis
> tampil dengan pemisah titik (.) dan untuk tanggal terpisahkan dengan strip
> (-) antara tanggal, bulan & tahun.
> maksud ane tampilan tersebut langsung dapat terlihat ketika isi userform,
> bukan pada tabel hasilnya.
>
> terima kasih.
>
>
> _
>
