cara membuat Form Input Data Siswa dengan Excel VBA

Untuk membuatnya cukup sederhana silakan buat sebuah form seperti tampilakn diatas. Untuk yang belum mengetahui caranya silakan ikuti langkah berikut

STEP 1
Buat sebuah dokumen baru kemudian aktifkan VBA editor dengan menekan kombinasi keyboar ALT+F11 kemudian cari menu Insert dan klik UserForm

STEP 2
Untuk langkah kedua setelah menyisipkan sebuah form baru maka kita edit ukuran form nya sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox dan letakkan pada Form kemudian ganti Caption menjadi NIS

STEP 3
Setelah label NIS terbuat silakan buat label berikutnya sesuai dengan Field diatas dan caranya sama dengan tahap 2 hingga menjadi seperi tampilan berikut. Jangan lupa ganti properties Caption sesuai dengan fieldnya

STEP 4
Untuk langkah ke-4 Anda harus membuat beberapa TextBox sebagai syarat untuk pengisian data. Bagi yang belum tahu cara membuat textbox caranya adalah klik TextBox pada Toolbox kemudan drag ke UserForm misalnya untuk membuat textbox nis seperti berikut jangan lupa ganti properties Name menjadi "TXTNis" untuk mendefinisikan supaya tidak lupa dalam membuat kode program VBA nya.

Dari langkah ke-4 tersebut silakan  buat beberapa textbox Anda bisa juga menggunakan teknik copy paste. dan silakan ganti propertis name menjadi seperti berikut ini.

Textbox1 ganti dengan    TXTNis
Textbox2 ganti dengan    TXTNama
Textbox3 ganti dengan    TXTTempatLahir
Textbox4 ganti dengan    TXTTglLahir
Textbox5 ganti dengan    TXTALamat
Textbox6 ganti dengan    TXTNISN
Textbox7 ganti dengan    TXTHP
Textbox8 ganti dengan    TXTSKHUN
Textbox9 ganti dengan    TXTIjasah
Textbox10 ganti dengan    TXTNamaIbu
Textbox11 ganti dengan    TXTThnLahirIbu
Textbox12 ganti dengan    TXTPekIbu
Textbox13 ganti dengan    TXTNamaAyah
Textbox14 ganti dengan    TXTThnLahirAyah
Textbox15 ganti dengan    TXTPekAyah
Textbox16 ganti dengan    TXTPengAyah
Textbox17 ganti dengan    TXTAlamatOrtu

Untuk ComboBox silakan buat dengan menggunakan Toolbox dan ganti properties name nya
ComboBox1 ganti dengan CBO CBOKelamin
ComboBox2 ganti dengan CBO CBOPendidikanIbu
ComboBox3 ganti dengan CBO CBOPendidikanAyah

Hasil akhir kira-kira seperti ini

STEP 5
Untuk tahap ke-5 silakan buat 3 buah tombol dengan menggunakan CommandButton seperti diatas yang pertama tombol "Simpan" ke-2 tombol "Cari Data Siswa" dan yang ke-3 "Close" untuk masing-masing tombol silakan ganti properties name menjadi "TBLSimpan", "TBLCariData", CMDClose"

Untuk yang belum tahu cara membuat CommandButton caranya hampir sama dengan membuat texbox tetapi disini toolbox yang dipake adalah CommandButton. Jadi kalo untuk membuat tiga buah tombol maka kita harus membuat 3 buah CommandButton.

STEP 6
Langkah berikutnya adalah langkah membuat script VBA. dan yang pertama silakan View Code kemudian tuliskan script berikut untuk membuat initial pada UserForm

Private Sub UserForm_Initialize()
With CBOKelamin
    .AddItem "Laki-Laki"
    .AddItem "Perempuan"
End With
With CBOPendidikanIbu
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
With CBOPendidikanAyah
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
End Sub

STEP 7
Tahap ke-7 kita akan membuat sebuah script VBA untuk simpan data siswa silakan ketikkan script VBA nya di bawah ini

Private Sub TBLSimpan_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("databasesiswa")

