Membuat Countact Us Di Websitenya 123 CountactForm 2018

        Form Contact Us adalah merupakan Opsi lain bagi pengunjung blog yang mau berkomunikasi dengan yang Mempunyai blog secara pribadi, Bisa berkomunikasi bayak hal, hal-hal yang ingin diketahui oleh pengunjung, atau sekedar Tanya-tanya katanyan sih ini juga salah satu sarat untuk daftar di Adsense google.

          Contact Us, hubungi kami, saran, dan masukan, itu adalah nama yang sama, cuma terdapat perbedaan istilah. Sesuai 

Contact Us 

 Membuat Contact Us, bisa dari script HTML, widget dari blogspot,dan lainya bisa cari di mbha google untuk cara yang lain. kalau saya membuatnya Contact Us dari 123ContactForm, karena di samping mudah juga Praktis.

Oke step by stepnya adalah

1. kita masuk Websitenya  123 countactForm

2. Buatlah akun pada Website tersebut dengan mengklik tombol Sign Up For Free. Jangan lupa     Konfirmasi di email yach? klik cereate a form (jika sudah mempunyai tinggal login)

 3. isi data, klik Agree & sign up

 4. klik Contact & Lead Form dan klik Start with this template

  5. Isikan Email pada no. 1 Isikan SMS pada no. 2. dan klik Publish pada no. 3

  6. Dan yangterakhir klik Blogger dan copy code, Masukan kode tersebut pada  Countact Us Blog anda, untuk tampilan countact Us Juga bisa di edit.

     

MENGISI MENU 2018

       Mengisi menu di header Blogspot dengan mudah bisa dilakukan bagi blogging yang sudah Senior itu sangat mudah hanya hitungn menit sudah jadi dan pastinya hasilnya keren dan pastinya patut di cungin jempol, tapi kalau bagi pemula seperti saya, muter-muter enggak ketemu-temu maklum baru belajar.

          Kesempatan Kali ini saya Sedikit berbagi, bagi yang Pemula seperti saya barang kali ada yang membutuhkan dan sudah kesana kemari mencari belum ketemu juga, eh teryata akhiry terdampar di  https://ekohydncahrjm.blogspot.com/ . 

          Seperti yang terlihat di gambar bawah ini apabila sobat ingin menambahkan tombol, Abaut me, Countact Us, Privacy Policy dan TOS (Terms Of Serfice) masih Kesusahan Kita Bisa belajar Bareng, sebenaryasih setep by setepya adalah kita harus membuat dulu atau daftar dulu di Countact Us, Privacy Policy dan TOS (Terms Of Serfice) tapi di bahas lain waktu yah?

            

Ok... cara Mengisi menu di header Blogspot dengan mudah lagkah-langkahya, ( arikel ini lanjutan dari Membuat Tab Menu Bar Mudah Tanpa Ubah-Ubah Html Di Blogspot 2018 )

         Pertama kita buat dulu halaman baru, seperti pada gambar berilah nama Abaut me, klik Publikasikan dan buat lagi halaman baru berilah nama Countact Us, Privacy Policy dan TOS (Terms Of Serfice)

       Setelah masing masing halaman sudah dibuat,Abaut me, Countact Us, Privacy Policy dan TOS (Terms Of Serfice) tahapan selanjutnya adalah klik, tata letak, edit, centangi simpan.

Sudah Jadi Dan tinggal Mengisi Scrip /Tulisan/edit  di Setiap Halaman Abaut me, Countact Us, Privacy Policy dan TOS (Terms Of Serfice) 

baca juga Artikel cara membuat Abaut me, Countact Us, Privacy Policy dan TOS (Terms Of Serfice) 

Membuat Tab Menu Bar Mudah Di Blogspot 2018

Membuat Tab Menu Bar Mudah Tanpa Ubah-Ubah Html Di Blogspot 2018

      Bagi blog baru pemula seperti saya,Ubah-ubah kode Html itu membingungkan, dan keuranganya, kemungkinan kalu kita mengonta ganti tema blog kemungkinan nanti bisa hilang menu bar itu (tidak hilang mungkin tapi haya keheiden). gerak dan lingkup, edit dan tambah serta seting tampilan blog sangatlah sulit, apalagi belajar secara autodidak, mau tanya sama siapa ?.. jauh dari pakar tidak punya kenalan ahli, yang mahir dalam dunia blogging, jujur saya hanya berbekal kwato internet saya mencoba dan terus mencoba, bersyukur akhirnya bisa juga.

   Barang kali ada blogger pemula seperti saya yang belum bisa menemukan caranya menambahkan  menu bar di atas header (yang saya maksud seperti terlihat pada gambar) takutnya saya salah istilah yuk kita belajar bareng

     Pertama kita harus menentukan kerangka temanya dulu  seperi apa  modal temanya yang akan kita gunakan di blog kita, (usahakan struktur temanya seperti yang saya gunakan )

1.  Langkah pertama kita masuk ke dasbor (+ tanbah gadged tidak akan muncuk kalau sudah pernah dibuat nomor 2)

     2. ubalah nama sesuai keinginan kemudian simpan

