√ Convert Url To Html Berbasis Excel

Iseng-iseng buat sebuah aplikasi sederhana memakai Ms. Excel dan dengan komplemen code VBA balasannya aku bisa menciptakan sebuah aplikasi Convert URL to HTML. Aplikasi ini sangat sederhana dan mudah-mudahan bisa membantu bagi para blogger yang mengelola blog nya dan biasanya aneka macam memakai link html untuk menghubungkan posting artikel pada blog.

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

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

Dua kegunaan yang berdasarkan aku sangat penting ini bisa Anda manfaatkan dalam mengelola blog Anda. OK, menyerupai apa penampakannya?

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

Cara memakai :

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

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

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

Cara memakai aplikasi ini sangat gampang sekali apalagi Anda sudah terbiasa dengan code-code HTML, gotong royong Ada software berbasis Online juga di internet Anda tinggal browsing saja dengan google disana ada banyak ratusan aplikasi Convert URL to HTML. Jika bermanfaat aku buatkan berbasis Excel ini biar bisa membantu.

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

Untuk script CommandButton1 adalah "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 instruksi berikut

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

Terakhir untuk instruksi VBA CommandButton3 silakan ketikkan instruksi VBA berikut

Private Sub CommandButton3_Click()
TextBox1.Paste
End Sub

Ya, begitulah cara menciptakan aplikasi Convert URL to HTML berbasis Excel dengan memakai VBA. Semoga bisa bermanfaat.
Sumber http://www.excel-id.com/