[belajar-excel] Digest Number 2090

Milis Belajar Microsoft Excel Group

15 New Messages

Digest #2090

1a

Re: Mohon Bantuan by "Supriyanto S" priweto

1b

Re: Mohon Bantuan by "Mr. Kid" nmkid.family@ymail.com

2a

Re: convert number by "Eko NS"

2b

Re: convert number by "Mr. Kid" nmkid.family@ymail.com

2c

Re: convert number by "Eko NS"

2d

Re: convert number by "Mr. Kid" nmkid.family@ymail.com

3a

panggil data by "MIKE"

3b

Re: panggil data by "Mr. Kid" nmkid.family@ymail.com

4a

Re: untuk memperjelas pertanyaan saya yang tadi (membuat rumus fungs by "hendrik karnadi" hendrikkarnadi

5a

Mengecek isi cell by

5b

Re: Mengecek isi cell by "Mr. Kid" nmkid.family@ymail.com

6a

Re: fungsi if sebagai pernyataan 2 kolom untuk 1kolom by "syam ero" syamero@ymail.com

7a

nomor urut berdasarkan tanggal dicell yang berbeda-beda by "wahyu sampurna" wagiman777

7b

Re: nomor urut berdasarkan tanggal dicell yang berbeda-beda by "Mr. Kid" nmkid.family@ymail.com

8a

Re: Rekap data quesioner by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Mohon Bantuan

Fri Feb 15, 2013 1:28 am (PST) . Posted by:

"Supriyanto S" priweto

Selamat sore mr Kid,

Alhamdulillah....masalah sudah terselesaikan walaupun pusing muter muter
browsing di mbah google..

Stelah mengikuti/menjalankan arahan dari mr Kid saya mendapatkan sebuah
artikel tanya/jawab di
http://social.msdn.microsoft.com/Forums/en-US/sbappdev/thread/91cf3127-70fe-4726-8a27-31b8964430c5/

Pada kasus ini diminta untuk melakukan pembaharuan mscomct2.inf dan
mscomct2.ocx dan melakukan register ulang untuk mscomctl.ocx dengan profil
administrator.

Untuk mr Kid saya ucapkan terima kasih atas waktu dan pencerahannya.

Terima kasih

salam,

supriy

Reply to sender . Reply to group . Reply via Web Post . All Messages (26) . Top ^

1b

Re: Mohon Bantuan

Fri Feb 15, 2013 1:34 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh oke.

Jadi langkahnya kalau disimpulkan :
1. unreg
2. restart atau log off juga bisa
3. buka cmd dengan run as administrator
4. register ulang

atau
1. download mscomctl.cab di
http://activex.microsoft.com/controls/vb6/mscomct2.cab
2. extract
3. klik kanan file install -> pilih run as administrator.
4. tekan Yes kalau ditanya
5. ikuti prosedr install sampai selesai

sipp...

Wassalam,
Kid.

2013/2/15 Supriyanto S priyant37@gmail.com>

> **
>
>
> Selamat sore mr Kid,
>
> Alhamdulillah....masalah sudah terselesaikan walaupun pusing muter muter
> browsing di mbah google..
>
> Stelah mengikuti/menjalankan arahan dari mr Kid saya mendapatkan sebuah
> artikel tanya/jawab di
> http://social.msdn.microsoft.com/Forums/en-US/sbappdev/thread/91cf3127-70fe-4726-8a27-31b8964430c5/
>
> Pada kasus ini diminta untuk melakukan pembaharuan mscomct2.inf dan
> mscomct2.ocx dan melakukan register ulang untuk mscomctl.ocx dengan profil
> administrator.
>
> Untuk mr Kid saya ucapkan terima kasih atas waktu dan pencerahannya.
>
> Terima kasih
>
> salam,
>
> supriy
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (26) . Top ^

2a

Re: convert number

Fri Feb 15, 2013 1:38 am (PST) . Posted by:

"Eko NS"

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 mr.nmkid@gmail.com>

> **
>
>
> 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 ekonurs@gmail.com>
>
>> **
>>
>>
>> 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 mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> 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 ekonurs@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> 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 mr.nmkid@gmail.com>
>>>>
>>>> **
>>>>>
>>>>>
>>>>> 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 ekonurs@gmail.com>
>>>>>
>>>>>> **
>>>>>>
>>>>>>
>>>>>> 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*

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

2b

Re: convert number

Fri Feb 15, 2013 1:43 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

ganti baris :
sText = Replace$(sText, Mid$(Format$(0#, "0.0"), 2, 1), ".")

menjadi :
sText = Replace$(sText, Mid$(Format$(0, "0.0"), 2, 1), ".")

Wassalam,
Kid.

2013/2/15 Eko NS ekonurs@gmail.com>

> **
>
>
> 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 mr.nmkid@gmail.com>
>
> **
>>
>>
>> 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 ekonurs@gmail.com>
>>
>>> **
>>>
>>>
>>> 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 mr.nmkid@gmail.com>
>>>
>>> **
>>>>
>>>>
>>>> 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 ekonurs@gmail.com>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> 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 mr.nmkid@gmail.com>
>>>>>
>>>>> **
>>>>>>
>>>>>>
>>>>>> 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 ekonurs@gmail.com>
>>>>>>
>>>>>>> **
>>>>>>>
>>>>>>>
>>>>>>> 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*
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

2c

Re: convert number

Fri Feb 15, 2013 1:47 am (PST) . Posted by:

"Eko NS"

blm berhasil dg problem sama mas.

2013/2/15 Mr. Kid mr.nmkid@gmail.com>

> **
>
>
> ganti baris :
>
> sText = Replace$(sText, Mid$(Format$(0#, "0.0"), 2, 1), ".")
>
> menjadi :
> sText = Replace$(sText, Mid$(Format$(0, "0.0"), 2, 1), ".")
>
>
> Wassalam,
> Kid.
>
> 2013/2/15 Eko NS ekonurs@gmail.com>
>
>> **
>>
>>
>> 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 mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> 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 ekonurs@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> 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 mr.nmkid@gmail.com>
>>>>
>>>> **
>>>>>
>>>>>
>>>>> 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 ekonurs@gmail.com>
>>>>>
>>>>>> **
>>>>>>
>>>>>>
>>>>>> 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 mr.nmkid@gmail.com>
>>>>>>
>>>>>> **
>>>>>>>
>>>>>>>
>>>>>>> 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 ekonurs@gmail.com>
>>>>>>>
>>>>>>>> **
>>>>>>>>
>>>>>>>>
>>>>>>>> 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*
>>
>>
>
>

--
* * Eko Nur Subagyo*
*
*
* Subdit Pinjaman Daerah*
* Ditjen Perimbangan Keuangan - Kemenkeu*
* Jl. DR. Wahidin No. 1 Jakarta*

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

2d

Re: convert number

Fri Feb 15, 2013 2:11 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba script event change : (textbox bernama textbox1)
Dim sText As String, sDec As String, sRibu As String
sRibu = Mid$(Format$(1000, "#,###"), 2, 1)
sDec = Mid$(Format$(0, "0.0"), 2, 1)
sText = Replace$(Replace$(TextBox1.Text, sRibu, vbNullString), sDec,
vbNullString)
TextBox1.Text = Format$(CLng(sText), "00""" & sDec & """00")

Wassalam,
Kid.

2013/2/15 Eko NS ekonurs@gmail.com>

> **
>
>
> blm berhasil dg problem sama mas.
>
>
> 2013/2/15 Mr. Kid mr.nmkid@gmail.com>
>
> **
>>
>>
>> ganti baris :
>>
>> sText = Replace$(sText, Mid$(Format$(0#, "0.0"), 2, 1), ".")
>>
>> menjadi :
>> sText = Replace$(sText, Mid$(Format$(0, "0.0"), 2, 1), ".")
>>
>>
>> Wassalam,
>> Kid.
>>
>> 2013/2/15 Eko NS ekonurs@gmail.com>
>>
>>> **
>>>
>>>
>>> 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 mr.nmkid@gmail.com>
>>>
>>> **
>>>>
>>>>
>>>> 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 ekonurs@gmail.com>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> 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 mr.nmkid@gmail.com>
>>>>>
>>>>> **
>>>>>>
>>>>>>
>>>>>> 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 ekonurs@gmail.com>
>>>>>>
>>>>>>> **
>>>>>>>
>>>>>>>
>>>>>>> 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 mr.nmkid@gmail.com>
>>>>>>>
>>>>>>> **
>>>>>>>>
>>>>>>>>
>>>>>>>> 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 ekonurs@gmail.com>
>>>>>>>>
>>>>>>>>> **
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> 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*
>>>
>>>
>>
>
>
> --
> * * Eko Nur Subagyo*
> *
> *
> * Subdit Pinjaman Daerah*
> * Ditjen Perimbangan Keuangan - Kemenkeu*
> * Jl. DR. Wahidin No. 1 Jakarta*
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

3a

panggil data

Fri Feb 15, 2013 1:45 am (PST) . Posted by:

"MIKE"

hai master-master excel yg baik...

mohon di bantu untuk data absensiku....(lihat lampiran)
aku cuma butuh memanggil nama-nama tapi bisa muncul semua data yg ada di kolom warna kuning (data2 dari sheet2 yg ada)

tq
Mike

DATA KARYAWAN DAN ABSENSI
NAMA RIBKA STARS JENIS KELAMIN PEREMPUAN MASA KERJA 11,8
NIK 99.2550 STATUS PAJAK M2 K/3 TGL MASUK 04-Mei-01
TANGGAL LAHIR & USIA 27/12/1972 40,2 GRADE 4 TGL DIANGKAT 04-Mei-02
TAHUN PENSIUN 27-Des-27 TANGGAL EFEKTIF GRADE 20-Des-00
BAGIAN/JABATAN & EFEKTIF SUNDRIES 0 PENDIDIKAN TERAKHIR S1
BAGIAN/JABATAN SEBELUMNYA 0 STATUS KARYAWAN TETAP

NO BULAN TANGGAL JUMLAH KETERANGAN TANGGAL JUMLAH KETERANGAN TANGGAL JUMLAH KETERANGAN SISA CUTI KETERANGAN
TERLAMBAT TERLAMBAT TERLAMBAT SAKIT SAKIT SAKIT IJIN/CUTI IJIN/CUTI IJIN/CUTI 12
1 Jan-13 5 1 0 0 12
2 Feb-12 6 1 0 0 12
3 Mar-12 26 1 0 0 12
4 Apr-12 0 0 0 12
5 Mei-12 0 5 1 0 12
6 Jun-12 0 5 1 0 12
7 Jul-12 0 5 1 0 12
8 Agust-12 0 5 1 0 12
9 Sep-12 0 0 2 1 11
10 Okt-12 0 0 3 1 10
11 Nop-12 0 0 4 1 9
12 Des-12 0 0 0 9

TERLAMBAT 3 SAKIT 4 CUTI TERPAKAI 3


TAHUN ANGKA PA PANGKAT SAAT INI SANKSI YG DI TERIMA
TGL DAN JENIS SANKSI
JABATAN/BAGIAN EFEKTIF TANGGAL JENIS
2001 100 UMUM 02/02/2011

2010 55 UMUM 05/02/2010 SP



PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER:

This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager. This message contains confidential information
and is intended only for the individual named. If you are not the
named addressee you should not disseminate, distribute or copy this
e-mail. Please notify the sender immediately by e-mail if you have
received this e-mail by mistake and delete this e-mail from your
system. If you are not the intended recipient you are notified that
disclosing, copying, distributing or taking any action in reliance on
the contents of this information is strictly prohibited.

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

3b

Re: panggil data

Fri Feb 15, 2013 8:04 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Mike,

Tampaknya sheet sheet Panggil untuk memilih sheet yang akan dicetak.
Tampilan dan susunan adalah sama dengan sheet setiap nama.
Bagaimana jika manual saja.
Misal akan mencetak seluruh sheet, maka
- klik sheet nama pertama,
- tekan shift terus menerus,
- klik sheet nama terakhir
- lepas tombol SHIFT
- atur page setup bila perlu (akan diterapkan langsung ke seluruh sheet
ter-select)
- lakukan print jika akan print seluruhnya (atau print preview dulu untuk
lihat wujud hasil select multi sheetnya).

Jika akan sheet-sheet tertentu,
- klik sheet pertama yang akan di-print
- tekan CTRL terus menerus
- klik sheet-sheet lain yang juga akan di-print dengan tetap menekan CTRL
- setelah seluruh yang dibutuhkan ter-select, lepas tombol CTRL
- atur page setup bila perlu
- lakukan print jika akan print seluruhnya (atau print preview dulu untuk
lihat wujud hasil select multi sheetnya).

Jika akan diotomasi dengan VBA, dibutuhkan daftar nama sheet disuatu area
range tertentu, misal di sheet bernama Daftar mulai A1 dan bersambung terus
sampai cell kolom A yang terisi
Langkah buat prosedur otomasi :
1. ke VBE (tekan ALT F11)
2. menu Insert -> Module
3. copas script ke lembar module
Public Sub PrintSheet()
dim rng as range
for each rng in sheets("Daftar").range("a1").currentregion.resize(,1)
if not sheets(rng.value) is nothing then
sheets(rng.value).printpreview 'ganti printpreview
dengan printout jika sudah cocok dengan proses prosedur ini
endif
next rng
End Sub

4. kembali ke worksheet (tekan ALT F11)
5. insert shape ke worksheet
6. klik kanan shape -> pilih Assign Macro -> pilih PrintSheet -> OK
7. save as workbook dengan ALT F A
8. pada save as type pilih .xlsm lalu tekan tombol save
9. klik sebuah cell
10. pencet shape untuk mencoba

Wassalam,
Kid.

2013/2/15 MIKE personalia_manado@ag.co.id>

> **
>
>
> **
> hai master-master excel yg baik...
>
> mohon di bantu untuk data absensiku....(lihat lampiran)
> aku cuma butuh memanggil nama-nama tapi bisa muncul semua data yg ada di
> kolom warna kuning (data2 dari sheet2 yg ada)
>
> tq
> Mike
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4a

Re: untuk memperjelas pertanyaan saya yang tadi (membuat rumus fungs

Fri Feb 15, 2013 3:05 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba file terlampir.

Salam,
Hendrik Karnadi

________________________________
From: Ali Sodikin diklie94@ymail.com>
To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Sent: Friday, 15 February 2013, 12:49
Subject: [belajar-excel] untuk memperjelas pertanyaan saya yang tadi (membuat rumus fungsi sendiri)


 
Assalamu'alaikum Wr Wb

Kepada para master

bagaimana cara membuat rumus fungsi menghitung jumlah cell dengan criteria
tertentu, contoh rumus yang ingin di buat (data, criteria1 dengan mengambil cell
yang ada warnanya, criteria2 dengan mengambil data tertentu,)

contoh kasus,

cell A1 sampai A3 berisi cell dengan warna yang berbeda", misal A1 dengan warna
"merah", A2 cell tidak berwarna,A3 warna "merah"

cell B1 sampai B3 berisi data, contoh data:
dari cell B1 sampai B3 berisi data angka "1"

penyelesaian dengan rumus:
saya ingin menghitung jumlah cell dengan criteria cell warna merah dan cell data
dengan angka 1

kepada para master, tolong bantuannya ya ..

terimakasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

5a

Mengecek isi cell

Fri Feb 15, 2013 3:50 am (PST) . Posted by:

Dear Be-Exceller,

Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
kolom itu isinya adalah benar yaitu yang

isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
yaitu yang isinya Kelas dan Keterangan.

Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
ada msgbox "Tidak ada cell yang bernama

Keterangan".

Ini picturenya :

Terima kasih,
Wassalam,
Tio

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

5b

Re: Mengecek isi cell

Fri Feb 15, 2013 5:29 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Tio,

Bagaimana jika tidak menggunakan For each Next ?
Kira-kira bunyinya :
Dim sMsg As String

If Evaluate("=countif(b2:e2,""*Kelas*"")") = 0 Then
sMsg = "- Tidak ada kolom bernama Kelas" & vbCrLf
End If
If Evaluate("=countif(b2:e2,""*Keterangan*"")") = 0 Then
sMsg = sMsg & "- Tidak ada kolom bernama Keterangan" & vbCrLf
End If
If LenB(sMsg) <> 0 Then
MsgBox "Data kurang tepat karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid.", vbInformation
End If

Jika tetap ingin pakai For Each Next, bisa disusun dengan banyak cara dan
salah satunya adalah :
Dim rng As Range
Dim vKolom As Variant
Dim bNotFound As Boolean
Dim sMsg As String

sMsg = vbNullString
For Each vKolom In Array("Kelas", "Keterangan&quot;)
bNotFound = True
For Each rng In Range("b2:e2")
If InStr(LCase$(rng.Value), LCase$(vKolom)) <> 0 Then
bNotFound = False
Exit For
End If
Next rng
If bNotFound Then
sMsg = sMsg & "- Tidak ada kolom bernama " & vKolom & vbCrLf
End If
Next vKolom
If LenB(sMsg) <> 0 Then
MsgBox "Data tidak valid karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid.", vbInformation
End If

Selain kedua cara diatas, masih ada banyak cara lain, seperti penggunaan
methods find maupun worksheet function countif.
Memanfaatkan cell bantu berformula juga bisa.

Wassalam,
Kid.

2013/2/15 tio.adjie@ptssb.co.id>

> **
>
>
>
>
> Dear Be-Exceller,
>
> Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
> ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
> kolom itu isinya adalah benar yaitu yang
>
> isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
> tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
> yaitu yang isinya Kelas dan Keterangan.
>
> Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
> bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
> ada msgbox "Tidak ada cell yang bernama
>
> Keterangan".
>
> Ini picturenya :
>
>
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

6a

Re: fungsi if sebagai pernyataan 2 kolom untuk 1kolom

Fri Feb 15, 2013 5:48 am (PST) . Posted by:

"syam ero" syamero@ymail.com

Dear Miss Jan

Terimakasih atas formula yang miss kirim sudah digunakan
sesuai dengan harapan saya. Semoga Allah SWT. berkahi
buat miss.

Brg,
Syam

Pada 15 Februari 2013 08.10, Jan Raisin miss.jan.raisin@gmail.com> menulis:

> **
>
>
> ubah formula sebelumnya
>
> =IF(B3="Nil";"";IF((LEN(B3)>0)*(LEN(D3)=0);"Tertunda";"Terkirim&quot;))
>
> menjadi
>
> =IF(OR(B3="Nil";LEN(B3)=0)
> ;"";IF((LEN(B3)>0)*(LEN(D3)=0);"Tertunda";"Terkirim&quot;))
>
> file terlampir
>
> Best Regard,
>
> -Miss Jan Raisin-
>
> Pada 14 Februari 2013 23.38, syam ero syamero@gmail.com> menulis:
>
> **
>>
>>
>> Dear miss Jan
>>
>> Mohon maaf ada masalah lagi, jika formula di cell C3 agar pada B2
>> dan D3 tersebut blank (polos) sebelum diisi text itu gmana ya?
>> terimakasih sebelum dan sesudahnya atas pencerahannya
>>
>> Brg,
>> Syam
>>
>>
>>
>> Pada 13 Februari 2013 14.25, Jan Raisin miss.jan.raisin@gmail.com>menulis:
>>
>>> **
>>>
>>>
>>> Dear pak Syam,
>>>
>>> coba formula di cell c3
>>> =IF(B3="Nil";"";IF((LEN(B3)>0)*(LEN(D3)=0);"Tertunda";"Terkirim&quot;))
>>>
>>> lalu kolom D di buat validasi data sehingga hanya dapat diisi dengan
>>> tanggal, file terlampir
>>>
>>> Best Regard,
>>>
>>> -Miss Jan Raisin-
>>>
>>> Pada 13 Februari 2013 08.43, syam ero syamero@gmail.com> menulis:
>>>
>>> **
>>>>
>>>>
>>>> Dear para master Excel
>>>>
>>>>
>>>>
>>>> Master mohon bantuannya dong ? berikanlah saya pencerahannya para
>>>> master
>>>>
>>>> dengan permasalahan fungsi *If * pada 3 kolom B; C & D ini bahwa
>>>> kolom B dan D
>>>>
>>>> ini akan merubah pernyataan kolom C. Permaslahan saya antara lain:
>>>>
>>>> 1. Kolom B jika ada text maka kolom C & D pun
>>>>
>>>> langsung menyatakan *Tertunda *& jika tertulis Nil
>>>>
>>>> maka kolom C menjadi *Blank .*
>>>>
>>>> 2. Jika kolom D diisi tanggal dd-mmm-yyy yang semula
>>>>
>>>> muncul pernyataan *Tertunda* maka menjadi *Terkirim.*
>>>>
>>>> Sebelum dan sesudahnya saya menghaturkan banyak terimakasih atas
>>>>
>>>> pencerahannya para master.
>>>>
>>>>
>>>> Salam,
>>>>
>>>> Syamero
>>>>
>>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (11) . Top ^

7a

nomor urut berdasarkan tanggal dicell yang berbeda-beda

Fri Feb 15, 2013 6:34 am (PST) . Posted by:

"wahyu sampurna" wagiman777

Dear all Master excel

Aku minta diajarin dong, pakai rumus if. Bagimanakah jika aku isi

tanggal pada kolom B cell yang berbeda beda maka kolom H tsb.

bisa muncul nomor urutnya ngikuti isian berdasarkan kolom I ?.

Data terlampir mohon para master bisa memberikan

pencerahannya.

Terimaksih banget lho sebelumnya.

Best regard,

Wahyu sampurna

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

7b

Re: nomor urut berdasarkan tanggal dicell yang berbeda-beda

Fri Feb 15, 2013 7:43 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Wahyu,

Coba pada cell H4 diberi formula :
=IF(LEN(I4),IF(B4,1,N(H3)+1),"")
kemudian copy ke baris berikutnya.

Wassalam,
Kid.

2013/2/15 wahyu sampurna wahyusampurna@gmail.com>

> **
>
>
> Dear all Master excel
>
>
> Aku minta diajarin dong, pakai rumus if. Bagimanakah jika aku isi
>
> tanggal pada kolom B cell yang berbeda beda maka kolom H tsb.
>
> bisa muncul nomor urutnya ngikuti isian berdasarkan kolom I ?.
>
> Data terlampir mohon para master bisa memberikan
>
> pencerahannya.
>
> Terimaksih banget lho sebelumnya.
>
> Best regard,
>
> Wahyu sampurna
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

8a

Re: Rekap data quesioner

Fri Feb 15, 2013 7:39 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Winda,

eee.... gimana ya...
moga-moga ada BeExceller yang bisa bantu ya.

kalau boleh usul, file data tiap pesertanya seperti file terlampir mulai
kolom J jika tetap ingin menggunakan object control.
1. Penggunaan object ActiveX Option Button memungkinkan membentuk grup
object per nomor berisi option button YA dan option button TIDAK, sehingga
hanya bisa diisi salah satu saja, yaitu YA saja atau TIDAK saja. Object
control Checkbox memang bagus tampilannya yang berupa checked, tetapi
membutuhkan VBA untuk mengatur salah satu saja yang dipilih.
2. Pemberian nama object yang memiliki pola dan dapat membedakan antara
object YA dan TIDAK untuk berbagai nomor, akan memudahkan proses loop jika
dibutuhkan.
3. Penggunaan kolom bantu yang dapat sekaligus membentuk suatu data
kontinyu sebagai sebuah area berisi data yang siap di-compile. Sehingga
loop setiap file peserta dapat dilakukan dengan relatif lebih cepat dengan
mengurangi proses terhadap setiap file yang dibuka.
4. Seluruh file peserta diletakkan dalam sebuah folder dan data pada sheet
dengan nama tetap atau pada indeks sheet dalam sheet tab yang tetap juga
setiap filenya. Hal ini akan memudahkan loop buka setiap file peserta.
Contoh VBA untuk membuka workbook lain juga telah tersebar di milis.

Dengan susunan file peserta seperti di atas, maka area data yang selalu
diambil adalah sebuah area (currentregion) mulai cell P5 (kolom P pada item
quiz pertama). Bisa jadi proses buka file -> salin area mulai P5 ke compile
-> tutup file membutuhkan sekitar 5 detik bahkan mungkin kurang.

Andai usulan di atas kurang sesuai atau tidak memungkinkan untuk
diterapkan, maka diperlukan loop setiap object yang YA saja. Bisa jadi
proses terhadap setiap peserta akan memakan waktu karena dibutuhkan loop
setiap object yang ada (andai ada 20 item nomor, masing-masing ada 2
object, total baca 40 object dan untuk yang diproses adalah 10 objectnya
saja). Andai ada 100 koresponden, maka proses buka file -> baca -> susun
data -> salin ke compile -> tutup file bisa memakan waktu. Andai setiap
file sampai 15 detik, maka dibutuhkan 25 menit unuk 100 koresponden.

Mungkin ada usulan lain dari rekan BeExceller, yang lebih mudah dan lebih
simple untuk diterapkan.

Wassalam,
Kid.

2013/2/15 Winda Miranti winda_1504@yahoo.co.id>

> **
>
>
> Dear Be-Excel
>
> Selamat sore para excel mania, semoga semua dalam keadaan sehat waalfiat
> yaa
>
> Saya mempunyai sebuah kasus untuk merekap hasil quesioner
> Bagaimana caranya untuk mengcompile hasil qeusioner seperti contoh
> terlampir ke file compile, sehingga pada saat mengklik box compile hasil
> dari jawaban masing2 peserta secara otomatis terinput ke kolom yang sudah
> disediakan
> Dan kemungkinan pertanyaanya bisa sampe 100 atau lebih
>
> Saya sudah mencoba beberapa alternatif dan jawaban yang sekira nya mirip
> dengan kasus saya, tapi masi blm ketemu yg cocok
> atau mungkin ada contoh serupa yg pernah dibahas tapi terlewatkan oleh
> saya utk membaca nya, mohon dimaafkan
>
> Mohon pencerahanya para master excel :)
>
> Trimkasi Banyak
> Regards,
> Winda
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

21 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>