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.