maksud hati memang hendak menulis untuk besaran suku bunga, jadi memang
dibutuhkan dua digit koma dua digit saja, misal 12,25.
formula sudah sy coba & tidak jalan di baris ke-4 (mark with >)
Dim sText As String
sText = Replace$(bunga.Text, Mid$(Format$(1000, "#,###"), 2, 1),
vbNullString)
sText = Replace$(sText, Mid$(Format$(0#, "0.0"), 2, 1), ".")
> bunga.Text = CStr(Format$(CDec(sText), "00.00"))
2013/2/15 Mr. Kid <[email protected]>
> **
>
>
> 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*
>>
>>
>
>
--
* * Eko Nur Subagyo*
*
*
* Subdit Pinjaman Daerah*
* Ditjen Perimbangan Keuangan - Kemenkeu*
* Jl. DR. Wahidin No. 1 Jakarta*
