Selasa, 25 Desember 2012

[belajar-excel] Digest Number 1985

15 New Messages

Digest #1985
1c
2a
schedule equipment by "Aden S" adendum_81
2b
Re: schedule equipment by "Mr. Kid" nmkid.family@ymail.com
2c
Re: schedule equipment by "adendum_81@yahoo.com" adendum_81
3a
input_ke_sheet_tujuan_tanpa_form by "Dede Suparman" dede_suparman111
3b
4a
Re: Gabung XL2Acs & Login Form by "amas solihin" amas_se
5a
Bls: [belajar-excel] Bukan vlookup - fungsi apa ya? by "Magung Klengkeng" klengkengmagung
5b
Bls: [belajar-excel] Bukan vlookup - fungsi apa ya? by "Magung Klengkeng" klengkengmagung
6a
menghitung jumlah huruf dalam beberapa kolom by "surya sampurna" wagiman777

Messages

Mon Dec 24, 2012 6:18 pm (PST) . Posted by:

"Adi" abduh_suryadi

kalau yang itu, sudah saya coba pak,dan alhmdlillah sukses. kodenya seperti ini:

dim myField as String
dim myInt as Integer

With rs
.AddNew

For myInt = 1 To 50
myField = myField & IIf(IsNull(Range("F" & myInt)) Or Range("F" & myInt) = "", "0", Range("F" & myInt))
Next

.Fields("Jawaban") = myField
.Update
End With

--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> Sama-sama.
>
> Kalau boleh bertanya, apakah mungkin jika tabelnya diubah menjadi memiliki
> kolom Nomor dan Jawaban (2 kolom) saja ?
>
> Wassalam,
> Kid.
>
> 2012/12/24 Adi <abduhsuryadi@...>
>
> > **
> >
> >
> > Great! it works. Thanks so much Mr. Kid :)
> >
> > --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@> wrote:
> > >
> > > Pak Adi,
> > >
> > > Pada bagian :
> > > rs.AddNew
> > > *rs!Answer1 *= Range("A1")
> >
> > > rs!Answer2 = Range("A2")
> > > rs!Answer3 = Range("A3")
> > > 'and soon....
> > > rs.Update
> > >
> > > Coba ubah menjadi :
> > > dim lIdx as long
> > > with rs
> > > .AddNew
> > > *for lidx =1 to 50
> > > .fields("Answer" & lidx).value *= Range("A" & lidx).value
> >
> > > next lidx
> > > .Update
> > > end with
> > >
> > > Wassalam,
> > > Kid.
> > >
> > > 2012/12/24 Adi <abduhsuryadi@>
> > >
> > > > **
> >
> > > >
> > > >
> > > > Saya mempunyai database access bernama: jawaban di yang ada di folder
> > > > c:\folder\. dalam database ini ada table namanya: myTable yang
> > mempunyai
> > > > lebih dari 50 field. saya namakan field itu: jawaban1,jawaban2,jawaban3
> > > > sampai jawaban50. saya ingin menambahkan data dari excel yang ada di
> > range
> > > > A1 sampai range A50 table tersebut. dengan perincian:
> > > > A1 ke jawaban1
> > > > A2 ke jawaban2
> > > > A3 ke jawaban3
> > > > A4 ke jawaban4 dst.
> > > > Kode saya jadi terlihat seperti di bawah ini:
> > > >
> > > > Sub MasukkanData()
> > > > Dim sSQL As String
> > > > Dim rs As ADODB.Recordset
> > > > Dim cn As ADODB.Connection
> > > >
> > > > Set cn = New ADODB.Connection
> > > > cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
> > > > Environ("UserProfile") & "\Desktop\jwb.accdb;Persist Security
> > Info=False"
> > > >
> > > > Set rs = New ADODB.Recordset
> > > >
> > > > sSQL = "myTable"
> > > > rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic
> > > >
> > > > rs.AddNew
> > > > rs!Answer1 = Range("A1")
> > > > rs!Answer2 = Range("A2")
> > > > rs!Answer3 = Range("A3")
> > > > 'and soon....
> > > > rs.Update
> > > >
> > > > rs.Close
> > > >
> > > > Set rs = Nothing
> > > > cn.Close
> > > >
> > > > Set cn = Nothing
> > > > End Sub
> > > >
> > > > Gimana cara menyederhanakan kode tersebut agar tidak terlalu panjang?
> > > > saya mencoba pakai for next seperti di bawah ini, tapi excel tidak mau
> > > > menerimanya.
> > > >
> > > > For i=1 to 40
> > > > rs!answer & i = range("A" & i)
> > > > next
> > > >
> > > >
> > > >
> > >
> >
> >
> >
>

