Modul Praktikum 6 Aplikasi Spreadsheet Microsoft ... - WordPress.com

Modul Praktikum 6 Dasar-Dasar Teknologi Informasi dan Komunikasi

Aplikasi Spreadsheet Microsoft Excel (2) Validasi Data & Fungsi Terbilang A. Validasi Data Validasi data sangat berguna saat kita ingin data yang dimasukkan ke worbook akurat dan konsisten. Sebagai contoh, untuk membatasi pemilihan mata kuliah, nama barang , nama jabatan, daftar transaksi, dan lain sebagainya. Microsoft Excel menyediakan fitur Data Validation. Validation adalah fasilitas yang dimiliki Excel untuk menentukan validasi atau menentukan batasan data yang diperkenankan dalam suatu sel. Fasilitas ini digunakan terutama untuk meminimalisir kesalahan entri data pada suatu tabel data yang memiliki Record tetap atau berdasarkan kriteria tertentu. Contoh Kasus 1: Misalkan akan ditampilkan daftar barang pada sebuah Toko Komputer, maka yang perlu dilakukan adalah : 1. Ketikkan daftar barang yang diperlukan.

2. Klik cell dimana data akan diisikan, misalkan cell E2. 3. Klik Menu Data > Validation, maka akan dimunculkan kotak dialog Data Validation

4. Pada Tab “Setting”, Kolom ‘Allow’, pilih ‘List’. 5. Kemudian pada kolom ‘Source’, klik tombol untuk memilih cell yang akan dijadikan referensi datanya.

@Muhammad Hamka,S.T Digunakan untuk kalangan terbatas


6. Blok cell yang dijadikan sumber referensi data (contoh : C11 – C 14).

7. Pada Tab ‘Error Alert’ (digunakan untuk menampilkan pesan kesalahan jika data yang dimasukkan tidak ada pada daftar). Pilihan ‘Style’ pilih ‘STOP’, kolom ‘Title’ isikan ‘Data Salah’, kamudian kolom ‘Error Message’ diisikan ‘Data yang dimasukkan tidak ditemukan’.

8. Jika ada memasukkan data tanpa melalui daftar pilihan (contoh ketikkan ‘Casing’ pada cell E2), maka akan dimunculkan pesan kesalahan sebagai berikut :


Modul Praktikum 6 Dasar-Dasar Teknologi Informasi dan Komunikasi Contoh Kasus 2 : Misalkan akan dibuat daftar mahasiswa, dimana tidak ada NIM (Nomor Induk Mahasiswa) yang sama. Langkah yang perlu dilakukan adalah sebagai berikut : 1. Tentukan cell untuk mengisi data mahasiswa, misalkan C21 untuk NIM dan C22 untuk NAMA. 2. Isikan data NIM sebagai referensi data yang akan divalidasi

3. Misalkan kita ingin memasukkan 20 data mahasiswa. Maka sorot kolom NIM (C22 – C 42) 4. Pilih menu Data > Validation, pada tab ‘Seting’, pilihan Allow, pilih ‘Custom’. 5. Kemudian pada kolom formula isikan ‘=MATCH(C22,$C:$C,0)=ROW(C22:C42)’

6. Pada tab ‘Error Alert’, lakukan pengaturan sebagai berikut :

7. Apabila diisikan NIM pada cell C25 dengan ‘083401’ (sama dengan NIM pada cell C22), maka dimunculkan pesan error sebagai berikut :

B. Fungsi Terbilang @Muhammad Hamka,S.T Digunakan untuk kalangan terbatas

Modul Praktikum 6 Dasar-Dasar Teknologi Informasi dan Komunikasi Fungsi terbilang merupakan penerjemahan bilangan ke dalam bentuk teks kalimat. Pengguna MS Excel yang sering menggunakannya untuk hitung keuangan, mungkin sangat ingin dari hasil yang diperoleh ada tambahan kalimat yang menyebutkan jumlah hasil perhitungan. Misal hasil perhitungan: Rp 1.000.000,- , muncul kalimat: Satu Juta Rupiah. Pembuatan fungsi terbilang menggunakan macro. Macro adalah fasilitas yang disediakan Microsoft Office yang memungkinkan pembuatan fungsi-fungsi spesifik, misalkan untuk pemformatan, kondisional dan lain sebagainya. Langkah-langkah yang diperlukan untuk membuat fungsi terbilang adalah sebagai berikut : 1. Buka Microsoft Excel 2. Tekan tombol ALT + F11 (secara bersamaan) untuk membuka aplikasi Visual Basic Editor dimana fungsi macro akan dituliskan pada aplikasi ini.