'menemukan baris kosong pada database siswa
iRow = Ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis
If Trim(Me.TXTNis.Value) = "" Then
  Me.TXTNis.SetFocus
  MsgBox "Masukan NIS terlebih dahulu Kang.."
  Exit Sub
End If


'copy data ke database siswa
Ws.Cells(iRow, 1).Value = Range("X1").Value
Ws.Cells(iRow, 2).Value = Me.TXTNis.Value
Ws.Cells(iRow, 3).Value = Me.TXTNama.Value
Ws.Cells(iRow, 4).Value = Me.TXTTempatLahir.Value
Ws.Cells(iRow, 5).Value = Me.TXTTglLahir.Value
Ws.Cells(iRow, 6).Value = Me.CBOKelamin.Value
Ws.Cells(iRow, 7).Value = Me.TXTAlamat.Value
Ws.Cells(iRow, 8).Value = Me.TXTNISN.Value
Ws.Cells(iRow, 9).Value = Me.TXTHP.Value
Ws.Cells(iRow, 10).Value = Me.TXTSKHUN.Value
Ws.Cells(iRow, 11).Value = Me.TXTIjasah.Value
Ws.Cells(iRow, 12).Value = Me.TXTNamaIbu.Value
Ws.Cells(iRow, 13).Value = Me.TXTThnLahirIbu.Value
Ws.Cells(iRow, 14).Value = Me.TXTPekIbu.Value
Ws.Cells(iRow, 15).Value = Me.CBOPendidikanIbu.Value
Ws.Cells(iRow, 16).Value = Me.TXTNamaAyah.Value
Ws.Cells(iRow, 17).Value = Me.TXTThnAyah.Value
Ws.Cells(iRow, 18).Value = Me.TXTPekAyah.Value
Ws.Cells(iRow, 19).Value = Me.CBOPendidikanAyah.Value
Ws.Cells(iRow, 20).Value = Me.TXTPengAyah.Value
Ws.Cells(iRow, 21).Value = Me.TXTAlamat.Value

'clear data siswa
Me.TXTNis.Value = ""
Me.TXTNama.Value = ""
Me.TXTTempatLahir.Value = ""
Me.TXTTglLahir.Value = ""
Me.CBOKelamin.Value = ""
Me.TXTAlamat.Value = ""
Me.TXTNISN.Value = ""
Me.TXTHP.Value = ""
Me.TXTSKHUN.Value = ""
Me.TXTIjasah.Value = ""
Me.TXTNamaIbu.Value = ""
Me.TXTThnLahirIbu.Value = ""
Me.TXTPekIbu.Value = ""
Me.CBOPendidikanIbu.Value = ""
Me.TXTNamaAyah.Value = ""
Me.TXTThnAyah.Value = ""
Me.TXTPekAyah.Value = ""
Me.CBOPendidikanAyah.Value = ""
Me.TXTPengAyah.Value = ""
Me.TXTAlamatOrtu.Value = ""
Me.TXTNis.SetFocus

'Simpan data
Application.ActiveWorkbook.Save
End Sub

STEP 8
Membuat perintah CLOSE silakan ketikkan script nya dibawah ini dengan cara double klik tombol CLOSE

Private Sub CMDClose_Click()
Unload Me
End Sub

STEP 9
Membuat sebuah validasi data untuk textbox yang berisi data angka agar data yang diinput hanya berupa data angka buka hurfu. Apabila data yang dimasukan pada textbox bukan berupa data angka maka secara otomatis akan menampilkan pesan error dan ini dia script nya

Private Sub HanyaAngka()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Maaf, Masukan data angka saja"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

STEP 10
Tahap 10 Anda bisa menggunakan variasi apabila ketika textbox aktif atau dipilih maka warna akan berubah. Ini dia script nya. Script ini juga akan menghasilkan perintah error yang merupakan pemanggilan prosedur dari tahap 9 diatas.

Private Sub TXTNISN_Change()
HanyaAngka
End Sub

Private Sub TXTHP_Change()
HanyaAngka
End Sub

Private Sub txtnis_Enter()
TXTNis.BackColor = &H80000005
End Sub
Private Sub txtnis_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HanyaAngka
TXTNis.BackColor = &HE0E0E0
End Sub