Mon Dec 24, 2012 6:24 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh gitu.

Maksud saya, kenapa tabel tidak dibuat berupa 2 kolom bernama Nomor
(kolom1) dan jawab(kolom2).
Jadi data setiap nomor akan jadi 1 record alias sekali input akan ada
penambahan 50 record.

Wassalam,
Kid.
On Dec 25, 2012 9:18 AM, "Adi" <abduhsuryadi@gmail.com> wrote:

> **
>
>
> kalau yang itu, sudah saya coba pak,dan alhmdlillah sukses. kodenya
> seperti ini:
>
> dim myField as String
> dim myInt as Integer
>
> With rs
> .AddNew
>
> For myInt = 1 To 50
> myField = myField & IIf(IsNull(Range("F" & myInt)) Or Range("F" & myInt) =
> "", "0", Range("F" & myInt))
> Next
>
> .Fields("Jawaban") = myField
> .Update
> End With
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Sama-sama.
> >
> > Kalau boleh bertanya, apakah mungkin jika tabelnya diubah menjadi
> memiliki
> > kolom Nomor dan Jawaban (2 kolom) saja ?
> >
> > Wassalam,
> > Kid.
> >
> > 2012/12/24 Adi <abduhsuryadi@...>
> >
> > > **
> > >
> > >
> > > Great! it works. Thanks so much Mr. Kid :)
> > >
> > > --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@> wrote:
> > > >
> > > > Pak Adi,
> > > >
> > > > Pada bagian :
> > > > rs.AddNew
> > > > *rs!Answer1 *= Range("A1")
> > >
> > > > rs!Answer2 = Range("A2")
> > > > rs!Answer3 = Range("A3")
> > > > 'and soon....
> > > > rs.Update
> > > >
> > > > Coba ubah menjadi :
> > > > dim lIdx as long
> > > > with rs
> > > > .AddNew
> > > > *for lidx =1 to 50
> > > > .fields("Answer" & lidx).value *= Range("A" & lidx).value
> > >
> > > > next lidx
> > > > .Update
> > > > end with
> > > >
> > > > Wassalam,
> > > > Kid.
> > > >
> > > > 2012/12/24 Adi <abduhsuryadi@>
> > > >
> > > > > **
> > >
> > > > >
> > > > >
> > > > > Saya mempunyai database access bernama: jawaban di yang ada di
> folder
> > > > > c:\folder\. dalam database ini ada table namanya: myTable yang
> > > mempunyai
> > > > > lebih dari 50 field. saya namakan field itu:
> jawaban1,jawaban2,jawaban3
> > > > > sampai jawaban50. saya ingin menambahkan data dari excel yang ada
> di
> > > range
> > > > > A1 sampai range A50 table tersebut. dengan perincian:
> > > > > A1 ke jawaban1
> > > > > A2 ke jawaban2
> > > > > A3 ke jawaban3
> > > > > A4 ke jawaban4 dst.
> > > > > Kode saya jadi terlihat seperti di bawah ini:
> > > > >
> > > > > Sub MasukkanData()
> > > > > Dim sSQL As String
> > > > > Dim rs As ADODB.Recordset
> > > > > Dim cn As ADODB.Connection
> > > > >
> > > > > Set cn = New ADODB.Connection
> > > > > cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
> > > > > Environ("UserProfile") & "\Desktop\jwb.accdb;Persist Security
> > > Info=False"
> > > > >
> > > > > Set rs = New ADODB.Recordset
> > > > >
> > > > > sSQL = "myTable"
> > > > > rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic
> > > > >
> > > > > rs.AddNew
> > > > > rs!Answer1 = Range("A1")
> > > > > rs!Answer2 = Range("A2")
> > > > > rs!Answer3 = Range("A3")
> > > > > 'and soon....
> > > > > rs.Update
> > > > >
> > > > > rs.Close
> > > > >
> > > > > Set rs = Nothing
> > > > > cn.Close
> > > > >
> > > > > Set cn = Nothing
> > > > > End Sub
> > > > >
> > > > > Gimana cara menyederhanakan kode tersebut agar tidak terlalu
> panjang?
> > > > > saya mencoba pakai for next seperti di bawah ini, tapi excel tidak
> mau
> > > > > menerimanya.
> > > > >
> > > > > For i=1 to 40
> > > > > rs!answer & i = range("A" & i)
> > > > > next
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>

