azisazka

Saturday, July 16, 2016

CARA CEPAT DAN AMAN MENINGKATKAN VIEWS, SUBSCRIBE, DAN LIKE DI YOUTUBE

Saat ini Youtube menjadi media populer yang banyak digunakan untuk sarana marketing bahkan sampai menghasilkan uang. Iklan berbasis video tentunya akan lebih menarik jika dibandingkan dengan iklan baris ataupun banner.

Selain itu untuk masalah seo, promosi menggunakan youtube dirasa lebih efektif karena video akan lebih mudah meranking pada search engine. Artikel kali ini akan mengulas tentang bagaimana cara menambah ratusan subscriber youtube hanya dalam beberapa menit.

Subscriber atau dalam bahasa indonesia biasa di sebut dengan pelanggan mampu memberikan efek viral yang sangat bagus dalam strategi promosi menggunakan video marketing (youtube).

Bagaimana tidak, dengan memiliki jumlah subscriber yang banyak, secara tidak langsung sobat telah memiliki list building sehingga pada saat muncul video baru kemungkinan video tersebut dilihat dan mendapatkan respon akan jauh lebih besar.

Ok, langsung saja. Untuk cara menambah ratusan subscriber youtube hanya dalam beberapa menit saya sendiri menggunakan bantuan dari addmefast. Sobat bisa mengikutinya dengan melakukan langkah – langkah dibawah ini:

1. Yang pertama sobat harus memiliki channel youtube.

2. Jika sobat sudah memiliki channel, silahkan masuk ke akun sobat dan masuk ke channel setting. Caranya klik jumlah subscriber. Letaknya disebelah kiri, di atas cover youtube pada channel sobat.

3. Langkah selanjutnya, buka tab baru pada browser dan klik disini: addmefast atau disini View2.be dan disini youlikehits Lakukan pendaftaran dan jangan lupa, segera lakukan konfirmasi pada email. Setelah melakukan konfirmasi, sobat bisa login ke addmefast atau View2.be dan youlikehits, kamu bisa daftar salah satu atau semuanya lebih baik.

4. Setelah daftar datarkan id chanel kamu, dan pilih video di chanel kamu yang akan di promosikan.

5. untuk mendapatkan poin kamu bisa pilih dengan like, subscribe, atau view video youtube chanel lain yang disarankan, (intinya tukeran video gitu lah) poin kamu nantinya bisa di tuker dengan like, subscribe, atau view, mudah bukan?

6. tinggal tunggu deh beberapa menit. tatatara tatatara dah ribuan view, like dan subscribr/ pelanggan.<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<script>
     (adsbygoogle = window.adsbygoogle || []).push({
          google_ad_client: "ca-pub-4915992732491939",
          enable_page_level_ads: true
     });

</script>bisa daftar di bawah ini

addmefast

View2.be

youlikehits

Saturday, November 21, 2015

Format mata uang dan pengurangan sederhana dalam excel macro

tarohlah anda mempunyai textbox dengan nama Txt9 Txt09 Txt009 dan pada textbox nama Txt009 = bernilai angka 1000000 Jika anda menginginkan nilai 1000000 menjadi Rp 1.000.000 maka hal yang harus anda lakukan adalah menambah kode seperti

Private Sub Txt009_Change()
Txt9.Value = Format(Txt009.Value, "#,##0")
End Sub

Atau

Private Sub Txt009_Change()
Txt009.Value = Format(Txt009.Value, "Rp, #,##0")
End Sub

Penjumlahan pada kedua textbox
Cara penjumlahan antara textbox - Jika anda menginginkan Txt009 Adalah hasil dari pengurangan atau penjumlahn dari Txt9 Txt09 maka anda tambahkan kode sederhana ini

Private Sub Txt9_Change()
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub

Atau

Private Sub Txt09_Change()
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub

Untuk menghindari error anda bisa menambahkan On errro resume next

Private Sub Txt09_Change()
On errro resume next
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub

menyertakan mata uang di excel vba

utorial kali ini merupakan perbaikan dari tutorial sebelumnya atau mungkin bisa juga dijadikan sebagai alternatif dalam menjadikan TextBox hanya dapat diisi dengan angka saja.

Konsepnya dari tutorial ini adalah pengguna hanya dapat mengentry nilai dari 0 sampai dengan 9, dengan menggunakan kode sederhana dalam sebuah prosedur KeyPress untuk TextBox
Untuk dapat melakukannya, saya berasumsi dalam UserForm Anda terdapat sebuah TetBox dengan nama TextBox1.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
   Case Asc("0") To Asc("9")
   Case Else
     KeyAscii = 0
End Select
End Sub

Kode diatas akan memaksa pengguna untuk mengentry angka atau karakter mulai dari 0 sampai dengan 9

