Mencetak dng menggunanakan fasilitas VBA minsalnya kita mau cetak piagam atau sertifikat atau kartu nama
intinya dng format yg sama sejenis MAIL MERGE kalo di word nah yang berganti itu data nama ,tanggal lahir dst
sedangkan formatnya hanya satu dng cara pencetakan ini maka seluruh data akan dicetak tergantung berapa banyak kebutuhan
kalo 100 data hanya kurang lebih 19 detik saja
silahkan lihat video dan contoh makro nya dibawah ini
Jumat, 08 Januari 2016
Kamis, 07 Januari 2016
Sumif VS Sumifs VS Sumproduct VS Sum(if(frequency
Sebelumnya di rumus excel itu kita sumarray dulu penggunanan perintah pada umumnya yg menggunakan perintah diakhir dng If minsalnya Countif,sumif,averageif dll umumnya menggunakan objek criteria sebagai rujukan
contoh kasus dibawah ini adalah siswa kelas menjumlahkan siswa kelas dng gunakan perintah2
sumif ,sumifs dan sumproduct,frequency dll
sumif = 1 criteria
sumifs = 2 criteria atau lebih
sumproduct = 2 criteria atau lebih ......sumproduct sangatlah menarik karena nantinya ia bisa digunakan sebagai perintah pencari array multi formula dan sebagai langkah dasar memahami looping dalam vba makro
frequency = multi criteria yg tidak bisa kadang dilakukan oleh sumifs,sumproduct
contoh kasus dibawah ini adalah siswa kelas menjumlahkan siswa kelas dng gunakan perintah2
sumif ,sumifs dan sumproduct,frequency dll
sumif = 1 criteria
sumifs = 2 criteria atau lebih
sumproduct = 2 criteria atau lebih ......sumproduct sangatlah menarik karena nantinya ia bisa digunakan sebagai perintah pencari array multi formula dan sebagai langkah dasar memahami looping dalam vba makro
frequency = multi criteria yg tidak bisa kadang dilakukan oleh sumifs,sumproduct
Minggu, 03 Januari 2016
Hapus Picture di Area tertentu dng EXCEL VBA
Terkadang jenuh sekali menghapus gambar2 yang tidak di inginkan yang begitu banyak
akan tetapi gambar yg dihapus adalah di area tertentu saja,nah dengan makro dibawah ini
anda dapat menghapus image di seluruh sheet dan di area selain Range("A1:A30")
kalo tidak mau menghapus di area lain silahkan ubah Range("A1:A30") sesuaikan dengan kehendak masing2
dan kalo mau hanya di sheet active aja modifikasi saja vba diatas silahkan buang for i dan set ws
jng lupa hilangkan juga next nya salah satu
kalo dng button yg sudah disiapkan di excel bisa juga dengan pilih button Home lalu Find Select
lalu pilih goto special lalu pilih Object sperti gambar dibawah ini maka seluruh gambar akan di select semua
lalu unselect gambar yg tidak mau di hapus lalu tinggal tekan delete
tapi jadi ribet kan tidak semudah makro diatas
silahkan download contoh file dibawah ini :
akan tetapi gambar yg dihapus adalah di area tertentu saja,nah dengan makro dibawah ini
anda dapat menghapus image di seluruh sheet dan di area selain Range("A1:A30")
dan kalo mau hanya di sheet active aja modifikasi saja vba diatas silahkan buang for i dan set ws
jng lupa hilangkan juga next nya salah satu
kalo dng button yg sudah disiapkan di excel bisa juga dengan pilih button Home lalu Find Select
lalu pilih goto special lalu pilih Object sperti gambar dibawah ini maka seluruh gambar akan di select semua
lalu unselect gambar yg tidak mau di hapus lalu tinggal tekan delete
tapi jadi ribet kan tidak semudah makro diatas
silahkan download contoh file dibawah ini :
FILTER multi criteria dengan VBA Excel
nah disini saya coba gunakan dng gunakan berbagai jenis event
1.DO dengan For Each
2.For each dngan For
3.For Each dengan For Each
4.Array dengan For
aktipkan dulu fitur makro anda di pengaturan agar bisa menjalankannya
hasilnya sama aja untuk lebih tau aja kegunaan masing2 perintah
silahkan download file dibawah ini :
Fungsi Index+Mode dan Match di EXCEL FORMULA
Uutuk menampilkan jumlah yg terbanyak kata / angka yg kluar bisa dng gunakan perintah dibawah ini
minsalnya di E10:L10 kata yg sering keluar adalah baik di M10
=INDEX($E10:$L10;MODE(--MATCH($E10:$L10;$E10:$L10;0)))
jng lupa untuk ekskusi rumus dng tekan ctrl+shift+enter sekali tekan
maka hasilnya = Baik karena kata2 baik keluar sebanyak 6x
demikian tip sederhana
COMBOBOX UNIQUE dng EXCEL VBA
ini contoh coding untuk membuat list Combobox Unique dari Sheet Data
silahkan dikembangkan lagi
-----------------------------------------------------
Sub Combobox_Unique()
Dim dataAwal As Range
Dim DataValue As Variant
Dim KoleksiData As New Collection
Dim jlhData As Long
Dim DataItem As Variant
With ThisWorkbook.Worksheets("Data")
Set dataAwal = .Range(.Range("b2"), .Range("b9000").End(xlUp))
End With
DataValue = dataAwal.Value
On Error Resume Next
For jlhData = 1 To UBound(DataValue)
KoleksiData.Add DataValue(jlhData, 1), CStr(DataValue(jlhData, 1))
Next jlhData
On Error GoTo 0
With ActiveSheet.OLEObjects("ComboBox1").Object
.Clear
For Each DataItem In KoleksiData
.AddItem KoleksiData(DataItem)
Next DataItem
End With
End Sub
Download disini
silahkan dikembangkan lagi
-----------------------------------------------------
Sub Combobox_Unique()
Dim dataAwal As Range
Dim DataValue As Variant
Dim KoleksiData As New Collection
Dim jlhData As Long
Dim DataItem As Variant
With ThisWorkbook.Worksheets("Data")
Set dataAwal = .Range(.Range("b2"), .Range("b9000").End(xlUp))
End With
DataValue = dataAwal.Value
On Error Resume Next
For jlhData = 1 To UBound(DataValue)
KoleksiData.Add DataValue(jlhData, 1), CStr(DataValue(jlhData, 1))
Next jlhData
On Error GoTo 0
With ActiveSheet.OLEObjects("ComboBox1").Object
.Clear
For Each DataItem In KoleksiData
.AddItem KoleksiData(DataItem)
Next DataItem
End With
End Sub
SUM + MOD menjumlah kelipatan Tertentu EXCEL FORMULA DASAR
=SUMPRODUCT(--(MOD(ROW(A1:A28);8)=0)*--(A1:A28))
MOD = ROW(A1);8)=0 Artinya 1/8 menghasilkan sisa pembagian
Yang tidak menghasilkan sisa pembagian adalah
8/8 =0,16/8 = 0;24/8 = 0 nah berarti hanya akan men SUM row di baris A8,A16,A24
di Picture telah ditandai yang warna merah saja yg di SUM kan
kalo mau ganti ke Colomn Silahkan gantikan Mod(column(berapa..)
MOD = ROW(A1);8)=0 Artinya 1/8 menghasilkan sisa pembagian
Yang tidak menghasilkan sisa pembagian adalah
8/8 =0,16/8 = 0;24/8 = 0 nah berarti hanya akan men SUM row di baris A8,A16,A24
kalo mau ganti ke Colomn Silahkan gantikan Mod(column(berapa..)
Modifikasi Fungsi Index dan Choose di EXCEL FORMULA
Terkadang di excel itu kita butuh suatu formula agar bisa memodifikasi
antara satu fungsi dan fungsi lainnya
contoh kasus ketika kita mau ambil data kalo variabel 1 kosong
maka variabel 2 lah yg diambil
atau sebaliknya 2 variabelnya yang diambil
=INDEX($C$7:$C$10;LARGE(IF($D$7:$D$10=MAX($D$7:$D$10);ROW($D$7:$D$10)-6);ROWS($1:1)))&LOOKUP("zzzz";CHOOSE({1;2};"";" - "&INDEX($C$7:$C$10;LARGE(IF($D$7:$D$10=MAX($D$7:$D$10);ROW($D$7:$D$10)-6);ROWS($1:2)))))
tekan CSE sekaligus tuk exskusi
Download disini
Mencopy Format Baris Agar Sama Dng SOURCE di EXCEL FORMULA
Untuk copy paste range di excel untuk lebar column agar disesuaikan dng source nya
sudah disediakan dng menu di excel ,dengan cara copy ..pastespecial...lalu column.width
lalu paste
Nah bagaimana kalo mencopy tinggi baris nya sama dng source (sumber copy) nya
ini adalah trik sederhana
step 1.select area yg mau dicopy
step 2.tekan shift + space
step 3.copy (setelah di copy silahkan lepaskan shift+space)
step 4.pilih lokasi dimana mau di pastekan lalu tekan shift+space
step 5.pastekan
selesai
lihat link video dibawah ini
Download disini
BUAT TIME SCHEDULE DI EXCEL DNG VBA MAKRO
Terkadang Saat kita bekerja membuat time schedule sungguh membosankan ,nah ini ada contoh file
yang saya kerjakan atas pertanyaan seseorang di grup excel indonesia user group dng gunakan makro excel
liat link video nya
Download disini
yang saya kerjakan atas pertanyaan seseorang di grup excel indonesia user group dng gunakan makro excel
liat link video nya
Download disini
Nama yang Sering Muncul di EXCEL FORMULA
Ini adalah sebuah contoh rumus array mencari nama yg sering muncul
untuk contoh ini adalah formula array mencari rangking 1 s/d 5
bisa digunakan untuk aplikasi perpustakaan dan pasien yg berkunjung kerumah sakit
Download disini
Sabtu, 02 Januari 2016
ARRAY TANPA CSE DI EXCEL FORMULA
Pada Umunya perintah Array di exskusi dng CSE (control +Shift + Enter)
Tapi ada rumus yg dimodifikasi tanpa gunakan CSE minsalnya adalah Index + Small + if yg kita ubah
dengan objek cari perkalian calculasi range cari dalam hal ini adalah index nya silahkan dikembangkan lagi
untuk rumus2 yang lain seperti lookup,index match dll
contoh file :
Tapi ada rumus yg dimodifikasi tanpa gunakan CSE minsalnya adalah Index + Small + if yg kita ubah
dengan objek cari perkalian calculasi range cari dalam hal ini adalah index nya silahkan dikembangkan lagi
untuk rumus2 yang lain seperti lookup,index match dll
contoh file :
