Sabtu, 04 Juni 2016

Membuat Tanda Warna Pada Cell dengan VBA di Microsoft Excel

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan anda telah mengaktifkan menu Tab Developer.

2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.



3. Jendela Visual Basic terbuka, lalu pilih menu View > Code.

4. Kemudian copy kode dibawah ini.

Private Sub worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
Range("B1") = "Satu"
Range("A1").Interior.ColorIndex = 6
ElseIf Range("A1") = 2 Then
Range("B1") = "Dua"
Range("A1").Interior.ColorIndex = 4
ElseIf Range("A1") = 3 Then
Range("B1") = "Tiga"
Range("A1").Interior.ColorIndex = 3
ElseIf Range("A1") = 4 Then
Range("B1") = "Empat"
Range("A1").Interior.ColorIndex = 5
End If
If Range("C1") = 1 Then
Range("D1") = "Satu"
Range("C1").Interior.ColorIndex = 7
ElseIf Range("C1") = 2 Then
Range("D1") = "Dua"
Range("C1").Interior.ColorIndex = 8
ElseIf Range("C1") = 3 Then
Range("D1") = "Tiga"
Range("C1").Interior.ColorIndex = 9
ElseIf Range("C1") = 4 Then
Range("D1") = "Empat"
Range("C1").Interior.ColorIndex = 5
End If
End Sub



5. Setelah Kode tersebut diisi, klik Run.Kemudian kembali ke jendela Micosoft Excel, pada sheet 1 ketiklah angka 1/2/3/4 untuk melihat perubahan tanda pada cell sheet 1.




Untuk Download Filenya : Click Here

Jumat, 03 Juni 2016

Membuat Formulir Pengisian Data Mahasiswa Dengan VBA Pada Ms. Excel

Langkah - langkah untuk membuat pengisian data mahasiswa dengan VBA pada Ms. Excel :

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan  Microsoft Excel anda telah mengaktifkan menu Tab Developer.


2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.


3. Jendela Visual Basic terbuka, kemudian pilih menu Insert  > UserForm, maka tampilan Form VBA terbuka.


Tampilan Form VBA


Toolbox
Toolbox dimana kita bisa meletakkan berbagai kontrol/komponen pada form.

4. Kemudian buatlah Formulir Data Mahasiswa yang dibutuhkan dengan menggunakan menu yang ada pada Toolbox. Berikut contoh Formulir yang telah dibuat.

5. Lalu pilih menu View > Code atau Klik kanan pada form dan pilih View Code untuk melakukan coding program.


6. Masukkan kode pemograman sesuai dengan data yang dibuat.


Berikut kode pemogramannya.

Private Sub UserForm_Initialize()
'Kosongkan data Text Box
TxtNamaLeng.Value = ""
TxtAsDa.Value = ""
TxtProgStud.Value = ""
TxtKls.Value = ""
TxtTmptLhr.Value = ""
TxtAlmt.Value = ""

 'Clear Combo
CmbTgl.Clear
CmbBln.Clear
CmbThn.Clear
CmbJnsKlmn.Clear

 'Isi Program Studi untuk combo Box Program Studi
With TxtProgStud
.AddItem "Diploma I Pajak"
.AddItem "Diploma I Kepabeanan dan Cukai"
End With

 'Isi Tanggal untuk combo Box Tanggal Lahir
With CmbTgl
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
End With

 'Isi Bulan untuk combo Box Bulan Lahir
With CmbBln
.AddItem "JANUARI"
.AddItem "FEBRUARI"
.AddItem "MARET"
.AddItem "APRIL"
.AddItem "MEI"
.AddItem "JUNI"
.AddItem "JULI"
.AddItem "AGUSTUS"
.AddItem "SEPTEMBER"
.AddItem "OKTOBER"
.AddItem "NOVEMBER"
.AddItem "DESEMBER"
End With

 'Isi Tahun untuk combo Box Tahun Lahir
With CmbThn
.AddItem "1994"
.AddItem "1995"
.AddItem "1996"
.AddItem "1997"
.AddItem "1998"
.AddItem "1999"
End With

 'Isi Jenis Kelamin untuk combo Box Jenis Kelamin
With CmbJnsKlmn
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
End Sub

 Private Sub BtnSimpan_Click()

 Dim emptyRow As Long
'aktifkan Sheet1
Sheet1.Activate

 'deteksi baris kosong
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

 'Simpan data ke sheet1