Jika ingin menyertakan simbol mata uang dalam textbox secara otomatis, maka tambahkan kode berikut

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "Rp #,###")
End Sub

Artinya, setiap kali pengguna mengentry sebuah angka maka akan secara otomatis menampilkan sebuah simbol mata uang (Rp) didepannya.

Cara Membuat Validasi Hanya Angka pada TexBox

Permasalah di Excel ketika membuat input menggunakan UserForm dan isian datanya menggunakan Textbox maka yang menjadi masalah adalah ketikan memasukan data terkadang hanya bisa diisi data angka saja selain itu textbox tersebut akan menolak.

Contoh nyata Anda bisa lihat pada tulisan Form Input Data Siswa

Sebuah kode NIS biasanya hanya menggunakan data angka bukan huruf. Kenapa kita harus memvalidasi atau membatasi hanya dengan data angka? hal ini dimaksudkan supaya untuk mengurangi tingkat kesalahan dalam mengentri data tersebut.

Ok, langsung saja berikut tahapan cara membuat validasi data angka pada texbox
Langkah pertama silakan buat userform kemudian ViewCode nya dan ketikkan script berikut pada Userform tersebut

Private Sub HanyaAngka()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Data yang diinput harus berupa angka saja"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

Setelah Sript tersebut dibuat langkah berikutnya adalah kita akan memanggil data angka dengan sebuah textbox namun sebelumnya silakan buat sebuah textbox pada userform1 tersebut kira-kira seperti dibawah ini. Untuk membuatnya sudah saya sampaikan. Lalu silakan tambahkan script berikut dibawahnya dengan prosedure Exit

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HanyaAngka
End Sub

Untuk lebih jelas silakan tampilan gambar dan script seperti berikut ini

Jika sudah selesai silakan jalankan program dengan cara menekan tombol F5 kemudian silakan ketikkan data selain angka maka akan keluar pesan peringatan "Data yang diinput harus berupa angka saja"

Berhasil, kita sudah bisa membuat script membatasi input hanya angka dengan validasi data angka pada textbox.
Selamat mencoba dan semoga berhasil.

anda bisa kembangkan untuk membuat aplikasi-aplikasi berbasis Excel.

Menghitung baris atau sel yang aktif

Pada artikel sebelumnya saya telah share cara mengetahui sel yang aktif, bagi anda yang melewatkanya anda bisa membacanya kembali pada link dibawah ini

VBA mencari sel aktif

Menghitung baris atau sel yang aktif - Berikut ini kode untuk menghitung baris atau sel yang aktif

Private Sub CommandButton1_Click()
Set Macro = Sheets("Sheet1")
Macro.Range("C2").Value = Macro.Cells(Macro.Rows.Count, "A"). _
    End(xlUp).Offset(0, 0).Row - 0
End Sub

Jumlah baris atau sel ayang aktif akan ditunjukan pada range C2, jika anda menginginkan muncul kotak dialog anda bisa modifikasi kode macronya seperti ini

Private Sub CommandButton1_Click()
Set Macro = Sheets("Sheet1")
MsgBox "Jumlah baris aktif : " & Macro.Cells(Macro.Rows.Count, "A"). _
    End(xlUp).Offset(0, 0).Row - 0

Contoh Kode Vba excel

Beberapa Contoh Kode dalam Vba excel - Berikut ini adalah contoh kode yang sering saya gunakan dalam membuat aplikasi, kode saya copy dari blog "????????" lupa

AUTO RUN
Ada beberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membukaworkbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka.

Sub Auto_Open( )
Msgbox “hi”
End Sub
Private Sub Workbook_Open( )
Msgbox “hi”
End Sub

Sebagai penjelasan lebih lanjut anda bisa melihat pada postingan berikut ini

Event workbook aktif

MENGHITUNG ROWS, COLUMNS DAN SHEET
Kode berikut digunakan untuk menghitung berapa jumlah rows (baris) atau columns(kolom) yang telah kita sorot dengan kursor.

Sub Hitung( )
hitung_baris = Selection.Rows.Count
hitung_kolom = Selection.Columns.Count
MsgBox hitung_baris & " " & hitung_kolom
End Sub
Sub hitung_sheet( )
hitung_sheet = Application.Sheets.Count
Msgbox hitung_sheet
End Sub

Sebagai penjelasan lebih lanjut anda bisa melihat pada postingan berikut ini

Menghitung baris atau sel yang aktif

MENG-KOPI RANGE
Contoh berikut akan meng-kopi range A1 sampai A3 ke D1 sampai D3

Sub Kopi_Range( )
Range (“A1:A3”).Copy Destination:=Range(“D1:D3”)
End Sub

WAKTU SEKARANG
Contoh berikut akan menampilkan waktu pada saat ini

