Ok oom......untuk menjawab pertanyaan punyaanya omm langkah yang harus dikerjakan : 1. Merubah Path File Penuh Menjadu URL berupa Hiper link 2. Dari File Penuh tersebut di pisah antara Lokasi Folder File Bersangkutan dan Nama File + Ekstensi File tersebut.... Kodingan untuk Nomor (1) oom : ' ------------ ' Created By: puthut_vai@ yahoo.com ' On : 19 Oktober 2009 || Jakarta ' Nama Modul : ModSolusi ' ------------ Option Explicit Sub SolusiBuatSiOm( Dim wShitMaster As Worksheet Dim txttext As String Set wShitMaster = Worksheets(" Dim r As Long r = 2 Do While wShitMaster. txttext = wShitMaster. wShitMaster. wShitMaster. wShitMaster. r = r + 1 Loop wShitMaster. Columns("A:D" Application. End Sub Sedangkan Untuk Nomor ( 2 ) : ' ------------ ' Created By: puthut_vai@ yahoo.com ' On : 19 Oktober 2009 || Jakarta ' Nama Modul : ModPathdanNamaFile ' Kegunaan : Modul ini berfungsi untuk ' Fungsi Untuk Merubah Path suatu File ' Menjadi Nama File dan Lokasi Folder dari File ' Tersebut ' ------------ Option Explicit Public Enum EnumTukFungsi NamaPath = 1 NamaFile = 0 End Enum Public Function fNamaFileDANLokasiF ReturnType As EnumTukFungsi) As String Dim sLokasiFolder As String sLokasiFolder = Application. Dim sPathSementara As String sPathSementara = CStr(Empty) Dim i As Long i = Len(SeluruhPathFile Dim sHasilLokasiFolder As String Dim sHasilFile As String If i > 0 Then Do While sPathSementara <> sLokasiFolder sPathSementara = Mid$(SeluruhPathFil If sPathSementara = sLokasiFolder Then sHasilLokasiFolder = Left$(SeluruhPathFi sHasilFile = Right$(SeluruhPathF End If i = i - 1 Loop Select Case ReturnType Case NamaPath fNamaFileDANLokasiF Case NamaFile fNamaFileDANLokasiF End Select Else fNamaFileDANLokasiF End If End Function File Terlampir oommm...Jangan Lupa Makro Srikitinya oomm - ^ Puthut Wibowo ^ - || puthut_vai@yahoo. --- On Sun, 10/18/09, masardi83 <masardi83@yahoo.
|
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh |
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário