Fungsi Gabungan IF Dan OR

IF adalah perintah untuk memilih pada syarat tertentu
logikanya : "kalo ada sate sy ikut makan dan kalo tidak ada saya tidak ikut makan"

OR adalah Perintah "Atau"
logikanya : "kalo ada sate atau rendang atau nasi goreng maka sy ikut makan , kalo tidak ada saya tidak  makan"

Dari kedua fungsi itu gimana kalau digabung ..?
Ini Formulany : =IF(OR(B2="sate";C2="rendang";D2="Nasi goreng");"Sy Makan";"Tidak Makan")

coba isikan Formula tsb. misal ke E2

enter lalu dari E2 copy ke bawahnya

Terlihat pada E4 "Tidak makan " krn pilihan pada B4,C4 dan D4 tidak di sebut pada formulanya
=IF(OR(B2="sate";C2="rendang";D2="Nasi goreng");"Sy Makan";"Tidak Makan")

Semoga dapat d fahami.
The And.

Baca Selanjutnya->

Membuat Angka Acak

Terkadang kita butuh membuat angka-angka yang acak dalam sebuah tabel tapi bagaimana caranya ?
Excel bisa dengan cepat membuat itu asalkan kita tau perintah atau kodenya.

Angka acak Part 1

Mengacak angka pada cells tertentu
Caranya :
1. Buka lembar Excel dan blok cells yang ingin di acak misal cells B2 sampai D16

2. Ketik kode "=randbetween(75;90)" (tanpa tanda kutip)
    "75;90" adalah angka mulai acak dari 75 sampai 90

3. Enter

Sekarang coba copy angka 76 atau B2 ke bawah maka jadinya seperti :

dan copy ke samping

Angka acak Part 2

Membuat Data acak pada cells bebas
Cara ini agar memprcepat pekerjaan dengan hasil yang acak pada sebuah table
Rumus :
=RANDBETWEEN(DATE(2020;6;7);DATE(2020;6;30))
Pada rumus di atas kita akan mengacak tanggal dari tanggal 7 sampai tanggal 30

1. Ketik rumus di atas misal pada B3 ,enter !

Bila di enter hasilnya seperti ini

maka buka format cells pilih date yang kita inginkan seperti :

 Pilih Ok ...

Sekarang kita coba Copy ke bawah maka hasilnya tanggal menjadi acak...heeee...

sekarang coba copy ke samping

Selesai, ........
Semoga bermanfaat.... amin.

Baca Selanjutnya->

Fungsi Shift + Enter

Terkadang kita ga kepikiran saking gampangnya tetapi ternyata itu sangat berguna ternyata yaitu fungsi Shift + Enter
emang apa sih fungsinya..?..heeee
Ketika kita membuat Document atau bekerja pada Microsoft Word sering menggunakan enter ...

kalo cuma enter beginilah hasilnya yaitu antara baris atas dan baris hasil enter jauh
berbeda kalo ketika enter digabungkan dengan Shift ini hasilnya :

Monggo di coba.....sekali lagi jgn menganggap sepele...spele juga klo ga tau susah benert ga ? ...heee..

semoga bermanfaat......................

Baca Selanjutnya->

Hide Judul Bar & Mempercantik Background

1. Menyembunyikan Judul

Ketika kita membuat MdiForm dan Form Child kurang bagus kalo judul dan control lainnya masih tampil baik control dari MdiForm dan Form Child

Nah,skarang sy ingin memberitahukan cara menyembunyikan Judul dan control lainnya pada Form Child yg tampil adalah control MDIForm aja

caranya

1. Tampilkan form yang ingin judulnya di hide
2. Pada Properties cari BorderStyle ubahlah menjadi "0-None"

Coba di Run

2. Mempercantik Background

Agar tampilan Background menjadi seperti di atas caranya adalah :
ketikan atau paste scrip di bawah ini pada baris Load form

Form1.AutoRedraw = True

For y = 0 To ScaleHeight

Line (1, y)-(ScaleWidth, y), RGB(200, 150, 255 - (y * 255) \ ScaleHeight)

Next y

lebih jelasnya :

Selesai.

Baca Selanjutnya->

Angka Nol Belakang Koma

Dalam Penulisan di Microsoft Excel misal kita menulis 7.50 atau 50.100 ketika di enter maka Nol nya hilang...yaitu menjadi 7.5 atau 50.1

Sebelum di enter

 Setelah di enter

Walaupun antara Nol yg tampil dan hilang tetap tidak mmpengaruhi hasil tetapi bila ingin menampilkan bisa dgn mengklik menu bar ini yg di tunjukan angka 1 itu untuk menambah nol dan di sbelahnya yaitu yg di tunjuk angka 2 itu untuk mengurangi Nol

klik cells yg di maksud kemudian klik yg ditunjukan angka 1 maka jadi

