Macro kemarin gimana pak??? udah bisa dipake?
kalau berubah-ubah, tentunya ada kondisi/syaratnya kapan kita harus pake Link1, kapan kita pake Link2, link3, dst.... Bisa dijelasin ke kita gimana kondisinya??? ________________________________ From: Dita Agustiono <[email protected]> To: [email protected] Sent: Tuesday, April 12, 2011 7:29 AM Subject: Re: Bls: Bls: Bls: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro kalo link di my formula berubah-rubah gimana mas? misalnya '\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]Siang'!$H12 menjadi '\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]Malam'!$H12 atau '\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]Siang'!$H12 menjadi '\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[09 April 2011.xls]Siang'!$H12 ________________________________ Dari: Hilman <[email protected]> Kepada: "[email protected]" <[email protected]> Terkirim: Sen, 11 April, 2011 15:48:27 Judul: Re: Bls: Bls: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro Kalo melihat kode utk running textnya, memang update link nya tidak akan berhasil, karena cell D2 pada sheet1 yg tadinya berisi formula yg nge-link ke sumbernya, secara otomatis akan diganti dengan data string dari value cell D2 itu sendiri oleh vba. Berikut ini adalah beberapa modifikasi kode Public StopMarq As Boolean 'penambahan deklarasi StopMarq utk menghentikan running text Private Sub cmdRunMarquee_Click() gsngSpeed = 0.1 'You will have to "Play" with this number to get speed right for your machine StopMarq = False 'sebelumnya lain ini tidak ada Call RunMarquee End Sub Private Sub cmdStopMarquee_Click() StopMarq = True 'sebelumnya langsung menggunakan End End Sub Public Sub RunMarquee() ..... ..... ..... ..... If StopMarq = False Then 'pengecekan nilai StopMarq utk lanjut tidak nya running text GoTo StartHere End If end sub Sub Rectangle2_Click() Dim MyFormula As String Dim sngStart As Single StopMarq = True Application.OnTime Now + TimeValue("00:00:1"), "UpdateData" End Sub Sub UpdateData() Dim MyFormula As String MyFormula = "'\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]Siang'!$H12" Worksheets("Sheet1").Range("Marquee").Formula = MyFormula gsngSpeed = 0.1 StopMarq = False Call RunMarquee End Sub ________________________________ From: Dita Agustiono <[email protected]> To: [email protected] Sent: Monday, April 11, 2011 1:55 PM Subject: Bls: Bls: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro mas kalo update value di text yang sedang berjalan(running text) bagaimana yah? contoh isi text berjalan di alamat '\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]Siang'!$H12. sya coba update pake ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources, Type:=xlExcelLinks keluar kotak error ________________________________ Dari: Dita Agustiono <[email protected]> Kepada: [email protected] Terkirim: Jum, 8 April, 2011 19:47:33 Judul: Bls: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro makasih mas ________________________________ Dari: Muhammad Robin <[email protected]> Kepada: [email protected] Terkirim: Jum, 8 April, 2011 19:31:05 Judul: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro Jawaban dari Mas Dita ini dapat didownload di http://www.ziddu.com/download/14516169/Utamadan8april2011.zip.html --- Pada Jum, 8/4/11, Dita Agustiono <[email protected]> menulis: >Dari: Dita Agustiono <[email protected]> >Judul: Bls: Bls: Bls: Bls: [belajar-excel] membuat tombol macro >Kepada: [email protected] >Tanggal: Jumat, 8 April, 2011, 2:34 PM > > > >makasih banyak mas.......... > > > > >________________________________ >Dari: Hilman <[email protected]> >Kepada: "[email protected]" <[email protected]> >Terkirim: Jum, 8 April, 2011 14:05:15 >Judul: Re: Bls: Bls: Bls: [belajar-excel] membuat tombol macro > > >Dear Dita.. > > >sory ya.. sy kurang bisa menangkap dengan jelas maksudnya, mungkin kalo ada >contoh pada workbooknya bisa di bantu kali.... >kalo bisa di wb nya juga dikasih penjelasan.. > > > > >________________________________ >From: Dita Agustiono <[email protected]> >To: [email protected] >Sent: Friday, April 8, 2011 1:31 PM >Subject: Re: Bls: Bls: Bls: [belajar-excel] membuat tombol macro > > > >makasih banyak mas hilman. 1 lagiya mas hilman >bagaimana merubah secara otomatis. >misalnya >file 08 April 2011 asalnya cuma ada sheet Siang saja, kemudian ditambah sheet >malam. >cell 1 >'\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April >2011.xls]Siang'!$H12 >bagaimana cara merubah menjadi >'\\192.168.0.40\Dispatcher\TAHUN 2011\1.LOGSHEET 2011\04.April\[08 April >2011.xls]Malam'!$H12 > > >________________________________ >Dari: Hilman <[email protected]> >Kepada: "[email protected]" <[email protected]> >Terkirim: Jum, 8 April, 2011 11:04:04 >Judul: Re: Bls: Bls: [belajar-excel] membuat tombol macro > > >Jika linknya banyak maka, pada kode: > ThisWorkbook.UpdateLink Name:=MyFile, Type:=xlExcelLinks >diganti dengan > ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources, Type:=xlExcelLinks > > > > > > >________________________________ >From: Dita Agustiono <[email protected]> >To: [email protected] >Sent: Friday, April 8, 2011 10:47 AM >Subject: Re: Bls: Bls: [belajar-excel] membuat tombol macro > > > >kalau linknya ada banyak.misalnya 1. '\\192.168.0.40\Dispatcher\TAHUN >2011\1.LOGSHEET 2011\04.April\[08 April 2011.xls]PEMBANGKITAN'!$H12 > 2. >'\\192.168.0.40\Dispatcher\TAHUN 2011\3.DAYA MAMPU\04.April\[08 April >2011.xls]PEMBANGKITAN'!$H12 > 3. >'\\192.168.0.40\Dispatcher\TAHUN 2011\BEBAN 2011.xls > > > > > > >________________________________ >Dari: Hilman <[email protected]> >Kepada: "[email protected]" <[email protected]> >Terkirim: Jum, 8 April, 2011 10:30:44 >Judul: Re: Bls: [belajar-excel] membuat tombol macro > > >Dear Dita, > > >Jadi yg dimaksudkan adalah untuk mengganti proses mengklik "data->edit >links->pilih linknya->baru update values" dengan hanya satu kali klik pada >tombol update maka nilai yg ada pada cell yang mengandung link tsb akan >terupdate seketika, apakah seperti itu??? > > >kalo sprt itu maksudnya, prosedur berikut adalah serangkaian kode untuk >mengaktifkan Update Value dari link tsb. > > >Sub UpdateLinkValue() > > Dim MyFolder As String > Dim MyFile As String > > 'MyFolder = dengan path/direcotory yg sama dengan worbook ini > MyFolder = ThisWorkbook.Path & "\" > 'Nama file lengkap dengan path-nya > MyFile = MyFolder & "DATA.xlsx" > > 'proses update value > ThisWorkbook.UpdateLink Name:=MyFile, Type:=xlExcelLinks > >End Sub > > > >Oh iya... supaya kode nya bisa berfungsi, pastikan workbook "data" dan worbook >"tombol" tsb berada pada folder/path yg sama, jika tidak maka variable >MyFolder harus diganti dengan Path yang sesuai. Karena MyFolder ini data >typenya adalah string, jangan lupa untuk mencantumkan tanda petik(") pada awal >dan akhir dari path tsb. > > > > >Rgds >HIlman > > > > > > >________________________________ >From: Dita Agustiono <[email protected]> >To: [email protected] >Sent: Friday, April 8, 2011 9:52 AM >Subject: Bls: [belajar-excel] membuat tombol macro > > > >contoh terlampir.file data ada di kmputer 1 dan file tombol ada dikomputer >2.biasanya saya mengupdate link dengan data->edit links->pilih linknya->baru >update values.Saya ingin membuat 1 tombol untuk mengupdate link secara >otomatis.makasih > > >________________________________ >Dari: Mialita Ade <[email protected]> >Kepada: [email protected] >Terkirim: Jum, 8 April, 2011 09:19:57 >Judul: RE: [belajar-excel] membuat tombol macro > > >Hallo sahabat Bexceler, >caranya : >1. buka excel >2. ketik di cell A3 "tombol 1" >3. warnai cell dengan hijau >4. ketik di A1 contoh linknya >5. ketik di A2 contoh link lagi >6. bisa diteruskan >7. save dengan judul membuat tombol macro >8. kirim ulang email >9. sertakan file excel bernama "membuat tombol macro" >10. klik send/kirim > >Regards, > >Ade > > >________________________________ > From: [email protected] [mailto:[email protected]] On Behalf Of Dita >Sent: Friday, April 08, 2011 09:04 AM >To: [email protected] >Subject: [belajar-excel] membuat tombol macro > > >saya ingin membuat 1 tombol untuk mengupdate beberapa links di excel, bagaimana caranya?terima kasih banyak > > > > > > > > > > >
