Re: ]] XL-mania [[ Macro update data di pivot sesuai input melalui cell

 

Oh akan membuat yang rajin refresh ya. Oke.

Ini kira-kira ya, nanti begitu boleh buka file kalau beda saya koreksi lagi.
Buat sebuah prosedur sub baru :

'nanti diubah sesuai kebutuhan dan keluwesannya
Public Sub UbahSQLKoneksiDB()
    dim SQLText as string

    'asumsi : ubah sesuai keadaan setempat
    'nama koneksi : Koneksi ke DB
    'jenis koneksi ODBC -- karena kalau OLEDB, kurang yakin object-nya bisa atau gak
    'nama db : tes.mdb (seperti di attachment Anda)
    'db path : C:\mydata
    'nama tabel : tbl_ku
    'nama field Kota
    'item baru di cell berapa ya lupa waktu itu, anggap di J3 saja ya
    'sesuaikan SQL-nya, kecuali pada bagian Where

    sqltext="Select field1, field2, dst, Kota FROM [C:\mydata\tes].[tbl_ku] as tbl "
     sqltext=sqltext & "WHERE tbl.Kota = '" & range("J3") & "'"   

    thisworkbook.connections("Koneksi ke DB").odbcconnection.commandtext=sqltext
    thisworkbook.connections("Koneksi ke DB").refresh
end sub


Kemudian, buat penangkap pemicunya, misal dengan event worksheet atau sebuah tombol,
yang akhirnya menjalankan kode diatas.
Contoh : dengan worksheet event change

Public Sub Worksheet_Change(byval target as range)  'sepertinya pakai (mestinya sih) byval
      if target.count=1 then
           if target.address(false,false) = "J3" then
                if lenb(target) <> 0 then
                       UbahSQLKoneksiDB
                end if
           end if
      end if
end sub

Kalau pakai Contro Command Button dengan nama object cmdQuery :
Public Sub cmdQuery_Click() 
                if lenb(range("j3")) <> 0 then
                       UbahSQLKoneksiDB
                end if
end sub


Semoga gak keliru banget.
Regards.
Kid

2010/1/19 bramantyo tunggul <bramantyo_t@yahoo.com>

 

Dear Mr Kid, trims atas infonya, tetapi yang saya saya maksudkan adalah perubahan / update pivot berdasarkan inputan dari cell. Soalnya kalau harus memilih sesuai saran, kadang bisa merepotkan saat mencari pilihan kota, hal ini karena record untuk kota bisa banyak (> 100).   Apakah ada solusi lain ?   salam,   bram --- On Mon, 1/18/10, Mr. Kid <mr.nmkid@gmail.com> wrote: From: Mr. Kid <mr.nmkid@gmail.com> Subject: Re: ]] XL-mania [[ Macro update data di pivot sesuai input melalui cell To: XL-mania@yahoogroups.com Date: Monday, January 18, 2010, 11:08 AM   Dh SQL Text tidak perlu menggunakan Where. Kemudian, field Kota letakkan pada report filter atau Page, lalu pilih salah satu dari situ Jika tetap ingin ada field kota di bagian Rows, buat sebuah calculated field, misal diberi nama field Nama_Kota, dengan ekspresi formula =Kota Kemudian letakkan field Nama_Kota tersebut pada Report Filter atau Page Jika datanya banyak sekali dan kuatir file excel membesar karena pivot table, setting pada pivot table options tab data, uncheck save data with files. Resikonya, akan butuh refresh setiap buka file (tidak hanya saat ada pengubahan data di database saja) Kid. 2010/1/16 bramantyo tunggul <bramantyo_t@ yahoo.com>   Dh Mohon pencerahannya bagaimana caranya agar data pivot bisa berubah secara otomatis jika menerima input dari cell Terlampir contoh file pivot dan databasenya Terimakasih

__._,_.___

Reply to sender | Reply to group

Messages in this topic (4)

Recent Activity:

• New Members 109

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tahun baru, kejar setoran lagi... Ada lowongan jadi direktur? :D  |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___