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*