Mon Dec 24, 2012 7:04 pm (PST) . Posted by:

"jessicapermata@yahoo.com" jessicapermata

Ini pakarnya pada gak liburan tha ....
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 25 Dec 2012 09:24:27
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Re: Menambahkan Data Pakai ADO ke Access dengan
nama field yang mirip

Oh gitu.

Maksud saya, kenapa tabel tidak dibuat berupa 2 kolom bernama Nomor
(kolom1) dan jawab(kolom2).
Jadi data setiap nomor akan jadi 1 record alias sekali input akan ada
penambahan 50 record.

Wassalam,
Kid.
On Dec 25, 2012 9:18 AM, "Adi" <abduhsuryadi@gmail.com> wrote:

> **
>
>
> kalau yang itu, sudah saya coba pak,dan alhmdlillah sukses. kodenya
> seperti ini:
>
> dim myField as String
> dim myInt as Integer
>
> With rs
> .AddNew
>
> For myInt = 1 To 50
> myField = myField & IIf(IsNull(Range("F" & myInt)) Or Range("F" & myInt) =
> "", "0", Range("F" & myInt))
> Next
>
> .Fields("Jawaban") = myField
> .Update
> End With
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Sama-sama.
> >
> > Kalau boleh bertanya, apakah mungkin jika tabelnya diubah menjadi
> memiliki
> > kolom Nomor dan Jawaban (2 kolom) saja ?
> >
> > Wassalam,
> > Kid.
> >
> > 2012/12/24 Adi <abduhsuryadi@...>
> >
> > > **
> > >
> > >
> > > Great! it works. Thanks so much Mr. Kid :)
> > >
> > > --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@> wrote:
> > > >
> > > > Pak Adi,
> > > >
> > > > Pada bagian :
> > > > rs.AddNew
> > > > *rs!Answer1 *= Range("A1")
> > >
> > > > rs!Answer2 = Range("A2")
> > > > rs!Answer3 = Range("A3")
> > > > 'and soon....
> > > > rs.Update
> > > >
> > > > Coba ubah menjadi :
> > > > dim lIdx as long
> > > > with rs
> > > > .AddNew
> > > > *for lidx =1 to 50
> > > > .fields("Answer" & lidx).value *= Range("A" & lidx).value
> > >
> > > > next lidx
> > > > .Update
> > > > end with
> > > >
> > > > Wassalam,
> > > > Kid.
> > > >
> > > > 2012/12/24 Adi <abduhsuryadi@>
> > > >
> > > > > **
> > >
> > > > >
> > > > >
> > > > > Saya mempunyai database access bernama: jawaban di yang ada di
> folder
> > > > > c:\folder\. dalam database ini ada table namanya: myTable yang
> > > mempunyai
> > > > > lebih dari 50 field. saya namakan field itu:
> jawaban1,jawaban2,jawaban3
> > > > > sampai jawaban50. saya ingin menambahkan data dari excel yang ada
> di
> > > range
> > > > > A1 sampai range A50 table tersebut. dengan perincian:
> > > > > A1 ke jawaban1
> > > > > A2 ke jawaban2
> > > > > A3 ke jawaban3
> > > > > A4 ke jawaban4 dst.
> > > > > Kode saya jadi terlihat seperti di bawah ini:
> > > > >
> > > > > Sub MasukkanData()
> > > > > Dim sSQL As String
> > > > > Dim rs As ADODB.Recordset
> > > > > Dim cn As ADODB.Connection
> > > > >
> > > > > Set cn = New ADODB.Connection
> > > > > cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
> > > > > Environ("UserProfile") & "\Desktop\jwb.accdb;Persist Security
> > > Info=False"
> > > > >
> > > > > Set rs = New ADODB.Recordset
> > > > >
> > > > > sSQL = "myTable"
> > > > > rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic
> > > > >
> > > > > rs.AddNew
> > > > > rs!Answer1 = Range("A1")
> > > > > rs!Answer2 = Range("A2")
> > > > > rs!Answer3 = Range("A3")
> > > > > 'and soon....
> > > > > rs.Update
> > > > >
> > > > > rs.Close
> > > > >
> > > > > Set rs = Nothing
> > > > > cn.Close
> > > > >
> > > > > Set cn = Nothing
> > > > > End Sub
> > > > >
> > > > > Gimana cara menyederhanakan kode tersebut agar tidak terlalu
> panjang?
> > > > > saya mencoba pakai for next seperti di bawah ini, tapi excel tidak
> mau
> > > > > menerimanya.
> > > > >
> > > > > For i=1 to 40
> > > > > rs!answer & i = range("A" & i)
> > > > > next
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>

