Jumat, 17 Juni 2011

[belajar-excel] Digest Number 1202

Messages In This Digest (22 Messages)

Messages

1a.

Re: mengurutkan Data dgn kriteria tertentu

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 1:42 am (PDT)



buatlah di sebelah data : kolom bantu yg berisi rumus
=COUNTIF($A$2:$A$20,LEFT(A2,LEN(A2)-3)&"*")

*data*

*dummies*

Air_ItamMW1

3

Air_ItamMW2

3

Air_ItamMW3

3

AirsebakulMW1

3

AirsebakulMW2

3

AirsebakulMW3

3

Arga_MakmurMW1

5

Arga_MakmurMW2

5

Arga_MakmurMW3

5

Arga_MakmurMW4

5

Arga_MakmurMW5

5

Balun_IjukMW1

5

Balun_IjukMW2

5

Balun_IjukMW3

5

Balun_IjukMW4

5

Balun_IjukMW5

5

Bandar_AgungMW1

3

Bandar_AgungMW2

3

Bandar_AgungMW3

3

lalu kedua kolom di *copy>paste>values* ke tempat lain
baru di *sort *(bukan short) dengan :
*kolom bantu: Desending, **Kolom Data: Ascending*

Jaadi dexgh !!

2011/6/16 Fajar Fatahillah <fajar.fatahillah@yahoo.com>

> Dear Master,
> butuh bantuan ni untuk mengurutkan data sesuai kriteria tertentu.
> file contoh terlampir
> terima kasih
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.

Re: mengurutkan Data dgn kriteria tertentu

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 1:53 am (PDT)



ralat:
tertulis
kedua kolom di copy > *paste* > values ke tempat lain

seharusnya
kedua kolom di copy > *pasteSpecial* > values ke tempat lain

2011/6/16 STDEV(i) <setiyowati.devi@gmail.com>

> =COUNTIF($A$2:$A$20,LEFT(A2,LEN(A2)-3)&"*")
> lalu kedua kolom di copy>paste>values ke tempat lain
> baru di *sort *(bukan short) dengan :
> *kolom bantu: Desending, **Kolom Data: Ascending*
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.

Re: mengurutkan Data dgn kriteria tertentu

Posted by: "Fajar Fatahillah" fajar.fatahillah@yahoo.com   fajar.fatahillah

Thu Jun 16, 2011 4:54 am (PDT)



Terima kasih Mba Siti..
Mantap

Best Regards,
Fajar Fatahillah, AMd.
OSS Engineer
PT. Econospasia Global
Phone : 085 2222 8 5657

________________________________
From: STDEV(i) <setiyowati.devi@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thu, June 16, 2011 3:42:05 PM
Subject: Re: [belajar-excel] mengurutkan Data dgn kriteria tertentu

buatlah di sebelah data : kolom bantu yg berisi rumus
=COUNTIF($A$2:$A$20,LEFT(A2,LEN(A2)-3)&"*")
data dummies
Air_ItamMW1 3
Air_ItamMW2 3
Air_ItamMW3 3
AirsebakulMW1 3
AirsebakulMW2 3
AirsebakulMW3 3
Arga_MakmurMW1 5
Arga_MakmurMW2 5
Arga_MakmurMW3 5
Arga_MakmurMW4 5
Arga_MakmurMW5 5
Balun_IjukMW1 5
Balun_IjukMW2 5
Balun_IjukMW3 5
Balun_IjukMW4 5
Balun_IjukMW5 5
Bandar_AgungMW1 3
Bandar_AgungMW2 3
Bandar_AgungMW3 3

lalu kedua kolom di copy>paste>values ke tempat lain
baru di sort (bukan short) dengan :
kolom bantu: Desending, Kolom Data: Ascending

Jaadi dexgh !!

2011/6/16 Fajar Fatahillah <fajar.fatahillah@yahoo.com>

Dear Master,
>butuh bantuan ni untuk mengurutkan data sesuai kriteria tertentu.
>file contoh terlampir
>terima kasih
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2a.

Re: MENGUBAH FORMULA KE TEKS

Posted by: "sudarsono" jkssbma@gmail.com   jkssbma

Thu Jun 16, 2011 3:02 am (PDT)




Sedikit info tambahan untuk excel 2007/2010 ( excel 2003 belum saya coba
) , maka macronya :
Range("b6").Select
a = Excel.ExecuteExcel4Macro("get.cell(6)")
Range("c6").Value = "'" & a

'======

