Re: ]] XL-mania [[ Link path

 

kalau sudah ada fitur yg bernama hyperlink ....

memang tidak lagi perlu membuat sendiri VBA coding untuk membuka sebuah file

itulah keuntungan yg ada di office (excel) seperti yg telah di tunjukkan oleh pak Eka.

great idea !

file yg dikirim oleh HerrSoe, memang (dulunya) dibuat untuk menjawab pertanyaan serupa 

tetapi ada syarat > harus pakai VBA  > harus jangan pakai hyperlink...

"itu pun jangan dikira" murni tulisan sendiri, karena ia hanyalah  hasil copas (edit dikits)

dari sebuah forum di internet, waktu itu Om-ku sendiri yg membantu menuliskan...

dari idea pak eka dgn hyperlinknya tsb, vba masih kebagian tempat gag ya..??

mungkin masih ada, kalau keadaannya spt ini:

sekarang barangkali daftar  path file itu tidak hanya ada di 2 to 3 cells saja tetapi

sudah berupa list 2 X tinggi monas, di range 234 cells sekolom / katakan di B2:B235.

Dgn mengklik cell satu persatu lalu meng Add Hyperlink nya,??   cappek deh...

Seperti biasanya, pekerjaan yg kelihatannya banyak sebetulnya bisa hanya berupa 

satu / beberapa tasks yg diulang ulang, 

Perintahnya tidak harus titulis di banyak baris perintah. karena adanya mesin Loop.

memasang hyperlink di semua cell dalam range tertentu

Sub H_LinkTo_CellValues()

   ' sebelum dijalankan harus menselect range berisi text path

   Dim F As Range

   For Each F In Selection

      ActiveSheet.Hyperlinks.Add _

      Anchor:=F, Address:=F.Value, TextToDisplay:=F.Value

   Next F

End Sub

mencopot hyperlink di semua sells dalam range tertentu

Sub Remove_H_Links()

   ' sebelum dijakankan harus menselect range berisi hyperlinks

   Dim FLIST As Range, F As Range

   Set FLIST = Selection

   For Each F In FLIST

      F.Hyperlinks.Delete

   Next F

End Sub

lalu masih BISA lagi:  timbul masalah berikutnya, yaitu 

walau meng-Hyperlink-kannya sudah digampangkan,  tetapi teks yg ada itu kan tidak tiba-tiba

tersedia di sheet tanpa ada yg menuliskan, jangan-jangan copas manual dari win-explorer

satu baris demi satu baris.... (cappee lagee dee..)

misal dlm satu folder kita punya 777 files, tidak lah gampang menyalin text nama file (& pathnya)

dan dituliskan di range excel sheet.

anda yg masih suka bermainmain dng perintah DOS mungkin masih tertolong oleh DIR > PRN

seperti menggelar daftar isi direktory (folder) ke layar, nanti teks dlayarnya di copas ke excel

atau notepad.

tetapi jika anda tidak kenal sama sekali what is DOS, lagi lagi vba didalam excel menunjukkan

kemultigunaannya, jika sudah lupa, masih bisa mengunduh lagi ctv_FileName in ExcelSheet.xls 

di sini http://www.box.net/shared/ylly1av26d

ada masalah yg masih harus dipertanyakan, 

seandainya di pc anda terpasang winAmp atau video/audio player lainnya, semua yang kita 

bicarakan tadi tidak ada gunanya lagi; pasalnya mereka punya jendela yg otomatis mendaftar files

yg akan di mainkan

bgmana pak zamrony70  ??

2011/3/23 Eka Subyantara <eka.subyantara@widyatama.ac.id>

Pak Zamrony
Mudah-mudahan ini tidak salah:
Mulailah dengan menjalankan perintah menu Insert => Hyperlink atau dengan shortcut Ctrl-K
kemudian tunjuk nama file yang ingin dibunyikan. Selesai
Selanjutnya hyperlink yang terbentuk tinggal diklik
Mudah-mudahan contoh terlampir bisa bekerja di komputer Bapak.
= eka =

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 94

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"...      |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin momods  |
| 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

.

__,_._,___