Private Sub txtnama_enter()
TXTNama.BackColor = &H80000005
End Sub
Private Sub txtnama_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNama.BackColor = &HE0E0E0
End Sub

Private Sub txttempatlahir_enter()
TXTTempatLahir.BackColor = &H80000005
End Sub
Private Sub txttempatlahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTempatLahir.BackColor = &HE0E0E0
End Sub

Private Sub txttgllahir_enter()
TXTTglLahir.BackColor = &H80000005
End Sub
Private Sub txttgllahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTglLahir.BackColor = &HE0E0E0
End Sub

Private Sub txtalamat_Enter()
TXTAlamat.BackColor = &H80000005
End Sub
Private Sub txtalamat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamat.BackColor = &HE0E0E0
End Sub

Private Sub cbokelamin_Enter()
CBOKelamin.BackColor = &H80000005
End Sub
Private Sub cbokelamin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOKelamin.BackColor = &HE0E0E0
End Sub

Private Sub txtnisn_Enter()
TXTNISN.BackColor = &H80000005
End Sub
Private Sub txtnisn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNISN.BackColor = &HE0E0E0
End Sub

Private Sub txthp_Enter()
TXTHP.BackColor = &H80000005
End Sub
Private Sub txthp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTHP.BackColor = &HE0E0E0
End Sub

Private Sub txtskhun_Enter()
TXTSKHUN.BackColor = &H80000005
End Sub
Private Sub txtskhun_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTSKHUN.BackColor = &HE0E0E0
End Sub

Private Sub txtijasah_Enter()
TXTIjasah.BackColor = &H80000005
End Sub
Private Sub txtijasah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTIjasah.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaibu_Enter()
TXTNamaIbu.BackColor = &H80000005
End Sub
Private Sub txtnamaibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtthnlahiribu_Enter()
TXTThnLahirIbu.BackColor = &H80000005
End Sub
Private Sub txtthnlahiribu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnLahirIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtpekibu_Enter()
TXTPekIbu.BackColor = &H80000005
End Sub
Private Sub txtpekibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekIbu.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanibu_Enter()
CBOPendidikanIbu.BackColor = &H80000005
End Sub
Private Sub cbopendidikanibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaayah_Enter()
TXTNamaAyah.BackColor = &H80000005
End Sub
Private Sub txtnamaayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtthnayah_Enter()
TXTThnAyah.BackColor = &H80000005
End Sub
Private Sub txtthnayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpekayah_Enter()
TXTPekAyah.BackColor = &H80000005
End Sub
Private Sub txtpekayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekAyah.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanayah_Enter()
CBOPendidikanAyah.BackColor = &H80000005
End Sub
Private Sub cbopendidikanayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpengayah_Enter()
TXTPengAyah.BackColor = &H80000005
End Sub
Private Sub txtpengayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPengAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtalamatortu_Enter()
TXTAlamatOrtu.BackColor = &H80000005
End Sub
Private Sub txtalamatortu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamatOrtu.BackColor = &HE0E0E0
End Sub

TAHAP 11
Untuk tahap terakhir silakan buat sebuah Worksheet untuk menyimpan database yang telah disimpan apabila menekan tombol simpan data maka data siswa akan tersimpan pada sheet yang telah ditentukan misalnya saya ganti sheet untuk menyimpan database dengan nama "DatabaseSiswa"

Selesai.
Allahamdulillah, tahapan membuat sebuah userform untuk input data siswa sudah berhasil dibuat dan untuk menjalankan nya silakan coba klik RUN
Selamat mencoba semoga berhasil.

sumber http://www.excel-id.com

Cara Membuat Blog Menjadi Maintenance

Kali ini saya akan kembali membagikan Tutorial Blog, Yaitu Membuat Blog Menjadi Maintenance. Apa maksud dari Maintenance? Maintenance adalah sebuah pemberitahuan bahwa web/blog sedang dalam perbaikan atau tidak bisa dibuka pada saat ini.

Bagaimana Cara Kerjanya?

• Apabila anda membuat perbaikan terhadap artikel, laman (page), dan template pada blog anda, maka setiap anda mengunjungi Blog anda, maka akan muncul pesan bahwa Blog sedang dalam Perbaikan.