--- In belajar-excel@yahoogroups.com, Septi Yunita <septi.yunita@...>
wrote:
>
>
>
>
> o… sudah jelas kalau begitu,
>
> trims mbak atas penjelasannya…
>
>
>
>
> From: belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] On Behalf Of STDEV(i)
> Sent: Thursday, June 16, 2011 2:37 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] MENGUBAH FORMULA KE TEKS
>
>
> Kita sedang bicara tentang Makro Excel 4
>
> Angka 6 berarti ingin menampilkan FORMULA dlm cell yg dirujuk
>
> argument GET CELL ada 60 lebih, (pernah ditayangkan di milis ini
lengkap)
> ini siti pilihkan sebaign yg penting penting
>
> Proposed Name
>
> Arg #
>
> What =GET.CELL(Arg #,INDIRECT("RC[-1]",)) will return
>
> AbsReference
>
> 1
>
> Absolute style reference like [Book1.xls]Sheet1!$A$1
>
> ShowValue
>
> 5
>
> Cell value
>
> ShowFormula
>
> 6
>
> Cell formula
>
> NumFormat
>
> 7
>
> Number format of cell
>
> IsLocked
>
> 14
>
> True if cell is locked
>
> FormulaHidden
>
> 15
>
> True if cell formula is hidden
>
> ShowWidth
>
> 16
>
> Cell width. If array-entered into two cells of a row, second value is
true if width is standard
>
> ShowHeight
>
> 17
>
> Cell height
>
> WorkbookName
>
> 32
>
> Workbook name like [Book1.xls]Sheet1 or Book1.xls if workbook and
single sheet have identical names
>
> ShowFormulaWOT
>
> 41
>
> Cell formula without translation into language of workspace
>
> HasNote
>
> 46
>
> True if cell has a text note
>
> HasFormula
>
> 48
>
> True if cell contains a formula
>
> IsArray
>
> 49
>
> True if cell is part of an array formula
>
> IsStringConst
>
> 52
>
> Text alignment char ' if cell is a string constant, empty string if
not
>
> AsText
>
> 53
>
> Cell displayed as text with numbers formatted and symbols included
>
> WorksheetName
>
> 62
>
> Worksheet name like [Book1.xls]Sheet1
>
> WorkbookName
>
> 66
>
> Workbook name like Book1.xls
>
>
>
>
> 2011/6/16 Septi Yunita septi.yunita@...<mailto:septi.yunita@...>
>
> Dear belajar excel,
> Mau Tanya nech.. saya sedang baca-baca buku excel, ada bab tentang
mengubah formula ke teks
>
> Missal :
> A1=1
> A2=2
> A3=3
> Di A4=sum(A1:A3)
>
> Untuk mengubah formula di A4 menjadi teks dapat menggunakan define
name yaitu :
> 1.insert>nama>define
> 2.isi name
> 3.isi refers to dengan :
> =GET.CELL(6,B4)
> Pertanyaan saya angka 6 diatas berarti apa ya??
>
> Trims atas bantuan dan penjelasannya
>
>
>
>
########################################################################\
#############
> This email is confidential and may also be privileged. If you are not
the intended
> recipient, please delete it and notify us immediately. You should not
copy or use
> it for any purpose, nor disclose its contents to any other person.
>
########################################################################\
#############
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
2b.

Re: MENGUBAH FORMULA KE TEKS

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 4:31 pm (PDT)



kalau sudah terlanjur masuk ke VBA, menurut pendapatku :
ya tidak ferlu repot-repot memakai perintah *makro excel-4* lagi..
Lebih mudah membuat fungsi sendiri, nantinya di worksheet akan lebih
fleksibel

Public Function FormulaText(X as Range,) As String
* FormulaTex = X.Formula*
End Function

Di worksheet, UDF tsb bisa ditulis di mana saja; misal cell yg mau di rujuk
D6
( formula yg ada di cell D6 akan dimunculkan di L54) , maka di L54 tinggal
tulis
=FormulaText(D6)

Ini lebih praktis jika dibandingkan dgn Define Name yg memanfaatkan
Get.Cell
ex makro Excel4, karena letak dan jarak dari cell yg akan dirujuk harus
tertentu

Misal A1 hanya bisa dimunculkan formulanya di B1 (sesuai define name nya)
Jika A1 dingin dimunculkan formrulanya di C1 kita harus mengubah Define
Namenya dulu

On Thu, Jun 16, 2011 at 5:02 PM, sudarsono <jkssbma@gmail.com> wrote:

>
>
> Sedikit info tambahan untuk excel 2007/2010 ( excel 2003 belum saya coba )
> , maka macronya :
> Range("b6").Select
> a = *Excel.ExecuteExcel4Macro("get.cell(6)")*
> Range("c6").Value = "'" & a
>
> '======
>
>
> --- In belajar-excel@yahoogroups.com, Septi Yunita <septi.yunita@...>
> wrote:
> > o… sudah jelas kalau begitu,
> > trims mbak atas penjelasannya…
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
2c.

Re: MENGUBAH FORMULA KE TEKS

Posted by: "Septi Yunita" septi.yunita@smoe.com

Thu Jun 16, 2011 6:57 pm (PDT)



Mbak siti trims atas masukannya, ini saya coba UDF-nya tapi kok tidak memberikan hasil?
Salahnya di mana ya??


Trims sebelumnya



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of STDEV(i)
Sent: Friday, June 17, 2011 6:31 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Re: MENGUBAH FORMULA KE TEKS



kalau sudah terlanjur masuk ke VBA, menurut pendapatku :
ya tidak ferlu repot-repot memakai perintah makro excel-4 lagi..
Lebih mudah membuat fungsi sendiri, nantinya di worksheet akan lebih fleksibel

Public Function FormulaText(X as Range,) As String
FormulaTex = X.Formula
End Function

Di worksheet, UDF tsb bisa ditulis di mana saja; misal cell yg mau di rujuk D6
( formula yg ada di cell D6 akan dimunculkan di L54) , maka di L54 tinggal tulis
=FormulaText(D6)

Ini lebih praktis jika dibandingkan dgn Define Name yg memanfaatkan Get.Cell
ex makro Excel4, karena letak dan jarak dari cell yg akan dirujuk harus tertentu

Misal A1 hanya bisa dimunculkan formulanya di B1 (sesuai define name nya)
Jika A1 dingin dimunculkan formrulanya di C1 kita harus mengubah Define Namenya dulu



On Thu, Jun 16, 2011 at 5:02 PM, sudarsono <jkssbma@gmail.com<mailto:jkssbma@gmail.com>> wrote:


Sedikit info tambahan untuk excel 2007/2010 ( excel 2003 belum saya coba ) , maka macronya :
Range("b6").Select
a = Excel.ExecuteExcel4Macro("get.cell(6)")
Range("c6").Value = "'" & a

'======

--- In belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>, Septi Yunita <septi.yunita@...> wrote:
> o… sudah jelas kalau begitu,
> trims mbak atas penjelasannya…



#####################################################################################
This email is confidential and may also be privileged. If you are not the intended
recipient, please delete it and notify us immediately. You should not copy or use
it for any purpose, nor disclose its contents to any other person.
#####################################################################################
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
2d.

Re: MENGUBAH FORMULA KE TEKS

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 7:22 pm (PDT)



salahnya di makronya FormulaText tertulis FormulaTex

Public Function FormulaText(X As Range) As String
Formula*Text* = X.Formula
End Function

tertulisnya
Public Function FormulaText(X As Range) As String
Formula*Tex** *= X.Formula
End Function

2011/6/17 Septi Yunita <septi.yunita@smoe.com>

> Mbak siti trims atas masukannya, ini saya coba UDF-nya tapi kok tidak
> memberikan hasil?
>
> Salahnya di mana ya??
>
>
>
> Trims sebelumnya
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3.

Bls: [belajar-excel] mengurutkan Data dgn kriteria tertentu

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Thu Jun 16, 2011 3:27 am (PDT)



dengan formula index data awal mulai di  A2  solusi mulai di G2 formula array

{=INDEX($A$2:$A$20;MATCH(SUM(COUNTIF($A$2:$A$20;G$1:G1));COUNTIF($A$2:$A$20;"<"&$A$2:$A$20);0))}

wassalam

Ghozi Alkatiri

--- Pada Kam, 16/6/11, Fajar Fatahillah <fajar.fatahillah@yahoo.com> menulis:

Dari: Fajar Fatahillah <fajar.fatahillah@yahoo.com>
Judul: [belajar-excel] mengurutkan Data dgn kriteria tertentu
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 16 Juni, 2011, 2:14 PM

 

Dear Master,butuh bantuan ni untuk mengurutkan data sesuai kriteria tertentu.

file contoh terlampir
terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
4a.

Re: Tampilan date picker sekarang sdh macing banget...

Posted by: "Muh Nuh Haikal" juz13_9999@yahoo.co.id   juz13_9999

Thu Jun 16, 2011 6:45 am (PDT)



Bravo para Be-Excel wabilkhusus para suhu Be-Excel

Date picker nya skrang sdh macing banget...terima kasih banyak bagi Be-Excel and khususnya para suhu Be-Excel Mba siti, mnKiD, Franz and summonery yg telah memberikan solusi yg sangat berguna semoga segala kebaikannya menjadi berkah yg terindah...sukses selalu bwt para suhu Be-Excel...

nunu

_

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
4b.

Re: Tampilan date picker sekarang sdh macing banget...

Posted by: "Muh Nuh Haikal" juz13_9999@yahoo.co.id   juz13_9999

Thu Jun 16, 2011 9:45 pm (PDT)



Dear Mas Fahmi and Be-Excel

Maksudnya gak bisa gmn? klo kasus sm dengan pak Andi, bisa dicek hasil solved dari mbak Siti, Mnkid or dari yg lainya, cek dulu dipc sdh sesuai dengan apa yg dijabarkan oleh para suhu Be-Excel...

nich saya lampirkan screenshot dari mbak siti semoga bermanfaat....

nunu

--- Pada Jum, 17/6/11, Fahmi M. Nasir <pahmi_2301@yahoo.com> menulis:

Dari: Fahmi M. Nasir <pahmi_2301@yahoo.com>
Judul: Re: [belajar-excel] Tampilan date picker sekarang sdh macing banget...
Kepada: juz13_9999@yahoo.co.id
Tanggal: Jumat, 17 Juni, 2011, 4:03 AM

om - om bagi contoh failnya
dunk..
 
saya jg lg bikin date picker, tp g bs2..
gimana y?
 
xlo bisa nyontek dikit gitu..
 
terima kasih
 
fahmi
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
5a.

Re: re-Tanya akumulasi dan nilai rata - rata

Posted by: "stefen" stefen@kofi.co.id

Thu Jun 16, 2011 6:46 am (PDT)



Thanks' a lot Mr.Kid

Mohon maaf mengganggu terus '

Saya sudah aplikasikan dan dia bisa running

Thanks buanget ya sdh Bantu

Blessing to You

_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 16 June 2011 14:11
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] re-Tanya akumulasi dan nilai rata - rata