3. Pada aplikasi Visual Basic Editor, klik menu Insert > Module.

4. Maka akan ditampilkan jendela Module1 (Code).



5. Ketik kode program berikut pada module1 Public Function TERBILANG(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim letak(5) letak(1) = "RIBU " letak(2) = "JUTA " letak(3) = "MILYAR " letak(4) = "TRILYUN " If (x < 0) Then TERBILANG = "" Exit Function End If If (x = 0) Then TERBILANG = "NOL" Exit Function End If If (x < 2000) Then tanda = True End If teks = "" If (x >= 1E+15) Then TERBILANG = "NILAI TERLALU BESAR" Exit Function End If @Muhammad Hamka,S.T Digunakan untuk kalangan terbatas


For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) TERBILANG = teks & " Rupiah" End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "SE" angka(2) = "DUA " angka(3) = "TIGA " angka(4) = "EMPAT " angka(5) = "LIMA " angka(6) = "ENAM " angka(7) = "TUJUH " angka(8) = "DELAPAN " angka(9) = "SEMBILAN " Dim posisi(2) posisi(1) = "PULUH " posisi(2) = "RATUS " bilang = "" For j = 2 To 1 Step -1 tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "BELAS " Else angka(y) = "SE" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else @Muhammad Hamka,S.T Digunakan untuk kalangan terbatas

Modul Praktikum 6 Dasar-Dasar Teknologi Informasi dan Komunikasi bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "SATU " End If bilang = bilang & angka(y) ratusan = bilang End Function

6. Untuk memeriksa apakah sudah benar kode yang dimasukkan, pilih menu Debug > Compile VBAProject 7. Tutup jendela aplikasi Visual Basic Editor. 8. Misalkan Cell C26 diisi dengan ‘15000’, kemudian pada Cell D26 isikan dengan pemanggilan fungsi terbilang dengan cara : ‘=terbilang(C26)’. 9. Maka hasil pada cell D26 adalah sebagai berikut :

C. Latihan Buatlah aplikasi untuk mencatat nota pembelian pada sebuah toko komputer dengan ketentuan sebagai berikut : 1. Gunakan Validasi Data dalam memasukkan kode barang

2. Nama Barang diisikan berdasarkan Kode Barang, dengan ketentuan sebagai berikut :

Jika Kode Barang = HD1-001 Jika Kode Barang =HD2-001 Jika Kode Barang =HD3-001 Jika Kode Barang =PR1-001 Jika Kode Barang =PR2-001 Jika Kode Barang =PR3-001 Jika Kode Barang =MN1-001 Jika Kode Barang =MN2-001 Jika Kode Barang =MN3-001

Maka Nama Barang : Harddisk Seagate Maka Nama Barang : Harddisk Maxtor Maka Nama Barang : Harddisk Fujitsu Maka Nama Barang : Printer Canon Maka Nama Barang : Printer Epson Maka Nama Barang : Printer HP Maka Nama Barang : Monitor Samsung Maka Nama Barang : Monitor LG Maka Nama Barang : Monitor Advance

3. Harga Satuan diisikan berdasarkan Nama Barang dengan ketentuan sebagai berikut : Maka Nama Barang : Harddisk Seagate; Maka Nama Barang : Harddisk Maxtor; @Muhammad Hamka,S.T Digunakan untuk kalangan terbatas

Harga Satuan = 425000 Harga Satuan = 415000


4. 5. 6. 7.

Maka Nama Barang : Harddisk Fujitsu; Maka Nama Barang : Printer Canon; Maka Nama Barang : Printer Epson; Maka Nama Barang : Printer HP; Maka Nama Barang : Monitor Samsung; Maka Nama Barang : Monitor LG; Maka Nama Barang : Monitor Advance;

Harga Satuan = 450000 Harga Satuan = 550000 Harga Satuan = 750000 Harga Satuan = 475000 Harga Satuan = 726000 Harga Satuan = 731200 Harga Satuan = 510000

Jumlah Harga dihitung berdasarkan Harga Satuan dan Jumlah Pembelian. Perhitungan Total Pembelian Total Pembelian dalam teks kalimat (terbilang) Hasil akhirnya terlihat sebagai berikut :
