Convert URL to HTML Berbasis Excel

Iseng-iseng buat sebuah aplikasi sederhana menggunakan Ms. Excel dan dengan tambahan code VBA akhirnya saya bisa membuat sebuah aplikasi Convert URL to HTML. Aplikasi ini sangat sederhana dan mudah-mudahan bisa membantu bagi para blogger yang mengelola blog nya dan biasanya banyak sekali menggunakan link html untuk menghubungkan posting artikel pada blog.

Aplikasi Convert URL to HTML Berbasis Excel ini saya berinama "Convert Link 999" Entah apa dasar dari penamaan aplikasi ini yang jelas saya suka dengan nama tersebut. Baiklah apa saja yang bisa dimanfaatkan dan apa kegunaan dari aplikasi Convert Link 99 ini?

1. Membantu membuat link berupa html
2. Membantu membuat link dengan cepat

Dua kegunaan yang menurut saya sangat penting ini bisa Anda manfaatkan dalam mengelola blog Anda. OK, seperti apa penampakannya?

Seperti itulah, sangat sederhana hanya ada 3 buah textbox dan 3 buah tombol perintah yang membantu Anda mampu merubah alamat URL menjadi HTML. Lalu bagaimana cara menggunakan aplikasi Convert Link 999 tersebut?

Cara menggunakan :

Langkah pertama silakan Anda cari link URL yang akan dicopy pada blog sobat kemudian klik kanan dan Copy Link Location

Langkah Kedua
Silakan buka aplikasi Convert Link 999 tersebut kemudian klik tombol Paste di sebelah kanan textbox. dan tambahkan Nama Link yang akan ditampilkan, kira-kira seperti berikut ini

Langkah berikutnya Anda tinggal klik tombol Convert kemudian lihat hasil Convert nya sudah otomatis tinggal Anda klik Copy saja dan masukan ke blog sobat.

Cara menggunakan aplikasi ini sangat mudah sekali apalagi Anda sudah terbiasa dengan code-code HTML, sebenarnya Ada software berbasis Online juga di internet Anda tinggal browsing saja dengan google disana ada banyak ratusan aplikasi Convert URL to HTML. Jika bermanfaat saya buatkan berbasis Excel ini semoga bisa membantu.

Oia untuk cara buatnya sangat mudah sekali, jika Anda paham dengan code-code VBA hal ini sangat mudah sekali. Untuk cara membuatnya cukup siapkan satu buah UserForm kemudian tambahkan 3 buat textbox dan 3 buah CommandButton dan masukan code Script berikut ini

Untuk script CommandButton1 yaitu "Convert" silakan copykan code VBA berikut

Private Sub CommandButton1_Click()
Dim NamaLink As String
Dim PasteLink As String
Dim HasilLink As String

NamaLink = TextBox2.Value
PasteLink = TextBox1.Value
HasilLink = TextBox3.Value

TextBox3.Text = "<a href=" + """" & PasteLink + """>" & NamaLink + "</a>"
TextBox3.SetFocus
'TextBox3.SelLength = Len(TextBox3.Text)
    If Len(Me.TextBox3 & "") = 0 Then Exit Sub
    Me.TextBox3.SelStart = 0
    Me.TextBox3.SelLength = Len(Me.TextBox3)
End Sub

Untuk CommandButton2 yang diberinama Caption " Copy" silakan tulisakan VBA berikut

Private Sub CommandButton2_Click()
    Dim MyData As New DataObject
    MyData.SetText TextBox3.Text
    MyData.PutInClipboard
End Sub

Untuk UserForm silakan ketikkan kode berikut

Private Sub UserForm_Initialize()
TextBox3.Locked = True
End Sub

Terakhir untuk kode VBA CommandButton3 silakan ketikkan kode VBA berikut

Private Sub CommandButton3_Click()
TextBox1.Paste
End Sub

Ya, begitulah cara membuat aplikasi Convert URL to HTML berbasis Excel dengan menggunakan VBA. Semoga bisa bermanfaat.

Tweet