Tue Dec 25, 2012 2:32 am (PST) . Posted by:

"Adi" abduh_suryadi

Sebenarnya database access ini bertujuan untuk menampung jawaban
santriwati di pondok saya yang ujian semester menggunakan Excel 2007.
Setiap santriwati ketika menekan tombol selesai, data jawaban mereka
akan tersimpan ke table jawaban.
kalau jawaban dibuat menjadi record tersendiri, dapat dibayangkan berapa
record yang akan terbentuk jika siswanya berjumlah 700 orang. padahal 1
materi saja mempunyai 50 soal.

lebih lengkapnya desain field table jawaban seperti ini:
ID,Tanggal,Waktu,NoUjian,Nama,Kelas,Materi,Jawaban1,jawaban2,jawaban3...\
dst

Izinkan saya untuk bertanya lagi Mr... sya menulis kode berikut untuk
mengambil kembali data yang ada di access ke excel menggunakan
copyfromrecordset. yang jadi masalah adalah, field waktu tidak dapat
menampilkan format waktu di excel, hanya tanggal saja yang ada di field
waktu.
Minta pencerahannya...wassalam.

Sub DapatkanData()
Dim sSQL As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
Environ("UserProfile") & "\Desktop\jwb.accdb;Persist Security
Info=False"

Set rs = New ADODB.Recordset

sSQL = "Select * from Jawaban"

rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic

Cells(5, 2).CopyFromRecordset rs

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

--- In belajar-excel@yahoogroups.com, "Mr. Kid" wrote:
>
> Oh gitu.
>
> Maksud saya, kenapa tabel tidak dibuat berupa 2 kolom bernama Nomor
> (kolom1) dan jawab(kolom2).
> Jadi data setiap nomor akan jadi 1 record alias sekali input akan ada
> penambahan 50 record.
>
> Wassalam,
> Kid.
> On Dec 25, 2012 9:18 AM, "Adi" abduhsuryadi@... wrote:
>
> > **
> >
> >
> > kalau yang itu, sudah saya coba pak,dan alhmdlillah sukses. kodenya
> > seperti ini:
> >
> > dim myField as String
> > dim myInt as Integer
> >
> > With rs
> > .AddNew
> >
> > For myInt = 1 To 50
> > myField = myField & IIf(IsNull(Range("F" & myInt)) Or Range("F" &
myInt) =
> > "", "0", Range("F" & myInt))
> > Next
> >
> > .Fields("Jawaban") = myField
> > .Update
> > End With
> >
> > --- In belajar-excel@yahoogroups.com, "Mr. Kid" mr.nmkid@ wrote:
> > >
> > > Sama-sama.
> > >
> > > Kalau boleh bertanya, apakah mungkin jika tabelnya diubah menjadi
> > memiliki
> > > kolom Nomor dan Jawaban (2 kolom) saja ?
> > >
> > > Wassalam,
> > > Kid.
> > >

Mon Dec 24, 2012 7:17 pm (PST) . Posted by:

"Aden S" adendum_81

Dear All,

1. Bagaimana caranya menghitung nilai COUNTA (jumlah baris yang terisi angka lebih dari 0) yang terdiri dari tabel baris angka tapi nilai 0 (kosong) tidak terhitung?
2. Bagaimana menghitung nilai rata-2 suatu tabel baris dimana nilai 0 (kosong) tidak terhitung?

berikut file terlampir

Terima kasih

Aden

Mon Dec 24, 2012 9:32 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Aden,

Nomor 1 :
Fungsi CountIF untuk hitung cacah dengan 1 kriteria.
Fungsi CountIFs untuk hitung cacah dengan banyak kriteria pada Excel 2007
ke atas
Formula SumProduct( (data1=kriteria1) * (dataN=kriteriaN) ) untuk hitung
cacah banyak kriteria di semua versi Excel
SumProduct bisa diganti SUM, tapi umumnya harus di enter sebagai array
formula (CTRL SHIFT ENTER)

Untuk kasus ini, cell CJ6 bisa diberi formula :
=COUNTIF(H6:CI6,">0")
=SumProduct( (1=1) * ( H6:CI6 > 0 ) ) atau sederhananya : =SumProduct( 1
* ( H6:CI6 > 0 ) )
=Sum( (1=1) * ( H6:CI6 > 0 ) ) atau =Sum( 1 * ( H6:CI6 > 0 ) ) lalu tekan
CTRL SHIFT ENTER