Sub sekarang( )
Range (“A1”)= Now
End Sub

MENGETAHUI POSISI SEL YANG SEDANG AKTIF

Sub posisi( )
baris = ActiveCell.Row
kolom = ActiveCell.Column
Msgbox baris & “,” & kolom
End Sub

Sebagai penjelasan lebih lanjut anda bisa melihat pada postingan berikut ini

VBA mencari sel aktif

MENGHAPUS BARIS YANG KOSONG

Sub hapus_baris_kosong( )
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next I
End Sub

Menebalkan dan Mewarnai Huruf (Font)
Contoh berikut akan menebalkan dan memberi warna merah pada huruf dimana sel sedang aktif.

Sub tebal_merah( )
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End Sub

MENGIRIMKAN WORKBOOK MELALUI EMAIL

Sub email( )
ActiveWorkbook.SendMail recipients:= ”excel@ahoo.c”
End Sub

FUNGSI EXCEL
Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi rounduntuk membulatkan sebuah angka, dalam spreadsheet akan terlihat seperti ini
= round(1.2367, 2)
Dalam VBE Anda cukup menggunakan Application kemudian disusul fungsi yang akan dipakai.

Sub bulat( )
ActiveCell = Application.Round(ActiveCell, 2)
End Sub

MENGHAPUS NAMA-NAMA RANGE
Contoh berikut akan menghapus semua nama-nama range di dalam workbook Anda

Sub hapus_nama_range( )
Dim NameX As Name
For Each NameX In Names
ActiveWorkbook.Names(NameX.Name).Delete
Next NameX
End Sub

LAYAR BERKEDIP
Program dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut.

Application.ScreenUpdating = False

MENGGUNAKAN SHEET MESKIPUN ADA FORM

UserForm1.Show vbModeless

Cara Membuat Pemisah Ribuan pada TextBox Excel RumusExcel.com - Tanda pemisah angka ribuan atau biasa disebut separator biasanya digunakan untuk mempermudah dalam pencatatan suatu angka karena ada tanda titik (.) sebagai pemisah ribuan, supaya tidak terjadi kesalahan dalam pencatatan angka. Untuk menampilkan pemisah angka ribuan dalam pembuatan data dengan Microsoft Excel biasanya adalah dengan mengubah Fomat cell menjadi Currency atau Accounting. Begitupun jika ingin membuat pemisah ribuan pada sebuah TextBox ataupun Label pada UserForm maka harus di ubah Formatnya menjadi Currency atau Accounting. Untuk lebih jelasnya ikuti panduan berikut ini: Buka Aplikasi Microsoft Excel dan simpan dengan ekstensi *.xlsm atau *.xlsb. Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau buka Tab Developer dan klik Visual Basic. Tambahkan sebuah Userform dan 1 buah TextBox. Untuk Properties (Name) UserForm dan TextBox biarkan Default. Pada Properties TextBox ubah TextAlign dari 1-fmTextAlignLeft atau rata kiri menjadi 3-fmTextAlignRight atau Rata Kanan. Selanjutnya tinggal memasukkan script untuk membuat pemisah ribuan, klik kanan pada UserForm1 yang ada pada VBA Project dan klik View Code. Kemudian masukkan script berikut: Private Sub TextBox1_Change() On Error GoTo abc TextBox1 = Format(TextBox1 * 1, "#,##0") Exit Sub abc: TextBox1 = "" End Sub Setelah selesai tekan tombol F5 pada keyboard atau klik tombol Run Sub/Userform pada Toolbar Microsoft Visual Basic untuk menjalankan UserForm, dan coba tuliskan angka pada TextBox apakah berhasil menampilkan pemisah ribuan (.) atau tidak. Penjelasan Script yang digunakan: Private Sub TextBox1_Change() ..... End Sub Maksudnya jika isi TextBox diubah maka semua perintah yang ada didalam tag atau sub tersebut akan dijalankan. On Error GoTo abc Maksudnya jika ada error maka perintah/script abc yang akan dijalankan, Error ini terjadi jika Textbox di isi dengan format text karena untuk membuat format ribuan isi TextBox akan diubah menjadi format number, untuk itu harus ada penanganan error jika TextBox diisi dengan text bukan number. TextBox1 = Format(TextBox1 * 1, "#,##0") Exit Sub Script ini digunakan untuk mengubah format TextBox1 menjadi Number dan menampilkan pemisah ribuan. Setekah selesai perintah di akhiri (Exit Sub). abc: TextBox1 = "" Jika terjadi error perintah ini yang akan dijalankan, yaitu membuat TextBox1 menjadi kosong.

Sumber: http://www.rumusexcel.com/2014/10/membuat-pemisah-ribuan-textbox-excel.html