Minggu, 29 Januari 2012

]] XL-mania [[ Digest Number 2329

Messages In This Digest (4 Messages)

Messages

1a.

Re: For-Next

Posted by: "o' Seno" ontoseno84@gmail.com   o_s_e_n_o

Sat Jan 28, 2012 9:36 am (PST)



"Ufortunately"... Jika kita berfikir lebih kedepan lagi... object
CheckBox tidak
harus diberi nama sebagai "CheckBox1", "CheckBox2", "CheckBox3" dst.
Banyak sekali VBA Project menggunaan checkbox yg diberinama sesuai tugasnya
(demi kemudhan penulisan codenya) dan tidak ada pola nomor yg bisa di LOOP

dan....
statement *seperti yg disarankan Hachi *itupun
Checkbox & i &.value = false
tidak dikenal oleh VBA

Demikian juga setelah diganti-ganti antara lain menjadi sbb
"Checkbox" & i &".value" = false
karena ruas kiri itu tidak bakalan menghasilkan OBJECT

(sudahkah Mr. Hatchi men-test di lembar modul sebelum di siarkan di sini ?
(saya sudah mencobanya dan sudah mencoba mengganti-ganti dengan tujuan
merujuk Object *CheckBox yg ber-Index i*, dan karena goblog-ku = tidak
berhasil

Akhirnya kembali ke project lawas.... (walaupun tetap mengandalkan bahwa
nama control Check masih berupa nama generik Checkbox1, 2,3 dst...

'--- Procedure dalam Userform Module ---
' Note index object control dimuli dengan 0 (nol) bukan 1 !

Dim i As Integer
On Error Resume Next
For i = 0 To Controls.Count
If LCase(Controls(i).Name) Like "checkbox*" Then
Controls(i).Value = False
End If
Next i

"KALAU MENURUT SAYA"
diberi nama apapun suatu object CheckBox *tetap punya sesuatu yg pasti*
*yaitu TypeName nya*, seperti yg telah diimplementasikan oleh indri Hapsari
dlm thread ini.

If TypeName(oCtrx) = "CheckBox" Then
Oleh karen itu saya lebih prefer memilih / meniru trick yg iHaps pakai tsb.

*o'Seno*

2012/1/26 Hachi Rizki <hachiuz_ld27@yahoo.co.id>

> **
> Kalau menurut saya error karena format untuk textBox tidak pakai tanda
> kurung,
> Coba ditulisnya
> Checkbox & i &.value=false
>
> ------------------------------
> *Dari: "taufikef@ipb.ac.id" <taufikef@ipb.ac.id>
> Dikirim: Jumat, 20 Januari 2012 10:47** *
> *Dear XL-mania,
> Sy punya 10 control checkbox yang akan sy definisikan ke dalam perintah
> For-Next. Jelasnya seperti berikut :
>
> Checkbox1.Value=False
> Checkbox2.Value=False
> Checkbox3.Value=False
> Checkbox4.Value=False
> Checkbox5.Value=False...dst sampai Checkbox10
> perintah diatas sy sederhanakan ke dalam perintah For-Next, yaitu :
> Dim Checkbox(10) As Boolean
> For i=1 to 10
> Checkbox(i).Value=False
> Next i
> Masalahnya adalah : Saat perintah di atas dieksekusi (run), terjadi
> kesalahan (error) pada baris ke 3 (Checkbox(i).Value).
> Mohon saran dan solusinya. Trims
> *
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2a.

Re: Mengganti file import dari program akuntansi Zahir menjadi forma

Posted by: "o' Seno" ontoseno84@gmail.com   o_s_e_n_o

Sat Jan 28, 2012 9:37 am (PST)



O iyya ya,.. tidak perlu memisah bagian BULAT dan bagian PECAHAN ya..!
karena data pasti mengandung "text pecahan" dua digit

Saya ingin menambahkan rumus cerdas Bung Tomz_Zlow agar tidak perlu
mengingat apakan separator Ribuan &/ Pecahan =KOMA atau TITIK

=SUBSTITUTE(SUBSTITUTE(A1, ".", ""), ",", "") / 100
atau
=SUBSTITUTE(SUBSTITUTE(A1; "."; ""); ","; "") / 100

( KOMA dan TITIK dihilangkan/ hasilnya dibagi seratus! )
Double-Negasi (--) kayaknya tidak perlu lagi, karena* pengoperasian /
100*sudah sambil mengkonversi
Text-Angka menjadi Bilangan. CMIIW

terima kasih ideanya bung TOMZ..!

*o'Seno*

2012/1/27 Tommy <tomz.zlow@gmail.com>

> **
> mungkin formula ini bisa (belum dicoba sih, tapi harusnya bisa).
> misal yang mau diubah ada di cell A1:
> =--substitute(a1,".","")/100
> atau
> =--substitute(a1*;*"."*;*"")/100 ----->kalau region setting kompi
> anda Indonesia
>
> (dibaca: nilai angka dari A1 tanpa tanda titik dibagi 100)
> jangan lupa untuk membuat format angka di cell hasil tersebut jika Anda
> ingin penampakan angka menjadi seperti yang Anda inginkan.
>
> Salam,
> tomz
>
>
> -*---- Original Message ----- *
> *From: dodi <dodi_slipi@yahoo.co.id> *
> *To: XL-mania@yahoogroups.com *
> *Sent: Tuesday, January 24, 2012 4:46 PM*
> *Subject: ]] XL-mania [[ Mengganti file import dari program akuntansi
> Zahir menjadi format angka diexcel*
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3a.

Re: mencari rating sesuai KATEGORI

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Jan 28, 2012 9:37 am (PST)



gampang... rumus nya hanya seperti ini...

(array Formula Multi Hasil ditulis di 5 cells sekaligus)
*=INDEX(C2:C16,100*MOD(LARGE(D2:D16*100+(100-B2:B16)+B2:B16/100,B2:B16),1))*

*» *Nilai yg akan diurutkan dikalikan 100 : D2:D16*100
*» *lalu ditambah dengan angka-urut yg dibalik : +(16 - B2:B16)
*» *kemudian ditambah angka-urut yg tidak dibalik tapi dibagi 100 :
+(B2:B16/100)
hasil tiga operasi aneh ini kita sebut : ArrayAneh
*» *ArrayAneh di urutkan dengan LARGE(ArrayAneh,B2:B16), menghasilkan
ArrayAnehUrut
*» *hasilnya diambil pecahannya saja MOD(ArrayAnehUrut, 1)
kita namakan PecahanArrayAnehUrut (berdasarkan KolomD)
*» *Array_Pecahan ini masih harus dikalikan 100 agar kembali ke nilai
semula (angka utuh)
100 * PecahanArrayAnehUrut
Array Beranggotakan angka 1 sd 16 dengan urutan aneh ini sebetulnya
adalah data ex
angka URUT ( kolom B) yg terurutkan berdasarkan nilai (kolom D)
descending tetapi sebelumnya
telah dipengaruhi oleh nilai kebalikannya +(16 - B2:B16)
*» *Hasil akhir baru *dipakai untukmengindex* Kategori !!! maka tampillah
Nilai TopFive (bisa juga TOP16)
yg kalau terdapat nilai kembar, akan mendahulukan urutan kategorinya

Pusing ndak ?? Endak lah yauw...

[image: Formula Sorting Dua Kunci.PNG]

- indri Haps-

*
2012/1/26 Rahadian Wibowo <rahadianwibowo@yahoo.com>
>
> dear para suhu excel,
> mohon pencerahannya, saya menghadapi masalah dalam mengurutkan rating *
*> tapi harus sesuai kategori, masalah sudah saya lampirkan, trims
sebelumnya
> wassalam,
> Jabat Erat
> Bow Wow*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4a.

Re: Bagaimana Cara Vlookup Tetapi Dengan Satu Reference Dengan Lebih

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Jan 28, 2012 9:37 am (PST)



gampang... ditulis di *E12* (dimana tuh ya.. kan situ ndak ngasih woksit
?! )

=INDEX($G$5:$G$6,SUMPRODUCT(($C$5:$C$6=C12)*($D$5:$D$6=D12),ROW($1:$2)))
di copy ke E13

i Haps
( 'agan 'ahu 'asar 'genjing )

2012/1/25 Look q <lookq_f@yahoo.com>

> **
> Dear Agan2 sekalian,Need your help ni... Ceritanya begini cuy, heee... Ane
> punya raw data dibawah:
> Date Bank Reference Amount in B/S Payment_Reference_Nbr
> RRS_Cash_Report_Nbr Local_Currency_Amt 3-Jan-12 72036881
> 130,000.00 72036881 9904 130,000.00 3-Jan-12 72036881 2,604,000.00
> 72036881 9912 2,604,000.00
>
> Data diatas, ane pisahin ama garis kuning, anggaplah itu merupakan dua
> data yang berbeda... Ane mau match data yang dibelah kiri garis kuning
> dengan keterangan yang ada di kolom "RRS_Cash_Report_Nbr".... Atau dengan
> kata lain, ane mau Vlookup berdasarkan Bank Reference tapi resultnya seperti
> dibawah ini...
>
> Date Bank Reference Amount in B/S RRS_Cash_Report_Nbr 3-Jan-12
> 72036881 130,000.00 9904 3-Jan-12 72036881 2,604,000.00
> 9912
>
> Karena, klo ane pake vlookup biasa, hasilnya seperti dibawah ini:
>
> Date Bank Reference Amount in B/S RRS_Cash_Report_Nbr 3-Jan-12
> 72036881 130,000.00 9904 3-Jan-12 72036881 2,604,000.00
> 9904
>
> Thanks y agan2 sekalian...Sorry klo masih nubi
> pertanyaannya...heeeeeee.....
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| Gong Xi Fat Choi! Mana angpaonya... wkwkwkwkwk...                 |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
Diposting oleh EXCEL FEED LEARNING di 04.47

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)