Nomor 2 :
Fungsi AverageIF untuk hitung rerata dengan 1 kriteria pada Excel 2007 ke
atas
Fungsi AverageIFs untuk hitung rerata dengan banyak kriteria pada Excel
2007 ke atas
Array Formula Average( IF( (data1=kriteria1) * (dataN=kriteriaN) ,
dataDirerata ) ) [akhiri dengan CTRL SHIFT ENTER] untuk hitung rerata
banyak kriteria semua versi Excel.
Rerata juga bisa dihitung dengan proses Sum/Count
SumIF/CountIF untuk rerata 1 kriteria di semua versi Excel
SumIFs/CountIFs untuk rerata banyak kriteria di Excel 2007 ke atas
SumProduct( (data1=kriteria1) * (dataN=kriteriaN) * dataDirerata ) /
SumProduct( (data1=kriteria1) * (dataN=kriteriaN) ) untuk rerata banyak
kriteria semua versi Excel.
SumProduct bisa diganti dengan SUM, tetapi umumnya harus di enter sebagai
array formula [tekan CTRL SHIFT ENTER]

untuk kasus ini, cell CK6 bisa diberi formula :
=AVERAGEIF(H6:CI6,">0") -> Excel 2007 ke atas
=AVERAGE( IF( H6:CI6 > 0 , H6:CI6 ) ) -> array formula
=SumIF( H6:CI6,">0" ) / CountIF( H6:CI6,">0" )
=SumProduct( (H6:CI6>0) * H6:CI6 ) / SumProduct( (H6:CI6>0) * 1 )
=Sum( (H6:CI6>0) * H6:CI6 ) / Sum( (H6:CI6>0) * 1 ) -> array formula

Penyusunan kombinasi fungsi-fungsi seperti di atas bisa dikembangkan lebih
lanjut, sehingga bisa mendapatkan varian formula yang cukup banyak.
Kemudian dari varian tersebut, bisa dipilih yang dirasa sesuai dengan
kebutuhan (tuntutan kasus) dan pemahaman (potensi kemudahan diri dalam
mengembangkannya kelak).

Selamat berlibur bagi yang beruntung diberi keleluasaan untuk berlibur....

Wassalam,
Kid.

2012/12/25 Aden S <adendum_81@yahoo.com>

> **
>
>
> Dear All,
>
> 1. Bagaimana caranya menghitung nilai COUNTA (jumlah baris yang terisi
> angka lebih dari 0) yang terdiri dari tabel baris angka tapi nilai 0
> (kosong) tidak terhitung?
> 2. Bagaimana menghitung nilai rata-2 suatu tabel baris dimana nilai 0
> (kosong) tidak terhitung?
>
> berikut file terlampir
>
> Terima kasih
>
> Aden
>
>
>

Mon Dec 24, 2012 11:10 pm (PST) . Posted by:

"adendum_81@yahoo.com" adendum_81

Terima kasih pencerahannya mr. Kid, kemarin saya sudah mencoba2 ternyata letak kesalahannya di tanda petik

Terima kasih banyak

Aden
Sent from my AXIS Worry Free BlackBerry® smartphone

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 25 Dec 2012 12:32:32
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] schedule equipment

Hai Aden,

Nomor 1 :
Fungsi CountIF untuk hitung cacah dengan 1 kriteria.
Fungsi CountIFs untuk hitung cacah dengan banyak kriteria pada Excel 2007
ke atas
Formula SumProduct( (data1=kriteria1) * (dataN=kriteriaN) ) untuk hitung
cacah banyak kriteria di semua versi Excel
SumProduct bisa diganti SUM, tapi umumnya harus di enter sebagai array
formula (CTRL SHIFT ENTER)

Untuk kasus ini, cell CJ6 bisa diberi formula :
=COUNTIF(H6:CI6,">0")
=SumProduct( (1=1) * ( H6:CI6 > 0 ) ) atau sederhananya : =SumProduct( 1
* ( H6:CI6 > 0 ) )
=Sum( (1=1) * ( H6:CI6 > 0 ) ) atau =Sum( 1 * ( H6:CI6 > 0 ) ) lalu tekan
CTRL SHIFT ENTER