Selamat siang Pak Stefen,

Coba perhatikan formulanya :
=SUMIF( $D$30:$CR$30 , TRIM(CZ$30) , $D31:$CR31 ) / COUNTIF( $D$30:$CR$30 ,
TRIM(CZ$30) )

Bagian biru adalah total nilai berdasar 1 kriteria.
Bagian hijau adalah jumlah cacah cell berdasar 1 kriteria

Jika akan menghitung yang lebih dari nol saja, maka kalimat ini adalah
sebuah kalimat kriteria. Maka perlu pemasangan kondisi pada formula.
Kalimat itu akan mempengaruhi jumlah cacah pembagi untuk mendapatkan rerata,
maka bagian hijau yang diutek-utek.
Misal, menggunakan SumProduct, sehingga berbunyi :
SUMPRODUCT( ( $D$30:$CR$30 = TRIM(CZ$30) ) * ( $D31:$CR31 > 0 ) )

Bagian merah adalah kriteria pertama yang ada di fungsi CountIF
Bagian merah muda adalah kriteria kedua (kalimat kriteria yang ditambahkan).
Kedua kriteria harus terpenuhi semua, maka digunakan perkalian (dengan *)
yang setara logika AND.

Formula lengkap menjadi :
=SUMIF( $D$30:$CR$30 , TRIM(CZ$30) , $D31:$CR31 ) / SUMPRODUCT( (
$D$30:$CR$30 = TRIM(CZ$30) ) * ( $D31:$CR31 > 0 ) )

