Menghitung Usia Dengan Formula Excel

Untuk kali ini akan saya informasikan tips menghitung usia dengan menggunakan formula excel.


Pertama ketiklah tanggal lahir pada cell D3, kemudian ketiklah formula seperti pada gambar dibawah ini:

maka pada Cell E3 akan muncul usia dalam tahun.

Apabila anda juga ingin menampilkan lebih detail dalam bulan. Silahkan masukkan formula seperti dibawah ini pada Cell E4 :

Hasilnya adalah jumlah bulan usia

Silahkan mencoba.

Membuka Proteksi Workbook Excel Tanpa Merubah Link

Sebagai upgrade dari posting sebelumnya, kali ini saya akan menambahkan trik utk membuka proteksi workbook excel anda tanpa mematikan fungsi dan link data dalam file

Mohon diperhatikan bahwa trik ini adalah utk membuka file anda sendiri dan ingat konsekuensi yg mungkin anda dapatkan bila menggunakan trik ini utk kepentingan selain membuka password sheet excel file anda yg terlupa.


Caranya adalah sbb:

Pertama-tama

Buatlah kode berikut dalam module visual basic dalam file excel anda:



Sub Open_Password()


Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.0 8 Sep 2012"

Const REPBACK As String = DBLSPACE & "Please report failure to alfi.sahri1983@gmail.com "

Const ALLCLEAR As String = DBLSPACE & "The workbook should be cleared"

Const MSGNOPWORDS1 As String = "There were no passwords on " & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & "workbook structure or windows." & DBLSPACE


Const MSGTAKETIME As String = "After pressing OK button this " & "will take some time." & DBLSPACE & "Amount of time " & "depends on how many different passwords, the "



Const MSGPWORDFOUND1 As String = "You had a Worksheet " & "Structure or Windows Password set." & DBLSPACE & "The password found was: " & DBLSPACE & "$$" & DBLSPACE & "Note it down for potential future use in other workbooks by " & "the same person who set this password." & DBLSPACE & "Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & "password set." & DBLSPACE & "The password found was: " & DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & "future use in other workbooks by same person who " & "set this password." & DBLSPACE & "Now to check and clear " & "other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & "protected with the password that was just found." & ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And .ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, "$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, "$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
'
End Sub

Setelah itu anda bisa jalankan makro excel anda dan lihat hasilnya.


Semoga membantu.


Terima kasih
Alfi

Countif Lebih Dari Satu Kriteria Dengan Kriteria Content Cell

Para Pembaca,


Kali ini saya akan share satu trik yg bisa digunakan utk melakukan perhitungan countif tetapi dengan menggunakan beberapa kriteria dimana salah satu atau lebih kriteria yg di akan ditentukan adalah part/bagian dari content (Isi) cell pada suatu range.

Contohnya adalah sebagai berikut:

Buatlah sebuah worksheet dengan menggunakan data dan formula seperti pada contoh dibawah ini,

pada contoh ini; saya misalkan criteria data yg akan dihitung countif nya adalah: criteria 1 = Cust A, Criteria 2 = "Damage", Criteria 3 = Cell yg memiliki content "BGA" didalamnya.

Utk memudahkah perhitungan, buatlah satu formula di column E dengan contoh spt gambar diatas.

Tujuannya adalah utk menentukan ada tidaknya content "BGA" pada data di kolom D atau criteria3. Apabila terdapat content BGA maka nilai di cell D3 maka value pada kolom E adalah 1, dan jika tidak maka isi cell tsb adalah 0.:


Kemudian buat sebuah formula pada cell E13 utk menentukan hasil countif, contoh sebagai berikut

Setelah itu cek hasilnya, hasil count data yg benar = 2.


Mudah-mudahan bermanfaat.


Terima kasih,
Alfi

Memfilter Data Unik Dengan Formula

Berikut akan saya jelaskan mengenai cara yg bisa kita gunakan untuk memfilter sejumlah data berdasarkan data unik (Unique Record) dengan menggunakan formula.

Kelebihannya adalah, bila data yang menjadi acuan adalah data dinamis yg bisa selalu berubah, maka data unik yg kita filter pun bisa menjadi data yang dinamis tanpa perlu berulang kali menggunakan menu advance filter atau tanpa perlu melakukan pivoting.

Stepnya adalah sebagai berikut:

Coba buatlah data pada cell B2:B15 pada worksheet excel anda, berikut sebagai contoh;

kemudian pada cell D2 anda ketikkan formula sebagai berikut:

=INDEX( $B$2:$B$15,MATCH(0,COUNTIF($D$1:D1,$B$2:$15),0))

ini adalah CSE formula jadi tekan Control+Shift+Enter saat anda selesai menuliskan formula di atas.

kemudian tarik (Drag) formula tersebut ke cell D3:D15

anda bisa melihat bahwa data unik dari cell B2:B15 sudah terekstrak.

Silahkan tinggalkan comment apabila pertanyaan;


Terima kasih,
Alfi

Menjumlah Berdasarkan Warna

Ada satu trik yg saya sukai, yaitu menjumlakan suatu data berdasarkan warna latar pada cellnya.

Berikut cara yang bisa digunakan.

Pertama bukalah worksheet anda dan buat data seperti gambar di sebelah.

Kemudian berilah warna latar sesuai kriteria data anda, misalkan data A menggunakan warna kuning (yellow), data B menggunakan warna merah (Red).