Nomor 2 :
Fungsi AverageIF untuk hitung rerata dengan 1 kriteria pada Excel 2007 ke
atas
Fungsi AverageIFs untuk hitung rerata dengan banyak kriteria pada Excel
2007 ke atas
Array Formula Average( IF( (data1=kriteria1) * (dataN=kriteriaN) ,
dataDirerata ) ) [akhiri dengan CTRL SHIFT ENTER] untuk hitung rerata
banyak kriteria semua versi Excel.
Rerata juga bisa dihitung dengan proses Sum/Count
SumIF/CountIF untuk rerata 1 kriteria di semua versi Excel
SumIFs/CountIFs untuk rerata banyak kriteria di Excel 2007 ke atas
SumProduct( (data1=kriteria1) * (dataN=kriteriaN) * dataDirerata ) /
SumProduct( (data1=kriteria1) * (dataN=kriteriaN) ) untuk rerata banyak
kriteria semua versi Excel.
SumProduct bisa diganti dengan SUM, tetapi umumnya harus di enter sebagai
array formula [tekan CTRL SHIFT ENTER]

untuk kasus ini, cell CK6 bisa diberi formula :
=AVERAGEIF(H6:CI6,">0") -> Excel 2007 ke atas
=AVERAGE( IF( H6:CI6 > 0 , H6:CI6 ) ) -> array formula
=SumIF( H6:CI6,">0" ) / CountIF( H6:CI6,">0" )
=SumProduct( (H6:CI6>0) * H6:CI6 ) / SumProduct( (H6:CI6>0) * 1 )
=Sum( (H6:CI6>0) * H6:CI6 ) / Sum( (H6:CI6>0) * 1 ) -> array formula

Penyusunan kombinasi fungsi-fungsi seperti di atas bisa dikembangkan lebih
lanjut, sehingga bisa mendapatkan varian formula yang cukup banyak.
Kemudian dari varian tersebut, bisa dipilih yang dirasa sesuai dengan
kebutuhan (tuntutan kasus) dan pemahaman (potensi kemudahan diri dalam
mengembangkannya kelak).

Selamat berlibur bagi yang beruntung diberi keleluasaan untuk berlibur....

Wassalam,
Kid.

2012/12/25 Aden S <adendum_81@yahoo.com>

> **
>
>
> Dear All,
>
> 1. Bagaimana caranya menghitung nilai COUNTA (jumlah baris yang terisi
> angka lebih dari 0) yang terdiri dari tabel baris angka tapi nilai 0
> (kosong) tidak terhitung?
> 2. Bagaimana menghitung nilai rata-2 suatu tabel baris dimana nilai 0
> (kosong) tidak terhitung?
>
> berikut file terlampir
>
> Terima kasih
>
> Aden
>
>
>

Mon Dec 24, 2012 10:00 pm (PST) . Posted by:

"Dede Suparman" dede_suparman111

Dear All,        
Mohon Bantuan nya, setelah filter satu item saya ingin input dengan tombol
"INPUT", dan tujuan nya sheet di Option "P1", "P2". Tentunya dengan macro
file terlampir, maaf klo sudah di bahas, soalnya saya 2 hari mencari2 blm dapat,

         
         
Salam,        
Dede_Suparman        

Mon Dec 24, 2012 10:54 pm (PST) . Posted by:

"Slamet" slametharto

Dear Pak Dede

Pertama: Buat Link Opt Button 2 ke Cell D1 dan Opt Button 3 ke Cell D2
Kedua: Tulis formula di E1 = if(D1=true,"P1","P2")
Ketiga : Copas ke commandbutton2 code berikut:
With ThisWorkbook.Worksheets("Database")

Range(.Range("A3"), .UsedRange.Offset(2, 0)).Copy
Destination:=Worksheets((Range("E1"))).Cells(.Rows.Count,
"A").End(xlUp).Offset(1, 0)
End With

Wassalam

On 12/25/2012 12:56 PM, Dede Suparman wrote:
> Dear All,
> Mohon Bantuan nya, setelah filter satu item saya ingin input dengan
> tombol
> "INPUT", dan tujuan nya sheet di Option "P1", "P2". Tentunya dengan macro
> file terlampir, maaf klo sudah di bahas, soalnya saya 2 hari mencari2
> blm dapat,
>
>
> Salam,
> Dede_Suparman
>
> __._,

Mon Dec 24, 2012 11:10 pm (PST) . Posted by:

"amas solihin" amas_se

Terimakasih Mas Indra

--- On Mon, 12/24/12, Indra Psr <indra.psr@gmail.com> wrote:

From: Indra Psr <indra.psr@gmail.com>
Subject: Re: [belajar-excel] Gabung XL2Acs & Login Form
To: belajar-excel@yahoogroups.com
Date: Monday, December 24, 2012, 11:04 AM

 

