sekalian nanya mr. Kid. saya tulis event ini, tp koq waktu input yg muncul 1 digit di depan koma. padahal inginnya 2 digit di depan koma. gmn ya?
Private Sub bunga_Change() bunga.Value = Format(bunga.Value, "##.##") End Sub 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*
