5 Messages
Digest #4485
Messages
Sat Apr 14, 2018 2:20 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sebagai alternatif...Listnya bisa pakai UDF (User Defined Function) mbak Siti yang bernama LOUV (List of Unique Values).
UDF nya spt ini:Function LOUV(D As Range) '---------------------------------------------------------- ' membuat daftar unique value (sorted) berdasarkan range data ' coded by siti Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt '---------------------------------------------------------- Dim A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer ReDim A(1 To D.Cells.Count) For n = 1 To UBound(A): A(n) = D.Cells(n): Next n For n = 1 To UBound(A) - 1 For q = UBound(A) To n + 1 Step -1 p = q - 1 If A(p) > A(q) Then v = A(p): A(p) = A(q): A(q) = v Else If A(p) = A(q) Then A(q) = "" End If Next q Next n For n = 1 To UBound(A) If Not A(n) = "" Then r = r + 1: ReDim Preserve x(1 To r): x(r) = A(n) End If Next n LOUV = WorksheetFunction.Transpose(x)End Function
UDF nya bisa dibuat di module dan filenya disimpan sebagai file berMacro (.xlsm) atau Binary file (.xlsb)atau UDFnya disimpan tersendiri sebagai file Add-Ins (.xla), kemudian Fungsi LOUV diaktifkan melalui Add-Ins (Buka Add-Ins, Browse dan cari file (.xla) nya).
Jumlahnya bilangan cacahnya tetap pakai Fungsi CountIf.
Salam,HK
On Friday, 13 April 2018, 4:20:25 PM GMT+7, 'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Kalo formula jadinya panjang buanget atau ribet Mr Kid?
From: belajar-excel@yahoogroups..com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, April 13, 2018 2:41 PM
To: BeExcel
Subject: Re: [belajar-excel] MEMBUAT LIST DARI RANGE
Hai Ade,
Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh barisnya, seperti 'Kid'
Setelah itu manfaatkan pivot consolidation seperti yang ada diposting beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099
Regards,
Kid
2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear,
Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan menggunakan formula seperti apa?
Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.
Terlampir file excelnya.
Contoh:
Terimakasih,
Ade
UDF nya spt ini:Function LOUV(D As Range) '---------------------------------------------------------- ' membuat daftar unique value (sorted) berdasarkan range data ' coded by siti Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt '---------------------------------------------------------- Dim A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer ReDim A(1 To D.Cells.Count) For n = 1 To UBound(A): A(n) = D.Cells(n): Next n For n = 1 To UBound(A) - 1 For q = UBound(A) To n + 1 Step -1 p = q - 1 If A(p) > A(q) Then v = A(p): A(p) = A(q): A(q) = v Else If A(p) = A(q) Then A(q) = "" End If Next q Next n For n = 1 To UBound(A) If Not A(n) = "" Then r = r + 1: ReDim Preserve x(1 To r): x(r) = A(n) End If Next n LOUV = WorksheetFunction.Transpose(x)End Function
UDF nya bisa dibuat di module dan filenya disimpan sebagai file berMacro (.xlsm) atau Binary file (.xlsb)atau UDFnya disimpan tersendiri sebagai file Add-Ins (.xla), kemudian Fungsi LOUV diaktifkan melalui Add-Ins (Buka Add-Ins, Browse dan cari file (.xla) nya).
Jumlahnya bilangan cacahnya tetap pakai Fungsi CountIf.
Salam,HK
On Friday, 13 April 2018, 4:20:25 PM GMT+7, 'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Kalo formula jadinya panjang buanget atau ribet Mr Kid?
From: belajar-excel@yahoogroups..com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, April 13, 2018 2:41 PM
To: BeExcel
Subject: Re: [belajar-excel] MEMBUAT LIST DARI RANGE
Hai Ade,
Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh barisnya, seperti 'Kid'
Setelah itu manfaatkan pivot consolidation seperti yang ada diposting beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099
Regards,
Kid
2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear,
Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan menggunakan formula seperti apa?
Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.
Terlampir file excelnya.
Contoh:
Terimakasih,
Ade
Sat Apr 14, 2018 7:22 am (PDT) . Posted by:
"NangAgus"
Dear Jaka,
Kelihatannya ... Macro belum dihidupkan.
File >> Excel Option >> Trust Center >> Trust Center Setting >> Macro
Settings >> Pilih Disable all macros with notification.
Tutup excel, kemudian buka kembali. klik Enable this content.
salam
KenangAgus
On 4/13/2018 10:12 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] wrote:
> Di kompi saya munculnya begini *sebelum" dan "sesudah" Enable Editing
> diklik (terlampir).
>
> Salam,
> HK
>
>
> On Friday, 13 April 2018, 4:01:05 PM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Pa Hendrik,
>
> Trus solusinya seperti apa yaa? soalnya klo buka excel sudah tidak ada
> tampilan Enable Editing.
> Mohon pencerahannya,
>
> Terima Kasih,
> Jaka
>
>
>
> Pada Jumat, 13 April 2018 14.52.00 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Jaka,
> Di kompi saya bisa.
> Waktu buka Excel sdh klik Enable Editing ? Ini adalah default
> Protected View dari Excel, kalau ga salah mulai 2010 ke atas.
>
> Di kompi saya, awalnya keluar #Name...setelah klik Enable Editing maka
> terbilangnya akan muncul.
>
> Salam,
> HK
>
>
> On Friday, 13 April 2018, 10:39:24 AM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Pa Hendrik & Rekan2 Be-Exceller,
>
> Berikut saya lampirkan Dummy File & Add Ins-nya,
>
> Terima kasih,
> Jaka
>
>
>
> Pada Kamis, 12 April 2018 15.18.03 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups..com> menulis:
>
>
> Coba dishare file .xla dan dummy file Excelnya.
>
> Salam,
> HK
>
> On Thursday, 12 April 2018, 2:38:07 PM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Member Be-Excel
>
> Mohon bantuannya, kenapa yaa Add Ins terbilang pada komputer saya
> tidak berfungsi, sudah dicoba beberapa Add-Ins dengan sumber yang
> berbeda hasilnya sama..
>
> Terima Kasih atas bantuannya,
>
> Thanks,
> Jaka
>
Kelihatannya ... Macro belum dihidupkan.
File >> Excel Option >> Trust Center >> Trust Center Setting >> Macro
Settings >> Pilih Disable all macros with notification.
Tutup excel, kemudian buka kembali. klik Enable this content.
salam
KenangAgus
On 4/13/2018 10:12 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] wrote:
> Di kompi saya munculnya begini *sebelum" dan "sesudah" Enable Editing
> diklik (terlampir).
>
> Salam,
> HK
>
>
> On Friday, 13 April 2018, 4:01:05 PM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Pa Hendrik,
>
> Trus solusinya seperti apa yaa? soalnya klo buka excel sudah tidak ada
> tampilan Enable Editing.
> Mohon pencerahannya,
>
> Terima Kasih,
> Jaka
>
>
>
> Pada Jumat, 13 April 2018 14.52.00 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Jaka,
> Di kompi saya bisa.
> Waktu buka Excel sdh klik Enable Editing ? Ini adalah default
> Protected View dari Excel, kalau ga salah mulai 2010 ke atas.
>
> Di kompi saya, awalnya keluar #Name...setelah klik Enable Editing maka
> terbilangnya akan muncul.
>
> Salam,
> HK
>
>
> On Friday, 13 April 2018, 10:39:24 AM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Pa Hendrik & Rekan2 Be-Exceller,
>
> Berikut saya lampirkan Dummy File & Add Ins-nya,
>
> Terima kasih,
> Jaka
>
>
>
> Pada Kamis, 12 April 2018 15.18.03 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups..com> menulis:
>
>
> Coba dishare file .xla dan dummy file Excelnya.
>
> Salam,
> HK
>
> On Thursday, 12 April 2018, 2:38:07 PM GMT+7, Kamirin Faqoth
> kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Dear Member Be-Excel
>
> Mohon bantuannya, kenapa yaa Add Ins terbilang pada komputer saya
> tidak berfungsi, sudah dicoba beberapa Add-Ins dengan sumber yang
> berbeda hasilnya sama..
>
> Terima Kasih atas bantuannya,
>
> Thanks,
> Jaka
>
Sat Apr 14, 2018 7:25 am (PDT) . Posted by:
"NangAgus"
Dear Kana,
saya coba pakai file yang lama saja yaa...
coba di M3 di ketikkan formula:
=(D3*E3+IFERROR((SUM($D$2:D2)-SUM($K$2:K2))*M2+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)*M2-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0)*M2;0))/(D3+SUM($D$2:D2)-SUM($K$2:K2)+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0))
formula tersebut hanya dicoba pada data sesuai lampiran, belum dicoba
untuk berbagai kreteria,
silahkan dicoba dahulu, kalau masih ada kesulitan dapat diposting kembali
Jabat Erat
NangAgus
On 3/22/2018 1:16 PM, odong nando odongnando@yahoo.com [belajar-excel]
wrote:
> hai kana,
>
> ini saran saja, utk kedepannya mungkin bisa memperhalus lagi bahasa
> dalam email yang di tulis kemilis, jgn sampai ada tulisan yang
> "mendesak" utk di respon, saya pernah kok 1 bln lebih bertanya ke
> milis baru ada yang jawab...
>
> oiya, balik lagi ke masalah yang di hadapi, coba di buatkan dulu /
> coba anda gabungkan dulu setiap tabel yang ada, dari tabel pembelian,
> penjualan, retur itu anda buatkan dulu menjadi 1 tabel...
>
> mungkin setelah tabelnya di gabungkan, banyak yang merespon...
> br,
>
> odong nando*
> *
>
>
> ----------------------------------------------------------
> *Dari:* "kanadhasenroy@yahoo.com [belajar-excel]"
> <belajar-excel@yahoogroups.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 21 Maret 2018 13:06
> *Judul:* [belajar-excel] Re: average cost/unit
>
> Kepada master semuanya,
>
>
> Dengan ini saya lampirkan file excel saya yang sudah saya sederhanakan
> sehingga memudahkan untuk
>
> memahaminya. Mohon untuk membantu saya memecahkan masalah ini.
> Walaupun sampai sekarang belum
>
> ada respon apapun dari para master excel.
>
>
>
> Terima Kasih
>
>
> Kana
>
>
>
>
saya coba pakai file yang lama saja yaa...
coba di M3 di ketikkan formula:
=(D3*E3+IFERROR((SUM($D$2:D2)-SUM($K$2:K2))*M2+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)*M2-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0)*M2;0))/(D3+SUM($D$2:D2)-SUM($K$2:K2)+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0))
formula tersebut hanya dicoba pada data sesuai lampiran, belum dicoba
untuk berbagai kreteria,
silahkan dicoba dahulu, kalau masih ada kesulitan dapat diposting kembali
Jabat Erat
NangAgus
On 3/22/2018 1:16 PM, odong nando odongnando@yahoo.com [belajar-excel]
wrote:
> hai kana,
>
> ini saran saja, utk kedepannya mungkin bisa memperhalus lagi bahasa
> dalam email yang di tulis kemilis, jgn sampai ada tulisan yang
> "mendesak" utk di respon, saya pernah kok 1 bln lebih bertanya ke
> milis baru ada yang jawab...
>
> oiya, balik lagi ke masalah yang di hadapi, coba di buatkan dulu /
> coba anda gabungkan dulu setiap tabel yang ada, dari tabel pembelian,
> penjualan, retur itu anda buatkan dulu menjadi 1 tabel...
>
> mungkin setelah tabelnya di gabungkan, banyak yang merespon...
> br,
>
> odong nando*
> *
>
>
> ----------------------------------------------------------
> *Dari:* "kanadhasenroy@yahoo.com [belajar-excel]"
> <belajar-excel@yahoogroups.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 21 Maret 2018 13:06
> *Judul:* [belajar-excel] Re: average cost/unit
>
> Kepada master semuanya,
>
>
> Dengan ini saya lampirkan file excel saya yang sudah saya sederhanakan
> sehingga memudahkan untuk
>
> memahaminya. Mohon untuk membantu saya memecahkan masalah ini.
> Walaupun sampai sekarang belum
>
> ada respon apapun dari para master excel.
>
>
>
> Terima Kasih
>
>
> Kana
>
>
>
>
Sat Apr 14, 2018 4:11 pm (PDT) . Posted by:
"NangAgus"
Dear Yusuf:
Coba cekrip:
Edate = Format("31/08/2009", "DD/MM/YYYY") ' Replace this with the date
you want
diubah menjadi:
Edate = Format("30/04/*2018*", "*dd/mm/yyyy*") ' Replace this with the
date you want
Jabat erat
NangAgus
On 4/13/2018 11:47 AM, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Saya sudah script berikut namun tidak bisa digunakan:
>
>
> Private Sub Workbook_Open()
>
> Dim Edate As Date
>
> Edate = Format("31/08/2009", "DD/MM/YYYY") ' Replace this with the
> date you want
>
> If Date > Edate Then
>
> MsgBox ("This worksheet was valid upto " & Format(Edate,
> "dd-mmm-yyyy") & " and will be closed")
>
> ActiveWorkbook.Close
>
> End If
>
> If Edate - Date < 30 Then
>
> MsgBox ("This worksheet expires on " & Format(Edate,
> "dd-mmm-yyyy") & " You have " & Edate - Date & " Days left ")
>
> End If
>
> End Sub
>
>
> Mohon dibantu scrip untuk experied date untuk Office 2010?
>
>
> Terimakasih.
>
>
>
> Yusuf
>
>
Coba cekrip:
Edate = Format("31/08/2009", "DD/MM/YYYY") ' Replace this with the date
you want
diubah menjadi:
Edate = Format("30/04/*2018*", "*dd/mm/yyyy*") ' Replace this with the
date you want
Jabat erat
NangAgus
On 4/13/2018 11:47 AM, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Saya sudah script berikut namun tidak bisa digunakan:
>
>
> Private Sub Workbook_Open(
>
> Dim Edate As Date
>
> Edate = Format("
> date you want
>
> If Date > Edate Then
>
> MsgBox ("This worksheet was valid upto " & Format(Edate,
> "dd-mmm-
>
> ActiveWorkbook.
>
> End If
>
> If Edate - Date < 30 Then
>
> MsgBox ("This worksheet expires on " & Format(Edate,
> "dd-mmm-
>
> End If
>
> End Sub
>
>
> Mohon dibantu scrip untuk experied date untuk Office 2010?
>
>
> Terimakasih.
>
>
>
> Yusuf
>
>
Sat Apr 14, 2018 4:48 pm (PDT) . Posted by:
"NangAgus"
Dear Wahyu, / Ade,
Selain SumIf; masih dapat digunakan formula lainnya misalnya:
SumProduct; Sum; SumIfs; dan berbagai formula gabungan lainnya, namun
yang paling sederhana (paling pendek formulanya) menggunakan sumif atau
sumifs
Salam
NangAgus
On 4/13/2018 11:23 AM, ghozi alkatiri ghozialkatiri@yahoo.co.id
[belajar-excel] wrote:
> di F10
>
> =SUMIF($C$4:$T$4,E10,$C$5:$T$5)
>
> copy ke bawah
>
> wassalam
>
> ghozi alkatiri
>
> Pada Jumat, 13 April 2018 10.41.18 GMT+7, odong nando
> odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> menulis:
>
>
> sangat bisa, bila anda terbiasa menggunakan fungsi sumif ini yang
> biasa nya kebawah jadi kesamping saja utk range dan sum range nya..
>
> silakan di coba...
> br,
>
> odong nando*
> *
>
>
>
>
> ----------------------------------------------------------
> *Dari:* "Wahyu Eko abi_escorp@yahoo.com [belajar-excel]"
> <belajar-excel@yahoogroups.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 13 April 2018 10:29
> *Judul:* [belajar-excel] Penggunaan formula SUMIF untuk data
> Horisontal [1 Attachment]
>
> Assalamu alaikum Wr. Wb.
>
> Saya ingin meminta bantuan ke teman teman Be Exceler tentang
> penggunaan Formula SUMIF untuk data Horisontal. BIsa atau tidak? Saya
> mengalami kendala mengenai hal tersebut. saya harap teman2 be Exceler
> bersedia untuk membantu.
> File Terlampir.
>
> Sebelumnya saya ucapkan banyak terima kasih..
>
> Wassalam.
>
>
>
Selain SumIf; masih dapat digunakan formula lainnya misalnya:
SumProduct; Sum; SumIfs; dan berbagai formula gabungan lainnya, namun
yang paling sederhana (paling pendek formulanya) menggunakan sumif atau
sumifs
Salam
NangAgus
On 4/13/2018 11:23 AM, ghozi alkatiri ghozialkatiri@yahoo.co.id
[belajar-excel] wrote:
> di F10
>
> =SUMIF($C$4:$T$4,E10,$C$5:$T$5)
>
> copy ke bawah
>
> wassalam
>
> ghozi alkatiri
>
> Pada Jumat, 13 April 2018 10.41.18 GMT+7, odong nando
> odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> menulis:
>
>
> sangat bisa, bila anda terbiasa menggunakan fungsi sumif ini yang
> biasa nya kebawah jadi kesamping saja utk range dan sum range nya..
>
> silakan di coba...
> br,
>
> odong nando*
> *
>
>
>
>
> ----------------------------------------------------------
> *Dari:* "Wahyu Eko abi_escorp@yahoo.com [belajar-excel]"
> <belajar-excel@yahoogroups.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 13 April 2018 10:29
> *Judul:* [belajar-excel] Penggunaan formula SUMIF untuk data
> Horisontal [1 Attachment]
>
> Assalamu alaikum Wr. Wb.
>
> Saya ingin meminta bantuan ke teman teman Be Exceler tentang
> penggunaan Formula SUMIF untuk data Horisontal. BIsa atau tidak? Saya
> mengalami kendala mengenai hal tersebut. saya harap teman2 be Exceler
> bersedia untuk membantu.
> File Terlampir.
>
> Sebelumnya saya ucapkan banyak terima kasih..
>
> Wassalam.
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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