Regard,
Kid.

2011/6/13 stefen <stefen@kofi.co.id>

Selamat sore para master

Mohon maaf kasus saya buka lagi.

setelah saya utak atik kiri kanan muka belakang dan ternyata eh ternyata

saya menemukan bahwa solusi rumus yang di berikan oleh Mr.Kidz utnuk kasus
ini

saya menemukan bahwa jika suatu nilai tidak kita isi maka hasil dari nilai
rata rata

akan berkurang.

Padahal dalam proses produksi kadang kadang mesin tidak jalan karena sedang
Opname

juga karena hari libur.

Mohon pencerahannya

regards

Stefen T

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5b.

Re: re-Tanya akumulasi dan nilai rata - rata

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 16, 2011 6:57 am (PDT)



Alhamdulillah sudah bisa running.

Umumnya hal seperti ini, kedepan akan diterapkan oleh banyak orang untuk
kasus lainnya, dan bisa jadi bertemu hal-hal berikut :
1. Bagaimana jika nilai yang di rerata boleh bernilai negatif ( < 0 ) ?
2. Bagaimana jika nilai 0 termasuk item yang mempengaruhi nilai rerata ?
3. Bagaimana jika hanya rerata yang negatif saja atau yang positif saja ?
dan banyak lainnya.

Dearest BeExceler,
Sudilah kiranya berbagi untuk menambahkan materi thread ini dengan solusi
beberapa hal di atas. Terima kasih sebelumnya jika ada yang rela menambahkan
kondisi dunia nyata selain yang 3 di atas.

