Jumat, 15 Februari 2013

[belajar-excel] Digest Number 2089

15 New Messages

Digest #2089
1a
Re: Mohon Bantuan by "Mr. Kid" nmkid.family@ymail.com
2a
Rumus untuk IF AND bertingkat by "jonson dahrino" jonson_ringo
3a
Re: Panah Kecil pada pivot table by "Mr. Kid" nmkid.family@ymail.com
3b
Panah Kecil pada pivot table by "Andrie -" sioean2
3c
Re: Panah Kecil pada pivot table by "Mr. Kid" nmkid.family@ymail.com
3d
Panah Kecil pada pivot table by "Andrie -" sioean2
3e
Re: Panah Kecil pada pivot table by "Mr. Kid" nmkid.family@ymail.com
3f
5a
5b
5c
Re: convert number by "Mr. Kid" nmkid.family@ymail.com
5d
5e
Re: convert number by "Mr. Kid" nmkid.family@ymail.com
6
Rekap data quesioner by "Winda Miranti" winda_1504

Messages

Thu Feb 14, 2013 11:54 pm (PST) . Posted by:

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

oh gitu ya...

Mungkin setelah unregister belum di restart atau log off (saya juga lupa
tadi gak menyertakannya).

Kalau masih gagal juga, coba install service pack (sp) office lebih dulu.
kemudian coba cari security update tentang vulnerable mscomctl (lebih baik
lewat microsoft update dan cari tentang security update vulnerable mscomctl)
biasanya security update ini akan beserta update terhadap IE. Gak tahu ya
kalau sekarang masih bareng security update untuk IE atau tidak.
Kalau gak salah, untuk excel 2007 ke atas butuh compatibility, termasuk
activex dan yang paling bermasalah memang mscomctl.ocx.
biasanya dengan unregister - restart - register yang versi lama (link yang
tadi) terus beres.
Yang belum dicoba, proses unreg library sebelum ada Service Pack si ms
office.
Kalau belum install SP nya, coba install lebih dulu baru proses unreg dst
sebelum mencoba cari security update (security update ndak bisa di
uninstall)

Wassalam,
Kid.

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

> **
>
>
> Selamat siang mr.Kid,
>
> Sebelumnya mohon mr Kid, saran/petunjuk dari mr Kid sudah saya lakukan
> sebelum saya buka email dari mr Kid. Pagi tadi waktu dikantor kebetulan ada
> temen yang kasih saran sama. Dan karena tidak berhasil maka saranya agar di
> repair aja ms officenya....
>
> Lha karena di repair ya tomatis deh kembali ke awal....nah disini saya
> masih menghadapi problem untuk microsoft TreeView Control, version 6.0
> pesan error "Unspecified error"
> ni solusinya gimana ya mr Kid.....
>
> terima kasih sbelumnya atas bantuannya
>
> salam,
>
> supriyanto
>
>
>

Thu Feb 14, 2013 11:57 pm (PST) . Posted by:

"jonson dahrino" jonson_ringo


 Dear Master Excel,,
Saya butuh Bantuan nih
kasusnya adalah, ketika saya mau membuat rumus If bertingkat, saya kesulitan untuk rumus di tingkat ke tiga dan seterusnya
mohon bantuannya ya temans
filenya terlampir
salam excel..

Fri Feb 15, 2013 12:00 am (PST) . Posted by:

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

Kalau option setting sepertinya ndak ada...
biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya,
kalau di klik pivot table -> pivot table tools -> ribbon options -> select
entire pivot table -> gerakkan cursor ditengah nama field dan turun
perlahan, akan muncul panah hitam untuk blok seluruh field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

> **
>
>
> Dear master excel,
>
> Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu
> kita akan menyorot field pada pivot table. Jika pada office 2007 bisa
> otomatis menyorot field pivot yang fungsinya menentukan format cells agar
> sewaktu di refresh tidak berantakan.
>
> Tq
>
> _
>
>

Fri Feb 15, 2013 12:18 am (PST) . Posted by:

"Andrie -" sioean2

Halo Mr. Kid,
Cara yang dimaksud bagaimana yaribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.
Maaf kurang mengerti.

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com
Date: Friday, February 15, 2013, 8:00 AM

 

