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"
To:
belajar-ex
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
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
>
>
> Tanya lagi boleh ya!
> Beda Range dengan Ranges di VBA gimana?
>
> ---
Tanya lagi boleh ya!
Beda Range dengan Ranges di VBA gimana?
From: STDEV(i)
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: AVERAG
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)
> Kalau mau
Terima kasih Mbak Siti. Saya akan coba pelajari kodenya. Sudah dicoba
dieksekusi dan berhasil
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Friday, June 17, 2011 11:43 AM
Subject: Re: [belajar-excel] UDF untuk Average
kalau ingin mendekati algoritm
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 / B
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
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
To: "belajar-excel@
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.
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
> Mbak siti
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
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
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
Terima kasih Mba Siti..
Mantap
Best Regards,
Fajar Fatahillah, AMd.
OSS Engineer
PT. Econospasia Global
Phone : 085 8 5657
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Thu, June 16, 2011 3:42:05 PM
Subject: Re: [belajar-excel] mengurutkan Dat
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 menulis:
Dari: Fajar Fatahillah
Judul: [belajar-exce
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
wrote:
>
>
>
>
> o⦠sudah jelas k
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)
> =COUNTIF($A$2:$A$20,LEFT(A2,LEN(A2)-3)&"*")
> lalu kedua kolom di copy>paste>values ke tempat lain
> baru di *sort *(bukan shor
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
*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]",))
Dear Master,
butuh bantuan ni untuk mengurutkan data sesuai kriteria tertentu.
file contoh terlampir
terima kasih
short Data.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
21 matches
Mail list logo