Wassalamualaikum Wr. Wb.
Kid.

2011/6/16 stefen <stefen@kofi.co.id>

>
>
> Thanks' a lot Mr.Kid
>
> Mohon maaf mengganggu terus '
>
> Saya sudah aplikasikan dan dia bisa running
>
> Thanks buanget ya sdh Bantu
>
> Blessing to You
>
>
>
>
>
>
>
>
>
>
>
> ------------------------------
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 16 June 2011 14:11
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] re-Tanya akumulasi dan nilai rata - rata
>
>
>
>
>
> Selamat siang Pak Stefen,
>
> Coba perhatikan formulanya :
> =*SUMIF( $D$30:$CR$30 , TRIM(CZ$30) , $D31:$CR31 ) */ *COUNTIF(
> $D$30:$CR$30 , TRIM(CZ$30) )*
>
> Bagian biru adalah total nilai berdasar 1 kriteria.
> Bagian hijau adalah jumlah cacah cell berdasar 1 kriteria
>
> Jika akan menghitung yang lebih dari nol saja, maka kalimat ini adalah
> sebuah kalimat kriteria. Maka perlu pemasangan kondisi pada formula.
> Kalimat itu akan mempengaruhi jumlah cacah pembagi untuk mendapatkan
> rerata, maka bagian hijau yang diutek-utek.
> Misal, menggunakan SumProduct, sehingga berbunyi :
> *SUMPRODUCT( ( $D$30:$CR$30 = TRIM(CZ$30) ) * ( $D31:$CR31 > 0 ) )*
>
> Bagian merah adalah kriteria pertama yang ada di fungsi CountIF
> Bagian merah muda adalah kriteria kedua (kalimat kriteria yang
> ditambahkan).
> Kedua kriteria harus terpenuhi semua, maka digunakan perkalian (dengan *)
> yang setara logika AND.
>
> Formula lengkap menjadi :
> =*SUMIF( $D$30:$CR$30 , TRIM(CZ$30) , $D31:$CR31 ) */ *SUMPRODUCT( (
> $D$30:$CR$30 = TRIM(CZ$30) ) * ( $D31:$CR31 > 0 ) )*
>
> Regard,
> Kid.
>
> 2011/6/13 stefen <stefen@kofi.co.id>
>
>
>
> Selamat sore para master
>
>
>
>
>
> Mohon maaf kasus saya buka lagi.
>
> setelah saya utak atik kiri kanan muka belakang dan ternyata eh ternyata
>
> saya menemukan bahwa solusi rumus yang di berikan oleh Mr.Kidz utnuk kasus
> ini
>
> saya menemukan bahwa jika suatu nilai tidak kita isi maka hasil dari nilai
> rata rata
>
> akan berkurang.
>
> Padahal dalam proses produksi kadang kadang mesin tidak jalan karena sedang
> Opname
>
> juga karena hari libur.
>
> Mohon pencerahannya
>
>
>
> regards
>
>
>
>
>
> Stefen T
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6a.

UDF untuk Average

Posted by: "MAMUDA PONTIM" uud_mamuda@yahoo.com   uud_mamuda

Thu Jun 16, 2011 9:05 pm (PDT)



Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang lain.
Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di worksheet function.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6b.

Re: UDF untuk Average

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Thu Jun 16, 2011 9:13 pm (PDT)



Coba gunakan cara merekam Macro (UDF)
 
Caranya :
- Aktifkan perekaman macro.
- Ketik formula "AVERAGE" yang anda inginkan
- Stop perekaman macro
 