Kalau option setting sepertinya ndak ada...
biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya, kalau di klik pivot table -> pivot table tools -> ribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Dear master excel,
Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu kita akan menyorot field pada pivot table. Jika pada office 2007 bisa otomatis menyorot field pivot yang fungsinya menentukan format cells agar sewaktu di refresh tidak berantakan.

Tq

_

Fri Feb 15, 2013 12:20 am (PST) . Posted by:

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

klik pivot table -> ribbon (menu) options -> select -> entire pivot table
-> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul
panah

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

> **
>
>
> Halo Mr. Kid,
>
> Cara yang dimaksud bagaimana ya
> ribbon options -> select entire pivot table -> gerakkan cursor ditengah
> nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh
> field.
> Maaf kurang mengerti.
>
> --- On *Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com>* wrote:
>
>
> From: Mr. Kid mr.nmkid@gmail.com>
> Subject: Re: [belajar-excel] Panah Kecil pada pivot table
> To: belajar-excel@yahoogroups.com
> Date: Friday, February 15, 2013, 8:00 AM
>
>
>
> Kalau option setting sepertinya ndak ada...
> biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya,
> kalau di klik pivot table -> pivot table tools -> ribbon options -> select
> entire pivot table -> gerakkan cursor ditengah nama field dan turun
> perlahan, akan muncul panah hitam untuk blok seluruh field.
>
> Wassalam,
> Kid.
>
> 2013/2/15 Andrie - sioean2@yahoo.comhttp://mc/compose?to=sioean2@yahoo.com>
> >
>
> **
>
>
> Dear master excel,
>
> Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu
> kita akan menyorot field pada pivot table. Jika pada office 2007 bisa
> otomatis menyorot field pivot yang fungsinya menentukan format cells agar
> sewaktu di refresh tidak berantakan.
>
> Tq
>
> _
>
>
>
>

Fri Feb 15, 2013 12:59 am (PST) . Posted by:

"Andrie -" sioean2

Mr Kid,saya uda masuk ke option pivot setelah itu menu selectnya bagaimana ya..Bisa tolong dilampirkan dengan pict bos..tq

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com
Date: Friday, February 15, 2013, 8:20 AM

 

klik pivot table -> ribbon (menu) options -> select -> entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah

Wassalam,

Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Halo Mr. Kid,
Cara yang dimaksud bagaimana yaribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.

Maaf kurang mengerti.

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com

Date: Friday, February 15, 2013, 8:00 AM

 

Kalau option setting sepertinya ndak ada...
biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya, kalau di klik pivot table -> pivot table tools -> ribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Dear master excel,
Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu kita akan menyorot field pada pivot table. Jika pada office 2007 bisa otomatis menyorot field pivot yang fungsinya menentukan format cells agar sewaktu di refresh tidak berantakan.

Tq

_

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

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

[image: Inline image 1]

Setelah pivot table terselect, gerakkan mouse ke tengah-tengah nama field x1
kemudian gerakkan perlahan turun sampai + tebal berubah menjadi panah hitam
untuk select entire field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

