11 Messages
Digest #2831
Messages
Fri Mar 14, 2014 8:05 am (PDT) . Posted by:
"Lazuardi Biru" lazuardi_biru84
maaf
ternyata kalau mau di pisah perkolom rumus diganti begini
=ISNUMBER(SEARCH(AU8,$D10&$E10&$F10&$G10&$H10&$I10&$J10&$K10))*$AS10
hehehe maaf keburu tanya...
salam lb
Pada Jumat, 14 Maret 2014 17:13, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:
oke mis jan.. tapi kalo nama yang di sebut saya pisah per kolom dan rumus saya ganti D8:K8 kok gak bisa ya ?
maaf kalo pertanyaanya gak konsisten
salam
lb
Pada Jumat, 14 Maret 2014 17:00, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:
Waduh, tapi lebih canggih punya Miss Jan euy,
Saya ga kepikiran penggunaan Isnumber malah pake Iferror...
Hehehe,.. Jadi nambah ilmu nie..
Salam Excell-ent
On 14/03/2014 16:57, Jan Raisin wrote:
>ternyata sudah dijawab duluan dengan cara yang mirip oleh pak Heri
>xixixix.. ^_^
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>
>
>2014-03-14 16:48 GMT+07:00 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>:
>
>
>>Semangat pagi,
>>
>>Mungkin If If an berikut bisa membantu...
>>
>>
>>Salam Excell-ent
>>On 14/03/2014 16:40, Lazuardi Biru wrote:
>>
>>
>>>dh
>>>salam be excelent
>>>asalamualaikum wr. wb
>>>
>>>
>>>
>>>begini master sy punya data terlampir.
>>>nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
>>>
>>>
>>>wes judeg coba, tidak berhasil
>>>
>>>
>>>
>>>file terlampir
>>>
>>>
>>>wasalam
>>>
>>>
>>>lb
>>
>
ternyata kalau mau di pisah perkolom rumus diganti begini
=ISNUMBER(SEARCH(AU8,$D10&$E10&$F10&$G10&$H10&$I10&$J10&$K10))*$AS10
hehehe maaf keburu tanya...
salam lb
Pada Jumat, 14 Maret 2014 17:13, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:
oke mis jan.. tapi kalo nama yang di sebut saya pisah per kolom dan rumus saya ganti D8:K8 kok gak bisa ya ?
maaf kalo pertanyaanya gak konsisten
salam
lb
Pada Jumat, 14 Maret 2014 17:00, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:
Waduh, tapi lebih canggih punya Miss Jan euy,
Saya ga kepikiran penggunaan Isnumber malah pake Iferror...
Hehehe,.. Jadi nambah ilmu nie..
Salam Excell-ent
On 14/03/2014 16:57, Jan Raisin wrote:
>ternyata sudah dijawab duluan dengan cara yang mirip oleh pak Heri
>xixixix.. ^_^
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>
>
>2014-03-14 16:48 GMT+07:00 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>:
>
>
>>Semangat pagi,
>>
>>Mungkin If If an berikut bisa membantu...
>>
>>
>>Salam Excell-ent
>>On 14/03/2014 16:40, Lazuardi Biru wrote:
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Fri Mar 14, 2014 8:06 am (PDT) . Posted by:
"Nora Ismanti" noraismanti
Mohon bantuan para master dan segenap anggota milis.
Kemarin saya mem-posting problem saya terkait dengan invoice sederhana yang saya miliki. Setelah problem diselesaikan atas petunjuk Master Kid, saya coba utak atik invoice tersebut dengan menambahkan kolom diskon (pada sheet invoice), kolom sisa pada sheet BARANG, dll. Akibatnya tombol SAVE yang fungsinya memasukkan (mengcopy) transaksi penjualan ke sheet PENJUALAN dan REKAP PENJUALAN jadi kacau.
Bersama email ini, saya lampirkan file INVOICE yang kacau tersebut.
Terima kasih atas bantuannya.
Kemarin saya mem-posting problem saya terkait dengan invoice sederhana yang saya miliki. Setelah problem diselesaikan atas petunjuk Master Kid, saya coba utak atik invoice tersebut dengan menambahkan kolom diskon (pada sheet invoice), kolom sisa pada sheet BARANG, dll. Akibatnya tombol SAVE yang fungsinya memasukkan (mengcopy) transaksi penjualan ke sheet PENJUALAN dan REKAP PENJUALAN jadi kacau.
Bersama email ini, saya lampirkan file INVOICE yang kacau tersebut.
Terima kasih atas bantuannya.
Fri Mar 14, 2014 3:33 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak ASL,
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Fri Mar 14, 2014 4:04 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Respati,
Sebelum exit, simpan nilai textbox ke sebuah *cell*.
Saat buka userform, isi textbox dengan nilai *cell *tadi dan hapus isi *cell
*tadi.
Wassalam,
Kid.
2014-03-14 15:22 GMT+07:00 Soengging respati naba <respati007@gmail.com>:
>
>
> Selamat Sore Para Master,
>
> Langsung pada Pertanyaan Simpel aja sech..
> Saya membuat UserForm untuk inputan...
> Bagaimana Coding nya bila setelah saya input dan Add
> TextBox yang saya kunci tetap ada isi nya setelah saya exit.
>
> bila saya masuk kembali textbox ada isi nya untuk yang saya kunci saja.
>
>
> Mohon Pencerahan Terima kasih.
>
>
>
Sebelum exit, simpan nilai textbox ke sebuah *cell*.
Saat buka userform, isi textbox dengan nilai *cell *tadi dan hapus isi *cell
*tadi.
Wassalam,
Kid.
2014-03-14 15:22 GMT+07:00 Soengging respati naba <respati007@gmail.com>:
>
>
> Selamat Sore Para Master,
>
> Langsung pada Pertanyaan Simpel aja sech..
> Saya membuat UserForm untuk inputan...
> Bagaimana Coding nya bila setelah saya input dan Add
> TextBox yang saya kunci tetap ada isi nya setelah saya exit.
>
> bila saya masuk kembali textbox ada isi nya untuk yang saya kunci saja.
>
>
> Mohon Pencerahan Terima kasih.
>
>
>
Fri Mar 14, 2014 5:32 pm (PDT) . Posted by:
"nangAgus" nangagoez
Mr Kid
Terima kasih atas penjelasannya, ada banyak hal baru yang dapat saya
pelajari dari rumus yang diberikan
setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
merupakan array 5 X5.
sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
On 14/03/2014 10:18, Mr. Kid wrote:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Agus,
>
> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
> (10-2*row(1:5))
> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu
> berupa array 1 baris x 5 kolom
> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
> >> row(1:5) adalah array 5 baris x 5 kolom
> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom
> seperti { 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5
> ; 6 } akan terjadi perkalian array (kartesian) sebagai berikut :
>
> 2 3 4 <- array A ( 1 x 3 )
> 5 10 15 20
> 6 12 18 24 <- array hasil ( 2 x 3 )
> ^
> |
> array B ( 2 x 1 )
>
> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
> diganti dengan formulasi yang juga menghasilkan array 1 baris x 5
> kolom seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ).
> Sepertinya malah jauh lebih panjang dibanding {8,6,4,2,0} dan
> membutuhkan komputasi lebih banyak (setidaknya harus mengkomputasi
> fungsi Column).
>
> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
> bilangan terbesar yang dapat ditangani excel?
> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit.
> Agar mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter
> berisi 5 digit soal berformat 00 (ada leading zero disetiap nomor soal).
> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai
> numerik atau komputasi numerik sebanyak 15 digit (coba lihat
> specifications and limits yang ada di Excel Help).
> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5
> nomor yang membentuk 10 digit dengan leading zero, bisa juga disusun
> secara bebas seperti :
> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero
> karena memang nomor tersebut cukup menempati 1 digit angka saja. Maka
> C1 akan berisi teks berbunyi 123456789
> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
> menggunakan 14 digit. D1 akan berbunyi 10111213141516
> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
> atas, yaitu per 7 nomor
> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
> maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah
> menghasilkan 15 digit (maksimal tepat komputasi Excel).
>
> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah
> nilai yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
>
> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
>
> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
> hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil
> komputasinya akan tidak tepat secara mutlak. Bagi yang tetap
> memanfaatkan ruang yang ada, maka berpotensi untuk mendapatkan metode
> berkreasi yang terus berkembang hingga tercapai yang dibutuhkannya
> secara tepat. (cuman katanya Kid loh ya... jadi kalo kliru jangan dipakai)
>
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id>>:
>
> Yth Mr. Kid
>
> Asalamualaikum warahmatullah.
> Terima kasih atas pencerahan rumus yang diberikan.
>
> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat
> saya ganti dengan 10 ^ (10-2*row(1:5))
> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
> 909090909 bagaimana cara penghitungan yang menggunakan row.
>
> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
> bilangan terbesar yang dapat ditangani excel?
> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel
> yang masih minim.
>
> Wasalamualaikum warahmatullah.
>
> Kenang Agus
>
>
>
> On 13/03/2014 17:35, Mr. Kid wrote:
>> Hai Agus,
>>
>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
>> maka untuk data di baris 25 bisa diperoleh dengan *array formula
>> *: (misal formula diletakkan di AC25)
>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>
>> wakakaka.... panjang kaya kereta... wis ben...
>>
>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general
>> module diberi blok prosedur bernama JoinText seperti ini :
>> Public Function JoinText(vData As Variant, Optional sDelimiter As
>> String = ",") As String
>> Dim vTmp As Variant
>> vTmp = vData
>> JoinText = Join(vTmp, sDelimiter)
>> End Function
>>
>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh
>> data di baris 25) :
>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>> "))," ","; ")
>>
>> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>> <mailto:nangagoez@yahoo.co.id>>:
>>
>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu
>> tercurah
>> untuk anda sekalian.
>>
>> Mohon bantuannya:
>> Saya akan membuat rumus untuk menentukan nomor-nomor yang
>> salah dari
>> seorang yang mengikuti tes.
>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>> rumusnya menjadi:
>> {=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);" 0;";"")}
>> rumus ini
>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>
>> Adakah rumus yang lebih pendek?
>> saya mencoba menggunakan index tidak berhasil.
>> (=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
>>
>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>
>> Terima kasih
>>
>> wasalamualaikum warahmatullah
>>
>>
>
>
>
Terima kasih atas penjelasannya, ada banyak hal baru yang dapat saya
pelajari dari rumus yang diberikan
setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
merupakan array 5 X5.
sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
On 14/03/2014 10:18, Mr. Kid wrote:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Agus,
>
> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
> (10-2*row(1:5))
> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu
> berupa array 1 baris x 5 kolom
> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
> >> row(1:5) adalah array 5 baris x 5 kolom
> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom
> seperti { 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5
> ; 6 } akan terjadi perkalian array (kartesian) sebagai berikut :
>
> 2 3 4 <- array A ( 1 x 3 )
> 5 10 15 20
> 6 12 18 24 <- array hasil ( 2 x 3 )
> ^
> |
> array B ( 2 x 1 )
>
> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
> diganti dengan formulasi yang juga menghasilkan array 1 baris x 5
> kolom seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ).
> Sepertinya malah jauh lebih panjang dibanding {8,6,4,2,0} dan
> membutuhkan komputasi lebih banyak (setidaknya harus mengkomputasi
> fungsi Column).
>
> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
> bilangan terbesar yang dapat ditangani excel?
> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit.
> Agar mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter
> berisi 5 digit soal berformat 00 (ada leading zero disetiap nomor soal).
> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai
> numerik atau komputasi numerik sebanyak 15 digit (coba lihat
> specifications and limits yang ada di Excel Help).
> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5
> nomor yang membentuk 10 digit dengan leading zero, bisa juga disusun
> secara bebas seperti :
> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero
> karena memang nomor tersebut cukup menempati 1 digit angka saja. Maka
> C1 akan berisi teks berbunyi 123456789
> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
> menggunakan 14 digit. D1 akan berbunyi 10111213141516
> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
> atas, yaitu per 7 nomor
> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
> maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah
> menghasilkan 15 digit (maksimal tepat komputasi Excel).
>
> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah
> nilai yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
>
> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
>
> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
> hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil
> komputasinya akan tidak tepat secara mutlak. Bagi yang tetap
> memanfaatkan ruang yang ada, maka berpotensi untuk mendapatkan metode
> berkreasi yang terus berkembang hingga tercapai yang dibutuhkannya
> secara tepat. (cuman katanya Kid loh ya... jadi kalo kliru jangan dipakai)
>
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id>>:
>
> Yth Mr. Kid
>
> Asalamualaikum warahmatullah.
> Terima kasih atas pencerahan rumus yang diberikan.
>
> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat
> saya ganti dengan 10 ^ (10-2*row(1:5))
> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
> 909090909 bagaimana cara penghitungan yang menggunakan row.
>
> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
> bilangan terbesar yang dapat ditangani excel?
> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel
> yang masih minim.
>
> Wasalamualaikum warahmatullah.
>
> Kenang Agus
>
>
>
> On 13/03/2014 17:35, Mr. Kid wrote:
>> Hai Agus,
>>
>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
>> maka untuk data di baris 25 bisa diperoleh dengan *array formula
>> *: (misal formula diletakkan di AC25)
>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>
>> wakakaka.... panjang kaya kereta... wis ben...
>>
>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general
>> module diberi blok prosedur bernama JoinText seperti ini :
>> Public Function JoinText(vData As Variant, Optional sDelimiter As
>> String = ",") As String
>> Dim vTmp As Variant
>> vTmp = vData
>> JoinText = Join(vTmp, sDelimiter)
>> End Function
>>
>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh
>> data di baris 25) :
>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>> "))," ","; ")
>>
>> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>> <mailto:nangagoez@yahoo.co.id>>:
>>
>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu
>> tercurah
>> untuk anda sekalian.
>>
>> Mohon bantuannya:
>> Saya akan membuat rumus untuk menentukan nomor-nomor yang
>> salah dari
>> seorang yang mengikuti tes.
>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>> rumusnya menjadi:
>> {=SUBSTITUTE(
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> rumus ini
>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>
>> Adakah rumus yang lebih pendek?
>> saya mencoba menggunakan index tidak berhasil.
>> (=INDEX(C3:AA3;
>>
>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>
>> Terima kasih
>>
>> wasalamualaikum warahmatullah
>>
>>
>
>
>
Fri Mar 14, 2014 6:04 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hehehe...
Row(1:5) adalah array 5 baris x 1 kolom
Column(a:e) adalah array 1 baris x 5 kolom
Row(1:3) * Column( a:d ) menghasilkan array 3 baris x 4 kolom
:)
Wassalam,
Kid.
On Mar 15, 2014 7:32 AM, "nangAgus" <nangagoez@yahoo.co.id> wrote:
>
>
> Mr Kid
> Terima kasih atas penjelasannya, ada banyak hal baru yang dapat saya
> pelajari dari rumus yang diberikan
> setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
> merupakan array 5 X5.
> sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
>
> On 14/03/2014 10:18, Mr. Kid wrote:
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Agus,
>
> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
> (10-2*row(1:5))
> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu berupa
> array 1 baris x 5 kolom
> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
> >> row(1:5) adalah array 5 baris x 5 kolom
> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom seperti {
> 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5 ; 6 } akan
> terjadi perkalian array (kartesian) sebagai berikut :
>
> 2 3 4 <- array A ( 1 x 3 )
> 5 10 15 20
> 6 12 18 24 <- array hasil ( 2 x 3 )
> ^
> |
> array B ( 2 x 1 )
>
> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
> diganti dengan formulasi yang juga menghasilkan array 1 baris x 5 kolom
> seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ). Sepertinya
> malah jauh lebih panjang dibanding {8,6,4,2,0} dan membutuhkan komputasi
> lebih banyak (setidaknya harus mengkomputasi fungsi Column).
>
> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
> yang dapat ditangani excel?
> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit. Agar
> mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter berisi 5
> digit soal berformat 00 (ada leading zero disetiap nomor soal).
> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai
> numerik atau komputasi numerik sebanyak 15 digit (coba lihat specifications
> and limits yang ada di Excel Help).
> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5
> nomor yang membentuk 10 digit dengan leading zero, bisa juga disusun secara
> bebas seperti :
> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero karena
> memang nomor tersebut cukup menempati 1 digit angka saja. Maka C1 akan
> berisi teks berbunyi 123456789
> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
> menggunakan 14 digit. D1 akan berbunyi 10111213141516
> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
> atas, yaitu per 7 nomor
> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
> maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah menghasilkan
> 15 digit (maksimal tepat komputasi Excel).
>
> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah
> nilai yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
>
> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
>
> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
> hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil komputasinya
> akan tidak tepat secara mutlak. Bagi yang tetap memanfaatkan ruang yang
> ada, maka berpotensi untuk mendapatkan metode berkreasi yang terus
> berkembang hingga tercapai yang dibutuhkannya secara tepat. (cuman katanya
> Kid loh ya... jadi kalo kliru jangan dipakai)
>
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>>
>>
>> Yth Mr. Kid
>>
>> Asalamualaikum warahmatullah.
>> Terima kasih atas pencerahan rumus yang diberikan.
>>
>> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat saya
>> ganti dengan 10 ^ (10-2*row(1:5))
>> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
>> 909090909 bagaimana cara penghitungan yang menggunakan row.
>>
>> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
>> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
>> yang dapat ditangani excel?
>> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel yang
>> masih minim.
>>
>> Wasalamualaikum warahmatullah.
>>
>> Kenang Agus
>>
>>
>>
>> On 13/03/2014 17:35, Mr. Kid wrote:
>>
>>
>> Hai Agus,
>>
>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
>> maka untuk data di baris 25 bisa diperoleh dengan *array formula *:
>> (misal formula diletakkan di AC25)
>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>
>> wakakaka.... panjang kaya kereta... wis ben...
>>
>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general module
>> diberi blok prosedur bernama JoinText seperti ini :
>> Public Function JoinText(vData As Variant, Optional sDelimiter As String
>> = ",") As String
>> Dim vTmp As Variant
>> vTmp = vData
>> JoinText = Join(vTmp, sDelimiter)
>> End Function
>>
>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh data
>> di baris 25) :
>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>> "))," ","; ")
>>
>> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>>
>>>
>>>
>>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
>>> untuk anda sekalian.
>>>
>>> Mohon bantuannya:
>>> Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
>>> seorang yang mengikuti tes.
>>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>>> rumusnya menjadi:
>>> {=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);" 0;";"")} rumus ini
>>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>>
>>> Adakah rumus yang lebih pendek?
>>> saya mencoba menggunakan index tidak berhasil.
>>> (=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
>>>
>>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>>
>>> Terima kasih
>>>
>>> wasalamualaikum warahmatullah
>>>
>>>
>>
>>
>
>
>
Row(1:5) adalah array 5 baris x 1 kolom
Column(a:e) adalah array 1 baris x 5 kolom
Row(1:3) * Column( a:d ) menghasilkan array 3 baris x 4 kolom
:)
Wassalam,
Kid.
On Mar 15, 2014 7:32 AM, "nangAgus" <nangagoez@yahoo.co.id> wrote:
>
>
> Mr Kid
> Terima kasih atas penjelasannya, ada banyak hal baru yang dapat saya
> pelajari dari rumus yang diberikan
> setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
> merupakan array 5 X5.
> sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
>
> On 14/03/2014 10:18, Mr. Kid wrote:
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Agus,
>
> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
> (10-2*row(1:5))
> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu berupa
> array 1 baris x 5 kolom
> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
> >> row(1:5) adalah array 5 baris x 5 kolom
> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom seperti {
> 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5 ; 6 } akan
> terjadi perkalian array (kartesian) sebagai berikut :
>
> 2 3 4 <- array A ( 1 x 3 )
> 5 10 15 20
> 6 12 18 24 <- array hasil ( 2 x 3 )
> ^
> |
> array B ( 2 x 1 )
>
> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
> diganti dengan formulasi yang juga menghasilkan array 1 baris x 5 kolom
> seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ). Sepertinya
> malah jauh lebih panjang dibanding {8,6,4,2,0} dan membutuhkan komputasi
> lebih banyak (setidaknya harus mengkomputasi fungsi Column).
>
> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
> yang dapat ditangani excel?
> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit. Agar
> mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter berisi 5
> digit soal berformat 00 (ada leading zero disetiap nomor soal).
> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai
> numerik atau komputasi numerik sebanyak 15 digit (coba lihat specifications
> and limits yang ada di Excel Help).
> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5
> nomor yang membentuk 10 digit dengan leading zero, bisa juga disusun secara
> bebas seperti :
> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero karena
> memang nomor tersebut cukup menempati 1 digit angka saja. Maka C1 akan
> berisi teks berbunyi 123456789
> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
> menggunakan 14 digit. D1 akan berbunyi 10111213141516
> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
> atas, yaitu per 7 nomor
> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
> maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah menghasilkan
> 15 digit (maksimal tepat komputasi Excel).
>
> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah
> nilai yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
>
> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
>
> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
> hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil komputasinya
> akan tidak tepat secara mutlak. Bagi yang tetap memanfaatkan ruang yang
> ada, maka berpotensi untuk mendapatkan metode berkreasi yang terus
> berkembang hingga tercapai yang dibutuhkannya secara tepat. (cuman katanya
> Kid loh ya... jadi kalo kliru jangan dipakai)
>
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>>
>>
>> Yth Mr. Kid
>>
>> Asalamualaikum warahmatullah.
>> Terima kasih atas pencerahan rumus yang diberikan.
>>
>> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat saya
>> ganti dengan 10 ^ (10-2*row(1:5))
>> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
>> 909090909 bagaimana cara penghitungan yang menggunakan row.
>>
>> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
>> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
>> yang dapat ditangani excel?
>> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel yang
>> masih minim.
>>
>> Wasalamualaikum warahmatullah.
>>
>> Kenang Agus
>>
>>
>>
>> On 13/03/2014 17:35, Mr. Kid wrote:
>>
>>
>> Hai Agus,
>>
>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
>> maka untuk data di baris 25 bisa diperoleh dengan *array formula *:
>> (misal formula diletakkan di AC25)
>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>
>> wakakaka.... panjang kaya kereta... wis ben...
>>
>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general module
>> diberi blok prosedur bernama JoinText seperti ini :
>> Public Function JoinText(vData As Variant, Optional sDelimiter As String
>> = ",") As String
>> Dim vTmp As Variant
>> vTmp = vData
>> JoinText = Join(vTmp, sDelimiter)
>> End Function
>>
>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh data
>> di baris 25) :
>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>> "))," ","; ")
>>
>> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>>
>>>
>>>
>>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
>>> untuk anda sekalian.
>>>
>>> Mohon bantuannya:
>>> Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
>>> seorang yang mengikuti tes.
>>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>>> rumusnya menjadi:
>>> {=SUBSTITUTE(
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>>
>>> Adakah rumus yang lebih pendek?
>>> saya mencoba menggunakan index tidak berhasil.
>>> (=INDEX(C3:AA3;
>>>
>>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>>
>>> Terima kasih
>>>
>>> wasalamualaikum warahmatullah
>>>
>>>
>>
>>
>
>
>
Fri Mar 14, 2014 8:42 pm (PDT) . Posted by:
"nangAgus" nangagoez
Terima kasih Mr. Kid
berarti 10^{8,6,4,2,0}, dapat saya ganti dengan 10 ^ (10-2*column(A:E))
sudah saya coba dan berhasil.
Terima kasih
On 15/03/2014 8:04, Mr. Kid wrote:
>
> Hehehe...
> Row(1:5) adalah array 5 baris x 1 kolom
> Column(a:e) adalah array 1 baris x 5 kolom
> Row(1:3) * Column( a:d ) menghasilkan array 3 baris x 4 kolom
>
> :)
>
> Wassalam,
> Kid.
>
> On Mar 15, 2014 7:32 AM, "nangAgus" <nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id>> wrote:
>
> Mr Kid
> Terima kasih atas penjelasannya, ada banyak hal baru yang dapat
> saya pelajari dari rumus yang diberikan
> setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
> merupakan array 5 X5.
> sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
>
> On 14/03/2014 10:18, Mr. Kid wrote:
>> Wa'alaikumussalam Wr. Wb.
>>
>> Hai Agus,
>>
>> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
>> (10-2*row(1:5))
>> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu
>> berupa array 1 baris x 5 kolom
>> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
>> >> row(1:5) adalah array 5 baris x 5 kolom
>> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom
>> seperti { 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom
>> seperti { 5 ; 6 } akan terjadi perkalian array (kartesian)
>> sebagai berikut :
>>
>> 2 3 4 <- array A ( 1 x 3 )
>> 5 10 15 20
>> 6 12 18 24 <- array hasil ( 2 x 3 )
>> ^
>> |
>> array B ( 2 x 1 )
>>
>> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka
>> bisa diganti dengan formulasi yang juga menghasilkan array 1
>> baris x 5 kolom seperti berbunyi Column($a:$e) atau Transpose(
>> Row( $1:$5 ) ). Sepertinya malah jauh lebih panjang dibanding
>> {8,6,4,2,0} dan membutuhkan komputasi lebih banyak (setidaknya
>> harus mengkomputasi fungsi Column).
>>
>> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
>> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
>> bilangan terbesar yang dapat ditangani excel?
>> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah
>> digit. Agar mudah, dibuatlah per 5 nomor soal yang akan menyusun
>> 10 karakter berisi 5 digit soal berformat 00 (ada leading zero
>> disetiap nomor soal).
>> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah
>> nilai numerik atau komputasi numerik sebanyak 15 digit (coba
>> lihat specifications and limits yang ada di Excel Help).
>> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per
>> 5 nomor yang membentuk 10 digit dengan leading zero, bisa juga
>> disusun secara bebas seperti :
>> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero
>> karena memang nomor tersebut cukup menempati 1 digit angka saja.
>> Maka C1 akan berisi teks berbunyi 123456789
>> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
>> menggunakan 14 digit. D1 akan berbunyi 10111213141516
>> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk
>> b di atas, yaitu per 7 nomor
>> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan
>> cukup maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor
>> sudah menghasilkan 15 digit (maksimal tepat komputasi Excel).
>>
>> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau
>> tidakkah nilai yang diberikan Excel ketika mengkomputasi nilai
>> lebih dari 15 digit.
>>
>> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
>> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang
>> terbatasi ?
>>
>> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang
>> dibatasi hukum Tuhan. Siapa yang melanggar batas yang ada, maka
>> hasil komputasinya akan tidak tepat secara mutlak. Bagi yang
>> tetap memanfaatkan ruang yang ada, maka berpotensi untuk
>> mendapatkan metode berkreasi yang terus berkembang hingga
>> tercapai yang dibutuhkannya secara tepat. (cuman katanya Kid loh
>> ya... jadi kalo kliru jangan dipakai)
>>
>> ;)
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>>
>> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>> <mailto:nangagoez@yahoo.co.id>>:
>>
>> Yth Mr. Kid
>>
>> Asalamualaikum warahmatullah.
>> Terima kasih atas pencerahan rumus yang diberikan.
>>
>> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak
>> dapat saya ganti dengan 10 ^ (10-2*row(1:5))
>> rumus aslinya menghasilkan 100030005 jika menggunakan row
>> hasilnya 909090909 bagaimana cara penghitungan yang
>> menggunakan row.
>>
>> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
>> menjadi satu? apakah excel masih dapat menghitung 10^50?
>> berapa bilangan terbesar yang dapat ditangani excel?
>> Terima kasih, mohon maaaf karena pengetahuan saya tentang
>> excel yang masih minim.
>>
>> Wasalamualaikum warahmatullah.
>>
>> Kenang Agus
>>
>>
>>
>> On 13/03/2014 17:35, Mr. Kid wrote:
>>> Hai Agus,
>>>
>>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910,
>>> 1112 dst
>>> maka untuk data di baris 25 bisa diperoleh dengan *array
>>> formula *: (misal formula diletakkan di AC25)
>>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>>
>>> wakakaka.... panjang kaya kereta... wis ben...
>>>
>>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah
>>> general module diberi blok prosedur bernama JoinText seperti
>>> ini :
>>> Public Function JoinText(vData As Variant, Optional
>>> sDelimiter As String = ",") As String
>>> Dim vTmp As Variant
>>> vTmp = vData
>>> JoinText = Join(vTmp, sDelimiter)
>>> End Function
>>>
>>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk
>>> oleh data di baris 25) :
>>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>>> "))," ","; ")
>>>
>>> Jadi, UDF nya cuma alat bantu untuk concatenate array
>>> sebaris sajah.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>>> <mailto:nangagoez@yahoo.co.id>>:
>>>
>>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan
>>> selalu tercurah
>>> untuk anda sekalian.
>>>
>>> Mohon bantuannya:
>>> Saya akan membuat rumus untuk menentukan nomor-nomor
>>> yang salah dari
>>> seorang yang mengikuti tes.
>>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>>> Sementara ini saya menggunakan comcatenate dengan jumlah
>>> 50 buah
>>> (sementara untuk file yang saya kirimkan hanya 25 buah)
>>> sehingga
>>> rumusnya menjadi:
>>> {=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
>>> "&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);"
>>> 0;";"")} rumus ini
>>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang
>>> lagi.
>>>
>>> Adakah rumus yang lebih pendek?
>>> saya mencoba menggunakan index tidak berhasil.
>>> (=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
>>>
>>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>>
>>> Terima kasih
>>>
>>> wasalamualaikum warahmatullah
>>>
>>>
>>
>>
>
>
berarti 10^{8,6,4,2,0}, dapat saya ganti dengan 10 ^ (10-2*column(A:E))
sudah saya coba dan berhasil.
Terima kasih
On 15/03/2014 8:04, Mr. Kid wrote:
>
> Hehehe...
> Row(1:5) adalah array 5 baris x 1 kolom
> Column(a:e) adalah array 1 baris x 5 kolom
> Row(1:3) * Column( a:d ) menghasilkan array 3 baris x 4 kolom
>
> :)
>
> Wassalam,
> Kid.
>
> On Mar 15, 2014 7:32 AM, "nangAgus" <nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id>> wrote:
>
> Mr Kid
> Terima kasih atas penjelasannya, ada banyak hal baru yang dapat
> saya pelajari dari rumus yang diberikan
> setahu saya row(1:5) atau column (A:E) adalah array 1 X 5 ternyata
> merupakan array 5 X5.
> sekali lagi terima kasih, semoga Mr Kid selalu diberi kesehatan. amin
>
> On 14/03/2014 10:18, Mr. Kid wrote:
>> Wa'alaikumussalam Wr. Wb.
>>
>> Hai Agus,
>>
>> 1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^
>> (10-2*row(1:5))
>> >> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu
>> berupa array 1 baris x 5 kolom
>> >> {8,6,4,2,0} adalah array 1 baris x 5 kolom
>> >> row(1:5) adalah array 5 baris x 5 kolom
>> >> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom
>> seperti { 2 , 3 , 4 } dan array B berupa 2 baris x 1 kolom
>> seperti { 5 ; 6 } akan terjadi perkalian array (kartesian)
>> sebagai berikut :
>>
>> 2 3 4 <- array A ( 1 x 3 )
>> 5 10 15 20
>> 6 12 18 24 <- array hasil ( 2 x 3 )
>> ^
>> |
>> array B ( 2 x 1 )
>>
>> >> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka
>> bisa diganti dengan formulasi yang juga menghasilkan array 1
>> baris x 5 kolom seperti berbunyi Column($a:$e) atau Transpose(
>> Row( $1:$5 ) ). Sepertinya malah jauh lebih panjang dibanding
>> {8,6,4,2,0} dan membutuhkan komputasi lebih banyak (setidaknya
>> harus mengkomputasi fungsi Column).
>>
>> 2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
>> menjadi satu? apakah excel masih dapat menghitung 10^50? berapa
>> bilangan terbesar yang dapat ditangani excel?
>> >> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah
>> digit. Agar mudah, dibuatlah per 5 nomor soal yang akan menyusun
>> 10 karakter berisi 5 digit soal berformat 00 (ada leading zero
>> disetiap nomor soal).
>> >> Excel membatasi jumlah digit agar tetap tepat pada sebuah
>> nilai numerik atau komputasi numerik sebanyak 15 digit (coba
>> lihat specifications and limits yang ada di Excel Help).
>> >> Dengan batasan Excel 15 digit tersebut, maka selain dengan per
>> 5 nomor yang membentuk 10 digit dengan leading zero, bisa juga
>> disusun secara bebas seperti :
>> a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero
>> karena memang nomor tersebut cukup menempati 1 digit angka saja.
>> Maka C1 akan berisi teks berbunyi 123456789
>> b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan
>> menggunakan 14 digit. D1 akan berbunyi 10111213141516
>> c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk
>> b di atas, yaitu per 7 nomor
>> d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan
>> cukup maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor
>> sudah menghasilkan 15 digit (maksimal tepat komputasi Excel).
>>
>> Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau
>> tidakkah nilai yang diberikan Excel ketika mengkomputasi nilai
>> lebih dari 15 digit.
>>
>> So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
>> Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang
>> terbatasi ?
>>
>> Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang
>> dibatasi hukum Tuhan. Siapa yang melanggar batas yang ada, maka
>> hasil komputasinya akan tidak tepat secara mutlak. Bagi yang
>> tetap memanfaatkan ruang yang ada, maka berpotensi untuk
>> mendapatkan metode berkreasi yang terus berkembang hingga
>> tercapai yang dibutuhkannya secara tepat. (cuman katanya Kid loh
>> ya... jadi kalo kliru jangan dipakai)
>>
>> ;)
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>>
>> 2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>> <mailto:nangagoez@yahoo.co.id>>:
>>
>> Yth Mr. Kid
>>
>> Asalamualaikum warahmatullah.
>> Terima kasih atas pencerahan rumus yang diberikan.
>>
>> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak
>> dapat saya ganti dengan 10 ^ (10-2*row(1:5))
>> rumus aslinya menghasilkan 100030005 jika menggunakan row
>> hasilnya 909090909 bagaimana cara penghitungan yang
>> menggunakan row.
>>
>> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung
>> menjadi satu? apakah excel masih dapat menghitung 10^50?
>> berapa bilangan terbesar yang dapat ditangani excel?
>> Terima kasih, mohon maaaf karena pengetahuan saya tentang
>> excel yang masih minim.
>>
>> Wasalamualaikum warahmatullah.
>>
>> Kenang Agus
>>
>>
>>
>> On 13/03/2014 17:35, Mr. Kid wrote:
>>> Hai Agus,
>>>
>>> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
>>> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910,
>>> 1112 dst
>>> maka untuk data di baris 25 bisa diperoleh dengan *array
>>> formula *: (misal formula diletakkan di AC25)
>>> =SUBSTITUTE(TRIM(SUBSTITUTE("
>>> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
>>> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
>>> ",5)),"00 "," ")," 0"," "))," ","; ")
>>>
>>> wakakaka.... panjang kaya kereta... wis ben...
>>>
>>> Atau dengan UDF bernama JoinText yang di VBE pada sebuah
>>> general module diberi blok prosedur bernama JoinText seperti
>>> ini :
>>> Public Function JoinText(vData As Variant, Optional
>>> sDelimiter As String = ",") As String
>>> Dim vTmp As Variant
>>> vTmp = vData
>>> JoinText = Join(vTmp, sDelimiter)
>>> End Function
>>>
>>> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk
>>> oleh data di baris 25) :
>>> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
>>> "))," ","; ")
>>>
>>> Jadi, UDF nya cuma alat bantu untuk concatenate array
>>> sebaris sajah.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
>>> <mailto:nangagoez@yahoo.co.id>>:
>>>
>>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan
>>> selalu tercurah
>>> untuk anda sekalian.
>>>
>>> Mohon bantuannya:
>>> Saya akan membuat rumus untuk menentukan nomor-nomor
>>> yang salah dari
>>> seorang yang mengikuti tes.
>>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>>> Sementara ini saya menggunakan comcatenate dengan jumlah
>>> 50 buah
>>> (sementara untuk file yang saya kirimkan hanya 25 buah)
>>> sehingga
>>> rumusnya menjadi:
>>> {=SUBSTITUTE(
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> "&SUM((
>>> 0;";"
>>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang
>>> lagi.
>>>
>>> Adakah rumus yang lebih pendek?
>>> saya mencoba menggunakan index tidak berhasil.
>>> (=INDEX(C3:AA3;
>>>
>>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>>
>>> Terima kasih
>>>
>>> wasalamualaikum warahmatullah
>>>
>>>
>>
>>
>
>
Fri Mar 14, 2014 10:27 pm (PDT) . Posted by:
"nangAgus" nangagoez
Hello shenly
File ini juga saya ambil dari milis ini juga.
silahkan klik admin, isikan passwordnya "rahasia" (tanpa tanda petik).
login disini hanya membuka protect sheet tersebut. sehingga tidak
benar-benar diperlukan, karena dapat dilakukan dengan format protect sheet.
Mohon maaf karena kekurang tahuan saya.
On 13/03/2014 13:27, Shenly wrote:
> halo teman-teman
> disni ada yang punya contoh form login account+passwrod ??? sama code
> vba nya juga
>
> Salam
> Shenly ^^*
>
File ini juga saya ambil dari milis ini juga.
silahkan klik admin, isikan passwordnya "rahasia" (tanpa tanda petik).
login disini hanya membuka protect sheet tersebut. sehingga tidak
benar-benar diperlukan, karena dapat dilakukan dengan format protect sheet.
Mohon maaf karena kekurang tahuan saya.
On 13/03/2014 13:27, Shenly wrote:
> halo teman-teman
> disni ada yang punya contoh form login account+passwrod ??? sama code
> vba nya juga
>
> Salam
> Shenly ^^*
>
Fri Mar 14, 2014 11:08 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba juga file buatan mbak Siti ini.
Salam,
HK
On Saturday, 15 March 2014, 12:27, nangAgus <nangagoez@yahoo.co.id> wrote:
Hello shenly
File ini juga saya ambil dari milis ini juga.
silahkan klik admin, isikan passwordnya "rahasia" (tanpa tanda petik).
login disini hanya membuka protect sheet tersebut. sehingga tidak
benar-benar diperlukan, karena dapat dilakukan dengan format
protect sheet.
Mohon maaf karena kekurang tahuan saya.
On 13/03/2014 13:27, Shenly wrote:
>halo teman-teman
>disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
>
>
>Salam
>Shenly ^^*
Salam,
HK
On Saturday, 15 March 2014, 12:27, nangAgus <nangagoez@yahoo.co.id> wrote:
Hello shenly
File ini juga saya ambil dari milis ini juga.
silahkan klik admin, isikan passwordnya "rahasia" (tanpa tanda petik).
login disini hanya membuka protect sheet tersebut. sehingga tidak
benar-benar diperlukan, karena dapat dilakukan dengan format
protect sheet.
Mohon maaf karena kekurang tahuan saya.
On 13/03/2014 13:27, Shenly wrote:
>halo teman-teman
>disni ada yang punya contoh form login account+passwrod ??? sama code vba nya juga
>
>
>Salam
>Shenly ^^*
Sat Mar 15, 2014 12:07 am (PDT) . Posted by:
"dhen.baguse" bagusejogja
Salam exceler di milisi belajar excel, saya terkendala merubah tambilan tabel, mohon bantuan temen temen ... terimakasih
Sat Mar 15, 2014 1:30 am (PDT) . Posted by:
"Bagus" bagus4bls
Hai dhen;
Coba file terlampir
Wassalam
~ Bagus ~
----- Original Message -----
From: dhen.baguse
To: belajar-excel@yahoogroups.com
Sent: Saturday, March 15, 2014 2:07 PM
Subject: [belajar-excel] Transpose tabel [1 Attachment]
Salam exceler di milisi belajar excel, saya terkendala merubah tambilan tabel, mohon bantuan temen temen ... terimakasih
Coba file terlampir
Wassalam
~ Bagus ~
----- Original Message -----
From: dhen.baguse
To: belajar-excel@yahoogroups.com
Sent: Saturday, March 15, 2014 2:07 PM
Subject: [belajar-excel] Transpose tabel [1 Attachment]
Salam exceler di milisi belajar excel, saya terkendala merubah tambilan tabel, mohon bantuan temen temen ... terimakasih
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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