Hot Fox: Bls: Re: ]] XL-mania [[ Link path

domingo, 27 de março de 2011

Bls: Re: ]] XL-mania [[ Link path

YTH Masa EKa, Mas Hersoe

File kirimannya sudah saya coba, Dan berhasil sesuai yang saya maksud,

Untuk yg file ctv_FileName in ExcelSheet.xls, bisa gak ya Mas mengambil sampai ke sub-sub folder nya (maksud saya biar gak perfolder, permasalahannya file2nya banyak di sub folder)
Mohon pencerahannya

Regard,
Zamrony

From: "STDEV(i)" <setiyowati.devi@gmail.com>

Sender: XL-mania@yahoogroups.com

Date: Thu, 24 Mar 2011 07:40:38 +0700

To: <XL-mania@yahoogroups.com>

ReplyTo: XL-mania@yahoogroups.com

Subject: 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 (5)

Recent Activity:

New Members 89

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              |
+-------------------------------------------------------------------+

MARKETPLACE

Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.