Hasilya

     Demikian Cara Membuat Tab Menu Bar Mudah Di Blogspot 2018

MEMBUAT FILE PDF MUDAH DENGAN APLIKASI NITRO.

MEMBUAT FILE PDF DENGAN APLIKASI NITRO.

       

            Barangkali ada yang belum tau atau kesusahan cara confert Ms.Excel menjadi File PDF dengan aplikasi nitro Ternyata mudah sekali mengubah file Ms.word, Ms.Excel menjadi File PDF, dan sebaliknya PDF menjadikan Ms.word,Ms.Excel dan sekalian mengabungkanya, atau menyambungkanya perhalaman, Untuk aplikasinya bisa Search Di google.
           

            Untuk mencovert file Ms.Word atu Ms.Excel menjadi File PDF buka file klik Kanan, seperti terlihat Gambar, klik confert, tentukan foldernya dan tunggu hingga selesai.

         Untuk menyambungkan halaman Perhalaman buka file-file yang sudah di convert menjadi PDF kik kanan, arahkan kursor ke kombine files with nitro.

untuk mengeser urutanya bisa mengunakan move left atau mofe right setelah selesai, klik cereat tunggu hingga proses selesai.

MENGGAMBAR MENGUNAKAN APLIKASI PAINT

MENGGAMBAR MENGUNAKAN APLIKASI PAINT

          Selamat malam sob edisi kali ini saya mencoba membahas tentang aplikasi Paint yang dimana aplikasi ini umumnya langsung ada atau terinstal di setiap Komputer namun, terkadang masih tersembunyi dan belum nampak dilayar koputer kita, dan mungkin masih ada sobat semua yang belum terlalu mengunakan aplikasi ini, atau mengfungsikanya, padahal kalu menurut saya, banyak sekali fungsinya untuk edit gambar, atau crop gambar, dan kita tidak perlu menginstal aplikasi yang membutuhkan sepace ram besar, yach hitung-hitung memperingan kinerja kompi kita 

           Edisi kali ini saya mencoba mengunakan Aplikasi Paint untuk menggambar sederhana membuat peta seket tanah, atau lokasi, seperti pada video
https://youtu.be/TKeZ0ILemgQ

         Untuk mencari Aplikasi Paint, caranya cukup gampang tinggal klik dikolom pencarian Seperti nampak Pada gambar dibawah ini.

               Memulai Tahapanya buatlah terlebih dahulu peresegi panjang dan tahapan seterusnya, jika kurang jelas bisa tonton video diatas, atau komen dibawah .

IMPUT DATA DARI USER FORM

IMPUT DATA DARI USER FORM 

          Slamat Malem...? semua terimakasih telah mampir di blog saya, Seperti yan pernah saya utarakan kemarin, bahwa saya belajar dari Autodidak sedikit demi sedikit merangkai/menumpulkan pengetahuan, maka dari itu bagi teman-teman yang berkenan menberi Saran,masukan saya ucapkan terimakasih, bisa di tulis dikolom komentar, atau yang mungkin berkenan belajar bareng sama saya, atau mengajari saya bagi blogger saya malah seneng.

              Coretan ini saya buat hanya bagi pemula yang mungkin haya cari refrensi/atau gambaran mengenai peroyek macro yang sedang dibuat.tetang input data.

Tahapanya menurut Saya sebagai berikut

- Bukalah lembar Keja Ms.Excel buatlah suatu Proyek dengan nama imput data jangan lupa formalya excel macro enabled workbook.

 - Berikutnya tambahkan userform dn buatlah dan tambahkan TextBox, Label, CommandButton dan ComboBox seperti Pada gambar Dibawah,

- Buatlah Nama-nama seperti gambar di Atas

- Lalu Masukan Kode- Kode Berikut 

Private Sub UserForm_Initialize()

With DUKUH

.AddItem ""

.AddItem "KRAJAN"

.AddItem "SIDADAP"

.AddItem "SIBUGEL"

End With

With DUKUH

End With

With RT

.AddItem ""

.AddItem "01"

.AddItem "02"

.AddItem "03"

End With

With RT

End With

With RW

.AddItem ""

.AddItem "01"

.AddItem "02"

.AddItem "03"

End With

With RW

End With

With KELAMIN

.AddItem ""

.AddItem "Laki-laki"

.AddItem "Perempuan"

End With

With KELAMIN

End With

With TEMPATLHR

.AddItem ""

.AddItem "Kebumen"

.AddItem "Purworejo"

.AddItem "Wonosobo"

End With

With TEMPATLHR

End With

TOMBOL MASUKAN DATA

Private Sub CommandButton2_Click()

Dim I As Long

Sheet1.Activate

'I = WorksheetFunction.CountA(Range("A:A")) + 1 Adalah yang untuk memindahkan jika baris satu sudah terisi data

I = WorksheetFunction.CountA(Range("A:A")) + 1

Me.TextBoxNAMA.SetFocus

'Masukan data ke database

Cells(I, 1).Value = Me.TextBoxNAMA.Value

