Misal textboxnya bernama textbox1, coba event change diganti dengan :
Dim sText As String
sText = Replace$(TextBox1.Text, Mid$(Format$(1000, "#,###"), 2, 1),
vbNullString)
sText = Replace$(sText, Mid$(Format$(0#, "0.0"), 2, 1), ".")
TextBox1.Text = CStr(Format$(CDec(sText), "00.00"))
Jadi semua itu permasalahan regional setting.
Script selalu menggunakan pemisah desimal berupa karakter titik.
Jadi semua inputan desimal harus diubah menjadi berkarakter titik. Tentu
saja pemisah ribuan harus dihilangkan lebih dulu.
Wassalam,
Kid.
2013/2/15 Eko NS <[email protected]>
> **
>
>
> sy sudah coba tp blm berhasil.
> ketika menggunakan ##.## ketika input data hasilnya 1 digit angka di depan
> koma, misal input 12,35 >> 1,23
> ketika menggunakan 00.00 ketika input data 01,00 dan ga bisa di apa2in lagi
> ketika menggunakan ##.00 ketika input data 1,00 dan ga bisa di apa2in lagi
>
> pls help
>
>
> 2013/2/15 Mr. Kid <[email protected]>
>
> **
>>
>>
>> Inputnya mungkin ada spasinya.
>>
>> coba ubah script menjadi :
>> Private Sub jth_tempo_Change()
>> Dim lChar As Long
>> Dim sText As String
>> on error goto keluar
>> sText = CStr(CLng(Replace$(jth_tempo.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
>> jth_tempo.Text = Left$(sText, 6)
>> Else
>> jth_tempo.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
>> jth_tempo.Text = Left$(sText, 9)
>> Else
>> jth_tempo.Text = sText
>> End If
>> End Select
>> keluar:
>> err.clear
>> on error goto 0
>> End Sub
>>
>> >> Format number :
>> # mewakili sebuah angka bukan nol
>> 0 mewakili sebuah angka
>> Jika ingin selalu tampil apa adanya (0 ya ditulis 0) gunakan karakter 0
>> daripada #
>> Atur dan pilih akan diletakkan dimana si karakter 0 dan dimana yang #.
>> Atau malah semua 0 atau semua #
>> Contoh :
>> di format 00.00 akan selalu tampil minimal 2 digit didepan koma dan 2
>> digit dibelakang koma
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2013/2/15 Eko NS <[email protected]>
>>
>>> **
>>>
>>>
>>> saya sudah coba mr. Kid, tp debug di baris ke-3 (mark with >).
>>> FYI control textbox bernama jth_tempo, jadi saya modif mjd spt ini
>>>
>>> Private Sub jth_tempo_Change()
>>> Dim lChar As Long
>>> Dim sText As String
>>>
>>> > sText = CStr(CLng(Replace$(jth_tempo.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
>>> jth_tempo.Text = Left$(sText, 6)
>>> Else
>>> jth_tempo.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
>>> jth_tempo.Text = Left$(sText, 9)
>>> Else
>>> jth_tempo.Text = sText
>>> End If
>>> End Select
>>> End Sub
>>>
>>> kira2 apanya yg salah ya?
>>>
>>>
>>> 2013/2/15 Mr. Kid <[email protected]>
>>>
>>> **
>>>>
>>>>
>>>> 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.
>>>>>
>>>>>
>>>>> _
>>>>>
>>>>
>>>>
>>>
>>>
>>> --
>>> * * Eko Nur Subagyo*
>>> *
>>> *
>>> * Subdit Pinjaman Daerah*
>>> * Ditjen Perimbangan Keuangan - Kemenkeu*
>>> * Jl. DR. Wahidin No. 1 Jakarta*
>>>
>>>
>>
>
>
> --
> * * Eko Nur Subagyo*
> *
> *
> * Subdit Pinjaman Daerah*
> * Ditjen Perimbangan Keuangan - Kemenkeu*
> * Jl. DR. Wahidin No. 1 Jakarta*
>
>
>
