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..)