Cells(I, 2).Value = "'" & Me.TextBoxNIK.Value

Cells(I, 3).Value = "'" & Me.TextBoxNOMORKK.Value

Cells(I, 4).Value = Me.DUKUH.Value

Cells(I, 5).Value = "'" & Me.RT.Value

Cells(I, 6).Value = "'" & Me.RW.Value

Cells(I, 7).Value = Me.KELAMIN.Value

Cells(I, 8).Value = Me.TEMPATLHR.Value

'Untuk menghapus data di tektbok userform

Me.TextBoxNAMA.Value = ""

Me.TextBoxNIK.Value = ""

Me.TextBoxNOMORKK.Value = ""

Me.DUKUH.Value = ""

Me.RT.Value = ""

Me.RW.Value = ""

Me.KELAMIN.Value = ""

Me.TEMPATLHR.Value = ""

pesan = MsgBox("" & vbCrLf & "TAMBAH DATA LAGI ?", vbYesNo, "sistem aplikasi")

Select Case pesan

Case vbYes

Me.TextBoxNAMA.SetFocus

Case vbNo

Unload Me

End Select

ActiveWorkbook.Save

TOMBOL BATAL

Private Sub CommandButton1_Click()

Unload Me

untuk proyek aplikasi contohya ada di sini  UNDUH

MEMBUAT PENCARIAN DATA DARI USERFORM MENGGUNAKAN TEXTBOOK TAMPIL DI LISTBOOK.

MEMBUAT PENCARIAN DATA DARI USERFORM MENGGUNAKAN TEXTBOK TAMPIL DI LISTBOK.

   Jujur Saya tidak ahli dalam menulis Artikel diblog hanya belajar secara Autodidak (aku nulisnya salah apa tidak yach agan hehe) yang jelas intinya maksud aku hanya sebagai pembelajaran saya dan mungkin ada sebagian pengunjung atau orang yang secara tidak sengaja menemukan corat coretku ini,

1. Pertama buatlah sebuah lembar kerja excel, save dengan Format " Excel macro enablet workbook, dan beri nama " cari data"

   

    2. Isikan data-data seperti berikut pada sheet1

      3. Setelah selesai buatlah userform pada menu Defloper 

          

       4. Tambahkan Label,Textbok dan lishbok dan ubalah nama pada masing-masing textbok di           popertis seperti pada gambar di bawa;

Texbok ganti nama menjadi NAMA

Lalu masukan kodenya dengan cara doble klik pada Uerform1

Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.ColumnCount = 4
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "NO"
.List(.ListCount - 1, 1) = "NAMA PENDUDUK"
.List(.ListCount - 1, 2) = "NOMOR KK"
.List(.ListCount - 1, 3) = "ALAMAT"
.ColumnWidths = 20 & "," & 90 & "," & 90
End With

Doble klik pada nama, masukan kode dibawah;

Private Sub NAMA_Change()
NAMA.Value = UCase(NAMA.Value)
On Error Resume Next
Worksheets("Sheet1").Activate
Dim rngNames As Range
    Dim arrNames
    Dim arrResults
    Dim lngRow As Long
    If NAMA.Value = "" Then
        'MsgBox "Datane durung diisi ije Kosong..."
Me.NAMA.SetFocus
       
        Exit Sub
    End If
     
    With Worksheets("Sheet1")
        Set rngNames = .Range("B3", .Range("B" & Rows.Count).End(xlUp))
    End With
    With rngNames
        arrNames = Evaluate(.Address & "&CHAR(45)&ROW(" & .Address & ")")
    End With
    arrNames = Application.Transpose(arrNames)
    arrResults = Filter(arrNames, NAMA.Value)
    ListBox1.Clear
    UserForm_Activate
    If UBound(arrResults) = -1 Then
        ListBox1.AddItem "Data Tidak Ada"
    Else
        For I = LBound(arrResults) To UBound(arrResults)
            lngRow = Mid(arrResults(I), InStrRev(arrResults(I), "-") + 1)
            With ListBox1
                .AddItem
                .List(.ListCount - 1, 0) = Worksheets("Sheet1").Range("A" & lngRow)
                .List(.ListCount - 1, 1) = Worksheets("Sheet1").Range("B" & lngRow)
                .List(.ListCount - 1, 2) = Worksheets("Sheet1").Range("C" & lngRow)
                .List(.ListCount - 1, 3) = Worksheets("Sheet1").Range("D" & lngRow)
                
            End With
        Next I

    End If


Doble klik pada Lisbok1 Lalu Masukan Kode dibawah;


Private Sub ListBox1_Click()
On Error Resume Next
Dim daftar As Long
Dim ws As Worksheet: Set ws = Worksheets("sheet1")
With Me.ListBox1
daftar = .ListIndex
If daftar < 1 Or daftar = .ListCount Then
Else

NAMA.Value = .List(daftar, 1)
NIK.Value = .List(daftar, 2)
ALAMAT.Value = .List(daftar, 3)

End If

End With

   Demikian Corat-coret saya dibawah ini ada filenya yach barang kali ada yang membutuhkan sebagai 

UNDUH DISINI