Excel untuk Aplikasi Gunawan Wibisono
Dibantu penyusunan oleh Yohanes Handoko
Format Cells Cells yang diberi border dan warna Formula
Comments
Cell kosong
Menu Format Cells
Submenu Format Cells
Penjelasan atas rumus yang dipilih
Proteksi Cell • Digunakan untuk memprotect cell dari user lain, agar tidak diubah (biasanya karena cell berisi formula, atau cell sudah diformat dengan warna, border, tipe data tertentu).
Tugas • Silahkan coba untuk memformat cell range, diisi data angka dengan prefix Rp diberi warna background kuning dan diberi border. • Protek cell range tersebut.
Function • Suatu cell dapat diisi dengan rumus • Untuk mengawali suatu function (rumus), diawali dengan = • Lambang matematika: – – – – –
Tambah: + (plus) Kurang: – (dash) Kali: * (asterisk) Bagi: / (slash) Pangkat: ^ (caret)
• Untuk perhitungan khusus, pilih rumus yang disediakan dalam Insert function
Kategori function pada Excel • Kategori rumus yang biasa digunakan dalam ekonomi: – Financial: berisi rumus‐rumus perhitungan finansial (NPV,IRR, dll) – Statistical: berisi rumus‐rumus statistika – Logical: berisi logika matematika (and, false, if, not)
Contoh praktek (menghitung NPV dengan function): KASUS: Capsule Corporation memiliki Investasi, dengan perkiraan sebagai berikut (dalam ribuan): Tahun Net Cash Flow (setelah pajak)
Discount Rate
12.00%
Initial Cost of Investment
Soal: Hitung NPV
1
2
3
4
Rp4,800
Rp7,200
Rp9,600
Rp10,800
minimum acceptable rate of return
Rp20,000
Penyelesaian:
Cells yang diwarnai adalah hasil function • • • • • • •
Ketik A1-A10 seperti diatas Isikan discount rate pada B1, kemudian ketik B3-E3 dan B4-E4 seperti diatas Masukkan function Present Value : 1/(1+discount rate)^Tahun - B5: =1/(1+B1)^B3 - C5: =1/(1+B1)^C3 - dan seterusnya sampai E5 Masukkan function discounted Cash Flow: Net Cash Flow * Present Value - B6: =B4*B5 - C6: =C4*C5 - dan seterusnya sampai E6 Total Discounted Cash Flow, B8: =Sum(B6:E6) Isikan B9 (Initial Cost of Investment) NPV, B10: =B8-B9
KASUS Latihan: Stark Enterprise mempunyai 2 mutually exclusive Investments dengan expected net cash flow sebagai berikut: Expected Net Cash Flow Tahun
Proyek A
Proyek B
0
(300)
(405)
1
(387)
134
2
(387)
134
3
(193)
134
4
(100)
134
5
600
134
6
850
134
7
(180)
0
Discount rate: 12%
Soal (kerjakan dengan Excel): 1. Hitung NPV (dengan menghitung PV, total discounted cash flow) 2. Hitung NPV dengan function 3. Lakukan proteksi pada cells function, beri warna cells tersebut
Drop down list Informasi mengenai drop down list
Drop down list
• Cell dapat diubah jadi drop down list, kegunaanya adalah untuk konsistensi data yang dientry, dan memudahkan dalam mengentry data yang sudah pasti.
Membuat Drop Down List Pilih allow - list
Data yang akan dijadikan list
• Membuat drop down list: 1. Pilih cells yang akan dijadikan drop down 2. Klik data pada toolbar, pilih validation 3. Pada submenu setting, pilih Allow - list 4. Isikan data yang akan jadi list pada source (dipisah dengan koma)
Membuat Drop Down List 2 Input Message, memberi informasi pada cell yang jadi drop down list
Informasi hanya muncul jika cell dipilih (ditunjuk dengan mouse)
• •
Title: Nama drop down list Input message: Informasi mengenai drop down list
Membuat Drop Down List 3 Error message: memberi informasi (retry dan cancel) bila cell yang jadi drop down diisi dengan data lain
Style: pilihan gambar error message
• •
Title: judul error message Error message: informasi mengenai error
Command button
Tombol design view
Pilih ini untuk membuat Command button
Command Button yang telah dibuat
Membuat command button 1 1. Memunculkan Control Toolbox: Klik Tools, pilih customize
Pilih control toolbox untuk memunculkan Control Toolbox
Membuat command button 2 2. Setelah control toolbox muncul, klik command button 3. Drag command button ditempat yang diinginkan
4. Klik kanan di command button yang telah dibuat
5. Pilih view code
Untuk mengedit nama command button
Membuat command button 3 (visual basic) • View code akan menampilkan Visual Basic dari command button yang dibuat • Berikut ini code VB untuk tombol Info dan NPV (Excel kasus Capsule Corporation)
Command button Info
Command button NPV
• VB Code command button Info: Private Sub CommandButton1_Click() Dim Info As String Info = "Isikan discount rate, tahun, dan Net Cash Flow setelah pajak." Info = Info & "Hitung NPV pada kolom B12." MsgBox (Info) End Sub
• VB Code command button NPV: Private Sub CommandButton3_Click() Dim NPV As Integer NPV = Range("B12") MsgBox (NPV) End Sub
• Untuk panduan code dalam VB, pilih view, object browser (F2)
Members of Classes
Classes Code
Code utuk MsgBox
Tampilan Visual Basic
Tugas ` Untuk proyek sebelumnya, buatlah satu Command Button baru dengan Label “Analisis”, kemudian isikan kode sbb: Private Sub Button8_Click() Dim x As Integer Dim y As Integer x = Range("B12") y = Range("B25") If x > y Then MsgBox ("Proyek yang diterima adalah proyek dengan NPV= Rp" & x) Else MsgBox ("Proyek yang diterima adalah proyek dengan NPV= Rp" & y) End If End Sub