Macro yang sudah dibuat secara otomatis tersebut dapat diupdate sesuai kebutuhan.
 
Salam,
Hendrik Karnadi
 

From: MAMUDA PONTIM <uud_mamuda@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, June 17, 2011 11:05 AM
Subject: [belajar-excel] UDF untuk Average

 
Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang lain.
Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di worksheet function.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6c.

Re: UDF untuk Average

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 9:44 pm (PDT)



kalau ingin mendekati algoritmanya kira kira begini

Function AveragePalsu(MyRange As Range) As Double
' siti Vi / 17 Jun 2011
Dim Jumlah As Double
Dim Banyak As Long
Dim cel As Range

For Each cel In MyRange
Jumlah = Jumlah + cel
If cel <> 0 Then Banyak = Banyak + 1
Next
AveragePalsu = Jumlah / Banyak
End Function

--workbook terlampirrrr

2011/6/17 hendrik karnadi <hendrikkarnadi@yahoo.com>

> Coba gunakan cara merekam Macro (UDF)
> Caranya :
> - Aktifkan perekaman macro.
> - Ketik formula "AVERAGE" yang anda inginkan
> - Stop perekaman macro
> Macro yang sudah dibuat secara otomatis tersebut dapat diupdate sesuai
> kebutuhan.
> Salam,
> Hendrik Karnadi
>
>
> *From:* MAMUDA PONTIM <uud_mamuda@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Friday, June 17, 2011 11:05 AM
> *Subject:* [belajar-excel] UDF untuk Average
>
> Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat
> media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang
> lain.
> Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di
> worksheet function.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6d.

Re: UDF untuk Average

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 9:54 pm (PDT)



Kalau mau PINJAM PAKAI Fungsi Worksheet (SUM dan COUNTIF)

Function AveragePalsu2(MyRange As Range) As Double
' siti Vi / 17 Jun 2011
Dim Jumlah As Double,Banyak As Long

Jumlah = WorksheetFunction.Sum(MyRange)
Banyak = WorksheetFunction.COUNTIF(MyRange,"<>0")
AveragePalsu2 = Jumlah / Banyak

End Function

2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>

> kalau ingin mendekati algoritmanya kira kira begini
>
> Function AveragePalsu(MyRange As Range) As Double
> ' siti Vi / 17 Jun 2011
> Dim Jumlah As Double
> Dim Banyak As Long
> Dim cel As Range
>
> For Each cel In MyRange
> Jumlah = Jumlah + cel
> If cel <> 0 Then Banyak = Banyak + 1
> Next
> AveragePalsu = Jumlah / Banyak
> End Function
>
> --workbook terlampirrrr
>
>
>>
>> *From:* MAMUDA PONTIM <uud_mamuda@yahoo.com>
>> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>> *Sent:* Friday, June 17, 2011 11:05 AM
>> *Subject:* [belajar-excel] UDF untuk Average
>>
>> Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat
>> media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang
>> lain.
>> Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di
>> worksheet function.
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6e.

Re: UDF untuk Average

Posted by: "MAMUDA PONTIM" uud_mamuda@yahoo.com   uud_mamuda

Thu Jun 16, 2011 10:10 pm (PDT)



Terima kasih Mbak Siti. Saya akan coba pelajari kodenya. Sudah dicoba dieksekusi dan berhasil

________________________________
From: STDEV(i) <setiyowati.devi@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 17, 2011 11:43 AM
Subject: Re: [belajar-excel] UDF untuk Average

 
kalau ingin mendekati algoritmanya kira kira begini

Function AveragePalsu(MyRange As Range) As Double
' siti Vi / 17 Jun 2011
   Dim Jumlah As Double
   Dim Banyak As Long
   Dim cel As Range
   
   For Each cel In MyRange
      Jumlah = Jumlah + cel
      If cel <> 0 Then Banyak = Banyak + 1
   Next
   AveragePalsu = Jumlah / Banyak
End Function

--workbook terlampirrrr

2011/6/17 hendrik karnadi <hendrikkarnadi@yahoo.com>

Coba gunakan cara merekam Macro (UDF)
>Caranya :
>- Aktifkan perekaman macro.
>- Ketik formula "AVERAGE" yang anda inginkan
>- Stop perekaman macro
>Macro yang sudah dibuat secara otomatis tersebut dapat diupdate sesuai kebutuhan.
>Salam,
>Hendrik Karnadi
> 
>
>
>From: MAMUDA PONTIM <uud_mamuda@yahoo.com>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Friday, June 17, 2011 11:05 AM
>Subject: [belajar-excel] UDF untuk Average
>
> 
>Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang lain.
>Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di worksheet function.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6f.