oh iya, silahkan pak..
ini filenya sudah sy konekin jg spt yg di instruksikan Mr. Kid..

HS,

Indra

Pada tanggal 24/12/12, amas solihin <amas_se@yahoo.com> menulis:
> Mas indra boleh saya minta filenya saya sudah download attachment yang mas
> kasih ke Mr Kid tetapi tidak lengkap..saya ingin membuat aplikasi pake excel
> dengan referensi file mas indra..itu juga kalau boleh...thaks........semoga
> dengan adanya forum ini menjadikan kita lebih maju dan berkarya.....
>
> --- On Sun, 12/23/12, Indra Psr <indra.psr@gmail.com> wrote:
>
>
> From: Indra Psr <indra.psr@gmail.com>
> Subject: Re: [belajar-excel] Gabung XL2Acs & Login Form
> To: belajar-excel@yahoogroups.com
> Date: Sunday, December 23, 2012, 9:09 PM
>
>
>
>
>
>
>
> waooo... langsung tok-cerrrrr...
> thanks Mr. Kid..,, :-)
>
> Pada tanggal 23/12/12, Mr. Kid <mr.nmkid@gmail.com> menulis:
>> Hai Indra,
>>
>> Penggunaan ADO Object membutuhkan referensi ke MDAC (Ms Data Access
>> Component) seperti Ms ActiveX Data Object (Ms ADO)
>> Coba pada VBE ditambahkan referensi ke Ms ActiveX Data Object versi
>> berapa
>> saja yang dimiliki yang kemungkinan ada di komputer user kelak.
>> Cara :
>> ke VBE -> menu Tools -> References -> cari item Ms ActiveX Data Object
>> versi 2.7 -> centang item tersebut -> OK sampai kembali ke VBE -> Save
>> workbook.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/12/23 Indra Psr <indra.psr@gmail.com>
>>
>>> **
>>>
>>>
>>> Dear All,
>>>
>>> Sebelumnya terimakasih untuk Mr. Kid atas pengarahan sebelumnya,
>>> & mohon izin kembali menggunakan filenya "excel to access" yg di
>>> gabungkan dgn milik Alm. Mabrur "Login Form v2",
>>>
>>> Saya ada kesulitan ketika mencoba menggabungkan 2 file tersebut,
>>> setelah masukin user: "tes" & pass: "tes" (tanpa tanda petik), masuk
>>> ke sheet: "cust", sampai disini udah ok. Tapi, ketika mau update data
>>> ke access, setelah tekan "masukan data ke db1", yang ada malah muncul
>>> tampilan error & data tak terinput.. Apakah bisa di perbaiki? mohon
>>> petunjuknya, terimakasih..
>>>
>>> File terlampir,
>>> User: tes
>>> Pass: tes
>>>
>>> BR,
>>>
>>> Indra
>>>
>>>
>>
>
>
>
>
>
>

Mon Dec 24, 2012 11:34 pm (PST) . Posted by:

"Magung Klengkeng" klengkengmagung

Terimakasih Den Bagus atas problem solvingnya.
Thanks a lot.

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 22 Desember 2012 9:00
Judul: Re: [belajar-excel] Bukan vlookup - fungsi apa ya?


 

Dear Bakul klengkeng;
 
File terlampir semoga sesuai harapan
 
 
Bagus
 
 
----- Original Message -----
>From: Magung Klengkeng
>To: belajar-excel@yahoogroups.com
>Sent: Saturday, December 22, 2012 7:47 AM
>Subject: [belajar-excel] Bukan vlookup - fungsi apa ya?
>
> 
>
>Dear
suhu dan rekan
>
>Mohon bantuannya utnuk solusi problem excel
saya.
>
>Saya mempunyai data detail penjualan cabang sebanyak katakanlah
100 cabang secara konsolidasi.
>
>Nah data di masing-masing cabang ini
dikelompokkan menjadi beberapa area.
>
>Nah di perjalanan waktu, terjadi
perpindahan cabang dari area satu ke area lain.
>
>Dengan menggunakan
fungsi vlookup hal ini menjadi repot karena harus mengulang membuat
rumus.
>
>Adakah fungsi lain? saya denger ada fungsi match dll tapi saya
masih kebingungan dalam aplikasinya.
>
>Data excel
terlampir.
>
>Terimakasih atas bantuannya.
>
>Salam,
>
>Bakul
klengkeng
>
>

Tue Dec 25, 2012 2:33 am (PST) . Posted by:

"Magung Klengkeng" klengkengmagung

