15 Messages
Digest #3689
9b
Re: Kombinasi Rumus/Fungsi Hyperlink dengan Look up [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
9c
Bls: [belajar-excel] Kombinasi Rumus/Fungsi Hyperlink dengan Look up by "Rian Sutarsa" riansutarsa
Messages
Sat Dec 19, 2015 5:13 am (PST) . Posted by:
"Rian Sutarsa" riansutarsa
Waalaikumussalam Wr. Wb.
Masyaallah indah kayaknya kalau bisa kumpul kumpul gitu tapi sayangnya jauh -_- saya tinggalnya di garut.
Mohon maaf sebesar besarnya, terimakasih untuk untuk undangannya & salam buat semuanya
-------- Pesan asli --------
Dari: "Tio Ali tioali2011@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
Tanggal:19/12/2015 8:03 AM (GMT+07:00)
Ke: belajar-excel@yahoogroups.com
Cc:
Subjek: [belajar-excel] File sharing
Salam para pakar Excel.Saya sedang buat file sharing excel dan buat code untuk input data.Langkah2nya sbb :1. Save data dulu biar bisa lihat perubahan data yg ter-update2. Buka protek baris yang mau diisi datanya3. Buat code untuk input data4. Save data5. Protek workbook lagiAdakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?Terima kasih. TioDikirim dari Yahoo Mail pada Android - Forwarded message -From: dwint ruswanto dwint.ruswanto@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>Date: 2015-12-14 12:45 GMT+07:00Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-ExcelTo: belajar-excel@yahoogroups.com Assalamu'alaikum wr. wb.,Dear Be-Exceler,Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin 2-3 bulan sekali di luar jadwal Kopdar Millis.Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum ditanggung oleh masing-masing anggota yang hadir. Jadwal perdana, Insha Allah akan dilaksanakan pada:Hari/Tanggal : Sabtu, 19 Desember 2015Jam : 12:00 - selesaiLokasi : Starbucks Sarinah, Jl. MH Thamrin, Jakarta PusatUndangan ini terbuka untuk seluruh anggota millis Belajar Excel.Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:1. Mr Kid2. Pak Anton3. Pak Hendrik Karnadi4. saya sendiri5. reserved for pak Aliif :)6. reserved for Bang Aksan :)7. ....8. ... dstBerhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.Ditunggu kehadiran rekan Be-Exceler yang lain.Wassalamu'alaikum wr. wb.,dwint
Masyaallah indah kayaknya kalau bisa kumpul kumpul gitu tapi sayangnya jauh -_- saya tinggalnya di garut.
Mohon maaf sebesar besarnya, terimakasih untuk untuk undangannya & salam buat semuanya
-------- Pesan asli --------
Dari: "Tio Ali tioali2011@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
Tanggal:19/12/2015 8:03 AM (GMT+07:00)
Ke: belajar-excel@yahoogroups.com
Cc:
Subjek: [belajar-excel] File sharing
Salam para pakar Excel.Saya sedang buat file sharing excel dan buat code untuk input data.Langkah2nya sbb :1. Save data dulu biar bisa lihat perubahan data yg ter-update2. Buka protek baris yang mau diisi datanya3. Buat code untuk input data4. Save data5. Protek workbook lagiAdakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?Terima kasih. TioDikirim dari Yahoo Mail pada Android - Forwarded message -From: dwint ruswanto dwint.ruswanto@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>Date: 2015-12-14 12:45 GMT+07:00Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-ExcelTo: belajar-excel@yahoogroups.com Assalamu'
Sat Dec 19, 2015 5:13 am (PST) . Posted by:
"Yudi Dwiyono"
Dear Master„
Bisa dibantu persoalan ini
Regards
Yudi
On 12/15/15, Yudi Dwiyono <yudidwiyono@gmail.com> wrote:
> Dear para Master Excel,
>
> Saya mau bertanya untuk Transport Plan terlampir, bagaimana cara untuk
> merencanakan keberangkatan armada. filte terlampir.
> Thanks.
>
> Regards,
> Yudi
>
Bisa dibantu persoalan ini
Regards
Yudi
On 12/15/15, Yudi Dwiyono <yudidwiyono@gmail.com> wrote:
> Dear para Master Excel,
>
> Saya mau bertanya untuk Transport Plan terlampir, bagaimana cara untuk
> merencanakan keberangkatan armada. filte terlampir.
> Thanks.
>
> Regards,
> Yudi
>
Sat Dec 19, 2015 5:20 am (PST) . Posted by:
"Heru Adi" hr_adhi
Assalamu'alaikum.
Selamat sore rekan-rekan .
Apakah ada yang punya contoh file / aplikasi yg dilengkapi code terkait array dua dimensi ? , agar bisa menjadi bahan analisa saya untuk memahaminya.
Sebelumnya saya ucapkan terimakasih .
Best regards,
Heru Adi S
Dikirim dari Yahoo Mail pada Android
Selamat sore rekan-rekan .
Apakah ada yang punya contoh file / aplikasi yg dilengkapi code terkait array dua dimensi ? , agar bisa menjadi bahan analisa saya untuk memahaminya.
Sebelumnya saya ucapkan terimakasih .
Best regards,
Heru Adi S
Dikirim dari Yahoo Mail pada Android
Sat Dec 19, 2015 5:25 am (PST) . Posted by:
"Teguh Wahyono"
Terima kasih buat mas ryan dan mas agus atas saran dan bantuannya.
Saya coba praktekin dulu.
SalamWahyono
Pada Sabtu, 19 Desember 2015 12:16, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear wahyono,
Coba dibuat begini:
1. Kli Developer, Record macro
2. Pada sheet Database block A8:D8, Klik Kopi
3. Pindah ke sheet Jan klik A6
4. Pilih paste Value
5. Ketik formula di G6: =E5*VLOOKUP(D5,DataBase!$J$3:$K$7,2,FALSE)
6. Ketik formula di H6: =E6+G6
7. Pindah kesheet DataBase
8. Ulangi langkah 2 sampai langkah 6 untuk Sheet Feb.
9. Stop Recording.
sekarang buka Visual Basic Editor. (Alt F11)
1. Double Klik Sheet1(DataBase) pada ProjectExplorer
2. Pilih bprosedur whorksheet change, atau ketikkan cekrip berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
End If
End Sub
Kemudian kopi cekrip hasil rekaman kedalam cekrip yang baru diketik. (cekrip rekaman ada pada module 1. yang dicopy adalah baris sesudah Sub sampai baris sebelum End Sub) di pastekan sebelum End If (tempat yang kosong))
3. Ubah cekrip Range("A8:D8") menjadi: Range("A" & rowne & ":D" & rowne)
(Tujuannya agar dapat mengkopi baris yang sendang diketik)
4. Ubah cekrip Range("A6") menjadi: Range("A" & rowne - 2)
(Tujuannya agar dapat menempel pada 2 baris di bawah yang sendang diketik)
5. Hapus semua .Select sampai cell (sisakan satu titik)
rowne - 2).Select
ActiveCell.P
6. Tambahkan cekrip : Sheets("Jan").
(ada titiknya lho) pada semua cekrip yang didahului range dan berada di bawah Jan sebelum Feb.
7. Simpan File
Jika Semua dijalankan dengan benar akan memperoleh cekrip lengkap sebagai berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Jan").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Jan").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Jan").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Feb").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feb").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Feb").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
End If
End Sub
Sebenarnya cekrip tersebut dapat dipersingkat menggunakan loop atau with dapat juga dengan case.
Tentunya cekrip dapat singkat jika diketik sendiri, namun bagi pemula seperti saya record macro lebih mudah dikerjakan dan tidak salah syntax.
silahkan dicoba sambil belajar, kalau mau belajar yang lebih detail silahkan buka blog Milis mulai dari sini
Mohon maaf atas semua kesalahan. apalagi yang merasa tersinggung dengan ketikan ini, terutama para master Excel mohon bimbingannya agar ketikan saya ini dapat diperbaiki.
wasalamualaikum warahmatullah
NangAgus
2015-12-18 0:31 GMT+07:00 Teguh Wahyono wahy0n0_java@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear all,Saya punya masalah dgn data excel saya, mungkin teman2 di millis ini bisa membantu agar bisa lebih cepat dan efisien.
Saya punya data di excel yang berisi data base pegawai dan sheet bulan per bulan yang harus selalu diupdate jumlahnya dengan cara mengkopi kebawah tiap bulannya. (Contoh file terlampir). Penjelasannya bisa lihat di sheet "Jan".
Adakah teman2 di millis ini yang bisa bantu memberitahu saya script macro vbanya. Saya sudah coba nyari di gogle tapi gak nemu. apalagi saya juga beginer yang baru belajar vba.
Atas bantuannya terima kasih.Salam
Wahyono
#yiv2242809118 #yiv2242809118 -- #yiv2242809118ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2242809118 #yiv2242809118ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2242809118 #yiv2242809118ygrp-mkp #yiv2242809118hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2242809118 #yiv2242809118ygrp-mkp #yiv2242809118ads {margin-bottom:10px;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad {padding:0 0;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad p {margin:0;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad a {color:#0000ff;text-decoration:none;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ygrp-lc {font-family:Arial;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ygrp-lc #yiv2242809118hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ygrp-lc .yiv2242809118ad {margin-bottom:10px;padding:0 0;}#yiv2242809118 #yiv2242809118actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2242809118 #yiv2242809118activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2242809118 #yiv2242809118activity span {font-weight:700;}#yiv2242809118 #yiv2242809118activity span:first-child {text-transform:uppercase;}#yiv2242809118 #yiv2242809118activity span a {color:#5085b6;text-decoration:none;}#yiv2242809118 #yiv2242809118activity span span {color:#ff7900;}#yiv2242809118 #yiv2242809118activity span .yiv2242809118underline {text-decoration:underline;}#yiv2242809118 .yiv2242809118attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2242809118 .yiv2242809118attach div a {text-decoration:none;}#yiv2242809118 .yiv2242809118attach img {border:none;padding-right:5px;}#yiv2242809118 .yiv2242809118attach label {display:block;margin-bottom:5px;}#yiv2242809118 .yiv2242809118attach label a {text-decoration:none;}#yiv2242809118 blockquote {margin:0 0 0 4px;}#yiv2242809118 .yiv2242809118bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2242809118 .yiv2242809118bold a {text-decoration:none;}#yiv2242809118 dd.yiv2242809118last p a {font-family:Verdana;font-weight:700;}#yiv2242809118 dd.yiv2242809118last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2242809118 dd.yiv2242809118last p span.yiv2242809118yshortcuts {margin-right:0;}#yiv2242809118 div.yiv2242809118attach-table div div a {text-decoration:none;}#yiv2242809118 div.yiv2242809118attach-table {width:400px;}#yiv2242809118 div.yiv2242809118file-title a, #yiv2242809118 div.yiv2242809118file-title a:active, #yiv2242809118 div.yiv2242809118file-title a:hover, #yiv2242809118 div.yiv2242809118file-title a:visited {text-decoration:none;}#yiv2242809118 div.yiv2242809118photo-title a, #yiv2242809118 div.yiv2242809118photo-title a:active, #yiv2242809118 div.yiv2242809118photo-title a:hover, #yiv2242809118 div.yiv2242809118photo-title a:visited {text-decoration:none;}#yiv2242809118 div#yiv2242809118ygrp-mlmsg #yiv2242809118ygrp-msg p a span.yiv2242809118yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2242809118 .yiv2242809118green {color:#628c2a;}#yiv2242809118 .yiv2242809118MsoNormal {margin:0 0 0 0;}#yiv2242809118 o {font-size:0;}#yiv2242809118 #yiv2242809118photos div {float:left;width:72px;}#yiv2242809118 #yiv2242809118photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2242809118 #yiv2242809118photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2242809118 #yiv2242809118reco-category {font-size:77%;}#yiv2242809118 #yiv2242809118reco-desc {font-size:77%;}#yiv2242809118 .yiv2242809118replbq {margin:4px;}#yiv2242809118 #yiv2242809118ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2242809118 #yiv2242809118ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2242809118 #yiv2242809118ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2242809118 #yiv2242809118ygrp-mlmsg select, #yiv2242809118 input, #yiv2242809118 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2242809118 #yiv2242809118ygrp-mlmsg pre, #yiv2242809118 code {font:115% monospace;}#yiv2242809118 #yiv2242809118ygrp-mlmsg * {line-height:1.22em;}#yiv2242809118 #yiv2242809118ygrp-mlmsg #yiv2242809118logo {padding-bottom:10px;}#yiv2242809118 #yiv2242809118ygrp-msg p a {font-family:Verdana;}#yiv2242809118 #yiv2242809118ygrp-msg p#yiv2242809118attach-count span {color:#1E66AE;font-weight:700;}#yiv2242809118 #yiv2242809118ygrp-reco #yiv2242809118reco-head {color:#ff7900;font-weight:700;}#yiv2242809118 #yiv2242809118ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ov li a {font-size:130%;text-decoration:none;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2242809118 #yiv2242809118ygrp-sponsor #yiv2242809118ov ul {margin:0;padding:0 0 0 8px;}#yiv2242809118 #yiv2242809118ygrp-text {font-family:Georgia;}#yiv2242809118 #yiv2242809118ygrp-text p {margin:0 0 1em 0;}#yiv2242809118 #yiv2242809118ygrp-text tt {font-size:120%;}#yiv2242809118 #yiv2242809118ygrp-vital ul li:last-child {border-right:none !important;}#yiv2242809118
Saya coba praktekin dulu.
SalamWahyono
Pada Sabtu, 19 Desember 2015 12:16, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear wahyono,
Coba dibuat begini:
1. Kli Developer, Record macro
2. Pada sheet Database block A8:D8, Klik Kopi
3. Pindah ke sheet Jan klik A6
4. Pilih paste Value
5. Ketik formula di G6: =E5*VLOOKUP(D5,DataBase!$J$3:$K$7,2,FALSE)
6. Ketik formula di H6: =E6+G6
7. Pindah kesheet DataBase
8. Ulangi langkah 2 sampai langkah 6 untuk Sheet Feb.
9. Stop Recording.
sekarang buka Visual Basic Editor. (Alt F11)
1. Double Klik Sheet1(DataBase) pada ProjectExplorer
2. Pilih bprosedur whorksheet change, atau ketikkan cekrip berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
End If
End Sub
Kemudian kopi cekrip hasil rekaman kedalam cekrip yang baru diketik. (cekrip rekaman ada pada module 1. yang dicopy adalah baris sesudah Sub sampai baris sebelum End Sub) di pastekan sebelum End If (tempat yang kosong))
3. Ubah cekrip Range("A8:D8") menjadi: Range("A" & rowne & ":D" & rowne)
(Tujuannya agar dapat mengkopi baris yang sendang diketik)
4. Ubah cekrip Range("A6") menjadi: Range("A" & rowne - 2)
(Tujuannya agar dapat menempel pada 2 baris di bawah yang sendang diketik)
5. Hapus semua .Select sampai cell (sisakan satu titik)
rowne - 2).Select
ActiveCell.P
6. Tambahkan cekrip : Sheets("Jan").
(ada titiknya lho) pada semua cekrip yang didahului range dan berada di bawah Jan sebelum Feb.
7. Simpan File
Jika Semua dijalankan dengan benar akan memperoleh cekrip lengkap sebagai berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Jan").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Jan").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Jan").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Feb").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feb").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Feb").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
End If
End Sub
Sebenarnya cekrip tersebut dapat dipersingkat menggunakan loop atau with dapat juga dengan case.
Tentunya cekrip dapat singkat jika diketik sendiri, namun bagi pemula seperti saya record macro lebih mudah dikerjakan dan tidak salah syntax.
silahkan dicoba sambil belajar, kalau mau belajar yang lebih detail silahkan buka blog Milis mulai dari sini
Mohon maaf atas semua kesalahan. apalagi yang merasa tersinggung dengan ketikan ini, terutama para master Excel mohon bimbingannya agar ketikan saya ini dapat diperbaiki.
wasalamualaikum warahmatullah
NangAgus
2015-12-18 0:31 GMT+07:00 Teguh Wahyono wahy0n0_java@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear all,Saya punya masalah dgn data excel saya, mungkin teman2 di millis ini bisa membantu agar bisa lebih cepat dan efisien.
Saya punya data di excel yang berisi data base pegawai dan sheet bulan per bulan yang harus selalu diupdate jumlahnya dengan cara mengkopi kebawah tiap bulannya. (Contoh file terlampir). Penjelasannya bisa lihat di sheet "Jan"
Adakah teman2 di millis ini yang bisa bantu memberitahu saya script macro vbanya. Saya sudah coba nyari di gogle tapi gak nemu. apalagi saya juga beginer yang baru belajar vba.
Atas bantuannya terima kasih.Salam
Wahyono
#yiv2242809118 #yiv2242809118 -- #yiv2242809118ygrp-
Sat Dec 19, 2015 5:30 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Odong,
Asumsinya, huruf kapital letaknya bisa dimana saja di dalam suatu teks.
Pakai Replace, Search, dan Len ya...
=Replace( *data_teks* ,Search( *teks_yang_diganti* , *data_teks* ) , Len(
*teks_yang_diganti* ) , *teks_pengganti* )
Contoh :
*A1* berisi nilai data bertipe teks berbunyi '*Ini Satu Buah data teks*'
(ada huruf kapital di data teks berbunyi 'Satu Buah')
*B1* berisi nilai teks yang diganti, yaitu teks berbunyi '*satu buah*'
(huruf kecil semua)
*C1* berisi nilai teks pengganti berbunyi '*Sebuah*'
Kata 'Satu Buah' di dalam data teks di A1 akan diganti menjadi kata
berbunyi 'Sebuah'
di D1 (cells hasil) diberi formula :
=Replace( *A1* , Search( *B1* , *A1* ) , Len( *B1* ) , *C1* )
Wassalam,
Kid
2015-12-19 12:39 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> saya sedang berkendala pada saat mengganti text karakter tertentu, dengan
> text karakter lainnya, seharusnya saya dapat menggunakan fungsi SUBSTITUTE,
> namun yang jadi kendala adalah saat ada perbedaan huruf besar dan kecil
> pada "old text" dan text cell yang akan di cari, adakah pengganti
> fungsi SUBSTITUTE yang tidak memperhatikan huruf besar dan kecil...
>
> br,
>
> odong nando
>
>
>
Asumsinya, huruf kapital letaknya bisa dimana saja di dalam suatu teks.
Pakai Replace, Search, dan Len ya...
=Replace( *data_teks* ,Search( *teks_yang_diganti* , *data_teks* ) , Len(
*teks_yang_diganti* ) , *teks_pengganti* )
Contoh :
*A1* berisi nilai data bertipe teks berbunyi '*Ini Satu Buah data teks*'
(ada huruf kapital di data teks berbunyi 'Satu Buah')
*B1* berisi nilai teks yang diganti, yaitu teks berbunyi '*satu buah*'
(huruf kecil semua)
*C1* berisi nilai teks pengganti berbunyi '*Sebuah*'
Kata 'Satu Buah' di dalam data teks di A1 akan diganti menjadi kata
berbunyi 'Sebuah'
di D1 (cells hasil) diberi formula :
=Replace( *A1* , Search( *B1* , *A1* ) , Len( *B1* ) , *C1* )
Wassalam,
Kid
2015-12-19 12:39 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> saya sedang berkendala pada saat mengganti text karakter tertentu, dengan
> text karakter lainnya, seharusnya saya dapat menggunakan fungsi SUBSTITUTE,
> namun yang jadi kendala adalah saat ada perbedaan huruf besar dan kecil
> pada "old text" dan text cell yang akan di cari, adakah pengganti
> fungsi SUBSTITUTE yang tidak memperhatikan huruf besar dan kecil...
>
> br,
>
> odong nando
>
>
>
Sat Dec 19, 2015 2:31 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
Tidak ada yang perlu ditambahkan. Bisa jadi, langkah nomor 1 tidak
diperlukan. Tetapi, bila ingin lebih terasa lebih aman, langkah 1 juga
dilakukan. Langkah 2 adalah unprotect sheet. Langkah 5 adalah protect sheet.
Jika tidak ingin muncul pesan-pesan dari Excel, atur aplikasi Excel
properti DisplayAlerts menjadi off sebelum langkah 1 dan atur kembali
menjadi on setelah langkah 5.
Wassalam,
Kid
2015-12-19 8:03 GMT+07:00 Tio Ali tioali2011@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Salam para pakar Excel.
> Saya sedang buat file sharing excel dan buat code untuk input data.
> Langkah2nya sbb :
> 1. Save data dulu biar bisa lihat perubahan data yg ter-update
> 2. Buka protek baris yang mau diisi datanya
> 3. Buat code untuk input data
> 4. Save data
> 5. Protek workbook lagi
>
> Adakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?
>
> Terima kasih.
> Tio
>
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
> ------------------------------
>
>
>
> ---------- Forwarded message ----------
> From: dwint ruswanto dwint.ruswanto@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>
> Date: 2015-12-14 12:45 GMT+07:00
> Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-Excel
> To: belajar-excel@yahoogroups.com
>
>
>
>
> Assalamu'alaikum wr. wb.,
>
> Dear Be-Exceler,
>
> Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member
> milis Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan
> rutin 2-3 bulan sekali di luar jadwal Kopdar Millis.
>
> Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi
> diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang
> dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum
> ditanggung oleh masing-masing anggota yang hadir.
>
> Jadwal perdana, Insha Allah akan dilaksanakan pada:
>
> Hari/Tanggal : Sabtu, 19 Desember 2015
> Jam : 12:00 - selesai
> Lokasi : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat
>
> Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.
>
> Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
> 1. Mr Kid
> 2. Pak Anton
> 3. Pak Hendrik Karnadi
> 4. saya sendiri
> 5. reserved for pak Aliif :)
> 6. reserved for Bang Aksan :)
> 7. ....
> 8. ... dst
>
> Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang
> akan dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa
> kasus silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.
>
> Ditunggu kehadiran rekan Be-Exceler yang lain.
>
> Wassalamu'alaikum wr. wb.,
>
> dwint
>
>
>
>
>
>
>
Tidak ada yang perlu ditambahkan. Bisa jadi, langkah nomor 1 tidak
diperlukan. Tetapi, bila ingin lebih terasa lebih aman, langkah 1 juga
dilakukan. Langkah 2 adalah unprotect sheet. Langkah 5 adalah protect sheet.
Jika tidak ingin muncul pesan-pesan dari Excel, atur aplikasi Excel
properti DisplayAlerts menjadi off sebelum langkah 1 dan atur kembali
menjadi on setelah langkah 5.
Wassalam,
Kid
2015-12-19 8:03 GMT+07:00 Tio Ali tioali2011@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Salam para pakar Excel.
> Saya sedang buat file sharing excel dan buat code untuk input data.
> Langkah2nya sbb :
> 1. Save data dulu biar bisa lihat perubahan data yg ter-update
> 2. Buka protek baris yang mau diisi datanya
> 3. Buat code untuk input data
> 4. Save data
> 5. Protek workbook lagi
>
> Adakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?
>
> Terima kasih.
> Tio
>
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
> ------------------------------
>
>
>
> ---------- Forwarded message ----------
> From: dwint ruswanto dwint.ruswanto@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>
> Date: 2015-12-14 12:45 GMT+07:00
> Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-Excel
> To: belajar-excel@yahoogroups.com
>
>
>
>
> Assalamu'
>
> Dear Be-Exceler,
>
> Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member
> milis Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan
> rutin 2-3 bulan sekali di luar jadwal Kopdar Millis.
>
> Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi
> diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang
> dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum
> ditanggung oleh masing-masing anggota yang hadir.
>
> Jadwal perdana, Insha Allah akan dilaksanakan pada:
>
> Hari/Tanggal : Sabtu, 19 Desember 2015
> Jam : 12:00 - selesai
> Lokasi : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat
>
> Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.
>
> Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
> 1. Mr Kid
> 2. Pak Anton
> 3. Pak Hendrik Karnadi
> 4. saya sendiri
> 5. reserved for pak Aliif :)
> 6. reserved for Bang Aksan :)
> 7. ....
> 8. ... dst
>
> Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang
> akan dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa
> kasus silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.
>
> Ditunggu kehadiran rekan Be-Exceler yang lain.
>
> Wassalamu'
>
> dwint
>
>
>
>
>
>
>
Sat Dec 19, 2015 3:14 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Didin,
Pada jaman dahulu kala, Pak Abdul Hafidz pernah berbagi workbook tentang
stock opname di milis Belajar-Excel. Berikut link ke thread tersebut :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/10027
atau backup milis yang ada di link berikut :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Aplikasi-Stock-Opname-td4364952.html
Silakan dicoba. Silakan digunakan dengan cara yang baik yang penuh
kesantunan bila sesuai dengan kebutuhan.
Berhubung file telah di-share ke milis, maka pengubahan boleh dilakukan
agar lebih sesuai dengan kebutuhan. Tetapi, pengubahan dilakukan dengan
cara yang baik yang penuh kesantunan. Silakan ditanyakan ke milis bila ada
yang kurang jelas. Insya Allah member milis akan berusaha untuk membantu.
Mumpung Pak Abdul Hafidz masih menjadi member milis [semoga tetap terus
bersedia menjadi bagian dari milis Belajar-Excel], sehingga penjelasan
detil tentang file tersebut bisa ditanyakan bersama-sama kepada Pak Abdul
Hafidz.
Wassalam,
Kid
2015-12-18 15:03 GMT+07:00 Didin Rahardian drahadian_adit@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Para Pakar Excel,
>
> Saat ini saya membutuhkan Aplikasi untuk Gudang berbasis Excel (terima
> barang ;simpan dan keluar barang)
> jika berkenan dan rekan -rekan memiliki bisa di share kepada kami,atau
> bisa diberikan tips dan trik cara membuat Aplikasi tsb.
>
> terima kasih bantuannya..
>
> salam,
>
> Didin R
>
>
>
Pada jaman dahulu kala, Pak Abdul Hafidz pernah berbagi workbook tentang
stock opname di milis Belajar-Excel. Berikut link ke thread tersebut :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/10027
atau backup milis yang ada di link berikut :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Aplikasi-Stock-Opname-td4364952.html
Silakan dicoba. Silakan digunakan dengan cara yang baik yang penuh
kesantunan bila sesuai dengan kebutuhan.
Berhubung file telah di-share ke milis, maka pengubahan boleh dilakukan
agar lebih sesuai dengan kebutuhan. Tetapi, pengubahan dilakukan dengan
cara yang baik yang penuh kesantunan. Silakan ditanyakan ke milis bila ada
yang kurang jelas. Insya Allah member milis akan berusaha untuk membantu.
Mumpung Pak Abdul Hafidz masih menjadi member milis [semoga tetap terus
bersedia menjadi bagian dari milis Belajar-Excel], sehingga penjelasan
detil tentang file tersebut bisa ditanyakan bersama-sama kepada Pak Abdul
Hafidz.
Wassalam,
Kid
2015-12-18 15:03 GMT+07:00 Didin Rahardian drahadian_adit@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Para Pakar Excel,
>
> Saat ini saya membutuhkan Aplikasi untuk Gudang berbasis Excel (terima
> barang ;simpan dan keluar barang)
> jika berkenan dan rekan -rekan memiliki bisa di share kepada kami,atau
> bisa diberikan tips dan trik cara membuat Aplikasi tsb.
>
> terima kasih bantuannya..
>
> salam,
>
> Didin R
>
>
>
Sat Dec 19, 2015 4:48 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Haidar,
File terlampir adalah contoh. Silakan dikembangkan dan disesuaikan dengan
kebutuhan.
Wassalam,
Kid
2015-12-11 9:22 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel
>
> mohon bantuannya untuk mebuat summary report dari sheet INPUT Data
> progress maintenance
>
> 1 ~ Dengan mengisi "O" di kolom ACTUAL maka akan terupdate progress
> maintenance
> 2 ~ Dengan mengisi "O" di kolom ACTUAL maka akan membuat report sesuai
> dengan tanggal berikut yang lainnyaa
>
> Nama alat
> tipe model
> nomor ID
> lokasi
> akan terisi dengan mengisi / iput "O" di baris actual di sheet Data
>
> 3. untuk pembuatan grafik apabila actual masih 0 / nol maka accumulasi
> actual tidak terisi, untuk accumulasi setiap hari Sabtu & Minggu otomatis
> sama dengan accumulasi di hari Jumat
>
> Terima kasih sebelumnya para master
>
> Haidar
>
> -
> -
> - 1 Attachment
>
>
> - No
> Preview
> Download
> <https://us-mg4.mail.yahoo.com/neo/launch?.rand=bahkhdi75ropi#>
> Jadwal Maintenance Desember 2015 .xlsx
>
>
>
>
> On Thursday, December 10, 2015 3:15 PM, Haidar Zen <
> haidarlovezen@yahoo.com> wrote:
>
>
>
> Dear Master Excel
>
> mohon bantuannya untuk mebuat summary report dari sheet INPUT Data
> progress maintenance
>
> 1 ~ Dengan mengisi "O" di kolom ACTUAL maka akan terupdate progress
> maintenance
> 2 ~ Dengan mengisi "O" di kolom ACTUAL maka akan membuat report sesuai
> dengan tanggal berikut yang lainnyaa
>
> Nama alat
> tipe model
> nomor ID
> lokasi
> akan terisi dengan mengisi / iput "O" di baris actual di sheet Data
>
> 3. untuk pembuatan grafik apabila actual masih 0 / nol maka accumulasi
> actual tidak terisi, untuk accumulasi setiap hari Sabtu & Minggu otomatis
> sama dengan accumulasi di hari Jumat
>
> Terima kasih sebelumnya para master
>
> Haidar
>
>
>
>
File terlampir adalah contoh. Silakan dikembangkan dan disesuaikan dengan
kebutuhan.
Wassalam,
Kid
2015-12-11 9:22 GMT+07:00 Haidar Zen haidarlovezen@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel
>
> mohon bantuannya untuk mebuat summary report dari sheet INPUT Data
> progress maintenance
>
> 1 ~ Dengan mengisi "O" di kolom ACTUAL maka akan terupdate progress
> maintenance
> 2 ~ Dengan mengisi "O" di kolom ACTUAL maka akan membuat report sesuai
> dengan tanggal berikut yang lainnyaa
>
> Nama alat
> tipe model
> nomor ID
> lokasi
> akan terisi dengan mengisi / iput "O" di baris actual di sheet Data
>
> 3. untuk pembuatan grafik apabila actual masih 0 / nol maka accumulasi
> actual tidak terisi, untuk accumulasi setiap hari Sabtu & Minggu otomatis
> sama dengan accumulasi di hari Jumat
>
> Terima kasih sebelumnya para master
>
> Haidar
>
> -
> -
> - 1 Attachment
>
>
> - No
> Preview
> Download
> <https://us-mg4.mail.yahoo.com/neo/launch?.rand=bahkhdi75ropi#>
> Jadwal Maintenance Desember 2015 .xlsx
>
>
>
>
> On Thursday, December 10, 2015 3:15 PM, Haidar Zen <
> haidarlovezen@yahoo.com> wrote:
>
>
>
> Dear Master Excel
>
> mohon bantuannya untuk mebuat summary report dari sheet INPUT Data
> progress maintenance
>
> 1 ~ Dengan mengisi "O" di kolom ACTUAL maka akan terupdate progress
> maintenance
> 2 ~ Dengan mengisi "O" di kolom ACTUAL maka akan membuat report sesuai
> dengan tanggal berikut yang lainnyaa
>
> Nama alat
> tipe model
> nomor ID
> lokasi
> akan terisi dengan mengisi / iput "O" di baris actual di sheet Data
>
> 3. untuk pembuatan grafik apabila actual masih 0 / nol maka accumulasi
> actual tidak terisi, untuk accumulasi setiap hari Sabtu & Minggu otomatis
> sama dengan accumulasi di hari Jumat
>
> Terima kasih sebelumnya para master
>
> Haidar
>
>
>
>
Sat Dec 19, 2015 7:05 pm (PST) . Posted by:
"Rian Sutarsa" riansutarsa
Assalamu'alaikum para master excel dilingkungan saya menjelang acara maulid.saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang berada di sheet database ke sheet dengan langsung masuk ke file di local disk yang telah di tentukan di sheet database.mohon pencerahannya, & terimakasih sebelumnya.
disini saya coba cantumkan salinan file nya.
disini saya coba cantumkan salinan file nya.
Sat Dec 19, 2015 7:13 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hai Rian,
Coba lakukan hal berikut :
1. di sheet Database
> a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> b. isi setiap cells data di kolom E dengan nama file lengkap dari
setiap file yang dirujuk oleh kolom D.
Misal kolom D merujuk ke file x.pdf yang ada di drive F
folder bernama Data, maka isi kolom E adalah :
F:\Data\x.pdf
*** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
2. setelah selesai nomor 1, pindah ke sheet2
> buat formula hyperlink dengan susunan begini :
=hyperlink( ambil_kolom_E_sheet_database ,
ambil_kolom_D_sheet_database )
jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima
2 nilai input, yaitu alamat link dan teks tampilan link
pada formula di atas,
alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi
dengan suatu proses mengambil nilai melalui formula, seperti vlookup
misalnya.
teks tampilan link : ambil_kolom_D_sheet_database -> juga
bisa diambil dengan formula seperti vlookup.
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum para master excel dilingkungan saya menjelang acara
> maulid.
> saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan
> dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang
> berada di sheet database ke sheet dengan langsung masuk ke file di local
> disk yang telah di tentukan di sheet database.
> mohon pencerahannya, & terimakasih sebelumnya.
>
> disini saya coba cantumkan salinan file nya.
>
>
>
Hai Rian,
Coba lakukan hal berikut :
1. di sheet Database
> a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> b. isi setiap cells data di kolom E dengan nama file lengkap dari
setiap file yang dirujuk oleh kolom D.
Misal kolom D merujuk ke file x.pdf yang ada di drive F
folder bernama Data, maka isi kolom E adalah :
F:\Data\x.pdf
*** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
2. setelah selesai nomor 1, pindah ke sheet2
> buat formula hyperlink dengan susunan begini :
=hyperlink( ambil_kolom_E_sheet_database ,
ambil_kolom_D_sheet_database )
jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima
2 nilai input, yaitu alamat link dan teks tampilan link
pada formula di atas,
alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi
dengan suatu proses mengambil nilai melalui formula, seperti vlookup
misalnya.
teks tampilan link : ambil_kolom_D_sheet_database -> juga
bisa diambil dengan formula seperti vlookup.
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'
> maulid.
> saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan
> dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang
> berada di sheet database ke sheet dengan langsung masuk ke file di local
> disk yang telah di tentukan di sheet database.
> mohon pencerahannya, & terimakasih sebelumnya.
>
> disini saya coba cantumkan salinan file nya.
>
>
>
Sat Dec 19, 2015 8:09 pm (PST) . Posted by:
"Rian Sutarsa" riansutarsa
Kang Mr.Kid mohon maaf bila lancang namun di kolom E database sudah ada isinya.kalo bisa mah mohon dengan sangat di praktekin di lampiran nya aja kang :Dterimakasih sebelumnya ;)
Pada Minggu, 20 Desember 2015 10:13, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Hai Rian,
Coba lakukan hal berikut :
1. di sheet Database
> a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> b. isi setiap cells data di kolom E dengan nama file lengkap dari setiap file yang dirujuk oleh kolom D.
Misal kolom D merujuk ke file x.pdf yang ada di drive F folder bernama Data, maka isi kolom E adalah :
F:\Data\x.pdf
*** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
2. setelah selesai nomor 1, pindah ke sheet2
> buat formula hyperlink dengan susunan begini :
=hyperlink( ambil_kolom_E_sheet_database , ambil_kolom_D_sheet_database )
jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima 2 nilai input, yaitu alamat link dan teks tampilan link
pada formula di atas,
alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi dengan suatu proses mengambil nilai melalui formula, seperti vlookup misalnya.
teks tampilan link : ambil_kolom_D_sheet_database -> juga bisa diambil dengan formula seperti vlookup.
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'alaikum para master excel dilingkungan saya menjelang acara maulid.saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang berada di sheet database ke sheet dengan langsung masuk ke file di local disk yang telah di tentukan di sheet database.mohon pencerahannya, & terimakasih sebelumnya.
disini saya coba cantumkan salinan file nya.
#yiv9219348130 #yiv9219348130 -- #yiv9219348130ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9219348130 #yiv9219348130ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9219348130 #yiv9219348130ygrp-mkp #yiv9219348130hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9219348130 #yiv9219348130ygrp-mkp #yiv9219348130ads {margin-bottom:10px;}#yiv9219348130 #yiv9219348130ygrp-mkp .yiv9219348130ad {padding:0 0;}#yiv9219348130 #yiv9219348130ygrp-mkp .yiv9219348130ad p {margin:0;}#yiv9219348130 #yiv9219348130ygrp-mkp .yiv9219348130ad a {color:#0000ff;text-decoration:none;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ygrp-lc {font-family:Arial;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ygrp-lc #yiv9219348130hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ygrp-lc .yiv9219348130ad {margin-bottom:10px;padding:0 0;}#yiv9219348130 #yiv9219348130actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9219348130 #yiv9219348130activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9219348130 #yiv9219348130activity span {font-weight:700;}#yiv9219348130 #yiv9219348130activity span:first-child {text-transform:uppercase;}#yiv9219348130 #yiv9219348130activity span a {color:#5085b6;text-decoration:none;}#yiv9219348130 #yiv9219348130activity span span {color:#ff7900;}#yiv9219348130 #yiv9219348130activity span .yiv9219348130underline {text-decoration:underline;}#yiv9219348130 .yiv9219348130attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9219348130 .yiv9219348130attach div a {text-decoration:none;}#yiv9219348130 .yiv9219348130attach img {border:none;padding-right:5px;}#yiv9219348130 .yiv9219348130attach label {display:block;margin-bottom:5px;}#yiv9219348130 .yiv9219348130attach label a {text-decoration:none;}#yiv9219348130 blockquote {margin:0 0 0 4px;}#yiv9219348130 .yiv9219348130bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9219348130 .yiv9219348130bold a {text-decoration:none;}#yiv9219348130 dd.yiv9219348130last p a {font-family:Verdana;font-weight:700;}#yiv9219348130 dd.yiv9219348130last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9219348130 dd.yiv9219348130last p span.yiv9219348130yshortcuts {margin-right:0;}#yiv9219348130 div.yiv9219348130attach-table div div a {text-decoration:none;}#yiv9219348130 div.yiv9219348130attach-table {width:400px;}#yiv9219348130 div.yiv9219348130file-title a, #yiv9219348130 div.yiv9219348130file-title a:active, #yiv9219348130 div.yiv9219348130file-title a:hover, #yiv9219348130 div.yiv9219348130file-title a:visited {text-decoration:none;}#yiv9219348130 div.yiv9219348130photo-title a, #yiv9219348130 div.yiv9219348130photo-title a:active, #yiv9219348130 div.yiv9219348130photo-title a:hover, #yiv9219348130 div.yiv9219348130photo-title a:visited {text-decoration:none;}#yiv9219348130 div#yiv9219348130ygrp-mlmsg #yiv9219348130ygrp-msg p a span.yiv9219348130yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9219348130 .yiv9219348130green {color:#628c2a;}#yiv9219348130 .yiv9219348130MsoNormal {margin:0 0 0 0;}#yiv9219348130 o {font-size:0;}#yiv9219348130 #yiv9219348130photos div {float:left;width:72px;}#yiv9219348130 #yiv9219348130photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9219348130 #yiv9219348130photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9219348130 #yiv9219348130reco-category {font-size:77%;}#yiv9219348130 #yiv9219348130reco-desc {font-size:77%;}#yiv9219348130 .yiv9219348130replbq {margin:4px;}#yiv9219348130 #yiv9219348130ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9219348130 #yiv9219348130ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9219348130 #yiv9219348130ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9219348130 #yiv9219348130ygrp-mlmsg select, #yiv9219348130 input, #yiv9219348130 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9219348130 #yiv9219348130ygrp-mlmsg pre, #yiv9219348130 code {font:115% monospace;}#yiv9219348130 #yiv9219348130ygrp-mlmsg * {line-height:1.22em;}#yiv9219348130 #yiv9219348130ygrp-mlmsg #yiv9219348130logo {padding-bottom:10px;}#yiv9219348130 #yiv9219348130ygrp-msg p a {font-family:Verdana;}#yiv9219348130 #yiv9219348130ygrp-msg p#yiv9219348130attach-count span {color:#1E66AE;font-weight:700;}#yiv9219348130 #yiv9219348130ygrp-reco #yiv9219348130reco-head {color:#ff7900;font-weight:700;}#yiv9219348130 #yiv9219348130ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ov li a {font-size:130%;text-decoration:none;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9219348130 #yiv9219348130ygrp-sponsor #yiv9219348130ov ul {margin:0;padding:0 0 0 8px;}#yiv9219348130 #yiv9219348130ygrp-text {font-family:Georgia;}#yiv9219348130 #yiv9219348130ygrp-text p {margin:0 0 1em 0;}#yiv9219348130 #yiv9219348130ygrp-text tt {font-size:120%;}#yiv9219348130 #yiv9219348130ygrp-vital ul li:last-child {border-right:none !important;}#yiv9219348130
Pada Minggu, 20 Desember 2015 10:13, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Hai Rian,
Coba lakukan hal berikut :
1. di sheet Database
> a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> b. isi setiap cells data di kolom E dengan nama file lengkap dari setiap file yang dirujuk oleh kolom D.
Misal kolom D merujuk ke file x.pdf yang ada di drive F folder bernama Data, maka isi kolom E adalah :
F:\Data\x.pdf
*** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
2. setelah selesai nomor 1, pindah ke sheet2
> buat formula hyperlink dengan susunan begini :
=hyperlink( ambil_kolom_E_sheet_database , ambil_kolom_D_sheet_database )
jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima 2 nilai input, yaitu alamat link dan teks tampilan link
pada formula di atas,
alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi dengan suatu proses mengambil nilai melalui formula, seperti vlookup misalnya.
teks tampilan link : ambil_kolom_D_sheet_database -> juga bisa diambil dengan formula seperti vlookup.
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'
disini saya coba cantumkan salinan file nya.
#yiv9219348130 #yiv9219348130 -- #yiv9219348130ygrp-
Sat Dec 19, 2015 8:12 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
kolom E nya kan dah di insert kolom, jadi yang ada isinya dah geser jadi
kolom F dan kolom E nya kosong...
On Sun, Dec 20, 2015 at 10:38 AM, Rian Sutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Kang Mr.Kid mohon maaf bila lancang namun di kolom E database sudah ada
> isinya.
> kalo bisa mah mohon dengan sangat di praktekin di lampiran nya aja kang :D
> terimakasih sebelumnya ;)
>
>
> Pada Minggu, 20 Desember 2015 10:13, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Rian,
>
> Coba lakukan hal berikut :
> 1. di sheet Database
> > a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> > b. isi setiap cells data di kolom E dengan nama file lengkap dari
> setiap file yang dirujuk oleh kolom D.
> Misal kolom D merujuk ke file x.pdf yang ada di drive F
> folder bernama Data, maka isi kolom E adalah :
> F:\Data\x.pdf
> *** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
> 2. setelah selesai nomor 1, pindah ke sheet2
> > buat formula hyperlink dengan susunan begini :
> =hyperlink( ambil_kolom_E_sheet_database ,
> ambil_kolom_D_sheet_database )
> jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima
> 2 nilai input, yaitu alamat link dan teks tampilan link
> pada formula di atas,
> alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi
> dengan suatu proses mengambil nilai melalui formula, seperti vlookup
> misalnya.
> teks tampilan link : ambil_kolom_D_sheet_database -> juga
> bisa diambil dengan formula seperti vlookup.
>
> Selamat mencoba.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum para master excel dilingkungan saya menjelang acara
> maulid.
> saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan
> dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang
> berada di sheet database ke sheet dengan langsung masuk ke file di local
> disk yang telah di tentukan di sheet database.
> mohon pencerahannya, & terimakasih sebelumnya.
>
> disini saya coba cantumkan salinan file nya.
>
>
>
>
>
>
kolom E nya kan dah di insert kolom, jadi yang ada isinya dah geser jadi
kolom F dan kolom E nya kosong...
On Sun, Dec 20, 2015 at 10:38 AM, Rian Sutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Kang Mr.Kid mohon maaf bila lancang namun di kolom E database sudah ada
> isinya.
> kalo bisa mah mohon dengan sangat di praktekin di lampiran nya aja kang :D
> terimakasih sebelumnya ;)
>
>
> Pada Minggu, 20 Desember 2015 10:13, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Rian,
>
> Coba lakukan hal berikut :
> 1. di sheet Database
> > a. insert kolom di kolom E, jadi ada kolom kosong di kolom E
> > b. isi setiap cells data di kolom E dengan nama file lengkap dari
> setiap file yang dirujuk oleh kolom D.
> Misal kolom D merujuk ke file x.pdf yang ada di drive F
> folder bernama Data, maka isi kolom E adalah :
> F:\Data\x.pdf
> *** jadi, kalau ada banyak data, tetap saja harus diisi semuanya.
> 2. setelah selesai nomor 1, pindah ke sheet2
> > buat formula hyperlink dengan susunan begini :
> =hyperlink( ambil_kolom_E_sheet_database ,
> ambil_kolom_D_sheet_database )
> jadi, kalau Anda perhatikan dengan seksama, hyperlink bisa menerima
> 2 nilai input, yaitu alamat link dan teks tampilan link
> pada formula di atas,
> alamat link : ambil_kolom_E_sheet_database -> bisa Anda isi
> dengan suatu proses mengambil nilai melalui formula, seperti vlookup
> misalnya.
> teks tampilan link : ambil_kolom_D_sheet_database -> juga
> bisa diambil dengan formula seperti vlookup.
>
> Selamat mencoba.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2015-12-20 9:49 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'
> maulid.
> saya sangat kesusahan dengan fungsi/rumus hyperlink yang di kombinasikan
> dengan fungsi/rumus look up, dengan kata lain saya mau me-look up data yang
> berada di sheet database ke sheet dengan langsung masuk ke file di local
> disk yang telah di tentukan di sheet database.
> mohon pencerahannya, & terimakasih sebelumnya.
>
> disini saya coba cantumkan salinan file nya.
>
>
>
>
>
>
Sat Dec 19, 2015 8:05 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wa'alaikumussalam wr wb
Hai Heru Adi,
Maksudnya array dalam pemrograman ya...
Kalau begitu, jangan kaitkan dengan cells dalam sebuah worksheet. Anggap
saja tidak ada Excel terlebih dulu.
Array adalah sebuah tipe data yang mampu menampung sebuah list.
*1. Array 1 dimensi,*
berarti sebuah list yang setiap itemnya tidak memiliki anak.
Contoh :
'cara deklarasi
dim sArray1Dim( 1 to 3 ) as string
berarti variabel sArray1Dim mampu menampung 3 item yang diletakkan mulai
item nomor 1 sampai item nomor 3. Nilai setiap item bertipe string (teks)
'cara isi nilai data ke dalam array
sarray1dim(1)="X" 'item nomor ke-1 berisi teks 'X'
sarray1dim(2)="Y"
sarray1dim(3)="Z"
jadi, cara mengisinya dengan disebut satu per satu. Jika nilai yang
dimasukkan ('X','Y','Z') memiliki pola cara pengambilan atau penyusunan
nilainya, maka loop dengan for next berdasar nomor item array bisa
digunakan. Banyak cara mengisi array 1 dimensi.
'cara baca nilai di dalam array, kemudian ditampilkan dalam msgbox
dim lNomorItemArray as long
for lNomorItemArray=1 to 3
msgbox sarray1dim( lNomorItemArray ) 'tampilkan kotak pesan,
dengan teks pesan berupa nilai yang ada dalam array item ke-sekian
next lNomorItemArray
Jadi bagian (1 to 3) di dalam deklarasi akan melakukan reservasi di RAM
untuk ruang nilai-nilai list atau array sebanyak 3 kamar.
Cara deklarasi :
dim sArray1Dim( 1 to 3 ) as string
sama dengan cara deklarasi berikut ini ketika baris pertama sebuah module
diberi option :
option base 1
public sub Array1ku()
dim sArray1Dim( 3 ) as string
'cara isi nilai data ke dalam array
sarray1dim(1)="X" 'item nomor ke-1 berisi teks 'X'
sarray1dim(2)="Y"
sarray1dim(3)="Z"
end sub
defaultnya, option base adalah 0 alias nomor item array dimulai dari angka
0. Lihat perbandingannya pada option base 0 berikut :
option base 0
public sub Array1ku()
dim sArray1Dim( 3 ) as string
'cara isi nilai data ke dalam array
sarray1dim(0)="X" 'item nomor ke-0 berisi teks 'X'
sarray1dim(1)="Y"
sarray1dim(2)="Z"
end sub
*2. Array 2 dimensi,*
berarti setiap item array dimensi ke-1 bisa punya daftar item anak, yaitu
di dimensi ke-2, tetapi nilai yang disimpan adalah nilai dimensi ke-2 nya.
Array yang lebih dari 1 dimensi juga disebut array multidimensi.
Contoh : (pengaruh option base bisa Anda pikirkan sendiri ya)
'cara deklarasi
dim sArray2Dim( 1 to 3 , 1 to 2 ) as string
artinya, sArray2Dim akan menampung data nilai anak milik 3 item Orang Tua
yang setiap item Orang Tua akan mampu menampung 2 item Anak.
'cara isi nilai ke dalam array 2 dimensi :
sArray2Dim( 1 , 1 ) = "Anak1" 'Anak1 adalah nama anak ke-1 dari
orang tua ke-1
sArray2Dim( 1 , 2 ) = "Anak2" 'Anak2 adalah nama anak ke-2 dari
orang tua ke-1
sArray2Dim( 2 , 1 ) = "Anak3" 'Anak3 adalah nama anak ke-1 dari
orang tua ke-2
sArray2Dim( 2 , 2 ) = "Anak4" 'Anak4 adalah nama anak ke-2 dari
orang tua ke-2
sArray2Dim( 3 , 1 ) = "Anak5" 'Anak5 adalah nama anak ke-1 dari
orang tua ke-3
sArray2Dim( 3 , 2 ) = "Anak6" 'Anak6 adalah nama anak ke-2 dari
orang tua ke-3
Terus, nama orang tuanya dimana ? Ya ditempat lain, seperti di sArray1Dim
di bahasan array 1 dimensi di atas sana.
Jadi, kalau sArray2Dim bekerja sama dengan sArray1Dim bisa mendapatkan
suatu data orang tua beserta anaknya.
Cara ambil nilainya :
dim lOrtu as long, lAnak as long
dim sOrtu as string, sAnak as string
for lortu=1 to 3 'di setiap ortu
sOrtu=sarray1dim(lortu)
for lAnak=1 to 2 'di setiap anak milik setiap ortu yang sedang
diproses (lortu)
sAnak=sarray2dim( lortu , lanak )
msgbox "Nama ortu : " & sOrtu & vbcrlf & "Nama Anak ke-" &
lanak & " : " & sanak
next lAnak
next lortu
nah... cara sArray1Dim dan sArray2Dim ini adalah cara termudah untuk
memahami apa itu array. Jadi, suatu array, sebenarnya setiap itemnya hanya
menyimpan 1 nilai.
Silakan diulang dan dimantabkan dulu...
Kalau sudah, baru beranjak ke hal berikut ini...
*** kalau pengen suatu array bisa menampung nilai nama orang tua dan nama
anak sekaligus bagaimana ?
Kalau dengan array 2 dimensi, ada 3 nama ortu yang masing-masing punya 2
anak, berarti ada 3 x 2 = 6 nama anak. Setiap nama anak akan memiliki
pasangan berupa nama ortu. Jadi, dimensi ke-1 memiliki item sebanyak jumlah
anak, dan dimensi ke-2 berisi item sebanyak jumlah kelompok yang ada.
Kelompok yang ada yaitu kelompok 1 berupa nama-nama ortu dan kelompok 2
berupa nama-nama anak.
Deklarasinya :
dim sArrayOrtuAnak( 1 to 6 , 1 to 2 ) as string
Cara isi :
sarrayortuanak( 1 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-1
sarrayortuanak( 1 , 2 ) ="Anak1" 'Anak1 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-1
sarrayortuanak( 2 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-2
sarrayortuanak( 2 , 2 ) ="Anak2" 'Anak2 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-2
sarrayortuanak( 3 , 1 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-3
sarrayortuanak( 3 , 2 ) ="Anak3" 'Anak3 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-3
sarrayortuanak( 4 , 1 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-4
sarrayortuanak( 4 , 2 ) ="Anak4" 'Anak4 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-4
sarrayortuanak( 5 , 1 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-5
sarrayortuanak( 5 , 2 ) ="Anak5" 'Anak5 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-5
sarrayortuanak( 6 , 1 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-6
sarrayortuanak( 6 , 2 ) ="Anak6" 'Anak6 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-6
Bingung kan membayangkannya.... Nah... biasanya terus disusun yang lebih
manusiawi menjadi begini :
Nomor baris Ortu Anak
1 X Anak1
2 X Anak2
3 Y Anak3
4 Y Anak4
5 Z Anak5
6 Z Anak6
lebih mudah dimengerti kalau berbentuk tabel dibanding berbentuk array
ya.... (gak setuju juga gpp)
Kalau array sArrayOrtuAnak diputar dimensinya bagaimana ?
Misal :
dim sArrayPutar( 1 to 2 , 1 to 6 ) as string
lalu diisi dengan :
sarrayortuanak( 1 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-1
sarrayortuanak( 2 , 1 ) ="Anak1" 'Anak1 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-1
sarrayortuanak( 1 , 2 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-2
sarrayortuanak( 2 , 2 ) ="Anak2" 'Anak2 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-2
sarrayortuanak( 1 , 3 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-3
sarrayortuanak( 2 , 3 ) ="Anak3" 'Anak3 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-3
sarrayortuanak( 1 , 4 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-4
sarrayortuanak( 2 , 4 ) ="Anak4" 'Anak4 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-4
sarrayortuanak( 1 , 5 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-5
sarrayortuanak( 2 , 5 ) ="Anak5" 'Anak5 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-5
sarrayortuanak( 1 , 6 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-6
sarrayortuanak( 2 , 6 ) ="Anak6" 'Anak6 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-6
Jadinya :
Nomor baris Item1 Item2 Item3 Item4 Item5
Item6
1 X X Y
Y Z Z
2 Anak1 Anak2 Anak3 Anak4
Anak5 Anak6
enakan mana melihat datanya kalau ada 1juta anak SD se indonesia yang
didaftar ke dalam array ?
kalau saya, suka yang bentuknya hasil deklarasi ( 1 to 6 , 1 to 2 ), tapi
mungkin saya rada gak normal menurut banyak pengguna Excel.
(untung pakai Excel itu tidak ada requirements hanya untuk orang normal)
Nah... deklarasi yang ( 1 to 6 , 1 to 2 ) akan menghasilkan tabel yang baik
yang berkaidah tabel database, dan pastinya mudah dikerjakan oleh suatu
array, karena setiap dimensi ke-1 array memiliki data yang utuh yang
dijabarkan di dalam dimensi ke-2 array.
*3. array 3 dimensi*
Ini berarti ada 1 dimensi lagi yang menyimpan suatu nilai.
Misal, dimensi ke-3 menyimpan nama pelajaran sekolah anak yang paling
disukai.
dim sArray3Dim( 1 to 3 , 1 to 2 , 1 to 1 ) as string
sArray3Dim( 1 , 1 , 1 ) = "Matematika" 'anak ke-1 dari ortu ke-1 suka
matematika
sArray3Dim( 1 , 2 , 1 ) = "PKn" 'anak ke-2 dari ortu ke-1
suka PKn
sArray3Dim( 2 , 1 , 1 ) = "IPA" 'anak ke-1 dari ortu ke-2
suka IPA
sArray3Dim( 2 , 2 , 1 ) = "IPA" 'anak ke-2 dari ortu ke-2
juga suka IPA
sArray3Dim( 3 , 1 , 1 ) = "Prakarya" 'anak ke-1 dari ortu ke-3 suka
Prakarya
sArray3Dim( 3 , 2 , 1 ) = "Seni" 'anak ke-2 dari ortu ke-3
juga suka Seni
nah... array seperti inipun bisa disusun menjadi array 2 dimensi menjadi :
Masih hanya ada 6 item, yaitu 3 ortu x 2 anak per ortu x 1 mapel per anak =
6 item
dengan data setiap anak membentuk 3 kelompok, yaitu :
> kelompok 1 adalah nama ortu,
> kelompok 2 adalah nama anak,
> kelompok 3 adalah nama pelajaran yang paling disukai
dim sArray3Kelompok( 1 to 6 , 1 to 3 ) as string
sArray3Kelompok( 1 , 1 ) ="X"
sArray3Kelompok( 1 , 2 ) ="Anak1"
sArray3Kelompok( 1 , 3 ) ="Matematika"
sArray3Kelompok( 2 , 1 ) ="X"
sArray3Kelompok( 2 , 2 ) ="Anak2"
sArray3Kelompok( 2 , 3 ) ="PKn"
dst
yang kalau disusun lebih manusiawi menjadi :
nomor baris ortu anak mapel
1 X Anak1 Matematika
2 X Anak2 PKn
dst
Udah ah...
itu tadi dasar array...
kalau menggunakan array multidimensi untuk urusan yang ruwet, saya ndak
mudeng.
btw, mau seruwet apapun urusannya, bermain dengan bentuk tabel yang baik
banyak kolom kelompok (kolom tabel) yang dijaga berkaidah tabel database
yang baik, akan lebih mudah dibayangkan. Tapi, pendapat ini biasanya gak
cocok dengan programmer yang suka coding. Tapi biarlah perbedaan
pendapatnya tetap ada dan pada sisi masing-masing.
So,
Punya data 17 dimensi ? Bisa disusun menjadi array 17 dimensi atau bentuk
tabel yang sejatinya adalah array 2 dimensi. Disesuaikan dengan kebutuhan
kenyamanan dalam memprosesnya saja.
Nanti masih ada array di dalam setiap item array. Namanya Jagged Array.
Contoh sederhananya, array daftar sheet beserta area range data yang berisi
nilai, seperti :
dim vJagged( 1 to 1 , 1 to 2 ) as variant
untuk wadah 1 sheet (1 to 1) yang setiap sheet ada daftar 2 area data (1
to 2), sedangkan setiap area data ada dimensi baris dan kolomnya
sJagged(1,1)=range("b2:c5").value 'sheet ke-1 area data ke-1 berisi
array nilai dari range b2:c5 alias 4 baris x 2 kolom
sJagged(1,2)=range("b4:b5").value 'sheet ke-1 area data ke-2 berisi
array nilai dari range b4:b5 alias 2 baris x 1 kolom
wassalamu'alaikum wr wb
Kid
2015-12-14 20:02 GMT+07:00 Heru Adi hr_adhi@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum.
> Selamat sore rekan-rekan milis excel .
> Saya mau bertanya apakah fungsi dan kegunaan dari array dua dimensi /
> multidimensi ?
> Mohon diberi contoh studi kasus yang menggunakan konsep array dua dimensi
> / multidimensi ini.
> Sebelumnya saya ucapkan terimakasih kepada rekan-rekan atas jawabannya.
> Saya sangat ingin tahu contoh penerapan dari array dua dimensi /
> multidimensi ini.
>
> Rgds,
>
> Heru Adi S
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Hai Heru Adi,
Maksudnya array dalam pemrograman ya...
Kalau begitu, jangan kaitkan dengan cells dalam sebuah worksheet. Anggap
saja tidak ada Excel terlebih dulu.
Array adalah sebuah tipe data yang mampu menampung sebuah list.
*1. Array 1 dimensi,*
berarti sebuah list yang setiap itemnya tidak memiliki anak.
Contoh :
'cara deklarasi
dim sArray1Dim( 1 to 3 ) as string
berarti variabel sArray1Dim mampu menampung 3 item yang diletakkan mulai
item nomor 1 sampai item nomor 3. Nilai setiap item bertipe string (teks)
'cara isi nilai data ke dalam array
sarray1dim(1)="X" 'item nomor ke-1 berisi teks 'X'
sarray1dim(2)="Y"
sarray1dim(3)="Z"
jadi, cara mengisinya dengan disebut satu per satu. Jika nilai yang
dimasukkan ('X','Y','Z') memiliki pola cara pengambilan atau penyusunan
nilainya, maka loop dengan for next berdasar nomor item array bisa
digunakan. Banyak cara mengisi array 1 dimensi.
'cara baca nilai di dalam array, kemudian ditampilkan dalam msgbox
dim lNomorItemArray as long
for lNomorItemArray=1 to 3
msgbox sarray1dim( lNomorItemArray ) 'tampilkan kotak pesan,
dengan teks pesan berupa nilai yang ada dalam array item ke-sekian
next lNomorItemArray
Jadi bagian (1 to 3) di dalam deklarasi akan melakukan reservasi di RAM
untuk ruang nilai-nilai list atau array sebanyak 3 kamar.
Cara deklarasi :
dim sArray1Dim( 1 to 3 ) as string
sama dengan cara deklarasi berikut ini ketika baris pertama sebuah module
diberi option :
option base 1
public sub Array1ku()
dim sArray1Dim( 3 ) as string
'cara isi nilai data ke dalam array
sarray1dim(1)="X" 'item nomor ke-1 berisi teks 'X'
sarray1dim(2)="Y"
sarray1dim(3)="Z"
end sub
defaultnya, option base adalah 0 alias nomor item array dimulai dari angka
0. Lihat perbandingannya pada option base 0 berikut :
option base 0
public sub Array1ku()
dim sArray1Dim( 3 ) as string
'cara isi nilai data ke dalam array
sarray1dim(0)="X" 'item nomor ke-0 berisi teks 'X'
sarray1dim(1)="Y"
sarray1dim(2)="Z"
end sub
*2. Array 2 dimensi,*
berarti setiap item array dimensi ke-1 bisa punya daftar item anak, yaitu
di dimensi ke-2, tetapi nilai yang disimpan adalah nilai dimensi ke-2 nya.
Array yang lebih dari 1 dimensi juga disebut array multidimensi.
Contoh : (pengaruh option base bisa Anda pikirkan sendiri ya)
'cara deklarasi
dim sArray2Dim( 1 to 3 , 1 to 2 ) as string
artinya, sArray2Dim akan menampung data nilai anak milik 3 item Orang Tua
yang setiap item Orang Tua akan mampu menampung 2 item Anak.
'cara isi nilai ke dalam array 2 dimensi :
sArray2Dim( 1 , 1 ) = "Anak1" 'Anak1 adalah nama anak ke-1 dari
orang tua ke-1
sArray2Dim( 1 , 2 ) = "Anak2" 'Anak2 adalah nama anak ke-2 dari
orang tua ke-1
sArray2Dim( 2 , 1 ) = "Anak3" 'Anak3 adalah nama anak ke-1 dari
orang tua ke-2
sArray2Dim( 2 , 2 ) = "Anak4" 'Anak4 adalah nama anak ke-2 dari
orang tua ke-2
sArray2Dim( 3 , 1 ) = "Anak5" 'Anak5 adalah nama anak ke-1 dari
orang tua ke-3
sArray2Dim( 3 , 2 ) = "Anak6" 'Anak6 adalah nama anak ke-2 dari
orang tua ke-3
Terus, nama orang tuanya dimana ? Ya ditempat lain, seperti di sArray1Dim
di bahasan array 1 dimensi di atas sana.
Jadi, kalau sArray2Dim bekerja sama dengan sArray1Dim bisa mendapatkan
suatu data orang tua beserta anaknya.
Cara ambil nilainya :
dim lOrtu as long, lAnak as long
dim sOrtu as string, sAnak as string
for lortu=1 to 3 'di setiap ortu
sOrtu=sarray1dim(lortu)
for lAnak=1 to 2 'di setiap anak milik setiap ortu yang sedang
diproses (lortu)
sAnak=sarray2dim( lortu , lanak )
msgbox "Nama ortu : " & sOrtu & vbcrlf & "Nama Anak ke-" &
lanak & " : " & sanak
next lAnak
next lortu
nah... cara sArray1Dim dan sArray2Dim ini adalah cara termudah untuk
memahami apa itu array. Jadi, suatu array, sebenarnya setiap itemnya hanya
menyimpan 1 nilai.
Silakan diulang dan dimantabkan dulu...
Kalau sudah, baru beranjak ke hal berikut ini...
*** kalau pengen suatu array bisa menampung nilai nama orang tua dan nama
anak sekaligus bagaimana ?
Kalau dengan array 2 dimensi, ada 3 nama ortu yang masing-masing punya 2
anak, berarti ada 3 x 2 = 6 nama anak. Setiap nama anak akan memiliki
pasangan berupa nama ortu. Jadi, dimensi ke-1 memiliki item sebanyak jumlah
anak, dan dimensi ke-2 berisi item sebanyak jumlah kelompok yang ada.
Kelompok yang ada yaitu kelompok 1 berupa nama-nama ortu dan kelompok 2
berupa nama-nama anak.
Deklarasinya :
dim sArrayOrtuAnak( 1 to 6 , 1 to 2 ) as string
Cara isi :
sarrayortuanak( 1 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-1
sarrayortuanak( 1 , 2 ) ="Anak1" 'Anak1 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-1
sarrayortuanak( 2 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-2
sarrayortuanak( 2 , 2 ) ="Anak2" 'Anak2 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-2
sarrayortuanak( 3 , 1 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-3
sarrayortuanak( 3 , 2 ) ="Anak3" 'Anak3 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-3
sarrayortuanak( 4 , 1 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-4
sarrayortuanak( 4 , 2 ) ="Anak4" 'Anak4 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-4
sarrayortuanak( 5 , 1 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-5
sarrayortuanak( 5 , 2 ) ="Anak5" 'Anak5 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-5
sarrayortuanak( 6 , 1 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-6
sarrayortuanak( 6 , 2 ) ="Anak6" 'Anak6 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-6
Bingung kan membayangkannya.... Nah... biasanya terus disusun yang lebih
manusiawi menjadi begini :
Nomor baris Ortu Anak
1 X Anak1
2 X Anak2
3 Y Anak3
4 Y Anak4
5 Z Anak5
6 Z Anak6
lebih mudah dimengerti kalau berbentuk tabel dibanding berbentuk array
ya.... (gak setuju juga gpp)
Kalau array sArrayOrtuAnak diputar dimensinya bagaimana ?
Misal :
dim sArrayPutar( 1 to 2 , 1 to 6 ) as string
lalu diisi dengan :
sarrayortuanak( 1 , 1 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-1
sarrayortuanak( 2 , 1 ) ="Anak1" 'Anak1 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-1
sarrayortuanak( 1 , 2 ) = "X" 'X adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-2
sarrayortuanak( 2 , 2 ) ="Anak2" 'Anak2 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-2
sarrayortuanak( 1 , 3 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-3
sarrayortuanak( 2 , 3 ) ="Anak3" 'Anak3 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-3
sarrayortuanak( 1 , 4 ) = "Y" 'Y adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-4
sarrayortuanak( 2 , 4 ) ="Anak4" 'Anak4 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-4
sarrayortuanak( 1 , 5 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-5
sarrayortuanak( 2 , 5 ) ="Anak5" 'Anak5 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-5
sarrayortuanak( 1 , 6 ) = "Z" 'Z adalah anggota kelompok
ke-1, yaitu nama ortu dari anak ke-6
sarrayortuanak( 2 , 6 ) ="Anak6" 'Anak6 adalah anggota kelompok
ke-2, yaitu nama anak dari anak ke-6
Jadinya :
Nomor baris Item1 Item2 Item3 Item4 Item5
Item6
1 X X Y
Y Z Z
2 Anak1 Anak2 Anak3 Anak4
Anak5 Anak6
enakan mana melihat datanya kalau ada 1juta anak SD se indonesia yang
didaftar ke dalam array ?
kalau saya, suka yang bentuknya hasil deklarasi ( 1 to 6 , 1 to 2 ), tapi
mungkin saya rada gak normal menurut banyak pengguna Excel.
(untung pakai Excel itu tidak ada requirements hanya untuk orang normal)
Nah... deklarasi yang ( 1 to 6 , 1 to 2 ) akan menghasilkan tabel yang baik
yang berkaidah tabel database, dan pastinya mudah dikerjakan oleh suatu
array, karena setiap dimensi ke-1 array memiliki data yang utuh yang
dijabarkan di dalam dimensi ke-2 array.
*3. array 3 dimensi*
Ini berarti ada 1 dimensi lagi yang menyimpan suatu nilai.
Misal, dimensi ke-3 menyimpan nama pelajaran sekolah anak yang paling
disukai.
dim sArray3Dim( 1 to 3 , 1 to 2 , 1 to 1 ) as string
sArray3Dim( 1 , 1 , 1 ) = "Matematika" 'anak ke-1 dari ortu ke-1 suka
matematika
sArray3Dim( 1 , 2 , 1 ) = "PKn" 'anak ke-2 dari ortu ke-1
suka PKn
sArray3Dim( 2 , 1 , 1 ) = "IPA" 'anak ke-1 dari ortu ke-2
suka IPA
sArray3Dim( 2 , 2 , 1 ) = "IPA" 'anak ke-2 dari ortu ke-2
juga suka IPA
sArray3Dim( 3 , 1 , 1 ) = "Prakarya" 'anak ke-1 dari ortu ke-3 suka
Prakarya
sArray3Dim( 3 , 2 , 1 ) = "Seni" 'anak ke-2 dari ortu ke-3
juga suka Seni
nah... array seperti inipun bisa disusun menjadi array 2 dimensi menjadi :
Masih hanya ada 6 item, yaitu 3 ortu x 2 anak per ortu x 1 mapel per anak =
6 item
dengan data setiap anak membentuk 3 kelompok, yaitu :
> kelompok 1 adalah nama ortu,
> kelompok 2 adalah nama anak,
> kelompok 3 adalah nama pelajaran yang paling disukai
dim sArray3Kelompok( 1 to 6 , 1 to 3 ) as string
sArray3Kelompok( 1 , 1 ) ="X"
sArray3Kelompok( 1 , 2 ) ="Anak1"
sArray3Kelompok( 1 , 3 ) ="Matematika"
sArray3Kelompok( 2 , 1 ) ="X"
sArray3Kelompok( 2 , 2 ) ="Anak2"
sArray3Kelompok( 2 , 3 ) ="PKn"
dst
yang kalau disusun lebih manusiawi menjadi :
nomor baris ortu anak mapel
1 X Anak1 Matematika
2 X Anak2 PKn
dst
Udah ah...
itu tadi dasar array...
kalau menggunakan array multidimensi untuk urusan yang ruwet, saya ndak
mudeng.
btw, mau seruwet apapun urusannya, bermain dengan bentuk tabel yang baik
banyak kolom kelompok (kolom tabel) yang dijaga berkaidah tabel database
yang baik, akan lebih mudah dibayangkan. Tapi, pendapat ini biasanya gak
cocok dengan programmer yang suka coding. Tapi biarlah perbedaan
pendapatnya tetap ada dan pada sisi masing-masing.
So,
Punya data 17 dimensi ? Bisa disusun menjadi array 17 dimensi atau bentuk
tabel yang sejatinya adalah array 2 dimensi. Disesuaikan dengan kebutuhan
kenyamanan dalam memprosesnya saja.
Nanti masih ada array di dalam setiap item array. Namanya Jagged Array.
Contoh sederhananya, array daftar sheet beserta area range data yang berisi
nilai, seperti :
dim vJagged( 1 to 1 , 1 to 2 ) as variant
untuk wadah 1 sheet (1 to 1) yang setiap sheet ada daftar 2 area data (1
to 2), sedangkan setiap area data ada dimensi baris dan kolomnya
sJagged(1,1)=range("b2:c5").value 'sheet ke-1 area data ke-1 berisi
array nilai dari range b2:c5 alias 4 baris x 2 kolom
sJagged(1,2)=range("b4:b5").value 'sheet ke-1 area data ke-2 berisi
array nilai dari range b4:b5 alias 2 baris x 1 kolom
wassalamu'alaikum wr wb
Kid
2015-12-14 20:02 GMT+07:00 Heru Adi hr_adhi@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum.
> Selamat sore rekan-rekan milis excel .
> Saya mau bertanya apakah fungsi dan kegunaan dari array dua dimensi /
> multidimensi ?
> Mohon diberi contoh studi kasus yang menggunakan konsep array dua dimensi
> / multidimensi ini.
> Sebelumnya saya ucapkan terimakasih kepada rekan-rekan atas jawabannya.
> Saya sangat ingin tahu contoh penerapan dari array dua dimensi /
> multidimensi ini.
>
> Rgds,
>
> Heru Adi S
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Sat Dec 19, 2015 8:11 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sepertinya trit ini tidak ada yang merespon karena BeExceller kurang mampu
memahami kasusnya.
Bagaimana jika dicontohkan dengan detil tentang langkah manual
pengerjaannya (misal kalau di entri data itu seperti apa prosesnya [bukan
hanya hasilnya])
Contoh :
saya mau plan keberangkatan yang ini. Langkah 1, lihat nilai ini. kalau
yang nilainya segini, berarti diletakkan disini bunyi begini
dst
xixixixi...
sapa tahu terus ada respon yang memuaskan dari BeExceller yang bisa paham.
Regards,
Kid
2015-12-15 15:01 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear para Master Excel,
>
> Saya mau bertanya untuk Transport Plan terlampir, bagaimana cara untuk
> merencanakan keberangkatan armada. filte terlampir.
> Thanks.
>
> Regards,
> Yudi
>
>
>
>
memahami kasusnya.
Bagaimana jika dicontohkan dengan detil tentang langkah manual
pengerjaannya (misal kalau di entri data itu seperti apa prosesnya [bukan
hanya hasilnya])
Contoh :
saya mau plan keberangkatan yang ini. Langkah 1, lihat nilai ini. kalau
yang nilainya segini, berarti diletakkan disini bunyi begini
dst
xixixixi...
sapa tahu terus ada respon yang memuaskan dari BeExceller yang bisa paham.
Regards,
Kid
2015-12-15 15:01 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear para Master Excel,
>
> Saya mau bertanya untuk Transport Plan terlampir, bagaimana cara untuk
> merencanakan keberangkatan armada. filte terlampir.
> Thanks.
>
> Regards,
> Yudi
>
>
>
>
============================================================
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