Tugas Modul Daring .Kumpulan Tugas Modul Pedagogik dan Profesional. Aplikasi dengan Excel. Kumpulan soal Bahasa Inggris. Kumpulan RPP. Belajar Excel. Cara membuat Aplikasi Excel .Silakan Donloud Gratis di sini
Selasa, 27 November 2018
Senin, 19 November 2018
CARA MEMBUAT FUNGSI TOMBOL COPY PASTE DENGAN EXCEL
Blog sederhana yang berkeinginan menyajikan materi materi kursus microsoft spreadsheet ini menajak belajar cara membuat fungsi tombol Copy Paste data dengan Microsoft Excel, Apakah bisa? Tentu saja bisa, dengan menggunakan rumus VBA, kita bisa melakukan proses Copy dan Paste data pada excel dengan hanya menggunakan sebuah tombol. Lalu, bagaimana caranya? Mari ikuti langkah-langkahnya sebagai berikut :
1. Siapkan lembar kerja Excel, kemudian arahkan kursor ke Tab Developer, lalu pilih Insert sub menu, drag dan pilih Button.
1. Kemudian akan muncul jendela seperti berikut, dan pilih tombol New seperti berikut.
3. Maka akan tampil halaman VBA, dan kita tuliskan rumus dengan script berikut ini
Sub Button1_Click()
Range(“D3:D7″).Select
Range(“D3:D7″).Copy
End Sub
4. Selanjutnya kembali lagi ke lembar kerja Excel, ganti tombol Button1 dengan nama Copy.
5. Kemudian untuk membuat tombol Paste lakukan hal yang sama seperti pada langkah 1 dan 2, untuk mengisi pada halaman VBA ketikan rumor script seperti berikut.
Sub Button2_Click()
Range(“F3:F7″).PasteSpecial (xlPasteAll)
End Sub
6. Selanjutnya kembali lagi ke lembar kerja Excel, ganti tombol Button2 dengan nama Paste.
Untuk membuktikan data yang kita buat dapat di Copy dan di Paste, terlebih dahulu masukan data pada sel D3 sampai sel D7 seperti berikut.
Kemudian klik tombol Copy, setelah itu klik tombol Paste, Apa yang terjadi?
Inilahhasilnya, sepertipadatampilandiatas, data darisel D3 sampaisel D7 dapat di copy dan paste kesel F3 samapi F7.Mantabbukan?
Kesimpulan, Fungsi Copy Paste inibisadigunakanuntukmembantuAndadalammembuatsebuahlaporan data dengan format data yang harussama, halinitentunyadapatmenghematwaktudanlebihefisiendaripadaharusmelakukan copy paste denganbantuan mouse atau keyboard. Semogabermanfaatd
CARA PENGGUNAAN IF GANDA/MULTI DALAM RUMUS EXCEL
Bagi yang
berkeinginan memuat materi kursus microsoft excel secara
online ini mengajak untuk melanjutkan pembahasan rumus if dasar dan
fungsi rumus if excel
sebelumnya. Sekarang kita lanjutkan pembahasan kita yaitu tentang formula IF
Ganda/Multi. Kegunaan dari fungsi ini adalah menentukan pernyataan atau
nilai syarat dan pilihan yang ditentukan lebih dari satu, sebagaimana pada if
tunggal. Sintaksnya yaitu: =If(ekspresi logika,nilai
benar,if(ekspresi logika,nilai benar,if(…………))) maksimal 8 IF Keterangan
: untuk tutup kurung yang terakhir disesuaikan dengan jumlah if yang ada, misal
if yang ditulis 2 berarti tutup kurungnya yaa 2 Contoh 1, Fungsi IF dengan 2
syarat, 3 pilihan.
- Jika nilai rata-rata 0-59, maka Cukup
- Jika nilai rata-rata 60-84, maka Baik
- Jika nilai rata-rata 85-100, maka Baik Sekali.
Data
dan bentuk penulisan rumusnya sebagai berikut;
- Rumus pada cell I6 adalah
=IF(H6>=85,”BAIK
SEKALI”,IF(H6>=60,”BAIK”,”CUKUP”)
- Rumus pada cell I7 adalah
=IF(H7>=85,”BAIK
SEKALI”,IF(H7>=60,”BAIK”,”CUKUP”))
- Dan seterusnya sampai cell I15, gunakan Fill Handle,
gambar kursor (+) di pojok bawah cell.
- Klik tahan dan seret sampai ke cell I15
Fungsi IF ganda dengan 4 syarat 5
pilihan Contoh soal
- Ø Jika nilai ujian 85-100, maka nilai huruf A
- Ø Jika nilai ujian 70-84,99, maka nilai huruf B
- Ø Jika nilai ujian 55-69,99, maka nilai huruf C
- Ø Jika nilai ujian 40-54,99, maka nilai huruf D
- Ø Jika nilai ujian 0-39,99, maka nilai huruf E
Lihat data
dan penulisan rumus di bawah ini
Tulis rumus di cell paling
atas aja, kemudian gunakan Fill Handle kayak contoh di atas biar tidak
binggung…selamat mencoba dan untuk lebih mahir kembangkan sendiri yaaaaa…… Contoh
lain
Rumus pada
cell D6 adalah =IF(B6=”MB25″,250,IF(B6=”PR80″,750,IF(B6=”M717″,30,IF(B6=”MM34″,150,35))))
Untuk menambah decimal/angka nol pada harga, anda bisa klik Increase Decimal,
seperti gambar di bawah ini
Cara Membuat Password Karakter Sensitif Untuk Form Login
Tutorial
ini merupakan lanjutan dari tutorial sebelumnya tentang cara membuat Form Login sederhana. dalam tutorial tersebut - pengguna diharuskan memasukkan
sebuah kata kunci (password) agar bisa masuk ke dalam aplikasi utama,
permasalahannya adalah : kata kunci tersebut tidak bersifat sensitif, artinya
penulisan kata kunci mengabaikan format karakter. Ambil contoh, password yang
digunakan untuk login adalah "admin" (format karakter huruf kecil)
sedangkan pengguna menuliskan kata tersebut menggunakan huruf kapital sehingga
menjadi "ADMIN".
Sebuah kelemahan kecil yang tentunya akan berakibat sangat fatal yang terdapat pada tutorial terdahulu kini dapat Anda perbaiki melalui panduan berikut ini :
Menentukan password dalam sebuah sel
Langkah inilah yang tidak ada dalam tutorial sebelumnya. Ya, langkah ini merupakan kunci yang nantinya password tersebut bersifat sensitif - sehingga penulisan karakternya harus sama persis dengan apa yang terdapat dalam sebuah sel.
Aktifkan Sheets1 (atau terserah) kemudian ketikkan sebuah kata atau kalimat di dalam sel A2, yang nantinya akan difungsikan sebagai password. Contoh, ketikkan kata "admin" - tanpa tanda petik
selanjutnya letakkan fungsi berikut di sel C2
=EXACT(A2,B2)
artinya,
isi sel B2 harus sesuai dengan sel A2 - dan jika tidak maka fungsi ini akan
menghasilkan nilai FALSE.
Kombinasi Fungsi dengan Macro VBA
Sebelumnya siapkan sebuah desain untuk UserForm - atau Anda bisa juga menggunakan desain seperti tutorial sebelumnya. Langkah selanjutnya adalah memasukkan kode untuk Kotak Password (TextBox1) dan Tombol Login (CommandButton1) seperti berikut :
Kombinasi Fungsi dengan Macro VBA
Sebelumnya siapkan sebuah desain untuk UserForm - atau Anda bisa juga menggunakan desain seperti tutorial sebelumnya. Langkah selanjutnya adalah memasukkan kode untuk Kotak Password (TextBox1) dan Tombol Login (CommandButton1) seperti berikut :
Private
Sub TextBox1_Change()
Range("B2") = TextBox1
End Sub
Range("B2") = TextBox1
End Sub
Private
Sub CommandButton1_Click()
If Range("C2") = False Thn
MsgBox "Password yang Anda masukkan salah"
Else
UserForm1.Hide
MsgBox "Selamat Datang..."
End If
End Sub
If Range("C2") = False Thn
MsgBox "Password yang Anda masukkan salah"
Else
UserForm1.Hide
MsgBox "Selamat Datang..."
End If
End Sub
Skema Kerja Login
Ketika pengguna memasukkan sebuah password di kotak TextBox1 yang secara otomatis juga akan tertulis di sel B2, kemudian fungsi =EXACT akan membaca kesamaan antara sel B2 dengan sel A2.
Jika dua sel tersebut berisi data yang sama persis maka akan menghasilkan nilai TRUE, dan sebaliknya jika keduanya terdapat perbedaan maka akan menghasilkan nilai FALSE.
Sementara itu tombol Login membaca informasi dari fungsi EXACT, artinya pengguna akan berhasil login ketika sel C2 bernilai TRUE dan ketika sel C2 bernilai FALSE akan menampilkan sebuah pesan bahwa password yang dimasukkan salah.
CARA MENGKONVERSI NILAI ANGKA MENJADI FORMAT HURUF
Pada
umumnya data yang ditulis di Buku Raport atau Laporan Hasil Belajar Siswa
antara lain, nama mata pelajaran kemudian disertai dengan sebuah nilai untuk
masing-masing mata pelajaran tersebut. Dan biasanya untuk nilai yang terdapat
dalam buku raport dibagi menjadi dua bagian, satunya berupa angka dan yang
berikutnya berupa huruf (penjabaran dari nilai angka).
Kaidah penulisannya tergantung dari masing-masing kebijakan sekolah, ada yang menggunakan nilai satuan dengan dua angka di belakang koma; contoh 7,65, dan ada yang menggunakan nilai puluhan dengan satu angka di belakang koma; contoh 76,5.
Kemudian biasanya untuk penulisan nilai dengan format huruf seperti berikut, nilai dengan angka 7,56 ditulis dalam format huruf menjadi Tujuh Koma Lima Enam bukan Tujuh Koma Lima Puluh Enam.
Formula berikut ini berfungsi untuk mengkonversi nilai Angka menjadi format huruf, dengan menggunakan satuan puluhan dengan dua angka di belakang koma sehingga hasilnya akan seperti berikut :
8,60 menjadi Delapan Koma Enam Nol
Membuat
Tabel Konversi
Tabel ini nantinya akan digunakan sebagai dasar dalam penulisan format huruf
menggunakan bantuan sebuah formula sederhana
Menuliskan
Nilai Dengan Format Angka
Sebagai
contoh, ketikkan sembarang nilai di sel D1 dengan format angka satuan
dengan dua angka di belakang koma - misal 5,28
Catatan
:
jika komputer anda menggunakan setting Bahasa Indonesia maka gunakan tanda koma (,) sebagai pemisah angka desimal, sedangkan jika komputer anda menggunakan setting bahasa Inggris maka gunakan tanda titik (.)
Kesalah penulisan tanda baca akan menghasilkan pesan error #VALUE! untuk hasil akhirnya.
jika komputer anda menggunakan setting Bahasa Indonesia maka gunakan tanda koma (,) sebagai pemisah angka desimal, sedangkan jika komputer anda menggunakan setting bahasa Inggris maka gunakan tanda titik (.)
Kesalah penulisan tanda baca akan menghasilkan pesan error #VALUE! untuk hasil akhirnya.
Formula
untuk merubah Angka menjadi huruf
ketikkan
formula berikut di Sel E1
=VLOOKUP(LEFT(D1;1)*1;A1:B10;2)&"
koma "&VLOOKUP(MID(D1;3;1)*1;A1:B10;2)&"
"&VLOOKUP(RIGHT(FIXED(D1);1)*1;A1:B10;2)
Jika anda menggunakan format puluhan dengan satu angka dibelakang koma, gunakan formula berikut :
=VLOOKUP(LEFT(D1,1)*1,A1:B10,2)&"
"&VLOOKUP(MID(D1,2,1)*1,A1:B10,2)&" koma
"&VLOOKUP(RIGHT(FIXED(D1,1),1)*1,A1:B10,2)
Untuk
menghilangkan pesan error #VALUE! dikarenakan tidak adanya data yang dibaca di
sel D1, maka gunakan bantuan formula IFERROR.
Untuk lebih jelasnya mengatasi error formula klik link ini
Untuk lebih jelasnya mengatasi error formula klik link ini
Caras Membuat Otomatis Menutup Dokumen Excel Jika Tidak Ada Aktifitas Pengguna
Sebuah
system operasi seperti windows yang sudah terinstall dengan benar baik yang
terdapat di laptop maupun PC mempunyai sebuah fitur yang digunakan untuk
menghemat energy (energy saving) yang dapat diatur - kapan Laptop atau
PC tersebut mati (sleep, hibernate, atau shutdown) Kondisi ini terjadi jika tidak
ada aktifitas sama sekali dari pengguna dalam kurun waktu tertentu.
Di dalam Microsoft Excel - kita dapat juga menambahkan sebuah fasilitas atau fitur tersebut; seperti menutup sebuah file excel jika tidak ada aktifitas dari pengguna dalam waktu tertentu. Tentunya untuk membangun sebuah fasilitas ini membutuhkan kode VBA.
Membuat
Module Untuk Menutup Dokumen
Buat
sebuah standar module dengan cara klik Insert > module Dalam jendela
Microsoft Visual Basic,
kemudian paste kode berikut :
kemudian paste kode berikut :
Public
RunWhen As Double
Public Const MENIT = 5 'workbook akan tertutup dalam waktu 5 menit
Public Const MENIT = 5 'workbook akan tertutup dalam waktu 5 menit
Public
Sub Tutup()
ThisWorkbook.Close savechanges:=True
End Sub
ThisWorkbook.Close savechanges:=True
End Sub
ganti nilai MENIT = 5 sesuai dengan yang anda
kebutuhan untuk menutup dokumen
Module
Untuk Menjalankan Prosedur
Masih
dalam jendela Microsoft Visual Basic, paste kode berikut di ThisWorkbook
Private
Sub Workbook_Open()
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
Private
Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
End Sub
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
End Sub
Private
Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
Private
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
On Error Resume Next
Application.OnTime RunWhen, "Tutup", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, MENIT, 0)
Application.OnTime RunWhen, "Tutup", , True
End Sub
Simpan file dengan type Excel Macro-Enabled Workbook
Langganan:
Postingan (Atom)
-
To complete your work on this module, you need to do the tasks in this final assignment section. Questions 1-8 are based on Reading Text...