Silahkan ikuti Tutorial Membuat Blog Menjadi Maintenance, dibawah ini.

1. Login ke Blogger >> Dashboard >> Template >> Edit HTML
2. Cari Kode ]]>

, Untuk mempermudah, tekan CTRL + F

Masukkan Kode dibawah ini, tepat diatas kode ]]>

html {

  height: 100%;

  background: url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJf5F43HXTkD4rf8XgZdbxjq1x_zjNjTaaSTpzlHl14ADV7_VJZYV3sNrzmtiDar0LM-EMPO93ObXDP7v_2D8_2Vk210sO_GcWSd7v1vifkgbWGV9Kw7gipro90sPQQp_vR-62dRWcp33g/s1600/MAINTAINING.jpg) no-repeat center 50%;

  margin: 0;

}

body {

  display: none;

}

Save. (Silahkan Buka Blog anda untuk melihat Hasilnya)

• Ket :
  -Ganti Teks Berwarna Biru Dengan url gambar maintenance keinginan anda.

Bagaimana cara menghilangkan Maintenance?

• Caranya sama seperti diatas, namun anda hanya perlu menghapus kode css yang anda tambahkan tadi di atas ]]>

.

Terima Kasih. Semoga Bermanfaat. Jangan Lupa untuk memberi masukan sekaligus pertanyaan di Blog ini dengan menuju ke sini.

sumber http://utility-share.blogspot.com/

Cara Membuat Konfirmasi Email pada Formulir Google (Google Form)

Bagi kita yang terbiasa membuat formulir online untuk berbagai macam kebutuhan apakah itu pendaftaran atau konfirmasi atau untuk menghubungi biasanya cara yang paling mudah adalah menggunakan google form. sebenarnya ada banyak pilihan namun ada yang berbayar dan gratis, ada yang dibatasi jumlah inputanya. kelebihan google form adalah gratis dan tidak dibatasi jumlah orang yang submit. namun ada sedikit permasalahan, biasanya orang yang sudah mengirim data akan bertanya sudah benar-benar terikirim atau belum datanya. salah satu solusinya adalah dengan mengirimkan email konfirmasi otomatis yang memberitahu bahwa data sudah terkirim. lalu bagaimana caranya??

1. pertama, yang harus anda lakukan adalah membuat formulir di google drive, login ke google drive kemudian buat formulir.

2. kemudian buatlah beberapa field, misal : nama, alamat, tgl lahir, dll. lalu buat satu field yang wajib diisi yaitu field “Alamat Email”

3. kemudian simpan formulir / kirim formulir.

4. secara otomatis pada folder di google drive akan membuat file dalam bentuk excel yang bernama formulir pendaftaran (tanggapan).

5. kemudian buka file tersebut –>  formulir pendaftaran (tanggapan).

6. kemudian akan muncul tampilan seperti ini

7. pilih “Alat” pada menu lalu pilih “editor skrip”

8. kemudian akan membuka halaman baru editor skrip. copy paste code seperti dibawah ini.

<——code mulai——–>

/* Send Confirmation Email with Google Forms */

function Initialize() {

var triggers = ScriptApp.getProjectTriggers();

for (var i in triggers) {
ScriptApp.deleteTrigger(triggers[i]);
}

ScriptApp.newTrigger(“SendConfirmationMail”)
.forSpreadsheet(SpreadsheetApp.getActiveSpreadsheet())
.onFormSubmit()
.create();

}

function SendConfirmationMail(e) {

try {

var ss, cc, sendername, subject, columns;
var message, value, textbody, sender;

// This is your email address and you will be in the CC
cc = Session.getActiveUser().getEmail();

// This will show up as the sender’s name
sendername = “Adi Kiswanto”;

// Optional but change the following variable
// to have a custom subject for Google Docs emails
subject = “Terima Kasih Data Anda Berhasil dikirim”;

// This is the body of the auto-reply
message = “Kami telah menerima data Anda.
Terima Kasih!

”;

ss = SpreadsheetApp.getActiveSheet();
columns = ss.getRange(1, 1, 1, ss.getLastColumn()).getValues()[0];

// This is the submitter’s email address
sender = e.namedValues[“Alamat Email”].toString();

// Only include form values that are not blank
for ( var keys in columns ) {
var key = columns[keys];
if ( e.namedValues[key] ) {
message += key + ‘ : ‘+ e.namedValues[key] + “
”;
}
}

textbody = message.replace(“
”, “\n”);

GmailApp.sendEmail(sender, subject, textbody,
{cc: cc, name: sendername, htmlBody: message});

} catch (e) {
Logger.log(e.toString());
}

}