Selesai.

Baca Selanjutnya->

Fungsi-fungsi VB6

Sebagai Pemula tentu bingung tetapi bila sudah mengerti rumus-rumus Excel maka akan membantu untuk memahami VB6 itulah pengalaman Admin ketika belajar Vba

Dibawah ini adalah catatan fungsi Excel di terapkan pada Vb6

√(data) 

ditulis pada Excel adalah SQRT(data) pada VB6 adalah SQR(data)

atan

ditulis pada Excel adalah atan pada VB6 adalah atn

Gabungan IF dan and

ditulis pada Excel adalah :

if(and(aku>11 and kamu<12) ;ganteng;Jelek)

pada VB6 adalah :

If ((aku > 11) and (kamu <12)) then 

cakep

else

jelek

End If

atau boleh spert

If Range("B2") = 5 And Range("C2") < 10 Then

MsgBox "Ayam"

Else

MsgBox "Bebek"

End If

Array
Array adalah mengambil data sesuai urutan dan permintaan fungsi mirip Choose

NamaPasaran = Array("Kliwon", "Legi", "Pahing", "Pon", "Wage", "Kliwon")

Kliwon di hitung sebagai 0

Legi di hitung sebagai 1 dst.

Bila menggunakan Choose Kliwon di hitung sebagai 1

Persen
Untuk mempersenkan hasil atau agar hasil berbenuk persen misal 0.0052% maka formula VB6 seperti dibawah ini
prsen = Round(FI / 14500 * 100, 5) & "%"
Keterangan.
FI           adalah jumlah data yg ingin di persenkan
14500    adalah batas maximal persen
100        adalah ingin di buat 100%
5            adalah jumblah tampilan angka di belakang koma jadi nanti hasinya 0.00012%
%          adalah simbol pesen yg nanti tampil

Halaman ini insya Allah akan terus di update sebagai catatan Admin

.

Baca Selanjutnya->

Conversi

Untuk menkonversi misal dari hari ke jam atau menit dan seterusnya.....
Maka formatnya adalah :
=Confert(e5;"day";"jam")

e5 adalah input atau jumblah hari yang di inginkan
day adalah mengartikan e5 itu sebagai hari
jam adalah hari tersebut ingin di alihkan ke nilai jam maka formatnya menjadi :
=Confert(e5;"day";"hr")
hr = jam

