mbak Jan Raisin,
kalo boleh tolong diterangkan kenapa deklarasi variabel ada yang dibuat di
dalam Loop ya? karena umumnya deklarasi kan selalu diletakan di baris
paling atas
terima kasih sebelumnya
wassalam,
-aji mumpung-
Pada 13 November 2012 10:17, Jan Raisin <miss.jan.rai...@gmail.com> menulis:
> **
>
>
> ibu Himmah,
>
> coba kode berikut yang ditulis dalam sebuah modul VBA, untuk menampilkan
> modul tersebut dari lembar kerja Excel tekan tombol F11, klik Insert >>
> Module
>
> Option Explicit
> ' -------------------------- '
> ' Code by Miss Jan Raisin '
> ' untuk millis Belajar Excel '
> ' 13 November 2012 '
> ' -------------------------- '
>
> ' nama prosedur
> Sub HLink()
>
> ' deklarasikan variabel untuk menyimpan objek data
> ' FData = data pertama
> ' rgData = range Data
> ' cData = cell yang berisi data
> ' tipe data adalah Range karena yang akan diambil adalah objeknya
> (Range-nya)
> Dim FData, rgData, cData As Range
>
> ' tentukan letak dari data pertama (FData)
> ' letaknya di sheet dengan nomor index 1 di cell B2
> Set FData = Sheet1.Range("b2")
>
> ' tentukan letak dari range data (rgData)
> ' letaknya mulai dari data pertama (FData)
> ' sampai dengan baris terakhir yang berisi data (FData.End(xlDown)
> Set rgData = Range(FData, FData.End(xlDown))
>
> ' lakukan Loop untuk setiap cell yang berisi data (cData)
> For Each cData In rgData
>
> ' lakukan deklarasi untuk menyimpan objek yang akan diuji
> HyperLink-nya
> ' FLink = data pertama yang akan diuji link-nya
> ' rgLink = range data yang akan diuji link-nya
> ' cLink = setiap cell yang akan diuji link-nya
> Dim FLink, rgLink, cLink As Range
>
> ' tentukan posisi data pertama yang akan diuji link-nya
> ' mulainya dari posisi data pertama
> Set FLink = FData
>
> ' tentukan posisi range data yang akan diuji link-nya
> ' posisinya mulai dari data pertama = FLink
> ' sampai baris terakhir yang berisi data FLink.End(xlDown)
> Set rgLink = Range(FLink, FLink.End(xlDown))
>
> ' lakukan Loop untuk setiap cell yang akan diuji link-nya
> For Each cLink In rgLink
>
> ' pengujian dilakukan dengan menggunakan perintah
> .Hyperlinks.Count
> ' jika cell memiliki target tujuan HyperLink maka nilainya
> adalah 1
> ' jika cell tidak memiliki target tujuan HyperLink maka
> nilainya adalah 0
> If cLink.Hyperlinks.Count = 0 Then
>
> ' jika ditemukan cell dengan target tujuan = 0
> ' maka hapus seluruh baris dalam cell tersebut
> cLink.EntireRow.Delete
>
> ' ini adalah penutup pemeriksaan cell dengan HyperLink
> End If
>
> ' lakukan pengujian dengan baris berikutnya
> Next cLink
>
> ' lakukan pengujian dengan baris berikutnya
> Next cData
>
> ' ini adalah penutup dari prosedur
> End Sub
>
>
> Best Regard,
>
> Jan Raisin
>
> Pada 13 November 2012 07:31, him mah <himmah....@gmail.com> menulis:
>
> **
>>
>>
>> maaf mau tanya: misal saya punya tabel seperti dibawah (terdiri dari 2
>> kolom) misal kolom NO dan ALAMAT, untuk kolom alamat terdapat data
>> yang mempunyai link dan tidak ada hyperlink
>>
>> NO ALAMAT
>> 1 id.yahoo.com/?p=us
>> 2 detik.com
>> 3 republika.co.id/
>> 4 www.inilah.com/
>> 5 gmail.com
>> 6 kompas.com
>> 7 milis-belajar-excel
>>
>> yang diinginkan itu adalah menghapus baris yang pada bagian kolom
>> ALAMAT tidak ada hyperlink nya, kira-kira VBAnya seperti apa. misal no
>> 2 dan nomor 5 tidak ada hyperlinknya maka baris itu akan terhapus
>>
>> sehingga hasilnya
>>
>> NO ALAMAT
>> 1 id.yahoo.com/?p=us
>> 3 republika.co.id/
>> 4 www.inilah.com/
>> 6 kompas.com
>> 7 milis-belajar-excel
>>
>> saya lampirkan contoh filenya
>>
>
>
>