<——code berakhir——–>

9. kemudian pilih file dan simpan, kemudian pilih jalankan –> initialize kemudian klik oke dan berikan otentifikasi ke google dengan klik oke. simpan kemudian tutup.

10. kemudian buka formulir yang Anda buat dan coba masukan data

11. jika anda berhasil, maka akan ada email yg masuk ke dalam email Anda seperti ini.

 sumber http://adikiss.net/

Cara membuat situs jejaring sosial seperti Facebook dengan jcow.

Teman-teman pernah berfikir/bertanya, bagaimana sih situs facebook dibuat sehingga sekarang "masih" booming di masyarakat ?? pernah juga berfikir apakah teman-teman pengen membuatnya ?? oke kawan. sebenarnya membuat situs jejaring sosial itu tidak terlalu sulit. Dengan program yang namanya jcow, akan lebih mudah. mari kita mulai saja tutorialnya. Sebagai contoh saya akan membuat situs yang namanya salingsapi. hehehe . .


Instalasi salingsapi

1. Pertama Install XAMPP.
2. Terus ente ketik di browser : localhost. Harusnya muncul seperti ini ...
 
3. Nah setelah itu ente ketikkan : localhost/phpmyadmin. Nanti muncul nyang seperti ini ..
 
4. Bikin databasenya seperti keliatan dibawah ini :
 
5. Nah terus setting pripilegnya .. klik home dulu ..
 
baru klik pripilegnyaaaa
 
6. klik add new user
 
contoh :
db user name : salingsapiadmin
pass : 12345
database name : salingsapi
7. trus diatur kayak beginian gan ..
 
Jangan lupa tekan GO !
 
8. seepppp .. udah kelarrrrrr .. sekarang download sourcenya .. bisa ambil di
http://sourceforge.net/projects/jcow/. (udah ditutup yang versi 4, ganti versi 5). udah gitu copy data ente ke tempat dimana xamppnya terinstall. biasanya di c:\xampp\htdocs. Bikin folder dulu salingsapi terus extract filenya disitu. kayak gini dah ...
 
9. Udah gitu .. jalankan programnya, di browser tekan http://localhost/salingsapi/install.php. ente isi kayak beginian gan ...
 
usahain ente catet penjelasan nyang nomor 6
10. nyang tulisan ati-ati penjelasannya kayak gini gan ... Ini nyang perlu diinget-inget, Jcow itu jalan berdasarkan alamat website URL gan. Ini perlu kotbah dikit .. agan khan jalankannya di localhost (intranet .. misalnya dicoba di sekolahan), tapi kalo mo sewa hosting juga boleh nanti ada setupnya untuk alamat website url agan isi kayak gini : http://www.salingsapi.com .. begono .... yang bagian administrator passwordnya itu nanti nyang dipake untuk ngakses jcownya ... Jangan lupa klik I Agree ...
11. Kalau hasilnya sukses kayak beginian ..
 
12. Ditulisan situ, ente kudu ngapus install.phpnya. hmm .. atau boleh direname aja jadi salingsapi.php ..
 
13. Tinggal mencoba ... http://ketikkan localhost/salingsapi di browser


MODIPIKASI
1. Ganti baju jadi pesbuk ... (masuk ruang ganti)
2. Download bajunya di http://community.jcow.net/extensions?page=2
 
3. Udah getuu ekstrak ke folder salingsapi ...
 
4. Masuk ke adminnya
terus klik admin CP
 
5. Pilih Themes gan
 
6. Activate .. save changes
 
7. Coba gan di browser http://localhost/salingsapi
 
8. Tinggal ganti ngecat bajunya di folder themes\facebook.

sumber http://fadlancold.blogspot.com