Setelah itu pada menu pilih insert -> name -> define.


Pada menu define name -> names in workbook: ketikkan "NomorWarna" tanpa tanda kutip.

pada menu yg sama di "refers to" ketikkan =GET.CELL(38,C4) dan enter.

Pada worksheet anda letakkan kursor pada cell B4 dan ketikkan =NomorWarna

Kemudian copy kan ke bawah sesuai banyaknya data.


Setelah itu akan muncul nomor sesuai warna yg berikan pada cell data.

Untuk menjumlahkan data anda bisa menggunakan fungsi sumif biasa.

Pada cell H4 tuliskan =SUMIF(B4:B9,F4,D4:D9)

tetapi sebelumnya masukkan =NomorWarna pada cell F4 sebagai criteria sumif.

Demikian selamat mencoba.


Terima kasih
Alfi

Membuka Proteksi Worksheet Excel Dengan Macro

Beberapa waktu yang lalu, ada seseorang teman yang terlihat cukup stress karena lupa password proteksi file excel nya sendiri sehingga dia tidak bisa menyelesaikan laporan yg sudah dead line.

Saya coba berikan solusi untuk membantunya membuka proteksi file excelnya dengan sedikit bantuan macro,

caranya adalah sebagai berikut:

ketikkan script berikut pada visual basic editor pada file excel yg akan dibuka proteksinya.

Sub InternalPasswords()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Selanjutnya, buka worksheet yg akan dibuka proteksinya lalu jalankan macro pada menu tools -> Macro

kemudian tekan alt+F11 untuk kembali bekerja pada worksheet anda yang telah terbuka proteksinya.


Salam.

Fungsi Excel ; Mengetahui Jumlah Data Unik

Formula berikut digunakan untuk mengetahui apakah data merupakan data unik, kelebihannya juga adalah dengan fungsi ini kita akan mengetahui berapa jumlah data pada kolom yang merupakan data unik.

Untuk mencobanya pertama-tama buatlah sebuah worksheet dengan beberapa data dalam satu kolom, misalnya kolom B mulai dari row (baris) 1 sampai dengan 10.

Kemudian pada C2 ketikan formula sebagai berikut:

=IF(COUNTIF($B$2:$B$10,B2)=1,"Data Unik",COUNTIF($B$2:$B$10,B2)&" Data Kembar")

kemudian copy rumusnya sampai ke baris terakhir.

Akan muncul pada kolom C apabila data di kolom b merupakan data unik maka tertulis "Data Unik" tetapi apabila terdapat data yang sama pada kolom tersebut pada cell akan tertulis jumlah data yang sama atau kembar.


bagaimana tidak terlalu sulit kan?

Selamat mencoba..!


Alfi

Fungsi Excel ; Average If

Sudah lama nggak posting,

nggak tau kenapa hari ini suasana hati mampu menggerakkan kedua jari untuk menulis.

Beberapa waktu lalu seorang rekan di kantor bertanya ada nggak formula average tetapi dengan kriteria.

Kali ini saya akan mencoba membagikan jawabannya..

Fungsi average if digunakan untuk mengetahui nilai rata dari suatu range dengan kriteria yang telah kita tentukan

Langkahnya adalah sebagai berikut:

bukalah visual basic editor pada microsoft excel anda dan ketiklah module berikut:

Function averageif(range, kriteria, ave_range)
iconditioncolno = range.Column
inumbercolno = ave_range.Column


For lrowno = 1 To range.Rows.Count
vcellvalue = range.Parent.Cells(range.Row + lrowno - 1, inumberscolno.Value)
If IsNumeric(vcellvalue) = True Then
If (range.Parent.Cells(range.Row + lrowno - 1, iconditioncolno).Value = kriteria) Then
lmatch = lmatch + 1
sngaverage = sngaverage + range.Parent.Cells(range.Row + lrowno - 1, inumbercolno).Value
End If
End If

If sngaverage <> 0 And IsEmpty(vcellvalue) = True Then Exit For
End If
Next lrowno
averageif = sngaverage / lmatch

End Function


Save file excel dan kembalilah ke worksheet anda

anda sudah bisa menggunkan fungsi =averageif pada worksheet anda.


Selamat mencoba...

Bagaimana Browsing Aman di Internet ?

Bila komputer kita terhubung ke Internet berarti PC kita merupakan bagian dari jaringan global dan sama saja dengan menunjukkan tempat kita berada. Dengan mendial-up ke Internet berarti PC kita merupakan bagian dari jaringan global dan sama saja dengan menunjukkan tempat kita berada. Karena untuk dapat berinteraksi dengan komputer lain pada jaringan global, mau tidak mau kita harus mempunyai alamat jelas. Alamat ini berupa IP Address yang diberikan secara otomatis dan acak dari persediaan yang ada. Walaupun ID Address ini berbeda setiap kali kita mendial-up ke Internet, namun sebenarnya dapat terlacak dari catatan provider. Selain IP Address, info mengenai pengguna Internet dapat terdeteksi melalui cookies atau pada saat melakukan transfer data. Sebetulnya banyak jejak yang kita tinggalkan meski hanya mampir sesaat pada web site. Ancaman bahaya juga terjadi saat kita terpaksa memberikan data pribadi pada saat pendaftaran on-line shopping. Ada kemungkinan data tersebut dicuri dalam perjalanannya, kemudian disimpan dalam waktu tertentu pada sebuah server. Suatu saat bisa saja data tersebut jatuh ke tangan cracker (hacker yang jahat).