Re: UDF untuk Average

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 10:10 pm (PDT)



Akhirnya... kalau mau Pinjam Pakai fungsi Worksheet: AVERAGE

Function AverageDiVBA(MyRange As Range) As Double
AveragediVBA = WorksheetFunction.Average(MyRange)
End Function

ya memang singkat lha wong cuma pinjem saja,
tanpa tahu ceritak kalklasi didalamnya

2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>

> Kalau mau PINJAM PAKAI Fungsi Worksheet (SUM dan COUNTIF)
>
> Function AveragePalsu2(MyRange As Range) As Double
> ' siti Vi / 17 Jun 2011
> Dim Jumlah As Double,Banyak As Long
> Jumlah = WorksheetFunction.Sum(MyRange)
> Banyak = WorksheetFunction.Countif(MyRange,"<>0")
> AveragePalsu2 = Jumlah / Banyak
>
> End Function
>
>
> 2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>
>
>> kalau ingin mendekati algoritmanya kira kira begini
>>
>> Function AveragePalsu(MyRange As Range) As Double
>> ' siti Vi / 17 Jun 2011
>> Dim Jumlah As Double
>> Dim Banyak As Long
>> Dim cel As Range
>> For Each cel In MyRange
>> Jumlah = Jumlah + cel
>> If cel <> 0 Then Banyak = Banyak + 1
>> Next
>> AveragePalsu = Jumlah / Banyak
>> End Function
>>
>> --workbook terlampirrrr
>>
>>>
>>>
>>> *From:* MAMUDA PONTIM <uud_mamuda@yahoo.com>
>>> *Sent:* Friday, June 17, 2011 11:05 AM
>>>
>>> Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi
>>> buat media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member
>>> yang lain.
>>> Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE
>>> di worksheet function.
>>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6g.

Re: UDF untuk Average

Posted by: "MAMUDA PONTIM" uud_mamuda@yahoo.com   uud_mamuda

Thu Jun 16, 2011 10:21 pm (PDT)



Tanya lagi boleh ya....!
Beda Range dengan Ranges di VBA gimana?

________________________________
From: STDEV(i) <setiyowati.devi@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 17, 2011 12:10 PM
Subject: Re: [belajar-excel] UDF untuk Average

 
Akhirnya...  kalau mau Pinjam Pakai fungsi Worksheet: AVERAGE

Function AverageDiVBA(MyRange As Range) As Double
   AveragediVBA = WorksheetFunction.Average(MyRange)
End Function

ya memang singkat lha wong cuma pinjem saja, 
tanpa tahu ceritak kalklasi didalamnya

2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>

Kalau mau PINJAM PAKAI Fungsi Worksheet (SUM dan COUNTIF)
>
>
>Function AveragePalsu2(MyRange As Range) As Double
>' siti Vi / 17 Jun 2011
>   Dim Jumlah As Double,Banyak As Long
>   Jumlah = WorksheetFunction.Sum(MyRange)
>   Banyak = WorksheetFunction.Countif(MyRange,"<>0")
>   AveragePalsu2 = Jumlah / Banyak
>
>
>End Function
>
>
>
>
>2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>
>
>kalau ingin mendekati algoritmanya kira kira begini
>>
>>
>>Function AveragePalsu(MyRange As Range) As Double
>>' siti Vi / 17 Jun 2011
>>   Dim Jumlah As Double
>>   Dim Banyak As Long
>>   Dim cel As Range
>>   For Each cel In MyRange
>>      Jumlah = Jumlah + cel
>>      If cel <> 0 Then Banyak = Banyak + 1
>>   Next
>>   AveragePalsu = Jumlah / Banyak
>>End Function
>>
>>
>>--workbook terlampirrrr
>> 
>>>
>>>
>>>From: MAMUDA PONTIM <uud_mamuda@yahoo.com>
>>>Sent: Friday, June 17, 2011 11:05 AM
>>>
>>> 
>>>Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang lain.
>>>Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di worksheet function.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6h.

Re: UDF untuk Average

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 10:29 pm (PDT)



di VBA *tidak ada keyword Ranges*
mungkin anda ketemu "Ranges" =* nama Variable*
yang memang bisa kita karang sendiri apa saja
asal memenuhi syarat variable naming

cmiiw

2011/6/17 MAMUDA PONTIM <uud_mamuda@yahoo.com>

>
>
> Tanya lagi boleh ya....!
> Beda Range dengan Ranges di VBA gimana?
>
> ------------------------------
> *From:* STDEV(i) <setiyowati.devi@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, June 17, 2011 12:10 PM
> *Subject:* Re: [belajar-excel] UDF untuk Average
>
>
> Akhirnya... kalau mau Pinjam Pakai fungsi Worksheet: AVERAGE
>
> Function AverageDiVBA(MyRange As Range) As Double
> AveragediVBA = WorksheetFunction.Average(MyRange)
> End Function
>
> ya memang singkat lha wong cuma pinjem saja,
> tanpa tahu ceritak kalklasi didalamnya
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6i.

Re: UDF untuk Average

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jun 16, 2011 10:41 pm (PDT)



sebetutulnya anda semua sudah punya alat canggih di dalam VBA anda
yg bernama* Object Browser* (tekan F2 dari jendela VBE)
atau menu : View > Object Browser..

semua object yg dikenal VBA ada penjelasannya disitu
* dia termasuk member dari object apa
* mempunyai members apa saja (property, methods, events dst)
* jika diklik kanan ada pop up menu cukup lengkap dan salah-satunya
=HELP atas object yg sedang di klik

[image: Object Browser.GIF]

2011/6/17 STDEV(i) <setiyowati.devi@gmail.com>

> di VBA *tidak ada keyword Ranges*
> mungkin anda ketemu "Ranges" =* nama Variable*
> yang memang bisa kita karang sendiri apa saja
> asal memenuhi syarat variable naming
>
> cmiiw
>
>
> 2011/6/17 MAMUDA PONTIM <uud_mamuda@yahoo.com>
>
>>
>>
>> Tanya lagi boleh ya....!
>> Beda Range dengan Ranges di VBA gimana?
>>
>> ------------------------------
>> *From:* STDEV(i) <setiyowati.devi@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Friday, June 17, 2011 12:10 PM
>> *Subject:* Re: [belajar-excel] UDF untuk Average
>>
>>
>> Akhirnya... kalau mau Pinjam Pakai fungsi Worksheet: AVERAGE
>>
>> Function AverageDiVBA(MyRange As Range) As Double
>> AveragediVBA = WorksheetFunction.Average(MyRange)
>> End Function
>>
>> ya memang singkat lha wong cuma pinjem saja,
>> tanpa tahu ceritak kalklasi didalamnya
>>
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
7a.

Re: Mencari dua kata yang sama dari kiri address antar kolom

Posted by: "Niky_Nugraha@manulife.com" Niky_Nugraha@manulife.com

Thu Jun 16, 2011 11:42 pm (PDT)



Wuih ketiga rumus yg dilampirkan baik dari Mr. Kid, Mas Zainul, dan Mas
Summonery berhasil dengan baik.

Buat Mr. Kid, terima kasih atas koreksinya, lagi kesilep nih matanya.

Semuanya saya ucapkan terima kasih.


Best regards,

| Niky Nugraha | Orphan Staff |




From:
"Mr. Kid" <mr.nmkid@gmail.com>
To:
belajar-excel@yahoogroups.com
Date:
16/06/2011 12:05
Subject:
Re: [belajar-excel] Mencari dua kata yang sama dari kiri address antar
kolom
Sent by:
belajar-excel@yahoogroups.com




Formula berikut, tidak dapat menganggap sama antara Margarahayu dengan
Margahayu
=COUNTIF(C2,LEFT(B2,FIND(" ",B2,FIND(" ",B2)+1))&"*")
Format cell dengan "X";;
Cara :
Klik kanan -> Format Cells -> tab Number -> Custom -> ketik "X";; pada
text box

Kid.

2011/6/16 <Niky_Nugraha@manulife.com>


Dear Para Master Excel,

Mohon bantuannya nih, saya ingin mencari dua kata dari sebelah kiri yang
sama antara kolom yang satu dengan kolom yang satunya lagi. Dan bila
ketemu hasilnya diberi tanda "X" pada kolom yang kosong disamping row yang
ada dua kata yang sama.

Untuk lebih jelas bisa dilihat attachment.


Best regards,

| Niky Nugraha | Orphan Staff |



[attachment "re-Niky2.xls" deleted by Niky Nugraha/Asia
Division/Manulife]


Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.51

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)