Messages In This Digest (18 Messages)
- 1a.
- Re: Tanya tentang pengubahan beberapa setting pada form From: agung_widodo@sanyo.com
- 1b.
- Re: Tanya tentang pengubahan beberapa setting pada form From: STDEV(i)
- 1c.
- Re: Tanya tentang pengubahan beberapa setting pada form From: Franciscus SOG
- 2a.
- Re: Create Nomor Urut berdasar bulan dan tahun From: Anton Gundul
- 3a.
- Re: SIMPAN NOTA (REVISI) From: Franciscus SOG
- 4a.
- rekaoitulasi otomatis From: Darto Chandra
- 4b.
- Re: rekaoitulasi otomatis From: Mr. Kid
- 5.
- Bls: [belajar-excel] ambil duitnya saja!.. mau!! From: ghozi alkatiri
- 6a.
- Re: ambil duitnya saja!.. mau!! From: Mr. Kid
- 6b.
- Re: ambil duitnya saja!.. mau!! From: STDEV(i)
- 6c.
- Re: ambil duitnya saja!.. mau!! From: Mr. Kid
- 7a.
- Hidden sheet sesuai tanggal yg ditentukan From: Reza F
- 7b.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: Mr. Kid
- 7c.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: Reza 2002
- 7d.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: Mr. Kid
- 7e.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: Reza 2002
- 7f.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: STDEV(i)
- 7g.
- Re: Hidden sheet sesuai tanggal yg ditentukan From: Reza 2002
Messages
- 1a.
-
Re: Tanya tentang pengubahan beberapa setting pada form
Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com
Sat May 28, 2011 1:33 am (PDT)
Dear Mas Franz,
Terimakasih atas komentarnya.
Untuk No1, Ada keluhan lain berupa No. Tag tidak bisa dientry manual (ketik) meski angkanya ada dalam daftar yang sudah disediakan.
Harus pilih dari kombo box,
Ada solusi?
Bu Siti,
Opsinya diganti dengan Listbox sepertinya lebih baik,
Tapi nggak tahu, apa/mana saja yang harus diganti/edit selain membuat list box dalam form
Ada lagi problem, angka besar bisa diketik manual,
Tapi angka kecil (dibawah 1000 misalnya) tidak bisa mengaktifkan kolom lain di form,
Gimana kepiye ya?
_____________________ _________ __
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Franciscus SOGcom
Sent: Saturday, May 28, 2011 12:54 PM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Tanya tentang pengubahan beberapa setting pada form
Dear Agung,
Berhubung mau cepat, langsung saja ya..
1. Validasi inputan No.Tag tidak ada masalah. Masalahnya ada di event
ComboBox1_Change, karena Anda menggunakan kondisi If lIdxCbo <> -1
Then baru bisa menjalankan rumus offset. Saran : mungkin Anda dapat
menghilangkan kondisi If diatas menggunakan rumus vlookup dengan
lookup value = ComboBox1. Untuk hasil error dari vlookup dapat diakali
dengan IsError(hasil). Untuk Row Source ComboBox1 bisa dihilangkan.
2. Tidak ada masalah dengan inputan Parts Code. Masalahnya ada di
event TextBox1_AfterUpdate karena Anda kurang deklarasi Dim rngCode As
Range dan Dim rngName As Range. Sebelum coding Set rngCode =
shtRef.Range(sRefPartCode) .
3. Section / Area tersimpan pada TextBox4. Setiap tombol Inputkan Data
(data valid), maka akan menjalankan prosedur InitKomponen. Coding ini
yang harus diganti TextBox4.Text = vbNullString, artinya mengganti
Section / Area = "". Jika Anda tidak ingin direset, maka coding
tersebut dapat dihapus.
CMIIW
Blessings,
Fran'z
On 5/28/11, agung_widodo@sanyo.com <mailto:agung_widodo%40sanyo. com> <agung_widodo@ sanyo.com <mailto:agung_widodo%40sanyo. com>> wrote:
> Rekan -rekan milis yang baik hati,
>
> Ada form hasil pengembangan dari para guru disini.
> Namun beberapa propertiesnya perlu diperbaiki sesuai kebutuhan di lapangan
>
> Mohon lihat dalam lampiran agar lebih paham,
>
> Pada Form yang ada,
> Tag No harus diisi lebih dahulu.
> Tanya : Bagaimana agar Combo box No. Tag bisa diinput juga dengan keyboard /
> tanpa harus dengan mengklik mouse?
>
> Pada Parts Code ada material diberi nama dengan angka(saja) tanpa huruf.
> Tanya : Bagaimana agar Parts Code dengan nama berupa angka bisa juga dinput
> dengan form tersebut.?
>
> Pada Form,Section / Area adalah salah satu kolom yang juga harus terisi.
> Tanya : Bagaimana agar Data Section / Area terakhir yang diinput diform
> tersebut tidak ikut hilang saat disave / mau diinput tag baru.
>
> Terimakasih sekali untuk jawaban yang lebih awal, berhubung beberapa orang
> lagi nunggu solusi
>
> Ya Alloh, Ringankan beban hidup para pemberi solusi di milis ini, Amin
>
> Wassalam
> Agung Widodo
- 1b.
-
Re: Tanya tentang pengubahan beberapa setting pada form
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat May 28, 2011 1:49 am (PDT)
Belum sempat melihat dalemannya, so.. semantara hanya bisa comments:
1.
Listbox bukannya juga harus MEMILIH salah satu List
Oh, mengkin harus di set: begitu diketikkan suatu karakter
dia akan mencari sendiri listnya yg mendekati inputan
(ada property yg harus di sesuaikan)
2.
Mungkin karena perbedaan TYPE data
combobox, listbox, texbox itu, walaupun diisi BILANGAN
atau saat mengisi Items nya diisi data BILANGAN
tetapi setelah terisi, tpe data nya adalah TEXT-ANGKA (walaupun
penampakannya sepert BILANGAN)
Hal ini harus mendapat perhatian dlm proses pembandingan, pencarian dsb...
misal
di range ada data = 100
di ComboBox ada data seperti 100 tapi dia itu = "100"
If 100 = "100" Then
' --do something --
End If
mengahasilkan FALSE; "do something" nya tidak akan terlaksana
2011/5/28 <agung_widodo@sanyo.com >
>
>
> Dear Mas Franz,
> Terimakasih atas komentarnya.
> Untuk No1, Ada keluhan lain berupa No. Tag tidak bisa dientry manual
> (ketik) meski angkanya ada dalam daftar yang sudah disediakan.
> Harus pilih dari kombo box,
> Ada solusi?
>
> Bu Siti,
> Opsinya diganti dengan Listbox sepertinya lebih baik,
> Tapi nggak tahu, apa/mana saja yang harus diganti/edit selain membuat list
> box dalam form
>
> Ada lagi problem, angka besar bisa diketik manual,
> Tapi angka kecil (dibawah 1000 misalnya) tidak bisa mengaktifkan kolom
> lain di form,
> Gimana kepiye ya?
>
- 1c.
-
Re: Tanya tentang pengubahan beberapa setting pada form
Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit
Sat May 28, 2011 6:45 am (PDT)
Dear agung,
No.Tag bisa diketik manual, hanya saat Anda mengetik apapun pada
combobox tersebut akan mengaktifkan event ComboBox1_Change. Combobox
akan membaca list yang ada didalamnya, misalnya 00001 akan dibaca 1,
ada baiknya list combobox dibuat mulai dari 1 bukan 00001, meskipun
angka list tersebut adalah 1 tetapi tampilanlah yang dibaca oleh vba,
bukan isi.
Mungkin maksud Anda "tidak bisa" adalah tidak dapat memunculkan /
memvalidasi data yang sudah ada. Misalnya jika data No.Tag 00001 sudah
ada di sheet "Tag Entry" maka otomatis Section, Parts Code, Parts
Name, Qty, UoM akan terisi. Karena saat Anda ketik manual, coding
lIdxCbo = ComboBox1.ListIndex akan tetap bernilai -1 sehingga coding
If lIdxCbo <> -1 Then
'- do statement
Endif
tidak akan berjalan. (emang punya kaki yach..)
Sehingga hanya akan menjalankan coding dari prosedur InitKomponen.
Untuk mengatasi keterbatasan input manual, ada baiknya coding diubah.
Mungkin dapat saya bantu dengan coding yang sesuai dengan kemauan Anda.
Asal requestnya jelas..(kalo ga jelas, rabun dunk..) CMIIW
Blessings,
Fran'z
On 5/28/11, agung_widodo@sanyo.com <agung_widodo@sanyo.com > wrote:
> Dear Mas Franz,
> Terimakasih atas komentarnya.
> Untuk No1, Ada keluhan lain berupa No. Tag tidak bisa dientry manual (ketik)
> meski angkanya ada dalam daftar yang sudah disediakan.
> Harus pilih dari kombo box,
> Ada solusi?
>
> Bu Siti,
> Opsinya diganti dengan Listbox sepertinya lebih baik,
> Tapi nggak tahu, apa/mana saja yang harus diganti/edit selain membuat list
> box dalam form
>
> Ada lagi problem, angka besar bisa diketik manual,
> Tapi angka kecil (dibawah 1000 misalnya) tidak bisa mengaktifkan kolom lain
> di form,
> Gimana kepiye ya?
> _____________________ _________ __
> From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
> On Behalf Of Franciscus SOG
> Sent: Saturday, May 28, 2011 12:54 PM
> To: belajar-excel@yahoogroups. com
> Subject: Re: [belajar-excel] Tanya tentang pengubahan beberapa setting pada
> form
>
>
>
> Dear Agung,
>
> Berhubung mau cepat, langsung saja ya..
>
> 1. Validasi inputan No.Tag tidak ada masalah. Masalahnya ada di event
> ComboBox1_Change, karena Anda menggunakan kondisi If lIdxCbo <> -1
> Then baru bisa menjalankan rumus offset. Saran : mungkin Anda dapat
> menghilangkan kondisi If diatas menggunakan rumus vlookup dengan
> lookup value = ComboBox1. Untuk hasil error dari vlookup dapat diakali
> dengan IsError(hasil). Untuk Row Source ComboBox1 bisa dihilangkan.
>
> 2. Tidak ada masalah dengan inputan Parts Code. Masalahnya ada di
> event TextBox1_AfterUpdate karena Anda kurang deklarasi Dim rngCode As
> Range dan Dim rngName As Range. Sebelum coding Set rngCode =
> shtRef.Range(sRefPartCode) .
>
> 3. Section / Area tersimpan pada TextBox4. Setiap tombol Inputkan Data
> (data valid), maka akan menjalankan prosedur InitKomponen. Coding ini
> yang harus diganti TextBox4.Text = vbNullString, artinya mengganti
> Section / Area = "". Jika Anda tidak ingin direset, maka coding
> tersebut dapat dihapus.
>
> CMIIW
>
> Blessings,
>
> Fran'z
>
> On 5/28/11, agung_widodo@sanyo.com <mailto:agung_widodo%40sanyo. com>
> <agung_widodo@sanyo.com <mailto:agung_widodo%40sanyo. com>> wrote:
>> Rekan -rekan milis yang baik hati,
>>
>> Ada form hasil pengembangan dari para guru disini.
>> Namun beberapa propertiesnya perlu diperbaiki sesuai kebutuhan di lapangan
>>
>> Mohon lihat dalam lampiran agar lebih paham,
>>
>> Pada Form yang ada,
>> Tag No harus diisi lebih dahulu.
>> Tanya : Bagaimana agar Combo box No. Tag bisa diinput juga dengan keyboard
>> /
>> tanpa harus dengan mengklik mouse?
>>
>> Pada Parts Code ada material diberi nama dengan angka(saja) tanpa huruf.
>> Tanya : Bagaimana agar Parts Code dengan nama berupa angka bisa juga
>> dinput
>> dengan form tersebut.?
>>
>> Pada Form,Section / Area adalah salah satu kolom yang juga harus terisi.
>> Tanya : Bagaimana agar Data Section / Area terakhir yang diinput diform
>> tersebut tidak ikut hilang saat disave / mau diinput tag baru.
>>
>> Terimakasih sekali untuk jawaban yang lebih awal, berhubung beberapa orang
>> lagi nunggu solusi
>>
>> Ya Alloh, Ringankan beban hidup para pemberi solusi di milis ini, Amin
>>
>> Wassalam
>> Agung Widodo
>
>
>
- 2a.
-
Re: Create Nomor Urut berdasar bulan dan tahun
Posted by: "Anton Gundul" antongundul@yahoo.com antongundul
Sat May 28, 2011 4:26 am (PDT)
Terimakasih Bu Siti atas tambahan ilmunya. Akan saya pelajari kemungkinan utk jawaban no.2.
--- Pada Jum, 27/5/11, STDEV(i) <setiyowati.devi@gmail.com > menulis:
Dari: STDEV(i) <setiyowati.devi@gmail.com >
Judul: Re: [belajar-excel] Create Nomor Urut berdasar bulan dan tahun
Kepada: belajar-excel@yahoogroups. com
Tanggal: Jumat, 27 Mei, 2011, 10:48 AM
1VBA Code nya
Private Sub cmdCreateNo_Click()
' siti Vi / 27 May 2011 / beExcel Case#
'-------------------- --------- --------- Dim RefDate As Date, RunNo As String
Dim LatestPO As Range, MMMYYYY As String
Set LatestPO = Cells(Rows.Count, 6).End(xlUp)
If Month(LatestPO(1, 2)) = Month(Range( "C1")) Then RefDate = Range("C1")
RunNo = Format(CLng(Left(LatestPO, 4) + 1), "0000") Else
RefDate = LatestPO(1, 2).Value RunNo = "0001"
End If
MMMYYYY = UCase(Format(RefDate, "MMM/YYYY")) Range("B3") = RunNo & "/PO/" & MMMYYYY
End Sub
2.
Mungkin(yg ditanyakan kan hanya "mungkin/gak" nya saja kan)
di milis / di file area ada file pelajaran yg berhubungan dengan pertanyaan pak gundul
bisa di pilih & di donlot...http://tech.groups. yahoo.com/ group/belajar- excel/files/
2011/5/27 Anton Gundul <antongundul@yahoo.com >
Dear para master dan teman sekalian
Saya ingin membuat nomor urut dimana nomor itu diperhitungkan dari jumlah data tanggal. Jadi misal di table sudah ada 2 data yaitu tanggal 9-may-2011 dan 11-may-2011 maka ketika button CreateNoUrut diklik maka akan muncul 0003/MAY/PO/2011. Untuk lebih jelasnya saya sertakan lampiran.
Pertanyaan kedua : mungkin ga ya (dengan rference library tertentu) kita dapat memasukkan script SQL di VBA excell? misal :
con.execute "select Range("B2").currentregion. offset(1, 0),Range( "B2").currentreg ion.offset( 1,1) from Range("B2"). currentregion where Range("B2"). currentregion. offset(1, 1)=[C1]"
Mohon pencerahannya dan terimakasih sebelumnya
- 3a.
-
Re: SIMPAN NOTA (REVISI)
Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit
Sat May 28, 2011 7:26 am (PDT)
Dear Ahmad,
"Membatu" Anda? Mungkin saya tidak bisa, tapi membantu Anda mungkin saya bisa.
Sebelum saya membantu Anda, mohon Anda membantu saya dahulu (jadi
keingat tolong-menolong dan tepa selira, pelajaran PPKN doeloe..)
Maksud pertanyaan Anda " menyimpan hasil inputan data" :
1. Menyimpan data di sheets "INPUT" ke sheets "DATA NOTA" ?
2. Inputan diambil dari mana? Karena terlihat ada 2 yaitu : Sheets
"INPUT" atau form FormIsi
3. Untuk FormIsi, Spareparts dan Jasa tidak ada? Nich bagaimana?
Dibuat form lagi?
Saran : sebaiknya menggunakan inputan yang sudah ada di sheets
"INPUT". Tinggal copas ke sheets "DATA NOTA". Manual? (tentu tidak, by
coding dunk)
Blessings,
Fran'z
On 5/28/11, Ahmad Fauzi <fauzietha@yahoo.co.id > wrote:
> Dear para master Excel, Sesuai dengan saran yang diberikan oleh mbak Siti,
> akhirnya saya merubah cara input nota pada file excel saya, tapi saya
> menemui
> kesulitan untuk mengaplikasikan code-code menyimpan hasil inputan data
> seperti
> pada file yang dilampirkan mbak Siti. untuk itu mohon kiranya para master
> Excel
> membatu saya.
>
> Terima kasih.
>
>
>
>
>
>
> NB : apabila diperlukan silahkan dirubah bentuk inputan dan yang lainnya
> asal
> hasil akhirnya sama...
>
- 4a.
-
rekaoitulasi otomatis
Posted by: "Darto Chandra" d_c@gmx.com
Sat May 28, 2011 8:22 am (PDT)
mohon bantuan para pakar untuk kasus saya. filenya terlampir.
masalah yang timbul pada saat kita pencet tombol update, sebagian data tidak mau di rekap.ga tahu d lari kemana so jadi mohon bantuannya.
rumus makronya pake pny bu siti udah modif sana sini jadi error. syukur syukur ada yang bisa bantu saya sempurna in. Thank's
Darto Chandra
085881648818
- 4b.
-
Re: rekaoitulasi otomatis
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sat May 28, 2011 11:36 am (PDT)
Pak Darto,
Berhubung milis berisi banyak warna karakter manusia, penjelasan yang agak
lugas tentang fungsi si tombol akan memudahkan rekan lain untuk membantu dan
belajar. Mohon dicoba untuk menjelaskan dalam body email tentang fungsi
tersebut.
Harapan dengan sangat di kedepannya nanti, file attachment tidak lebih dari
250Kb. Menghilangkan baris data, mengurangi jumlah data contoh, dan kompresi
file adalah beberapa cara yang bisa digunakan untuk menekan besaran file.
Terimakasih dan Salam BeExcel,
Kid.
2011/5/28 Darto Chandra <d_c@gmx.com>
>
>
> mohon bantuan para pakar untuk kasus saya. filenya terlampir.
> masalah yang timbul pada saat kita pencet tombol update, sebagian data
> tidak mau di rekap.ga tahu d lari kemana so jadi mohon bantuannya.
> rumus makronya pake pny bu siti udah modif sana sini jadi error. syukur
> syukur ada yang bisa bantu saya sempurna in. Thank's
>
>
> Darto Chandra
> 085881648818
>
>
>
- 5.
-
Bls: [belajar-excel] ambil duitnya saja!.. mau!!
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Sat May 28, 2011 9:00 am (PDT)
karena angka yang akan dicari berada di antara rerimbunan aneka karakter
maka yang harus dicari adalah indikator specifik yang bisa dijadikan
acuan untuk mengeluarkan string angka yang dicari untuk di summary.
kebetulan dalam contoh yang ada di kasus ini setiap angka yang akan diambil diapit kurung buka dan kurung tutup.
alur
logika yang bisa dijadikan patokan adalah setiap satu karakter setelah
kurung buka adalah awal dari salah
satu angka yang dicari untuk di summary, dan setiap satu karakter
sebelum kurung tutup adalah akhir dari angka yang dicari untuk di
summary.
berdasarkan asumsi ini maka formula yang saya gunakan mencari string angka dari dari sebuah cell adalah
untuk angka pertama
( angka utuh yang diapit kurung buka dankurung tutup)
dimulai
dari posisi angka pertama (didapatkan dari posisi kurung buka pertama
+1karakter); sejumlah sekian karakter ;(didapatkan dari posisi kurung
tutup pertama di kurangi posisi angka pertama.)
untuk angka utuh ke dua
dimulai
dari posisi angka kedua (didapatkan dari posisi kurung buka ke dua
+1karakter); sejumlah sekian karakter ;(didapatkan dari posisi
kurung tutup ke dua di kurangi posisi angka ke dua.dst sesui dengan
adanya berapa angka yang diapit kurung.
untuk excel 2007 formulanya
=SUM(IFERROR(VALUE(MID( $C3;SMALL( IF(MID($C3; ROW($A$1: $A$100);1) ="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) ;SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)=")";ROW( $A$1:$A$100) ;"");ROW( $1:$100)) -SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) ));""))
untuk excel 2003 terpaksa lebih panjang karena belum ada fungsi iferror
formulanya sbb
=SUM(IF(ISERROR(VALUE(MID( $C3;SMALL( IF(MID($C3; ROW($A$1: $A$100);1) ="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) ;SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)=")";ROW( $A$1:$A$100) ;"");ROW( $1:$100)) -SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) )));"";VALUE( MID($C3;SMALL( IF(MID($C3; ROW($A$1: $A$100);1) ="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) ;SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)=")";ROW( $A$1:$A$100) ;"");ROW( $1:$100)) -SMALL(IF( MID($C3;ROW( $A$1:$A$100) ;1)="(";ROW( $A$1:$A$100) +1;"");ROW( $1:$100)) ))))
wassalam
Ghozi Alkatiri
--- Pada Jum, 27/5/11, Komisi Delapan <komisi8_dewan_perwakilan_ > menulis:rakyat@yahoo. com
Dari: Komisi Delapan <komisi8_dewan_perwakilan_ >rakyat@yahoo. com
Judul: [belajar-excel] ambil duitnya saja!.. mau!!
Kepada: belajar-excel@yahoogroups. com
Tanggal: Jumat, 27 Mei, 2011, 3:02 PM
Hi..all
bagaimana rumusnya untuk mengambil angkanya saja untuk kasus terlampir
terima kasih atas bantuannya
- 6a.
-
Re: ambil duitnya saja!.. mau!!
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sat May 28, 2011 11:13 am (PDT)
Pak Komisi,
Mungkin pak komisi lebih suka penghematan anggaran rakyat, supaya tidak
perlu ada proyek pembuatan VBA Excel di gedung dewan yang sampe milyaran
rupiah, silakan coba array formula berikut (maaf agak panjang dikit)
=SUM(--MID(SUBSTITUTE(SUBSTITUTE( C3,"(",REPT( " ",99)),")",REPT( "
",99)),(ROW($1:$3)*2- 1)*99+1,99) )
Karena ini array formula, maka selesai mengetikkan formula, jangan tekan
enter, tetapi tekan 3 tombol sekaligus, yaitu tombol-tombol Ctrl Shift Enter
Hasilnya, formula akan dilingkupi kurung kurawal yang menjadi penanda bahwa
formula tersebut adalah array formula.
Jangan lupa juga, kurung kurawal tidak perlu diketik juga (siapa tahu hanya
lihat file lampiran aja, tanpa lihat beda antara formula di body email
dengan di lampiran).
Penjelasan step by step formula dalam lampiran hanya untuk data pertama
saja.
Regard,
Kid.
2011/5/27 Komisi Delapan <komisi8_dewan_perwakilan_ >rakyat@yahoo. com
>
>
> Hi..all
> bagaimana rumusnya untuk mengambil angkanya saja untuk kasus terlampir
> terima kasih atas bantuannya
>
>
>
- 6b.
-
Re: ambil duitnya saja!.. mau!!
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat May 28, 2011 12:57 pm (PDT)
sambil menamani Adek "nungguin" bola barcelona vs m.u., daripada ngantuk ...
berikut ini sudah mulai OOT, jangan dibaca kalau ndak merasa perlu...
Seandainya.., *se-an-dai-nya- * lho ya,
nantinya pegawai pak Komis Delapan semakin segan mengentri data dengan *
cara **"entri-data-yg-*
*gampang-diolah-lebih-lanjut" *; misalnya antara text dan angka *tidak ada*
*tanda pemisah* apapun seperti ini
*Nama*
*keterangan*
*ingin hasil*
IMRAN MUCHTAR
*dinas10250000transport15250000jaba tan16350000*
41,850,000
SYOFWATILLAH MOHZAIB,S.SOS.I
*Jabatan16025000beras650000asuransi 18450000*
35,125,000
DRS. H. AS'AD SYAM, MM
*SI25000000*
25,000,000
DRA. HJ. RATU SITI ROMLAH,M.AG
INGRID MARIA PALUPI KANSIL, S.SOS
dengan formula, walaupun ter-engah-engah, kita masih bisa meNGAMBIL
ANGKA-ANGKA nya,
(setap kelompok Angka diangap 1 bilangan), lalu dijumlah, rumus versi
panjangnya mungkin seperti ini:
=SUM(IF(ISNUMBER(SMALL(IF( IF(ISNUMBER( MATCH(--( MID("
"&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),
ROW($1:$10)-1,0)),ROW( INDIRECT( "1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(C3&"
",
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))) ,
IF(ISNUMBER(MATCH(--( MID("
"&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))- SMALL(IF(
IF(ISNUMBER(MATCH(--( MID(C3&"
",ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(" "&C3,
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(C3&" ",
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))) ,
--MID(C3,SMALL(IF(IF(ISNUMBER( MATCH(--( MID(C3&"
",ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),
ROW($1:$10)-1,0)),ROW( INDIRECT( "1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(
--(MID(" "&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(C3&" ",
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1))), SMALL(IF(
IF(ISNUMBER(MATCH(--( MID("
"&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(C3&" ",
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(" "&C3,
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))- SMALL(IF(
IF(ISNUMBER(MATCH(--( MID(C3&"
",ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(" "&C3,
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(C3&" ",
ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))) ,0))
tanda pemisah antar *kelompok angka* -vs- *kelompok huruf* ditebak dengan
cara "bodon" (=bodoh-bodohan):
** jika ada karakter ANGKA yang di-belakangnya berupa Karakter HURUF,
maka di situlah posisi dimulainya KELOMPOK ANGKA.
** jika ada karakter HURUF dan di-belakangnya berupa Karakater ANGKA,
maka di posisi itu, mundur satu karakter, adalah posisi Angka Terakhir
dlm KELOMPOK ANGKA tsb.
Selanjutnya; masih seperti cara standar seperti yg sudah dijelaskan pak
Ghozi:
karena kelompok angka bisa lebih dari satu, dan posisi "mulai dan
berakhir"nya KELOMPOK-KELOMPOK ANGKA
dlm array masih terpencar-pencar , maka diperlkan tindakan mengumpulkan ke
atas (disort dengan fungsi SMALL)
Terakhir: mengambil data Kelompok Angka dengan fungsi
=MID(data, PosisiMulai, PosisiAkhir-PosisiMulai+ 1)
Jika *"rumus nyebelin"* di atas dibandingkan dengan *versi UDF-nya*;
menurut anda: mana yg lebih "nyebelin"?
Function ctv_GetNumbers(S As String)
' siti Vi / jakarta, 30-08-2009
Dim ArrN(), i%, tmp$, n%, t$, t2$
S = Trim(S) & " "
For i% = 1 To Len(S) - 1
t$ = Mid(S, i%, 1)
t2$ = Mid(S, i% + 1, 1)
If InStr(1, "0123456789.", t$) > 0 Then
If InStr(1, "0123456789.", t2$) > 0 Then
tmp$ = tmp$ & t$
Else
If Len(tmp$) > 0 Then
n = n + 1: ReDim Preserve ArrN(1 To n)
ArrN(n) = Val(tmp$): tmp$ = ""
End If
End If
End If
Next i%
ctv_GetNumbers = ArrN
End Function
harus diingat pula code UDF nya tidak akan tampak di worksheet, karena di
worksheet/cell hanya
perlu dituliskan ArrayFOrmula berbasis UDF seperti ini...
=SUM(ctv_GetNumbers(C3))
Jarang terjadi coding VBA lebih pendek (jumlah karakternya lebih kecil)
daripada Formula.
Dlm kasus ini penebabnya adalah:
**di VBA :suatu yg pernah dikalkulasi dan akan dipakai lagi berkali kali;
bisa disimpan dlm mem variables
pada saat dipakai lagi tinggal menyebutkan nama variabale tsb.
**di woksheet Formula, sesuatu yg sama (hasil sebuah kalkulasi) jika akan
digunakan berkali kali,
maka setiap kali harus dihitung lagi, alias SubFOrmula tsb ditulis lagi
dan lagi;
** cappe de ...
2011/5/29 Mr. Kid <mr.nmkid@gmail.com >
> Pak Komisi,
>
> Mungkin pak komisi lebih suka penghematan anggaran rakyat, supaya tidak
> perlu ada proyek pembuatan VBA Excel di gedung dewan yang sampe milyaran
> rupiah, silakan coba array formula berikut (maaf agak panjang dikit)
> =SUM(--MID(SUBSTITUTE(SUBSTITUTE( C3,"(",REPT( " ",99)),")",REPT( "
> ",99)),(ROW($1:$3)*2- 1)*99+1,99) )
>
> Karena ini array formula, maka selesai mengetikkan formula, jangan tekan
> enter, tetapi tekan 3 tombol sekaligus, yaitu tombol-tombol Ctrl Shift Enter
> Hasilnya, formula akan dilingkupi kurung kurawal yang menjadi penanda bahwa
> formula tersebut adalah array formula.
> Jangan lupa juga, kurung kurawal tidak perlu diketik juga (siapa tahu hanya
> lihat file lampiran aja, tanpa lihat beda antara formula di body email
> dengan di lampiran).
>
> Penjelasan step by step formula dalam lampiran hanya untuk data pertama
> saja.
>
> Regard,
> Kid.
>
>
>
> 2011/5/27 Komisi Delapan <komisi8_dewan_perwakilan_ >rakyat@yahoo. com
>
>> Hi..all
>> bagaimana rumusnya untuk mengambil angkanya saja untuk kasus terlampir
>> terima kasih atas bantuannya
>>
>>
- 6c.
-
Re: ambil duitnya saja!.. mau!!
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sat May 28, 2011 4:29 pm (PDT)
Kemungkinan terjadinya perkiraan mbak Siti (beserta seluruh asumsinya)
tersebut cukuplah tinggi.
Andai input disusun seperti saran mas Raya, semua pasti lebih mudah.
Jika tidak pun, minimal punya daftar kata keterangan uang seperti
'dinas','beras',dsb.
Untuk kondisi memiliki daftar keterangan uang dan input kata-kata keterangan
uang selalu sesuai daftar, maka array formula bisa disusun :
=SUM((MID(C9,SMALL(IF( COUNTIF(C9, "*"&$A$9: $A$13&"*" ),SEARCH( $A$9:$A$13, C9)+LEN($ A$9:$A$13) ,LEN(C9)+ 1),ROW($A$ 9:$A$13)- ROW($A$8) ),
SMALL(IF(COUNTIF(C9,"*"&$A$ 9:$A$14&" *"),IF(SEARCH( $A$9:$A$14, C9)>1,SEARCH( $A$9:$A$14, C9)),LEN( C9)+2),ROW( $A$9:$A$13) -ROW($A$8) )
-SMALL(IF(COUNTIF(C9,"*"&$A$ 9:$A$13&" *"),SEARCH( $A$9:$A$13, C9)+LEN($ A$9:$A$13) ,LEN(C9)+ 1),ROW($A$ 9:$A$13)- ROW($A$8) ))&"0")/10)
array formula diatas menggunakan daftar pada range a9:a14 yang terdiri dari
:
>> kata-kata keterangan pada range a9:a13
>> karakter spasi pada cell a14 sebagai item bantu
(selengkapnya bisa dilihat pada lampiran)
Sedangkan untuk kondisi tanpa ada daftar, dan tak ada delimiter, maka
formula memang menjadi panjang. Bunyinya sebagai berikut :
=SUM((MID(C19,SMALL(IF( ISNUMBER( --MID(C19, ROW($2:$99) ,1))*ISERROR( --MID(C19, ROW($1:$98) ,1)),ROW( $2:$99),98) ,ROW($1:$ 98)),
SMALL(IF(ISNUMBER(--MID(C19, ROW($1:$98) ,1))*ISERROR( --MID(C19, ROW($2:$99) ,1)),ROW( $2:$99),99) ,ROW($1:$ 98))
-SMALL(IF(ISNUMBER(--MID(C19, ROW($2:$99) ,1))*ISERROR( --MID(C19, ROW($1:$98) ,1)),ROW( $2:$99),98) ,ROW($1:$ 98)))&"0" )/10)
Setidaknya tetap masih lebih pendek dibanding menggunakan daftar, tetapi
item array yang diproses jauh lebih banyak.
Array formula di atas, masih menggunakan asumsi, bahwa panjang teks input
maksimal 98 karakter.
Ketika diterapkan pada data yang memiliki panjang lebih dari 98 karakter,
maka harus diadakan penyesuaian nilai batas maksimal jumlah karakter yang
digunakan, yaitu mengganti seluruh angka 98 dengan jumlah karakter maksimal
si data. Untuk angka 99, harus diganti dengan jumlah karakter maksimal si
data + 1
Penggunaan Len *tidak bisa dengan serta merta diterapkan pada seluruh angka
yang diganti*.
Pada *angka yang terdapat dalam fungsi Row*, maka harus diadakan penggantian
seluruh input parameter dalam fungsi Row menjadi :
>> untuk angka 98 :: Indirect( "1:" & Len(mydata) )
>> untuk angka 99 :: Indirect( "2:" & Len(mydata) + 1 )
Pada angka yang diluar fungsi Row :
>> untuk angka 98 :: Len(mydata)
>> untuk angka 99 :: Len(mydata) + 1
Konsep antara array formula di atas dengan array formula yang lalu (yang
bunyinya) :
=SUM(--MID(SUBSTITUTE(SUBSTITUTE( C3,"(",REPT( " ",99)),")",REPT( "
",99)),(ROW($1:$3)*2- 1)*99+1,99) )
agak berbeda pada cara penentuan item yang berupa teks angka. Pada array
formula di atas adalah berdasar array item posisi batas-batasnya, sedangkan
pada array formula yang lalu adalah pada nomor index item arraynya.
Satu hal lagi tentang array formula yang lalu. Perhatikan penggunaan
Row(1:3)
Bagian ini adalah bagian yang menentukan jumlah item yang akan diambil, dan
selalu tetap 3 item.
Pada kondisi jumlah item angka dalam data input yang bervariasi, maka perlu
penyesuaian pada bagian (ROW($1:$3)*2-1)*99+1
menjadi :
ROW(INDIRECT("1:"&LEN( C3)-LEN(SUBSTITU TE(C3,"(" ,""))))*2* 99-98
sehingga array formula pada data yang memiliki delimiter jelas antara angka
dan bukan angka, yang item angkanya bervariasi, menjadi :
=SUM(--MID(SUBSTITUTE(SUBSTITUTE( C3,"(",REPT( " ",99)),")",REPT( "
",99)),ROW(INDIRECT("1:"&LEN( C3)-LEN(SUBSTITU TE(C3,"(" ,""))))*2* 99-98,99) )
Pada file terlampir, contoh penerapan array formula untuk item bervariasi
adalah pada baris ke-5.
Andai, memang UDF yang jadi pilihan, bisa juga UDF-nya berbunyi demikian :
Public Function TotalAngkaSaja(sData As String) As Double
Dim lChar As Long
Dim sTemp As String
'cek data ada isinya
If LenB(sData) <> 0 Then
'hilangkan karakter selain angka
'asumsi : angka bilangan bulat
'pada kasus angka tidak bulat, terapkan cek karakter pemisah desimal
di karakter sesudahnya sebelum replace,
'karakter desimal yang digunakan, sesuai regional setting yang aktif
digunakan komputer
For lChar = 1 To Len(sData)
sTemp = Mid$(sData, lChar, 1)
If InStr("0123456789", sTemp) = 0 Then
sData = Replace$(sData, sTemp, " ")
End If
Next lChar
'di-total-ken
'dengan asumsi, prosedur ini hanya digunakan dalam VBA Excel saja,
'yang memiliki fungsi built-in Excel bernama Trim,
'yang berbeda karakteristiknya dengan fungsi Trim pada VB/VBA
TotalAngkaSaja = Evaluate("=" &
Replace$(WorksheetFunction.Trim( sData), " ", "+"))
End If
End Function
Letakkan prosedur fungsi TotalAngkaSaja pada sebuah modul standar VBA.
Regard,
Kid.
2011/5/29 STDEV(i) <setiyowati.devi@gmail.com >
>
>
> sambil menamani Adek "nungguin" bola barcelona vs m.u., daripada ngantuk
> ...
> berikut ini sudah mulai OOT, jangan dibaca kalau ndak merasa perlu...
>
> Seandainya.., *se-an-dai-nya- * lho ya,
> nantinya pegawai pak Komis Delapan semakin segan mengentri data dengan *
> cara **"entri-data-yg-*
> *gampang-diolah-lebih-lanjut" *; misalnya antara text dan angka *tidak ada
> * *tanda pemisah* apapun seperti ini
>
> *Nama*
>
> *keterangan*
>
> *ingin hasil*
>
> IMRAN MUCHTAR
>
> *dinas10250000transport15250000jaba tan16350000*
>
> 41,850,000
>
> SYOFWATILLAH MOHZAIB,S.SOS.I
>
> *Jabatan16025000beras650000asuransi 18450000*
>
> 35,125,000
>
> DRS. H. AS�AD SYAM, MM
>
> *SI25000000*
>
> 25,000,000
>
> DRA. HJ. RATU SITI ROMLAH,M.AG
>
>
>
>
>
> INGRID MARIA PALUPI KANSIL, S.SOS
>
>
>
>
>
> dengan formula, walaupun ter-engah-engah, kita masih bisa meNGAMBIL
> ANGKA-ANGKA nya,
> (setap kelompok Angka diangap 1 bilangan), lalu dijumlah, rumus versi
> panjangnya mungkin seperti ini:
>
> =SUM(IF(ISNUMBER(SMALL(IF( IF(ISNUMBER( MATCH(--( MID("
> "&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),
> ROW($1:$10)-1,0)),ROW( INDIRECT( "1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(C3&"
> ",
>
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))) ,
> IF(ISNUMBER(MATCH(--( MID("
> "&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))- SMALL(IF(
> IF(ISNUMBER(MATCH(--( MID(C3&"
> ",ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(" "&C3,
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(C3&" ",
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1)))) ,
> --MID(C3,SMALL(IF(IF(ISNUMBER( MATCH(--( MID(C3&"
> ",ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),
> ROW($1:$10)-1,0)),ROW( INDIRECT( "1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(
> --(MID(" "&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(C3&" ",
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT( "1:"&LEN( C3)+1))), SMALL(IF(
> IF(ISNUMBER(MATCH(--( MID("
> "&C3,ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1))), IF(NOT(IF( ISNUMBER( MATCH(--( MID(C3&" ",
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ,IF(ISNUMBER( MATCH(--( MID(" "&C3,
> ROW(INDIRECT("1:"&LEN( C3)+1)),1) ),ROW($1: $10)-1,0) ),
> ROW(INDIRECT("1:"&LEN( C3)+1)))) ),ROW(INDIRECT(