Setiap kali akan koneksi ke Internet sudah pasti kita menggunakan program browser. Seringkali Web Browser secara otomatis menginformasikan mengenai sistem operasi, versi browser, resolusi monitor, aktif/tidaknya Java dan Javascript.
Pada dasarnya informasi ini sangat bermanfaat bila web site ingin mengantarkan pengunjungnya ke halaman yang disiapkan khusus sesuai perlengkapan teknis tersebut. Informasi tadi dikumpulkan, dianalisa dan dinilai. Dengan demikian pengelola web site mendapat gambaran mengenai struktur pengunjungnya. Sebenarnya sebagian besar pengelola web site sangat ingin mengetahui lebih banyak seperti nama, alamat, nomor telpon, e-mail, hobbi dan lain-lain. Biasanya tawaran gratis atau akses download baru akan aktif setelah pengunjung memberikan data pribadi.

Penyebaran alamat e-mail pun dapat terjadi bila kita mendaftar di mailing list atau ikut suatu undian atau kuiz. Penyebaran alamat e-mail biasanya dimanfaatkan oleh beberapa provider. Mereka mengumpulkan semua alamat e-mail tersebut, kemudian menjualnya kepada agen-agen marketing. Inilah menyebabkan kotak mail seringkali dipenuhi dengan junkmail atau iklan.

Tidak lama setelah Windows XP diluncurkan, muncul beberapa tudingan yang ditujukan kepada Microsoft. Pasalnya melalui Windows XP, Microsoft telah menjadi mata-mata pemerintah Amerika Serikat. Menurut beberapa penerbitan, Windows XP sangat berpotensi untuk mengirimkan data ke fihak Microsoft. Transfer data ini tentu saja tidak transparan bagi pengguna komputer. Tak heran sejak publikasi Windows XP, banyak yang mengatakan bahwa Windows XP mencatat program yang terinstalasi, membuat profile surfing atau bahkan melaporkan keberadaan program bajakan yang terinstalasi dalam harddisk.

Apabila kita mengetahui adanya ancaman bahaya semacam ini, maka sebagai langkah pengamanan sangat disarankan untuk mengantisipasi bahaya ini, terutama bila profesi anda berisiko tinggi menjadi korban pencurian data atau pelanggaran privasi. Berikut adalah kiat-kiat yang dapat ilakukan.

Sedapat mungkin hindari pengisian formulir pada website. Karena munculnya berbagai junkmail merupakan akibat terburuk yang ditimbulkan dari pengisian formulir secara bebas tersebut. Bila diminta mengisi formulir untuk mendownload software, batalkan download, carilah sumber lain yang terpercaya misalnya salah satu server FTP besar atau website terkenal, seperti www.download.cnet.com

Bukalah satu atau lebih e-mail account pada layanan e-mail gratis di Internet, yang khusus digunakan untuk pendaftaran di website. Bila mail iklan yang masuk terlalu banyak tutup saja account tersebut.

Sebaiknya gunakan provider yang memberikan IP Address dinamis. Melalui IP Address statis keberadaan PC anda mudah ditemukan. Manfaatkan bila provider memberikan proxy server. Proxy server ini berfungsi sebagai perantara. Pesan yang kita buat akan dikirimkan kepada proxy server, selanjutnya permintaan akan disampaikan ke website yang bersangkutan. Dengan demikian website hanya melakukan kontak dengan proxy server dan pihak lain hanya dapat melacak sampai disitu saja. Bila provider anda tidak menyediakan proxy server, anda dapat memanfaatkan online-proxy, salah satunya adalah Anonymizer (www.anonymizer.com) . Anda cukup memasukkan URL yang Anda inginkan pada tempat yang tersedia di dalam website Anonymizer tersebut. Namun penggunaan online-proxy ini akan memperlambat kinerja komputer, karena semua data harus melalui server anonymizer dulu.

Hindari penyimpanan cookies agar website tidak dapat mengawasi gerak-gerik anda dalam jangka waktu panjang. Untuk menangkal cookies dapat menggunakan program seperti Webwasher (www.webwasher.de) atau Naviscope (www.naviscope.com) .
Program ini akan menyaring iklan, cookies javasript dan lain-lain. Sebenarnya kita dapat melakukan hal itu tanpa tool tambahan, yaitu dengan menghapus info cookie dalam folder ?Temporary Internet File?. Cara lainnya adalah menon-aktifkan pembuatan cookie baru dengan memilih menu ?Tool | Internet Options | Security? pada browser IE, setelah itu klik -Custom Level. Dalam dialog box Security Settings cari bagian -Cookies, kemudian pilih -Disable pada bagian -Allow cookies that are stored on your computer.

Amankan isi e-mail dengan mengunakan e-mail yang berbasis Web seperti GMX dan Yahoo. Disamping itu gunakan program enkripsi berita, sehingga dijamin hanya penerima yang dapat membuka dan membacanya. Program standar untuk enkripsi berita adalah Pretty Good Privacy(PGP). Program ini dapat diperoleh pada PGP International freeware (www.pgpi.org).