Cells(emptyRow, 1).Value = TxtNamaLeng.Value
Cells(emptyRow, 2).Value = TxtAsDa.Value
Cells(emptyRow, 3).Value = TxtProgStud.Value
Cells(emptyRow, 4).Value = TxtKls.Value
Cells(emptyRow, 5).Value = TxtTmptLhr.Value
Cells(emptyRow, 6).Value = CmbTgl.Value & "/" & CmbBln.Value & "/" & CmbThn.Value
Cells(emptyRow, 7).Value = CmbJnsKlmn.Value
Cells(emptyRow, 8).Value = TxtAlmt.Value

 End Sub

 Private Sub cmdBatal_Click()
Unload Me
End Sub
End Sub

7.  Setelah memasukkan kode pemograman, jalankan form tersebut. Klik Run > Run Sub/ UserForm atau dengan menggunakan kunci keyboard F5.


8. Maka tampilan jendela form pada excel akan muncul seperti ini.


9. Kemudian isi data pada form mahasiswa, lalu klik simpan pada form. Maka hasilnya akan seperti ini.


Untuk Download Filenya : Click Here

Jumat, 13 Mei 2016

Membuat Grafik di Ms. Excel




1. Pertama buka Ms. Excel terlebih dahulu.


2. Buatlah data yang akan dibuat grafiknya. Dari ketiga data ini akan dihasilkan 3 tabel yang berbeda.



3. Setelah data selesai dibuat, langkah selanjutnya adalah memblok seluruh data yang akan dibuat grafik.

4. Kemudian klik Tab insert sehingga akan terlihat group bar yang ada, Pada grup chart, pilih bentuk grafik sesuai dengan yang diinginkan, seperti chart bar dan pilih salah satu bentuk yang diinginkan.


5. Berikut hasil grafik dari data A.

6. Untuk menambahkan nama pada grafik dapat dilakukan dengan mengklik grafik, grup chart tool akan muncul diujung menu bar. Didalam menu itu terdapat tab layout, klik tab layout, dilanjutkan dengan mengklik chart title yang ada di grup label. Pilih dimana judul akan diletakkan diatas grafik atau ditengah atas grafik.


7. Hasilnya seperti gambar berikut ini. Judul bisa diubah sesuai dengan yang dibutuhkan.

8. Jika ingin mengganti axis baik horizontal/vertical caranya klik kanan pada Horizontal (Value) axis ataupun Vertical (Value) axis, sesuai dengan yang ingin diubah, akan muncul pop up dan klik format axis.

9. Maka akan muncul tampilan Format Axis.


10. Minimun digunakan dari nomor berapakah horizontal/vertikal axis akan dimulai.
Maximum digunakan untuk mengetahui nomor paling maximum yang ada di horizontal/vertikal axis.
Untuk mengatur interval antar nomor diatur dengan menggunakan major unit.


11. Grafik diatur dengan major unit 1,00 sehingga menghasilkan grafik sesuai gambar berikut.

12. Agar Grafik terlihat rapi maka gridline yang ada dapat diatur atau bahkan dapat dihilangkan dengan cara klik layout pada chart tools → gridlines → primary horizontal gridlines →major and minor gridline. Pengaturan ini juga berlaku untuk primary vertikal gridlines.

13. Maka hasilnya akan seperti ini.


Contoh grafik yang telah jadi : Click Here

NIP

1. Cara Membuat Tanggal, Bulan, dan Tahun Lahir Dari NIP PNS

Fungsi formula yang akan diterapkan yaitu :
- MID berfungsi untuk mengambil beberapa karakter Text atau number dimulai dari tengah-tengah.
- VLOOKUP
- VALUE
- LEFT
- RIGHT
- IF

a) Tanggal Lahir

Ketik rumus berikut dikolom Bulan Lahir D2 seperti gambar diatas.


b) Bulan Lahir

Ketik rumus berikut dikolom Bulan Lahir E2 seperti gambar diatas.


c) Tahun Lahir


 Ketik rumus berikut dikolom Bulan Lahir F2 seperti gambar diatas.


Download Disini : Click Here

Jumat, 06 Mei 2016

Kamis, 05 Mei 2016

Voice Direct MP3 Qur'an Per Juz From Syeikh Mishary Rasyid Al-Afasy


Juz 1 ⇨ http://bit.ly/1RqIGw4

Dari Abu Hurairah raḍyAllāhu 'anhu, ia berkata: sesungguhnya Rasulullah ﷺ bersabda: “siapa saja yang mengajak kepada kebenaran/kebaikan, maka ia memperoleh pahala seperti pahala orang yang mengerjakannya tanpa dikurangi sedikitpun. Dan siapa saja yang mengajak kepada kesesatan, maka ia mendapat dosa seperti dosa orang yang mengerjakan tanpa dikurangi sedikitpun” (HR Muslim)