Thanks Mr Kid atas tembakan jitunya.
makin membuat saya ingin belajar excel.

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 22 Desember 2012 22:38
Judul: Re: [belajar-excel] Bukan vlookup - fungsi apa ya?


 
Hai Bakul klengkeng,

Coba pada sheet Area cell D10 diberi formula :
=VLOOKUP($B10,KOnsolidasi!$B$4:$CW$9,MATCH(INDEX(D$9:D9,MATCH($B$8,$B$8:$B10,1)),KOnsolidasi!$B$3:$CW$3,0),0)
Bahasa manusia :
"Ambil nilai dengan pencarian berdasar kolom pertama sebagai kunci [VLookUp] terhadap nilai nomor di area ke tabel konsolidasi yang pencocokannya adalah exact. Kemudian ambil data di indeks kolom hasil kalkulasi pencocokan kode cabang [Match] di area terkait pada header data sheet konsolidasi baris kode cabang dengan cara pencocokan yang sama persis, dimana kode cabang pada area terkait adalah pada index baris di kolom kerja [INDEX(D$9:D9] pada baris ditemukannya nama header NOMOR [$B$8] pada baris-baris diperluas di kolom nomor tersebut [$B$8:$B10] yang ditemukan terakhir [,1]"
Bagian ,1 dalam formula bisa dihapus karena default fungsi match adalah ,1.

Copy ke semua cell yang butuh ambil nilai dari sheet konsolidasi.
Syarat : dikedua sheet
1. kolom Nomor bertipe numerik dan harus ada
2. kode cabang bertipe text dan harus ada
3. penulisan nama kolom Nomor adalah tetap disemua dataset, baik per area maupun pada data konsolidasi

Sesuaikan rujukan range dan perhatikan penetapan absolute reference dalam formula jika data struktur tabel data maupun struktur tabel-tabel per area berbeda dengan contoh file lampiran yang pernah di-upload sebagai attachment.

Wassalam,
Kid.

2012/12/22 Magung Klengkeng <klengkengmagung@yahoo.co.id>

> 
>
>Dear suhu dan rekan
>
>Mohon bantuannya utnuk solusi problem excel saya.
>
>Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang secara konsolidasi.
>
>Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.
>
>Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area lain.
>
>Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus mengulang membuat rumus.
>
>Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih kebingungan dalam aplikasinya.
>
>Data excel terlampir.
>
>Terimakasih atas bantuannya.
>
>Salam,
>
>Bakul klengkeng
>
>

Tue Dec 25, 2012 12:10 am (PST) . Posted by:

"surya sampurna" wagiman777

Dear para Pakar Excel 2007

Saya minta tolong dong bantuin saya, untuk menghitung jumlah huruf
dalam beberapa
kolom. Mungkin para Pakar Excel bisa berbagi ilmunya.Data terlampir.
Terimakasihatas kemuliaan Anda dalam berbagi.

Wasalam,
Surya

Tue Dec 25, 2012 12:35 am (PST) . Posted by:

"ghozi alkatiri" ghozialkatiri

tulis formula pada cell N2

=COUNTA(A2:M2)

copy ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: surya sampurna <suryasampurna5@gmail.com>
Kepada: belajar-excel@yahoogroups.com; XL-mania@yahoogroups.com
Dikirim: Selasa, 25 Desember 2012 15:10
Judul: [belajar-excel] menghitung jumlah huruf dalam beberapa kolom


 
Dear para Pakar Excel 2007

Saya minta tolong dong bantuin saya, untuk menghitung jumlah huruf
dalam beberapa
kolom. Mungkin para Pakar Excel bisa berbagi ilmunya.Data terlampir.
Terimakasihatas kemuliaan Anda dalam berbagi.

Wasalam,
Surya

Tue Dec 25, 2012 2:32 am (PST) . Posted by:

"Bagus" bagus4bls

Dear Pak Surya;

mungkin begini:
=counta(A2:M2)
copy kebawah

Bagus

----- Original Message -----
From: surya sampurna
To: belajar-excel@yahoogroups.com ; XL-mania@yahoogroups.com
Sent: Tuesday, December 25, 2012 3:10 PM
Subject: [belajar-excel] menghitung jumlah huruf dalam beberapa kolom

Dear para Pakar Excel 2007

Saya minta tolong dong bantuin saya, untuk menghitung jumlah huruf
dalam beberapa
kolom. Mungkin para Pakar Excel bisa berbagi ilmunya.Data terlampir.
Terimakasihatas kemuliaan Anda dalam berbagi.

Wasalam,
Surya

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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 02.33

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)