Kenapa hr di artikan sebagai jam ? jawabannya karna format yang tersedia pada excel seperti itu..
untuk melihat format jam dan lainnaya coba ketikan :
=CONVERT(E5;"day";")

maka akan keluar pilihan
yr = Year (Tahun)
mn = Minute (menit)
sec = second (detik)

e5 pada gambar diatas adalah input artinya boleh di ganti dengan angka yang diinginkan.
e7 pada gambar adalah cells untuk menghitung yang diinginkan

Formula =Confert(e5;"day";"hr") bila di enter maka jadi seperti ini :

Pengertiannya :
Apa bila "4 hari" di konversikan ke nilai jam berapa jamkah ..?
Jawab
96 jam
Lalu Apa bila 4 hari di konversikan ke nilai menit berapa menitkah...?
Ubahlah kode "hr" dengan "mn" menjadi =Confert(e5;"day";"mn")

Coba di enter maka menjadi :

Jadi Apa bila 4 hari di konversikan ke nilai menit berapa menitkah...?
jawab
5760 menit
Semoga bisa di fahami dan dikembangkan...

Selesai.

Baca Selanjutnya->

Mengambil Angka dari Tabel

Mengambil Angka dari Tabel yang berubah-ubah.

Ceritanya sy lagi membuat program Gerhana Bulan versi excel untuk menntukan dalam 1 tahun itu ada gerhana pada bulan apa?
Sy bingung akhirya bertanya pada group :

" Numpang tanya Suhu.
Agar B4 dan B5 ini terisi angka 1 bagimana ya?
Dengan Kondisi angka 1 ini berpindah2 tdk tentu dari B2 sampai K2 "

 

Tambahan penjelasan kondisi
Dari B2 sampai K1 itu terkadang angka 1 nya ada dua,terkadang ada satu dan tekadang tdk ada sama sekali,,
B4 ini mencari angka 1 pertama...
B5 mancari angka 1 ke dua (ini kalo di temukan angka satunya)

Alahmdulillah...sukses..atas bantuan Guru kami Imam Muttaqin ...jadi otomatis.

ini formuanya :

B4 =IF(COUNTIF($B$2:$K$2;1)>0;1;0)
B5 =IF(COUNTIF($B$2:$K$2;1)>1;1;0)

Angka 1 cuma ada 1

Angka 1 ada 2

Finnis.

Baca Selanjutnya->

Menghentikan Notiikasi saat buka Excel

Saya mengalami setiap buka Program Microsoft Excel pertama kali selalu muncul ini,
Sy klik yg mana aja dr gambar ini ga ngaruh tetap muncul



yg berisi tombol pilihan "Update".."Don't Update" ..dan "Help"
Ini sangat menjengkelkan sekali...

Cara mengatasi kasus di atas adalah lakukan dibawah ini :
1. Pada menu bar excel klik "Data" lalu klik "Edit Link"

2. Keluar dialog klik "Startup Promt..."

3. Keluar Notifikasi pilih yang paling bawah yaitu "Don't display the alert and update links"
dan "Ok"

4. Klik "Close" 

Selesai

Baca Selanjutnya->

Mengambil Urutan Nama Dengan Nama

Kalau mengambil nama di ambil dengan angka itu di anggap mudah misal : apa bila A2 lebih besar dr 5 maka E2 tampilkan angka 100 kalo tdk tampilkan 200 atau tampilkan ayam klo tdk tampilkan bebek
Sekarang ada urutan nama A B C sampai Z kita ingin :
Bila mengetik nama B maka di bawahnya muncul C D E dan seterusnya yaitu melanjutkan Urutan
Bila mengetik nama H maka di bawahnya muncul I J K L M N dan seterusnya yaitu melanjutkan Urutan

Di gambar ini
Apa bila kita mengganti nama "Singkil" maka pada E3 ke bawah muncul

IDI RAYEUK

KUTACANE

LANGSA

KUALA SIMPANG

GUNUNG SITOLI

SIDIKALANG

BINJAI

KABANJAHE

Apa bila kita mengganti nama "Langsa" maka pada E3 ke bawah muncul

KUALA SIMPANG

GUNUNG SITOLI

SIDIKALANG

BINJAI

KABANJAHE

Nah..untuk melakukan diatas rumusnya adalah ketik ini 

=IF(OFFSET($B$1;MATCH($D$2;$B$2:$B$23;0)+ROW()-2;0)=0;"";OFFSET($B$1;MATCH($D$2;$B$2:$B$23;0)+ROW()-2;0)) 

pada E3 kebawah ...

Silahkan diklik gambar diatas bila ingin melihat lebih jelas.

Selesai.

Baca Selanjutnya->

Menampilkan Text dan Suara pada Excel

Ternyata excel VBA bisa menampilkan bukan hanya text tapi suara juga bisa

1. Bila ingin menampilkan text saja cukup tulis di tengah (lihat tutor B diatas) code ini : 

msgbox"ubi ganteng"

kata ubi ganteng bisa diganti dengan text apa saja.

Setelah itu coba jalankan maka keluar seperti :

Setiap kali Button1 diklik maka keluar "ubi ganteng"

2. Bila ingin menmpilkan suara tulis code ini : Application.Speech.Speak "saya pengen belajar vba"

jadi :

Selesai.

Baca Selanjutnya->

Cara Menulis Fungsi IF

Cara ke 1

1. Isikan code ditengah yaitu antara sub belajar dengan end sub

misal :

=if(a1>5;"cakep";"Ganteng") ini kalo di ketik pada lembar excel biasa

Untuk mengetik pada lembar VBA ketik : if cells(1,1)>5 Then    lalu enter. Disambung dibawahnya

                                                                    cells(1,2)="cakep"

                                                                    elsa

                                                                    cells(1,2)="Ganteng"

                                                                    end if

                                                                     

Coba dijalankan maka lihat yang terjadi pada lembar Excel

Coba ketik a1 nya dengan angka yang dibawah 5 lalu dijalankan sperti diatas

Cara ke 2

Cara menulis IF dengan dobel tanda kutip "" 

Kalau jawaban IF menggunakan angka maka langsung tanpa tanda kutip tapi bila menggunakan simbol atau huruf seperti contoh diatas yaitu ""berhasil"" maka wajib pakai tanda kutip dobel.

Selesai.

Baca Selanjutnya->

Cara menulis fungsi Range & Cells

Dibawah ini mengenal cara menulis Range dan cells pada VBA

1. Tulislah Code : range("a1")="belajar"
code ini artinya : pada a1 tampilkan kata belajar

2. Jalankan maka akan muncul di a1 kata "belajar"

Apa bila ingin banyak cells yang ditulis misal A1 sampai C6 maka tulis  range("a1:c6")="belajar"

code ini artinya : pada a1 sampai c6 ditampilkan kata belajar

Cara menulis fungsi cells

Tuliskan code : cells(1,1)=100
Ini artinya pada a1 tampilkan angka 100 karna 1 sebelum koma perintah pilih kebawah dan 1 setelah koma perintah pilih ke samping

Selain menggunakan fungsi Range dan cells bisa juga menggunakan kurung kotak yaitu [ ]

Selesai

Baca Selanjutnya->