Gunakan program firewall untuk melindungi komputer dari penyusupan berbagai virus seperti trojan horse dan berbagai program yang berbahaya. Contoh program firewall antara lain adalah : Tiny Personal Firewall (www.tinysoftware.com), Sygate Personal Firewall (http://sygate.com/free/spf_download.htm), ZoneAlarm Personal Firewall (www.zonelabs.com), yvernWorks Firewall (www.wyvernworks.com).

Gunakan program antivirus dengan update terbaru, serta melakukan scan system secara teratur guna mendeteksi jika ada trojan horse bersarang di komputer. Kunjungi beberapa website antivirus untuk mengetahui informasi virus. Contoh
website antivirus lokal adalah adalah www.vaksin.com.

Bila data yang disimpan pada harddisk merupakan data yang sangat penting, sebaiknya melakukan backup secara teratur dan gunakan system recovery yang dapat melindungi workstation dan server dari serangan virus, cracker ataupun tangan jahil yang ingin merusak system operasi komputer. System recovery dapat disediakan oleh Ontrack Data International Incorporated (www.ontrack.com) atau dari Norton Utility dari Symantec inc.

Jangan melaporkan kesalahan yang terjadi secara online ketika menggunakan
Windows XP, karena data pribadi anda juga akan terkirim. Matikan feature tersebut dengan cara mematikan pilihan =bug report dan pilihan =Send report on critical error. Caranya : dari control panel pilih System, pilih Advanced dan klik Bug-Report.

Singkirkan user account yang tidak jelas maksudnya yang dibuat oleh Microsoft. Masuk ke Control Panel | Performance and maintenance | Administrative tools |Computer Managements. Klik Local user and groups lalu klik User. Hapus user account ?Support_388945a0?. Bagi pengguna Windows XP Home Edition tidak perlu melakukan ini.

Matikan feature dalam Internet Explorer yang menjanjikan pencarian cepat dalam folder ?Tolls | Show related links?. Dalam folder ini tersembunyi tool Internet dari perusahaan Alexa (www.alexa.com). Program ini akan menyimpan dan menganalisa setiap situs yang anda kunjungi. Data yang dikumpulkan adalah : nama situs yang anda kunjungi, data yang anda masukkan ketika mengisi form online, alamat IP dan alamat URL yang kita tuju termasuk password, browser dan system operasi yang anda gunakan dan lain-lain. Caranya mematikan feature ini adalah : jalankan regedit, buka menu : HKEY_LOCAL_MACHINE | SOFTWARE | MICROSOFT | INTERNET EXPLORER | EXTENTION. Hapus entry ?c95fe080-8f5d-11d2-a20b-00aa003c157a? Sekarang ?Show related links? tidak berfungi dan kita dapat menggunakan search engine dengan aman.

Matikan fungsi auto update dengan masuk ke Control Panel | System, pilih auto-update dan non-aktifkan feature ini. Untuk mengetahui update terbaru Windows sebaiknya mengunjungi http://windowsupdate.microsoft.com.

Hilangkan tanda cek pada ?automatically check for Internet Explorer Update?. Caranya dalam IE masuk ke Tool | Internet Option. Klik tombol ?Advanced?, disini akan ditemukan feature tersebut.

Sumber: sewu.wordpress.com

Membuat Grafik Pada Excel 2007

Tips di bawah dapat digunakan untuk membuat suatu grafik pada excel 2007 yang bersifat dinamis atau dapat berubah sesuai data yang kita input pada data selection. Simak ya..

1. Buatlah sebuah worksheet dengan data seberti di bawah ini


2. Buat table dari data yang sudah ada yaitu melalui menu: Insert -> Table - Where is the data for your
table? =$B$1:$C$8 lalu tekan OK.



3. Untuk membuat grafiknya, anda dapat menggunakan menu Insert -> Grafik -> lalu pilih yang grafik yang akan
digunakan, kemudian akan muncul Frame grafik. Klik kiri pada frame grafik lalu pilih: Select Data Source
Pada Chart data range : =NamaTabel[#all] lalu tekan OK



4. Anda dapat merubah isi pada tabel dan grafik akan berubah untuk menyesuaikan
untuk merubah ukuran tabel anda menggunakan handler pada pojok kanan bawah tabel.



Selamat mencoba...

Misteri Kontroversi Kiamat di Tahun 2012

Pada manuskrip peninggalan suku Maya yang dikenal menguasai ilmu falak dan sistem penanggalan ini, disebutkan pada tanggal di atas akan muncul gelombang galaksi yang besar sehingga mengakibatkan terhentinya semua kegiatan di muka Bumi ini.

Di luar ramalan suku Maya yang belum diketahui dasar perhitungannya, menurut Deputi Bidang Sains Pengkajian dan Informasi Kedirgantaraan, Lembaga Penerbangan dan Antariksa Nasional (Lapan), Bambang S Tedjasukmana, fenomena yang dapat diprakirakan kemunculannya pada sekitar tahun 2011-2012 adalah badai Matahari. Prediksi ini berdasarkan pemantauan pusat pemantau cuaca antariksa di beberapa negara sejak tahun 1960-an dan di Indonesia oleh Lapan sejak tahun 1975.

Dijelaskan, Sri Kaloka, Kepala Pusat Pemanfaatan Sains Antariksa Lapan, badai Matahari terjadi ketika muncul flare dan Coronal Mass Ejection (CME). Flare adalah ledakan besar di atmosfer Matahari yang dayanya setara dengan 66 juta kali ledakan bom atom Hiroshima. Adapun CME merupakan ledakan sangat besar yang menyebabkan lontaran partikel berkecepatan 400 kilometer per detik.

Gangguan cuaca Matahari ini dapat memengaruhi kondisi muatan antariksa hingga memengaruhi magnet Bumi, selanjutnya berdampak pada sistem kelistrikan, transportasi yang mengandalkan satelit navigasi global positioning system (GPS) dan sistem komunikasi yang menggunakan satelit komunikasi dan gelombang frekuensi tinggi (HF), serta dapat membahayakan kehidupan atau kesehatan manusia. ”Karena gangguan magnet Bumi, pengguna alat pacu jantung dapat mengalami gangguan yang berarti, ujar Sri.

Langkah antisipatif

Dari Matahari, miliaran partikel elektron sampai ke lapisan ionosfer Bumi dalam waktu empat hari, jelas Jiyo Harjosuwito, Kepala Kelompok Peneliti Ionosfer dan Propagasi Gelombang Radio. Dampak dari serbuan partikel elektron itu di kutub magnet Bumi berlangsung selama beberapa hari. Selama waktu itu dapat dilakukan langkah antisipatif untuk mengurangi dampak yang ditimbulkan.

Mengantisipasi munculnya badai antariksa itu, lanjut Bambang, Lapan tengah membangun pusat sistem pemantau cuaca antariksa terpadu di Pusat Pemanfaatan Sains Antariksa Lapan Bandung. Obyek yang dipantau antara lain lapisan ionosfer dan geomagnetik, serta gelombang radio. Sistem ini akan beroperasi penuh pada Januari 2009 mendatang.

Langkah antisipatif yang telah dilakukan Lapan adalah menghubungi pihak-pihak yang mungkin akan terkena dampak dari munculnya badai antariksa, yaitu Dephankam, TNI, Dephub, PLN, dan Depkominfo, serta pemerintah daerah. Saat ini pelatihan bagi aparat pemda yang mengoperasikan radio HF telah dilakukan sejak lama, kini telah ada sekitar 500 orang yang terlatih menghadapi gangguan sinyal radio.

Bambang mengimbau PLN agar melakukan langkah antisipatif dengan melakukan pemadaman sistem kelistrikan agar tidak terjadi dampak yang lebih buruk. Untuk itu, sosialisasi harus dilakukan pada masyarakat bila langkah itu akan diambil.

Selain itu, penerbangan dan pelayaran yang mengandalkan satelit GPS sebagai sistem navigasi hendaknya menggunakan sistem manual ketika badai antariksa terjadi, dalam memandu tinggal landas atau pendaratan pesawat terbang.

Perubahan densitas elektron akibat cuaca antariksa, jelas peneliti dari PPSA Lapan, Effendi, dapat mengubah kecepatan gelombang radio ketika melewati ionosfer sehingga menimbulkan delai propagasi pada sinyal GPS.

Perubahan ini mengakibatkan penyimpangan pada penentuan jarak dan posisi. Selain itu, komponen mikroelektronika pada satelit navigasi dan komunikasi akan mengalami kerusakan sehingga mengalami percepatan masa pakai, sehingga bisa tak berfungsi lagi.

Saat ini Lapan telah mengembangkan pemodelan perencanaan penggunaan frekuensi untuk menghadapi gangguan tersebut untuk komunikasi radio HF. ”Saat ini tengah dipersiapkan pemodelan yang sama untuk bidang navigasi, tutur Bambang.

Sumber : kompas.com

CountIf Dengan Lebih Dari Satu Kriteria

Fungsi Countif yang biasa hanya menggunakan satu kriteria untuk menghitung jumlah cell dengan kriteria yang diinginkan. Tetapi bagaimana jika kita ingin menghitung jumlah cell dengan kriteria yang diinginkan namun lebih dari satu kriteria? Trik formula berikut sepertinya dapat digunakan sebagai salah satu referensi bagi anda.

1. Buatlah sebuah worksheet seperti pada gambar dibawah!

2. Pada kasus ini yang kita cari adalah jumlah orang dengan gender "Female" dan berusia diatas 10 tahun. Pada kasus lainnya anda dapat menambahkan lebih dari 2 kriteria.

3. Pada Cell "C13" anda dapat ketikkan formula =SumProduct((B2:B11)="Female"*(C2:C11>10))

4. Cobalah dengan merubah kriteria "Female" menjadi "Male"

Silahkan mencoba.

8 Tips Cara Tepat Searching di Google

Siapa yang tak kenal dengan Google. Kata Google sepertinya sudah melekat kuat di benak puluhan juta pengguna Internet. "Googling aja..", atau "tanya om Google.., celetukan seperti itu sering dilontarkan kalangan pengguna Internet kepada mereka yang ingin berburu informasi.Bahkan Google mungkin menjadi 'perhentian' pertama bagi sebagian pengguna Internet ketika melakukan pencarian. Tampil sederhana dengan logo warna-warninya, dalam waktu singkat raksasa mesin cari ini mampu melayani ratusan juta pencarian dalam sehari.Cukup ketikkan kata kunci informasi yang ingin dicari, Google akan menyuguhkan informasi yang terkait dengan pencarian dalam waktu singkat. Berikut beberapa informasi perihal apa saja yang bisa Anda lakukan dengan mesin cari Google, beserta sedikit tips yang bisa diterapkan saat melakukan pencarian.
1. Bubuhi tanda kutip ("..."), jika Anda ingin mencari informasi yang tepat sasaran.

Tanda kutip akan menghasilkan halaman-halaman web yang lebih tepat sasaran dan berhubungan erat dengan informasi yang Anda cari. Dengan membubuhkan tanda kutip di awal dan akhir kumpulan kata, maka Google akan menyuguhkan hasil pencarian yang sama persis dengan yang Anda ketikkan.

2. Pakai tanda "~" untuk mencari sinonim kata.

Coba amati bagian ujung kiri atas keyboard Anda.
Disana Anda akan menemukan tanda ~ bukan? Mungkin beberapa dari Anda ada yang tidak tahu fungsi karakter ini. Tanda ini ternyata sangat berguna dalam melakukan pencarian di Google. Coba ketikkan karakter ini di depan sebuah kata (tanpa spasi). Dengan begitu Google akan mencari halaman berisi kata yang dimaksud tadi atau sinonimnya.

3. Klik "Images" jika Anda ingin mencari gambar.

Mau mencari foto artis idola Anda? Klik saja tombol "Images" yang terletak di atas kotak pencarian, lalu ketikkan nama artis atau tokoh yang Anda inginkan.
Google akan mencarikan foto atau gambar tersebut di database-nya lengkap dengan link halaman tempat gambar tersebut muncul.

4. Ketikkan kata yang lebih panjang agar hasil pencarian lebih relevan.

Ada baiknya jika Anda mengetikkan kata yang lebih panjang di kotak pencarian Google agar hasil pencariannya lebih baik.

5. Google bisa menjadi kamus dan menterjemahkan bahasa.

Ingin mencari definisi sebuah kata? Google bisa berfungsi sebagai kamus. Cukup tambahkan kata "define"
diikuti kata yang ingin Anda cari, maka Google akan memberikan definisi yang Anda ingin cari dalam waktu singkat.

Selain itu, Google juga bisa menjadi penterjemah bahasa. Perhatikan link "Languange Tools" yang ada di sebelah kanan kotak pencarian di homepage Google. Klik link tersebut, Anda akan diantarkan ke layanan penerjemahan Google. Ada banyak bahasa yang tersedia disana.

6. Ada banyak informasi yang tersedia dari buku-buku aktual di dunia.

Ibaratnya sebuah rak yang berisi buku-buku, Google juga punya 'rak' buku online. Coba buka alamat "
www.books.google. com", disana Anda bisa melihat atau membaca beragam teks dari buku-buku aktual di seluruh dunia. Hanya saja, yang dapat Anda buka atau baca adalah yang karyanya tidak dilindungi hak cipta.

7. Kalkulator dan buku telepon online.

Google bisa juga dipakai sebagai kalkulator. Cukup ketikkan angka yang ingin Anda olah di kotak pencarian, Google akan mengolahnya seperti layaknya kalkulator yang biasa kita pakai. Misalnya 145+869, 125*45, 10% of 100 dan sebagainya.

Selain kalkulator, Google juga bisa dimanfaatkan sebagai buku telepon. Cukup ketik nama seseorang yang Anda cari, nama kota, propinsi atau nama negaranya di kotak pencarian, Google akan menyuguhkan informasi yang Anda cari itu.

8. Apa fungsi tombol I'm Feeling Lucky?

Tombol I'm Feeling Lucky yang ada di homepage Google mungkin akan sangat berguna bagi Anda yang tak ingin buang waktu membaca hasil pencarian yang dikeluarkan Google satu persatu. Masukkan kata yang Anda cari, lalu klik tombol ini, maka Google akan memotong daftar hasil pencarian yang panjang tadi. Anda akan diantarkan langsung ke halaman web yang paling sesuai.
Misalnya, Indonesia University, klik tombol I'm Feeling Lucky maka Anda akan diantarkan langsung ke situs UI.

Ada banyak lagi yang bisa Anda telusuri melalui mesin cari Google. Semisal informasi berita-berita terbaru melalui link "News", video, layanan peta, cuaca, harga saham dan lain sebagainya. Sumber: Dudung.Net

Hacker Bobol Kartu Kredit Bill Gates

Seorang hacker remaja telah menggunakan kartu kredit Bill Gates untuk memesan dan mengirimkan Viagra untuk Bill Gates.

Raphael Gray, 19 tahun, menyatakan dirinya sebagai 'orang suci dari e-commerce', setelah meng-hack perusahaan US, Canada dan Inggris untuk mengekspose lubang di Internet. Perbuatannya menyebabkan satu perusahaan keuangan menderita kerugian yang sangat besar. Gray diperintahkan untk menjalani pengobatan percobaan untuk gangguan mental selama 3 tahun.

Gray, yang dituntut atas perbuatannya yang merugikan karena dia berhasil mendapatkan 23,000 kartu kredit dari berbagai perusahaan yang dihack olehnya salah satunya yaitu kartu kreditnya Bill Gates, yang kemudian Gray memesan dan mengirimkan Viagra kepada Bill dengan kartu kreditnya.

Hakim Gareth davies diberitahu bahwa Gray dicurigai menderita gangguan mental dan minder yang kronis sejak kecil, yang memberikan kontribusi atas apa yang dilakukannya ini di Internet. Dan berdasar catatan medis, bahwa 4 tahun yang lalu Gray pernah jatuh dan membentur kepalanya.

Pembelanya mengatakan bahwa karena sebab itulah yang mengakibatkan perbuatannya di Internet. Gray menyatakan penyesalannya bukan pada apa yang dilakukannya tetapi caranya, dan dia mengatakan di lain kesempatan dia akan melakukannya lagi tapi secara legal.

Polisi membutuhkan waktu sebulan untuk melacak sang hacker sampai ke rumahnya di Clynderwen, Carmarthen, sebelah barat Wales dan ditangkap oleh FBI pada bulan Maret tahun lalu. Pesan pesan yang ditinggalkan di situs yang dihack olehnya berisi antara lain:" I'm for e-commerce when concluded in a secure and sensible manner but this is a rare thing. Most companies put some kind of page together and wait for the money to roll in. These people are the criminals." Dan pesan lainnya "If your site is broken into, you should spend more time asking why and not who." Apakah anda setuju dengan pernyataan ini ?? Jika Ya, maka anggap sebuah situs diibaratkan dengan sebuah rumah, di mana seseorang mencoba membobol rumah itu dengan berbagai peralatan, apakah anda masih tetap menjawab ya ?

Mengkombinasikan Fungsi Teks Mid dan Find

Fungsi Teks Mid ( "=Mid(Text,Start_Number,Number_Chars)") digunakan untuk mengekstrak karakter pada suatu cell yang berisi teks. Sedangkan fungsi Find digunakan untuk mengetahui pada posisi nomor berapakah suatu karakter terletak di dalam Cell. Jika dikombinasikan, keduanya dapat mengatasi banyak kasus dalam pengolahan data.

Salah satu contoh penggunaannya adalah sebagai berikut:

1. Coba buatlah sebuah worksheet dengan Data Seperti dibawah ini:


2. Anda diminta untuk menentukan domain dari Email address yang terdapat pada kolom A untuk diisikan pada kolom B.

3. Untuk memperoleh hasil seperti yang diminta, pada cell B2 anda masukkan fungsi sebagai berikut: =MID(A2;Find("@";A2)+1;99)

Lihatlah hasilnya excel akan mengekstrak semua karakter setelah karakter "@". Selamat Mencoba.

Vlookup Dengan Data Di Kolom Sebelah Kiri

Jika kita menggunakan fungsi vlookup yang biasa, data yang kita ambil adalah data di sebelah kanan kolom atau cell yang menjadi referensi, karena fungsi vlookup tidak dapat mengambil kolom data dengan no kolom negatif misalkan -1 atau -2. Solusinya adalah dengan menggunakan formula "Index". Simaklah tips formula index berikut:

1. Buatlah sebuah worksheet yang berisi Tabel seperti pada contoh di bawah ini!

2. Result yang kita inginkan adalah pada cell B9 dengan referensi cell A9. Jika kita perhatikan maka cell result yang diminta adalah pada kolom pertama (kolom A). Untuk itu kita tidak dapat menggunakan fungsi VLOOKUP. Kita harus menggunakan Fungsi INDEX.

3. Pada Cell B9 anda ketikkan Formula berikut:
=INDEX($A$2:$B$5;Match(A9;$B$2:$B$5;0);1)

Maka hasil yang diperoleh adalah data pada kolom pertama dari Tabel.

ImHalal.com : Search Engine Bernuansa Islami

Teknologi tak bijak rasanya bila tak merambah sisi spiritual kita, apalagi kehidupan manusia seharusnya akan menjadi sangat dekat dengan nuansa religi, dimana kita tak hanya mengejar sisi duniawi saja tapi juga sisi surgawinya.

Apalagi dengan bulan ramadhan dimana banyak umat Islam berlomba-lomba berbuat baik dengan sesama, yang biasanya senang mendengar musik-musik keras, kini lebih sering memutar musik-musik islami, nuansa seperti inilah yang membuat ramadhan semakin berasa.

Bahkan kini di Amsterdam, Holland, kini sudah muncul suatu mesin pencari baru yang bernuansa islami dan diharapkan akan dapat digunakan oleh umat muslim di seluruh penjuru dunia. Mesin baru ini dirilis oleh AZS Media. ImHalal.com sendiri kini hadir untuk dapat membantu Anda melangkah di dunia maya untuk mencari sesuatu yang halal dan baik. Mesin ini menggunakan berbagai teknik untuk dapat menampilkan hasil pencarian Anda. Jika ternyata yang dicari tidak sesuai dengan kriteria pencarian yang ada, maka nantinya mesin pencari ini akan menampilkan pesan tertentu juga. Selain itu juga, mesin ini tak hanya menampilkan hasil dalam bentuk teks saja tapi juga gambar screenshot dari website yang ditampilkan sebagai hasil pencarian.

Pihak AZS sendiri merasakan bahwa saat ini sudah banyak dari umat muslim yang aktif menggunakan internet sebagai bagian dari kehidupan sehari-harinya. Perusahaan tersebut mengatakan bahwa “Website ini menawarkan hasil pencarian yang cukup signifikan dan berupaya untuk meningkatkan hasil pencariannya dari waktu ke waktu. Selain memfokuskan diri pada mesin pencari bernuansa islami, ImHalal.com juga mencoba memberikan Anda hasil pencarian produk yang cukup baik.”

Anda ingin mencoba mesin pencari ini? Ayo segera coba dan buktikan kemampuan aslinya.

Sumber: www.beritateknologi.com

Tips Seleksi Object Dengan Cepat

Andaikan anda memiliki sebuah worksheet dimana didalamnya terdapat banyak sekali objek seperti gambar atau grafik, dan anda diharuskan untuk menghapus gambar-gambar dan grafik itu semua, apakah anda akan menghapusnya satu per satu? Saya pikir itu akan wasting time sekali.

Ada tips sederhana yang akan mempercepat hal ini, simaklah tips berikut:

1. Pertama klik pada salah satu objek pada sheet anda.


2. Lalu tekan CTRL + SHIFT + SPACEBAR. Maka semua object telah terseleksi. Kemudian Tekan Delete. Maka semua object telah dihapus. Mudah kan.

Tips Membuat List Validasi Dinamis Pada Cell

Biasanya kita membuat list pada cell menggunakan validasi data, yaitu melalui menu
Data -> Validation -> Setting -> Allow -> List
kemudian masukkan Range Cell yang terdapat list. Tapi seringkali list yang sudah kita buat harus berubah karena ada daftar list baru yang harus ditambahkan. Sehingga akan menjadi tidak praktis apabila kita harus merubah formula list yang telah kita buat setiap kali ada perubahan seperti itu.

Untuk itu anda perlu menggunakan tips berikut:
1. Sebagai contoh buatlah sebuah worksheet seperti dibawah ini.


Tujuan kita adalah untuk membuat Cell B2 tervalidasi dengan list yang berada pada kolom A. Setiap ada tambahan data pada kolom A secara otomatis list pada sel B2 akan ter-update.

2. Masuklah pada menu Insert -> Name -> Define.


Pada Isian Names in workbook: anda isikan "Nama_Hari" tanpa tanda kutip. Lalu pada Refers to: anda isikan
=offset(sheet1!$A$1;0;0;CountA(sheet1!$A:$A);1).

Lalu Tekan Add atau OK.

3. Kembali pada cell B2 lalu masuk menu Data -> Validation -> Setting -> Allow -> List
sehingga akan tampil jendela seperti dibawah:

pada isian Source anda masukkan =Nama_Hari lalu tekan OK.


anda dapat melihat pada cell B2 terdapat list pada kolom A. Cobalah anda tambahkan pada kolom A5 dan seterusnya Hari Jumat, Sabtu, Minggu. Hasilnya pada Cell B2 list-nya juga akan bertambah Jum'at, Sabtu, dan Minggu.


Selamat Mencoba..!
Knowledge for free...

Bagaimana Membuat dan Menjalankan Macro Excel? (1)

Sebenarnya terdapat dua cara untuk membuat macro di Microsoft Excel, yang pertama adalah dengan merekam aktivitas yang telah kita jalankan pada worksheet, sedangkan yang kedua adalah dengan membuat sendiri perintah macro pada pada Visual Basic Editor yang telah disediakan pada Microsoft Excel anda. Tapi akan dijelaskan terlebih dahulu toolbar yang akan digunakan dalam menjalankan atau membuat macro.


Toolbar pada gambar diatas adalah toolbar visual basic. Toolbar ini dapat anda munculkan dengan mencentang pada kotak opsi visual basic ( Tools -> Customize -> Toolbar -> Visual Basic ).

Keterangan gambar :

1. Run Macro, untuk menjalankan macro yang telah direkam atau dibuat. Jika anda mengklik tombol ini maka akan muncul jendela listing macro.
2. Record Macro, untuk merekam aktivitas yang akan anda lakukan pada worksheet anda kedalam sebuah prosedur program atau macro.
3. Visual Basic Editor, berfungsi untuk membuka jendela Visual Basic Editor yang akan digunakan untuk melihat listing program yang telah dibuat oleh Record Macro atau untuk membuat macro dengan listing program yang akan dibuat sendiri.
4. Control Tool Box, berisi bermacam-macam Control Tool yang dapat diguanakan untuk membuat form, membuat combo box, input box, text box dan lain sebagainya.
5. Design View or Exit Design View, opsi untuk memilih apakah kita akan bekerja dengan macro atau tidak. Apabila kita telah selesai mengedit listing program pada Jendela Visual Basic Editor, maka klik Tombol Exit Design View ini untuk mulai menjalankan macro.

Merekam Macro
Cara menggunakan fitur macro yang paling sederhana adalah dengan merekam aktivitas yang kita lakukan. Perhatikan contoh kecil berikut:

1. Pertama-tama masukklah ke menu Tools -> Macro -> Record Macro. Lalu akan muncul jendela Record Macro. Pada isian Macro Name anda isikan nama macro sesuai yang anda inginkan sesuai default maka akan muncul nama Macro1. Pada isian Shortcut anda dapat isikan misalnya "t" (tanpa tanda kutip). Maksudnya shortcut untuk menjalankan Macro1 nantinya adalah CTRL + t. Lalu Tekan OK.

2. Pada worksheet anda buatlah seperti pada gambar dibawah ini:




3. Apabila anda telah selesai membuat seperti pada gambar diatas maka masuklah pada menu Tools -> Macro -> Stop Recording.

4. Sekarang hapus yang telah anda tulis tadi, sampai benar2 bersih lalu tekan tombol Run Macro maka akan terlihat list dari macro yang ada, yaitu Macro1. Lalu klik Run. Excel akan melakukan apa yang telah anda rekam sebelumnya.

Bersambung.