> **
>
>
> Mr Kid,
> saya uda masuk ke option pivot setelah itu menu selectnya bagaimana ya..
> Bisa tolong dilampirkan dengan pict bos..
> tq
>
> --- On *Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com>* wrote:
>
>
> From: Mr. Kid mr.nmkid@gmail.com>
> Subject: Re: [belajar-excel] Panah Kecil pada pivot table
> To: belajar-excel@yahoogroups.com
> Date: Friday, February 15, 2013, 8:20 AM
>
>
>
> klik pivot table -> ribbon (menu) options -> select -> entire pivot table
> -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul
> panah
>
> Wassalam,
> Kid.
>
> 2013/2/15 Andrie - sioean2@yahoo.comhttp://mc/compose?to=sioean2@yahoo.com>
> >
>
> **
>
>
> Halo Mr. Kid,
>
> Cara yang dimaksud bagaimana ya
> ribbon options -> select entire pivot table -> gerakkan cursor ditengah
> nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh
> field.
> Maaf kurang mengerti.
>
> --- On *Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.comhttp://mc/compose?to=mr.nmkid@gmail.com>
> >* wrote:
>
>
> From: Mr. Kid mr.nmkid@gmail.comhttp://mc/compose?to=mr.nmkid@gmail.com>
> >
> Subject: Re: [belajar-excel] Panah Kecil pada pivot table
> To: belajar-excel@yahoogroups.comhttp://mc/compose?to=belajar-excel@yahoogroups.com>
> Date: Friday, February 15, 2013, 8:00 AM
>
>
>
> Kalau option setting sepertinya ndak ada...
> biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya,
> kalau di klik pivot table -> pivot table tools -> ribbon options -> select
> entire pivot table -> gerakkan cursor ditengah nama field dan turun
> perlahan, akan muncul panah hitam untuk blok seluruh field.
>
> Wassalam,
> Kid.
>
> 2013/2/15 Andrie - sioean2@yahoo.comhttp://mc/compose?to=sioean2@yahoo.com>
> >
>
> **
>
>
> Dear master excel,
>
> Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu
> kita akan menyorot field pada pivot table. Jika pada office 2007 bisa
> otomatis menyorot field pivot yang fungsinya menentukan format cells agar
> sewaktu di refresh tidak berantakan.
>
> Tq
>
> _
>
>
>
>
>

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

"Andrie -" sioean2

Ok terima kasih atas tutornya Mr. KidSudah bisa..

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com
Date: Friday, February 15, 2013, 9:11 AM

 

Setelah pivot table terselect, gerakkan mouse ke tengah-tengah nama field x1
kemudian gerakkan perlahan turun sampai + tebal berubah menjadi panah hitam untuk select entire field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Mr Kid,saya uda masuk ke option pivot setelah itu menu selectnya bagaimana ya..Bisa tolong dilampirkan dengan pict bos..

tq

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>

Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com
Date: Friday, February 15, 2013, 8:20 AM

 

klik pivot table -> ribbon (menu) options -> select -> entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah

Wassalam,

Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Halo Mr. Kid,
Cara yang dimaksud bagaimana yaribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.

Maaf kurang mengerti.

--- On Fri, 2/15/13, Mr. Kid mr.nmkid@gmail.com> wrote:

From: Mr. Kid mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Panah Kecil pada pivot table
To: belajar-excel@yahoogroups.com

Date: Friday, February 15, 2013, 8:00 AM

 

Kalau option setting sepertinya ndak ada...
biasanya, kalau sedang ngadat si panah hitam pemilih entire field nya, kalau di klik pivot table -> pivot table tools -> ribbon options -> select entire pivot table -> gerakkan cursor ditengah nama field dan turun perlahan, akan muncul panah hitam untuk blok seluruh field.

Wassalam,
Kid.

2013/2/15 Andrie - sioean2@yahoo.com>

 

Dear master excel,
Adakah option settingan agar memunculkan tanda panah kecil hitam sewaktu kita akan menyorot field pada pivot table. Jika pada office 2007 bisa otomatis menyorot field pivot yang fungsinya menentukan format cells agar sewaktu di refresh tidak berantakan.

Tq

_

Fri Feb 15, 2013 12:01 am (PST) . Posted by:

"Andrie -" sioean2

Membuat modul nilaiwarna agar dapat mengetahui nilai warna dari cell
Public Function nilaiwarna(ByVal Target As Range) As Integer  Dim nwarna As Integer  nwarna = Target.Interior.ColorIndex  nilaiwarna = nwarnaEnd Function
Contoh terlampir
--- On Fri, 2/15/13, Ali Sodikin diklie94@ymail.com> wrote:

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

 

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

Fri Feb 15, 2013 12:02 am (PST) . Posted by:

"Eko NS"

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*

Fri Feb 15, 2013 12:08 am (PST) . Posted by:

"Eko NS"

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 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*

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

"Mr. Kid" nmkid.family@ymail.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*
>
>
>

Fri Feb 15, 2013 12:41 am (PST) . Posted by:

"Eko NS"

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*

Fri Feb 15, 2013 12:53 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.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*
>
>
>

Fri Feb 15, 2013 12:02 am (PST) . Posted by:

"Winda Miranti" winda_1504

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
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar