LKP Bass Media Computer - Office

Membuat Kwitansi Dengan Fungsi Terbilang (Excel 2007)

noreply@blogger.com (Agoes Cho) — Fri, 19 Nov 2010 18:17:00 +0000

Buka Microsoft Excel.
Tekan Alt + F11 untuk membuka VBA Editor, atau klik menu Tools -> Macro -> Visual Basic Editor.
Di Visual Basic Editor, klik menu Insert -> Module.
Lalu copy-paste script di bawah ini ke bidang kerjanya:
Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "RIBU "
letak(2) = "JUTA "
letak(3) = "MILYAR "
letak(4) = "TRILYUN "

If (x < 0) Then
    TERBILANG = ""
Exit Function
End If

If (x = 0) Then
    TERBILANG = "NOL"
Exit Function
End If

If (x < 2000) Then
    tanda = True
End If
teks = ""

If (x >= 1E+15) Then
    TERBILANG = "NILAI TERLALU BESAR"
Exit Function
End If

For i = 4 To 1 Step -1
    tampung = Int(x / (10 ^ (3 * i)))
    If (tampung > 0) Then
        bagian = ratusan(tampung, tanda)
        teks = teks & bagian & letak(i)
    End If
    x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
TERBILANG = teks & " Rupiah"
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "SE"
angka(2) = "DUA "
angka(3) = "TIGA "
angka(4) = "EMPAT "
angka(5) = "LIMA "
angka(6) = "ENAM "
angka(7) = "TUJUH "
angka(8) = "DELAPAN "
angka(9) = "SEMBILAN "

Dim posisi(2)
posisi(1) = "PULUH "
posisi(2) = "RATUS "

bilang = ""
For j = 2 To 1 Step -1
    tmp = Int(y / (10 ^ j))
    If (tmp > 0) Then
        bag = angka(tmp)
        If (j = 1 And tmp = 1) Then
            y = y - tmp * 10 ^ j
            If (y >= 1) Then
                posisi(j) = "BELAS "
            Else
                angka(y) = "SE"
            End If
            bilang = bilang & angka(y) & posisi(j)
            ratusan = bilang
            Exit Function
        Else
            bilang = bilang & bag & posisi(j)
    End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
    angka(1) = "SATU "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function
Setelah di paste, coba cek script ini dengan klik menu Debug -> Compile VBA Project, jika tidak keluar kotak peringatan apapun biasanya script anda sudah beres.
Tutup jendela Visual Basic Editor anda.

Nah sekarang tinggal coba aja:

Ketik di cell sembarang sederet angka (misal di cell A1), lalu untuk memanggil fungsi terbilang ini (misal di cell A2), tinggal ketik =TERBILANG(A1).

Cukup mudah bukan? Anda dapat mengunduh contoh artikel ini di sini.

Just in case, jika macro ini tidak bisa di jalankan di Excel anda (karena secara default Excel menset keamanan terhadap macro ke level tinggi), cek Security macro setting di Excel anda. Untuk melihat konfigurasi Security macro, klik Tools -> Macro -> Security dan pilih opsi Low lalu klik tombol OK. Saran saya pastikan anda sudah mempunya anti virus terinstal di komputer anda untuk menjaga agar virus macro tidak dapat menyerang komputer anda.

Sumber: edisusanto.com

Membuat Daftar Isi Pada Word 2007 Menggunakan TOC

noreply@blogger.com (Agoes Cho) — Fri, 19 Nov 2010 10:35:00 +0000

Untuk membuat daftar isi di word 2007, bisa dengan menggunakan fasilitas TOC ^{(Table of Contents)}, fitur TOC telah menyediakan template daftar isi, yang bisa diedit atau diganti dengan teks yang diinginkan.

Untuk membuat dafta isi menggunakan TOC pada word 2007, lakukan prosedur berikut:

Di menu bar pilih References - Table of Contens, pilih Manual Table

Akan muncul sebuah template/fom TOC seperti di bawah ini,

Klik pada type chapter tittle kemudian ketik sesuai dengan teks yang diinginkan

Cara Menampilkan Ruler / Penggaris di Word 2007

noreply@blogger.com (Agoes Cho) — Thu, 18 Nov 2010 10:08:00 +0000

Dalam pengetikan di microsoft word 2007, dengan menampilkan ruler akan sangat membantu dalam menentukan tab (tabulasi), melihat kolom, lebar kolom, tinggi baris, dan berbagai fitur dari pengeditan di wod 2007. Untuk memunculkan ruler di word 2007 cukup dengan mengaktifkan centang pada ruler.

Untuk menampilkan ruler pada word 2007, lakukan prosedur berikut:

1. Pada menu pilih View, kemudian Ruler

2. hasilnya akan tampak seperti di bawah ini , akan tampak / muncul vertikal ruler dan horizontal ruler.

Cara mengubah satuan ukuran ke cm (measurement unit) di Word 2007

noreply@blogger.com (Agoes Cho) — Wed, 17 Nov 2010 09:55:00 +0000

Pada microsoft word 2007 measuement unit default yang digunakan adalah inches (in), namun tekadang kita kesulitan mencocokkan dengan standar satuan yang umumnya kita gunakan yaitu cm (centimeter). Untuk memudahkan menentukan batas margin dan ukuran kertas, maka kita dapat mengganti/mengubah measurement unit dari inches ke cm.

Untuk mengganti / mengubah measurement unit di word 2007 ke cm, ikuti prosedu berikut:

1. Klik logo microsoft office
Pilih word options

2. Pilih Advanced
Pada bagian "Show measuements in units of " pilih cm
OK

Cara Membuat Drop Cap di Word 2007

noreply@blogger.com (Agoes Cho) — Mon, 15 Nov 2010 11:40:00 +0000

Drop Cap merupakan sebuah fasilitas yang disediakan oleh word 2007 untuk membuat tulisan /huup lebih besar ukurannya dari huruf lainnya.Umumnya drop cap kita temukan pada sebuah novel atau majalah yang menonjolkan huruf pertama pada setiap topik, untuk menaik perhatian pembaca.

Untuk membuat drop cap pada microsoft word 2007, lakukan prosedur berikut:

Blok huruf pertama pada kalimat di bawah ini

Atur drop cap

Hasilnya akan tampak seperti di bawah ini

Cara Membuat Password (Proteksi) Pada File Word 2007

noreply@blogger.com (Agoes Cho) — Sun, 14 Nov 2010 11:52:00 +0000

Jika suatu file atau dokumen bersifat rahasia, atau anda ingin mencegah fie tersebut diakses dan diedit oleh orang lain maka salah satu cara untuk mengamankan file dokumen tersebut adalah membuat password (kata sandi) pada dokumen word 2007 anda. Microsoft word 2007 seperti versi microsoft word 2003 dan sebelumnya telah mengintegrasikan fitur pemangaman file, anda hanya perlu mengaktifkan fitur keamanan tersebut pada file dokumen word 2007.

Untuk membuat password (sandi) pada file word 2007, lakukan prosedur berikut:

Pertama anda harus mempunyai sebuah dokumen word yang aktif atau terbuka

Masukkan password (sandi) anda

Ketik ulang password yang anda ketik pada langkah 2 untuk konfirmasi password

Ketik nama file sesuai keinginan anda

Setelah melakukan prosedur di atas, maka saat membuka file yang telah di-proteksi maka akan muncul kotak dialog untuk memasukkan password, jika password (sandi) yang anda masukkan salah maka file tidak dapat dibuka. Tampilan kotak konfirmasi password seperti di bawah ini

Membuat Mail Merge (Surat Masal) di Word 2007 Step By Step

noreply@blogger.com (Agoes Cho) — Sat, 13 Nov 2010 11:08:00 +0000

Mail merge membantu kita untuk membuat sebuah dokumen (misalnya surat) yang isinya sama namun untuk penerima yang berbeda secara cepat dan mudah. Fitur ini sangat membantu terutama pada saat penerimanya sangat banyak.
Mail merge juga dapat digunakan untuk membuat sertifikat, label, dan amplop.

Dokumen Master, dokumen yang isinya sama untuk semua penerima.
Data Source, yaitu dokumen yang isinya khusus untuk masing-masing penerima, misalnya nama dan alamat penerima.
Data source dapat berupa data di Excel, Access, Contact pada Outlook dan sebagainya.

data source menggunakan Excel

Lebih mudah mengontrol dan menambah data baru.
Lebih mudah membaca data yang ditampilkan di lembar kerja Excel terutama bila kita ingin memperbaiki kekeliruan seperti salah pengejaan dan sebagainya.
Juga mempermudah menyalin data source pada dokumen Excel ke lembar kerja yang lain.
Misalnya dalam membuat sertifikat pelatihan yang pesertanya lebih kurang sama, maka akan lebih mudah memilih nama pada lembar kerja tersebut dan menyalinnya ke dokumen (data source) baru.

Langkah-langkah membuat mail merge adalah sebagai berikut:

Tahap I Membuat Data Source

Buat data source di Excel seperti contoh di bawah ini dan simpan dengan nama Data Surat.

Tahap II Membuat Dokumen Master

Buat dokumen master surat di Word seperti contoh di bawah ini dan simpan dengan nama Master Surat.
Beri jarak untuk menaruh nama dan alamat.
Dokumen ini jangan ditutup karena kita akan lanjutkan ke langkah berikut: menggabungkan Data Source dengan Dokumen Master.

Tahap III Menggabungkan Data Source dengan Dokumen Master

Pada Mailings tab, grup Start Mail Merge, klik Start Mail Merge.
Selanjutnya kita akan memilih data source.
Pada Mailings tab, grup Start Mail Merge, klik Select Recipients.
Pilih Use Existing List, dan cari lokasi dokumen (Data Surat) pada kotak dialog Select Data Source. Kemudian klik Open untuk menampilkan kotak dialog Select Table.
Pada kotak dialog Select Table, klik lembar kerja yang berisi sumber data dan pastikan kotak First row of data contains column headers dicentang. Kemudian klik OK.
Sekarang kita akan menempatkan data pada masing-masing tempatnya.
Taruh di kursor di bawah tulisan Kepada Yth., kemudian pada Mailings tab, grup Write & Insert Fields, klik Insert Merge Field dan pilih Nama.
Lakukan juga hal yang sama pada Alamat dan sekarang tampilan dokumen akan seperti contoh di bawah ini.
Data ditampilkan dalam tanda kurung siku dua <>.

Tips:
Di sini kita dapat mengatur format surat, seperti memberi cetak tebal pada Nama dan sebagainya.
Bila hanya data tertentu saja yang ingin dipilih, lakukan cara berikut:
Pada Mailings tab, grup Start Mail Merge, klik Edit Recipient List.
Di kotak dialog Mail Merge Recipients, kosongkan kotak pada daftar seperti contoh di bawah ini.
Bila ada penambahan data baru di Excel, klik nama dokumen pada Data Source dan klik tombol Refresh. Data yang baru akan ditampilkan di daftar.

Untuk melihat hasil penggabungan, klik tombol PreviewResults.
Surat akan ditampilkan per data. Klik tanda panah untuk berpindah antar data.
Jika masih ada yang ingin diubah, klik lagi tombol PreviewResults dan lakukan perubahan yang diinginkan.

Tahap IV Menyimpan dan Mencetak Mail Merge

Pada tahap ini, klik tombol Finish & Merge dan pilih:
- Print Documents, untuk mencetak surat.
  Ada 3 pilihan:
  1. All untuk mencetak semua surat.
  2. Current record untuk mencetak surat pada halaman yang aktif.
  3. Isi nomor urut data pada kotak From dan To, untuk mencetak surat yang dipilih saja.
- Edit Individual Documents, untuk menyimpan hasil penggabungan ke dokumen baru.
  Pilihan sama dengan di atas (All, Current record dan nomor urut tertentu).
  Pada dokumen baru, setiap surat akan ditampilkan per halaman. Jangan lupa menyimpan dokumen baru tersebut.

Mengenal Microsoft Office Excel 2007

noreply@blogger.com (Agoes Cho) — Thu, 11 Nov 2010 21:47:00 +0000

Microsoft Office Excel 2007 merupakan program aplikasi pengolah lembar kerja elektronik atau Spreadsheet atau program pengolah angka yang bekerja di bawah sistem windows. Microsoft Excel 2007 mempunyai kelebihan - kelebihan di bandingkan versi - versi sebelumnya, diantaranya:

Hasil berorientasi Antarmuka pengguna
Lebih banyak baris dan kolom, juga batas-batas baru lainnya
Tema Excel dan Gaya Excel
Lebih kaya akan Conditional Formatting (format bersyarat)
Lebih mudah menulis rumus (formula)
OLAP formula baru dan fungsi kubus baru
Peningkatan pemilahan dan penyaringan
Tambahan tampilan tabel Excel
Tampilan grafik baru.
Shared charting (penggunaan / berbagi Chart)
Mudah dalam menggunakan PivotTables
Cepatan koneksi terhadap data eksternal (data dari luar)
Format file baru (format lama *.xls format yang baru *.xlsx)
Pengalaman pencetakan yang lebih baik
Cara baru untuk berbagi pekerjaan Anda
Akses cepat ke lebih banyak template

-------------------************------------------

Membuka Aplikasi MICROSOFT OFFICE EXCEL 2007

Untuk memulai atau menjalankan program aplikasi Microsoft Office Excel 2007
dengan melalui Menu program ikuti langkah berikut:

Nyalakan komputer anda dan tunggu sampai komputer menampilkan desktop windows
Klik Start button (tombol start) yang ada di taskbar (pojok kiri bawah pada monitor)
Pilih All Program
Klik Microsoft Office
Kemudian pilih dan Klik Microsoft Office Excel 2007

Mengakhiri MICROSOFT OFFICE EXCEL 2007
Setelah anda bekerja dengan menggunakan program Microsoft Office Excel 2007, untuk mengakhirinya ikuti langkah langkah berikut:

Simpan dokumen yang sudah anda buat
Kemudian pilih salah satu langkah untuk mengakhirinya sebagai berikut:

Pilih dan Klik Office Button (Tombol Office), Klik Close
Klik tombol Close (X) yang berada di pojok kanan atas dari jendela Microsoft Excel
Klik dua kali icon tombol Office Button (Tombol Office) yang berada di pojok kiri atas dari jendela Excel 2007
Tekan tombol ALT + F4

Mengenal OFFICE BUTTON, TAB MENU & RIBBON

Office Button:

Pada Microsoft Office Excel 2003, fasilitas ini biasa disebut dan diberi nama dengan FILE. Merupakan menu standart yang mayoritas ada pada setiap software (aplikasi). Namun pada Microsoft Office Excel 2007 fasilitas ini diberi nama OFFICE BUTTON (Tombol Office). Didalamnya terdapat beberapa fasilitas standart yang juga ada pada hampir semua software (aplikasi). OFFICE BUTTON (Tombol Office) yang terletak di pojok kiri atas pada jendela Excel ini memiliki beberapa fasilitas, antara lain: NEW (membuat dokumen baru), OPEN (membuka file excel), SAVE (menyimpan ulang file excel), SAVE AS (menyimpan file baru Excel atau menyimpan dengan nama lain), PRINT (menampilkan fasilitas pencetakan), PREPARE (menjalankan/menampilkan/mengoperasikan berbagai macam properti excel), SEND (mengirim file ke e-Mail atau Fax), PUBLISH (mempublikasikan file ke internet/website), CLOSE (digunakan untuk menutup program Excel).

Tips: Pada bagian yang memiliki tanda panah kecil ke sebelah kanan masih ada sub menu lainnya lagi. Silahkan untuk mempelajarinya lebih jauh, agar semakin memahami fasilitas OFFICE BUTTON.

Home:

Home merupakan menu standart. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel di bawah ini)

Insert:
Insert merupakan menu yang berfungsi untuk memasukkan atau menambahkan obyek lain pada lembar kerja excel. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

Page Layout:

Page Layout merupakan menu yang berguna untuk menata halaman, baik itu hanya tampilan yang ada di monitor maupun hasil cetaknya/printout--nya. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

Formulas:
Formulas merupakan menu dimana didalamnya terdapat fasilitas-fasilitas yang mendukung penggunaan formula (rumus). Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

Data:

Data merupakan menu yang berkaitan dengan pengolahan data. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

Review:

Review merupakan salah satu menu penyedia informasi. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

View:

View merupakan menu yang memiliki fungsi penataan tampilan pada lembar kerja, Menu ini tidak berpengaruh pada data yang ada. Didalamnya terdapat beberapa sub menu group, yang letaknya berada di bawah deretan menu. Group dan fungsi tersebut adalah: (Lihat tabel berikut ini)

Add-Ins:

Apakah ADD-INS selalu ada? Apablia ada, apa saja fungsinya? Silahkan isikan pada tabel berikut!

Silahkan download file lengkapnya di SINI

Workbook Hanya Terbuka Ketika Enable Macro

noreply@blogger.com (Agoes Cho) — Thu, 11 Nov 2010 10:00:00 +0000

Sebagai Informasi, segala pertanyaan yang saya terima, tidak menutup kemungkinan akan saya jadikan sebagai postingan, dan dalam postingan juga saya tidak akan menyebutkan nama atau instansi yang bertanya, jadi mohon maklum adanya.

Termasuk pertanyaan mengenai bagaimana caranya supaya user apabila membuka workbook yang ada macronya, harus dan mau tidak mau melakukan pilihan Enable Macro ?

Proses macro disini adalah melakukan Hide dan unhide sheet, apabila ada jendela peringatan pilihan enable atau disable macro, atau untuk level high security workbook.
Langsung saja ke caranya :

Pada aktif workbook, untuk mempermudah buka satu workbook excel saja, tambahkan atau insert worksheet, kemudian beri nama peringatan
Kemudian buka jendela Macro Visual Basic --> pada jendela Project --> VBAProject biasanya secara otomatis ada di sebelah pojok kanan atas, pilih atau double klik ThisWorkbook.
kemudian pastekan saja kode dibawah ini kedalam jendela macro VBA-nya.

'proses untuk disable macro
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet 'ws sebagai worksheet

Application.ScreenUpdating = False 'menonaktIfkan update yang berulang-ulang
Worksheets("peringatan").Visible = xlSheetVisible 'hanya worksheet peringatan yang tampil

For Each ws In ThisWorkbook.Worksheets ' untuk setiap worksheet yang nama sheetnya tidak sama dengan peringatan akan di hide
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVeryHidden
Next ws

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

'proses untuk enable macro
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = True
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVisible
Next ws

Worksheets("peringatan").Visible = xlSheetVeryHidden
End Sub

Nach mungkin cukup begitu saja postingan ini dibuat, dan seperti biasa untuk mempermudah mempelajarinya, file yang mengandung kode macro diatas, bisa langsung di DOWNLOAD disini.

Import Multi File Excel Di Acces

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 06:04:00 +0000

Akhirnya ada waktu senggang untuk membuat sedikit postingan, sebelumnya aku sudah pernah membuat postingan mengenai IMPORT FILE EXCEL KE ACCES DENGAN COMMAND BUTTON, dimana dalam import file excel tersebut hanya satu file excel yang bisa di import ke acces....

Lalu bagaimana bila ingin melakukan import banyak file excel ke acces...? Sebenarnya caranya tidak terlalu banyak perubahan dari postingan IMPORT FILE EXCEL KE ACCES DENGAN COMMAND BUTTON, dimana kondisinya untuk melakukan perintah import file excel adalah tetap menggunakan perintah :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_MultiImporExcel", namafile,

Dan sedikit tambahan perintah untuk mencari file excel yaitu :

For intFile = 1 To UBound(strFileList) namafile = path & strFileList(intFile) DoCmd.Transfe

Untuk mempelajari lebih lanjut contoh file-nya bisa di langsung di DOWNLOAD disini.
Contoh tampilan form-nya lihat di bawah ini

Import File Excel Ke Acces Dengan Command Button

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 05:59:00 +0000

Setelah berjibaku dengan kerjaan yang tak kenal waktu dan membuat kepala terasa mekar, akhirnya bisa sedikit melepas lelah dan membuat tulisan ini.

Tulisan ini aku buat berdasarkan pertannyaan dari salah satu teman di facebook, yang menanyakan mengenai Transfer spreadsheet, yaitu melakukan kegiatan import atau eksport data dari dan ke acces.

Secara sederhana kode tersebut sebenarnya sudah bisa didapatkan melalui bantuan acces help, dengan kode dasar transfer spreadsheet adalah seperti dibawah ini :

DoCmd.TransferSpreadsheet acImport, 3, _ "Employees","D:Datakudata.xls", True, "A1:G12"

kode diatas merupakan perintah untuk melakukan transfer spreadsheet dari data.xls ke table Employees di acces.

Nah disini aku coba buat, kondisi seperti diatas, tetapi akan ada beberapa tambahan dimana sebelum melakukan transfer akan muncul form dengan command button yang akan membuka file excel kemudian alamatnya akan secara otomatis, akan tercantum di text box, setelah itu baru dilakukan import file excel dengan menekan tombol Import File.

Untuk contoh formnya bisa dilihat gambar dibawah ini.
Yach... mungkin cukup sekian dulu penjelasan mengenai transfer spreadsheet ini, dan untuk mempelajari lebih lanjut mengenai penggunaan form transfer spreadsheet ini, bisa langsung di DOWNLOAD.

Membuat Alarm Teks Berkedip Di Excel

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 05:36:00 +0000

Sesuai Permintaan dari salah satu best friend, yang ingin mengetahui bagaimana membuat Text berkedip di excel, maka dibuatlah postingan ini.

Seperti diketahui bahwa secara normal text di excel tidak bisa dibuat berkedip, seperti halnya di word, jadi harus diakali dengan kode macro yang mengatur waktu pewarnaan dari teks tersebut dengan menggunakan aplikasi ontime.

Tetapi kalau hanya membuat postingan teks berkedip, tentunya tidak asyik, maka teks berkedip tersebut saya aplikasikan untuk membuat alarm diexcel.
Dimana alarm tersebut akan menghasilkan teks yang berkedip apabila waktunya sesuai dengan setting waktu yang telah ditentukan.

Langsung saja, kode makro dari teks berkedip bisa dilihat di bawah ini:

Public kedip As Double
Sub mulaikedip()
With ThisWorkbook.Sheets(1).Range("E2")
If .Font.ColorIndex = 3 Then
.Font.ColorIndex = 4
.Interior.ColorIndex = 3
Else
.Font.ColorIndex = 3
.Interior.ColorIndex = xlColorIndexNone
End If
End With
kedip = Now + TimeSerial(0, 0, 1)
Application.OnTime kedip, "mulaikedip", True
End Sub

Sub berhentikedip()
With ThisWorkbook.Sheets(1).Range("e2")
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
End With
Application.OnTime kedip, "mulaikedip", False
Application.ScreenUpdating = True
End Sub

Sedangkan untuk kode Jamnya sama seperti pada postingan sebelumnya di Excel Calender Slideshow dan Alarm Analog Jam

Option Explicit
Dim nexttick
Sub jam()
ThisWorkbook.Sheets(1).Calculate
nexttick = Now + TimeValue("00:00:01")
Application.OnTime nexttick, "Jam", , True
End Sub

Sub berhenti()
On Error Resume Next
Application.OnTime nexttick, "Jam", , False
Application.ScreenUpdating = True
End Sub

Kemudian kode untuk melakukan loading kode makro pada workbook bisa dilihat dibawah ini:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
berhenti
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
berhenti
End Sub

Private Sub Workbook_Open()
jam
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Range("F2").Value = 1 Then
mulaikedip
Else
berhentikedip
End If
End Sub

dan terakhir aku juga pake rumus di excel,

Rumus di Cell F2 =IF(EXACT((C2+D2),HOUR(NOW())+MINUTE(NOW()))=TRUE,1,"")
Rumus di cell E2 =IF(F2=1,"ALARM MENYALA","")

sebenernya rumus excel diatas bisa juga diganti kode makro... bisa di cari sendiri lah.... buat latihan
Nach... seperti biasa kalau mau lihat contoh hasilnya bisa di DOWNLOAD disini

Filter Warna Cell Di Excel

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 05:11:00 +0000

Kemarin ada lagi permintaan untuk melakukan autofilter kolom berdasarkan warna cell.
langsung saja aku jawab dengan hati yang girang, karena bisa berbagi lagi...."ocreh tunggu bentar ya"

Dalam postingan ini aku akan membahas mengenai cara melakukan filter data excel berdasarkan warna cell dalam satu kolom.

Permasalahan dalam file tersebut pada range B5 s/d B14 akan di filter cuman filternya berdasarkan warna dari tiap cel yang ada di range tersebut.

Nach... untuk melakukan filter tersebut dibuatlah bantuan pada akhir kolom, untuk menentukan index warna dari tiap-tiap cel yang ada di range B5 s/d B14, berikut kodenya :

Sub filter_warna()
Dim lg As Long

Application.ScreenUpdating = False

lg = Range("D2").Interior.ColorIndex 'lg sebagai nilai warna di cel D2
Range("E5:E14").Font.ColorIndex = 2 'huruf di range E5 s/d E14 menjadi putih

'mengkondisikan nilai di cell E5 s/d E14 menjadi nilai dari warna di cell
For i = 5 To 14
Cells(i, 5).Value = Cells(i, 2).Interior.ColorIndex
Next

With Sheet1.Rows("4:65536")
.AutoFilter
.AutoFilter Field:=5, Criteria1:=lg
End With

Application.ScreenUpdating = True
End Sub

Sub buka_filter()

Application.ScreenUpdating = False
If Sheet1.AutoFilterMode Then
Sheet1.Cells.AutoFilter
Sheet1.Range("E5:E14").Clear
End If
Application.ScreenUpdating = True

End Sub

Seperti biasa, untuk file-nya bisa langsung di DOWNLOAD disini

Double Click Cell Insert Comment Di Excel

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 05:07:00 +0000

Postingan ini berdasarkan request dari salah satu teman di facebook, yang menanyakan cara membuat double click di cell excel.

Langsung saja aku buat salah satu contoh perintah double click di cell excel, pada range tertentu, yang akan menampilkan input box, dan menampilkan hasil input box ke comment di active cell.

Caranya cukup sederhana karena kode makronya dipasang di worksheet, yaitu dengan melakukan Klik kanan pada sheet tab excel (misal : Sheet1), dan pilih View Code.

Selanjutnya tinggal copy aja kode di bawah ini kedalamnya.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim komen As String
Dim komen2 As String
'mengkondisikan range D2:D5
If Not Intersect(Target, Range("D2:D5")) Is Nothing Then
'kondisi apabila comment tidak ada di target Double click
If Target.Comment Is Nothing Then
'memunculkan inputbox dan menambahkan hasil inputbox sebagai comment
komen = InputBox("Catetan:", "Informasi")
If komen = "" Then Exit Sub'keluar dari kondisi perintah Double click bila inputbox tidak diisi
Target.AddComment Text:=komen
Target.Comment.Visible = False
Else
'kondisi apabila target Double click sudah ada comment teks-nya
If Target.Comment.Text <> "" Then
'memunculkan inputbox dan mengganti comment teks yang sudah ada sesuai hasil inputbox yang baru
komen2 = InputBox("Catetan:", "Informasi")
If komen2 = "" Then Exit Sub
komen = Target.Comment.Text
Target.ClearComments
Target.AddComment Text:=komen2
Else

komen2 = InputBox("Catetan:", "Informasi")
If komen2 = "" Then Exit Sub
Target.ClearComments
Target.AddComment Text:=komen2
End If
End If
End If
End Sub

Seperti biasa kalau mau tambahan bantuan file contohnya bisa di DOWNLOAD disini

Copy Data Dari Multiple File

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 04:59:00 +0000

Nulis lagi ah biar ga lupa... kebetulan ada temen kantor yang minta dibantuin untuk bikin makro yang berfungsi melakukan copy dari range yang ada di spesifik sheet dan beberapa workbook... aku langsung jawab... "ocreh ntar ya... aku ngelarin kerjaanku dulu".... Beberapa hari kemudian baru aku mencoba membuat makro permintaan teman kantorku... hal pertama yang terlintas dalam otakku adalah aku harus membuat tahapan prosesnya terlebih dahulu...

Hal pertama adalah membuka excel baru untuk tempat kode makro
Kemudian membuat tempat atau sheet untuk menempatkan hasil copy, sheet tersebut tak namain "gue"
Kemudian membuka file workbook dan memilih nama sheet yang akan di copy
Mencari Range data yang akan di copy
Action copy
Action Paste ke sheet baru, utk copy file pertama selesai
Selanjutnya melakukan copy file kedua, untuk proses dan kode makronya tetep, dari membuka file baru yang akan dicopy sampai proses paste
Terakhir...menutup file yang telah di copy... selesai

Yup begitulah proses copy data dari multiple file....

Setelah tahu prosesnya... aku langsung membuka workbook excel dan langsung menuju jendela vba makro... dan langsung mengetikkan kode makronya yaitu :

Private Sub copy_multiplefile()
'sesuai proses nomor 2 aku ingin membuat sheet baru dengan nama "gue", jadi supaya tidak terjadi error, apabila sudah ada sheet "gue", aku harus menghapus sheet tersebut, kodenya adalah,

Application.DisplayAlerts=False
On Error Resume Next
ActiveWorkbook.Worksheets("gue").Delete
On Error GoTo 0

Application.DisplayAlerts = True
'setelah terhapus kemudian aku membuat sheet baru dengan nama "gue" dan supaya lebih memudahkan, aku mensetting worksheet gue menjadi "ws", kodenya,

Set ws=ThisWorkbook.Worksheets.AddSheet
ws.Name="gue"
'kemudian aku membuka file excel pertama yang akan di copy
'COPY PASTE FILE PERTAMA
Workbooks.Open Filename:="D:karsonoFile1.xls" 'tempat file
'setelah terbuka, aku langsung mencari nama sheet dan range datanya
With Worksheets("data1")

Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,Columns.Count))).Copy 'mencari range yang ada datanya Dimulai dari cell A1 supaya judul datanya ikut ke copy, setelah di copy kemudian aku menuju ke sheet "gue" dan melakukan paste special value Dimulai dari cell yang kosong

ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'file pertama sudah ke copy, kemudian aku membuka lagi file excel yang lain dengan proses dan kode yang sama
'COPY PASTE FILE KEDUA
Workbooks.Open Filename:="D:karsonoFile2.xls"

With Worksheets("data2")
Intersect(.UsedRange, .Range("A2", .Cells(Rows.Count, Columns.Count))).Copy 'perbedaannya disini adalah aku melakukan copy data dari A2, jadi cuman datanya aja

End With
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'nah... disini baru dijelaskan kode ini adalah mencari range, bisa dilihat pada kode offset antara paste file pertama .offset(0,0) dan paste file ke dua .offset(1,0), untuk yang paste pertama bermaksud mengcopy, tanpa berpindah dari range yang ditemukan, tetapi untuk paste yang kedua bermaksud apabila ditemukan range maka, dia akan berpindah satu baris ke bawah jadi tidak akan menimpa yang atasnya... begicu...
'DEMIKIAN UNTUK FILE SETERUSNYA
'Terakhir aku menutup file-file yang telah dicopy
Workbooks("File1").Close savechanges:=False

Workbooks("File2").Close savechanges:=False
End Sub
'beress

Untuk melihat hasilnya langsung pencetAlt + F8 Tetapi kalo aku lebih suka membuat commandbutton, langsung aja aku bikin tuch commandbutton, klik 2x untuk pergi ke jendela vba makro, aku tulis dech kodenya

Sub CommandButton1_Click()

Call copy_multiplefile 'memanggil makro untuk copy multiplefile

End Sub
'beres...

Tinggal kasih dah ni rumus......

Autocopy Filter Di Excel

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 04:39:00 +0000

Mata sebenernya dah sepet banget ngelihat komputer karena kerjaan yang berhubungan dari angka dengan baris yang berjibun, tetapi untuk membantu menyegarkan otak aku coba membuat tulisan lagi yang berhubungan dengan excel macro.

Seperti biasa tulisan ini aku buat berdasarkan request dari kerjaan, yang proses kerjanya adalah melakukan copy database yang telah di filter di excel ke workbook yang baru secara otomatis.

Langsung sajah berhubung anak-anak juga dah pada pulang...
kode makronya adalah sebagai berikut :

Option Explicit
Sub ExtractReps()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim nws As Worksheet
Dim rng As Range
Dim r As Integer
Dim c As Range

'setting database
Set ws1 = Sheets("Sheet1")
Set rng = ws1.Range("A1:E97")

'copy data yang di filter
ws1.Columns("C:C").Copy Destination:=Range("L1")

'setting nilai filter dengan kondisi tidak ada data yang kembar
ws1.Columns("L:L").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
r = Cells(Rows.Count, "J").End(xlUp).Row

'copy nama judul di kolom C
Range("L1").Value = Range("C1").Value

'copy database yang dIfilter ke sheet baru
For Each c In Range("J2:J" & r)
ws1.Range("L2").Value = c.Value
Set ws2 = Sheets.Add
ws2.Move After:=Worksheets(Worksheets.Count)
ws2.Name = c.Value
rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range("L1:L2"), CopyToRange:=ws2.Range("A1"), Unique:=False
Next
ws1.Select
ws1.Columns("J:L").Delete

'pindahkan sheet hasil copy filter ke workbook baru
For Each ws3 In ThisWorkbook.Worksheets
If ws3.Name <> "Sheet1" Then
If wb Is Nothing Then
ws3.Move
Set wb = ActiveWorkbook
Else
ws3.Move After:=nws
End If
Set nws = ActiveSheet
End If
Next ws3

'mengaktIfkan workbook database asal dan membuat filter
ThisWorkbook.Activate
ws1.Range("A1:E1").AutoFilter
ws1.Range("A1").Select
End Sub

Untuk membantu mempermudah mempelajarinya, berikut ini aku lampirkan filenya. silahkan di DOWNLOAD disini.

Disable Excel Icon X Di Windows User Form

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 04:35:00 +0000

Dikarenakan kondisinya lagi demen melajarin MAcro VBA Excel, disini aku coba bikin tulisan mengenai bagaimana cara melakukan Disable terhadap Icon X pada jendela userform di excel.

Proses dari kode makro dibawah adalah User tidak akan bisa melakukan klik pada Icon X pada userform, dimana apabila Icon X tetap di klik, maka akan muncul sebuah pesan yang memberitahukan bahwa Icon X tidak bisa di klik.

selain pesan klik pada icon X juga bisa dimodifikasi sesuai perintah selanjutnya apabila Icon X di klik.

kodenya adalah :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Icon X... Tidak boleh di close"
End If
End Sub

Demikianlah sehingga kode ini berakhir....

Macro Membuat Form Login Dan Register Anggota Di Excel

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 03:02:00 +0000

Untuk mengisi waktu, karena suntuk dengan kerjaan, aku coba membuat makro excel, Form Login dan Register Anggota, prosesnya ketika file workbook dibuka, user diminta memasukkan nama dan password, apabila nama user belum ada di data anggota, maka user diharuskan mendaftarkan diri, status user sendiri ada dua pilihan, apakah sebagai admin atau hanya user saja.

Makro tersebut merupakan gabungan antara rumus di worksheet dan VBA Makro, untuk kode makronya mungkin terlalu panjang dan rada ruwet, jadi kalau ada yang ingin memberikan masukan... monggo.

Sedangkan kodenya seperti dibawah ini:

Private Sub UserForm_Activate()
Dim ws As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
ws.Activate
ws.Range("A1:N50").Font.ColorIndex = 2
Range("B4").Select
LogNam.SetFocus
FrmDaf.Visible = False
End Sub

Private Sub Masuk_Click()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim ws2 As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
Set ws1 = Sheets("Admin")
Set ws2 = Sheets("User")
ws.Range("E4").Activate
ActiveCell.Value = LogNam.Value
ActiveCell.Offset(0, 1) = LogPwd.Value
LogNam.Value = ""
LogPwd.Value = ""
LogNam.SetFocus
If Range("I4").Value = True Then
MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " & Range("J4").Value
Me.Hide
Else
MsgBox "Nama Ama password salah... Kalau belum termasuk Anggota silahkan Daftar"
ws.Select
End If

If Range("J4").Value = "Admin" Then
ws1.Activate
ElseIf Range("J4").Value = "User" Then
ws2.Activate
Else
ws.Select
End If
LogNam.SetFocus
End Sub

Private Sub Daftar_Click()
FrmDaf.Visible = True
With Status
.AddItem "User"
.AddItem "Admin"
End With
End Sub

Private Sub Tambah_Click()
Dim Msg, Style, Title
Dim ws As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" Then
MsgBox "Data harus diisi semua"
DafNam.Value = ""
DafPwd.Value = ""
Status.Value = ""
DafNam.SetFocus
Else
ws.Range("B4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = DafNam.Value
ActiveCell.Offset(0, 1) = DafPwd.Value
ActiveCell.Offset(0, 2) = Status.Value
If Range("N4").Value > 1 Then
MsgBox "Data sudah ada coba cari yang lain"
Range("B4").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).ClearContents
DafNam.Value = ""
DafPwd.Value = ""
Status.Value = ""
DafNam.SetFocus
Else
Msg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"
Style = vbOKCancel + vbDefaultButton1
Title = "Konfirmasi"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
ws.Range("B4").Select
FrmDaf.Visible = False
LogNam.SetFocus
Else
Range("B4").End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).ClearContents
DafNam.Value = ""
DafPwd.Value = ""
Status.Value = ""
DafNam.SetFocus
End If
End If
End If
ws.Range("B4").Select
End Sub

Private Sub FrmDaf_Layout()
DafNam.Value = ""
DafPwd.Value = ""
Status.Value = ""
DafNam.SetFocus
End Sub

Untuk rumus di worksheet sendiri, merupakan rumus standar yaitu menggunakan vlookup dan gabungan text, serta rumus lainnya... lebih jauhnya... file bisa di DOWNLOAD disini

Mengubah Angka Menjadi Bilangan Pada Excel 2007

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 02:50:00 +0000

Sekarang aku coba bikin tulisan lagi... mengenai makro excel... buat yang master punten nyak... bukan maksud hati bersombong ria... cuman catetan aja... daripada harus mikir lagi, bila ada case yang sama.
Makro ini merupakan pembuatan rumus yang berfungsi untuk mengubah angka menjadi bilangan, contohnya di cel A1 ada angka 1.000 dan akan berubah menjadi "seribu" dengan mengetikkan rumus =ambil(A1)di cell yang lain... begicuuu....ocreh deh langsung tancap kodenya...

Function ambil(ByVal nilai As Currency) As String
Dim satuan As Variant satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai

    Case 0 To 11

        ambil = " " + satuan(Fix(nilai))

    Case 12 To 19

        ambil = ambil(nilai Mod 10) + " Belas"

    Case 20 To 99

        ambil = ambil(nilai / 10) + " Puluh" + ambil(nilai Mod 10)

    Case 100 To 199

        ambil = " Seratus" + ambil(nilai - 100)

    Case 200 To 999

        ambil = ambil(Fix(nilai / 100)) + " Ratus" + ambil(nilai Mod 100)

    Case 1000 To 1999

        ambil = " Seribu" + ambil(nilai - 1000)

    Case 2000 To 999999

        ambil = ambil(Fix(nilai / 1000)) + " Ribu" + ambil(nilai Mod 1000)

    Case 1000000 To 999999999

        ambil = ambil(Fix(nilai / 1000000)) + " Juta" + ambil(nilai Mod 1000000)

    Case Else

        ambil = ambil(Fix(nilai / 1000000000)) + " Milyar" + ambil(nilai Mod 1000000000)

End Select
End Function

beres... caranya tinggal ketik aja rumusnya... yaitu =ambil(tempat cell)... selesai

Sumber: Karsono.co.cc

Satu Tombol Fungsi Berbeda Setiap Kali Klik

noreply@blogger.com (Agoes Cho) — Wed, 10 Nov 2010 02:42:00 +0000

Tulisan ini bukan bermaksud untuk sok tahu ataupun menggurui, tetapi dikarenakan beberapa patah kata dari isteri saya... bahwa saya ini pelupa... saya akui... ya... tetapi kita juga harus melihat pepatah bahwa manusia tidak luput dari lupa....bener ga ya... au.... Pada intinya tulisan ini hanya untuk mengingatkan saya saja... tetapi kalo mo liat boleh aja... kebetulan saya juga lagi belajar... jadi apabila ada kekurangan mohon dikoreksi. Makro ini kebetulan pernah saya pakai pada di salah satu tempat kerja saya dulu.... Ceritanya saya ingin melakukan hide dan unhide row yang berisi data laporan dari global ke detail, tetapi disini saya hanya menceritakan mengenai bagaimana command button tersebut bekerja, jadi tidak termasuk pembuatan laporannya... berabe ntar... langsung aja...

Buka Excel tentunya, saat ini paling nyaman pake 2003.. klo menurutku...
Buka Control Toolbox, yang bisa ditemui dengan klik kanan jendela window
Kemudian buat comand button
Klik kanan Command button tersebut untuk masuk ke jendela VBA Macro
Copy deh kode di bawah ini ... dan liat hasilnya

Dim click As Boolean 'disiniliah inti dari perintah ini, yaitu mendefinisikan klik sebagai benar atau salah

Sub CommandButton1_Click() 'perintah dari button

click = Not click
'kode dibawah adalah perintah pertama command button ketika di klik

If click Then
Range("7:34").Select

         Selection.EntireRow.Hidden = True

      'dan ini adalah kondisi apabila command button di klik untuk yang kedua kali
     Else

Range("7:34").Select

Selection.EntireRow.Hidden = False

End If

        Range("a1").Select 'sel a1 dipilih
End Sub

Hasil dari perintah di atas adalah apabila command button diklik untuk pertama kali maka
    Range("7:34") akan di hide
kemudian apabila command button diklik untuk kedua kali maka
   Range("7:34") akan di uhide

Begitulah cerita ini berakhir...

Sumber: Karsono.co.cc

Copy Multi Sheet Excel

noreply@blogger.com (Agoes Cho) — Tue, 09 Nov 2010 05:25:00 +0000

Setelah sekian lama, dihadapkan pada permasalahan dunia, akhirnya bisa bikin postingan juga, walaupun pikiran terpecah belah.
Tetapi pertanyaan, seperti sebuah tantangan, dan hal tersebut seperti sebuah hiburan, melepaskan semua permasalahan walau sejenak.
Halah... koq jadi curhat, langsung saja, copy multi sheet excel ini aku bagi menjadi 3 perintah :

Melakukan Copy berdasarkan range yang telah ditentukan
Melakukan copy berdasarkan kolom masing-masing sheet yang telah ditentukan
Melakukan Copy Data sheet saja disetiap worksheet yang ada

Langsung saja kodenya bisa dilihat dibawah ini:

Option Explicit
Dim ws As Worksheet
Dim ws1 As Worksheet

Sub copymultirangesheet()

On Error Resume Next
'kalau ada sheet hasil maka delete tanpa peringatan
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("HASIL").Delete
Application.DisplayAlerts = True

'menambahkan sheet dengan nama HASIL
Set ws = ActiveWorkbook.Worksheets.Add
ws.Name = "HASIL"

For Each ws1 In Worksheets
If ws1.Name <> "HASIL" Then 'untuk worksheet yang namanya tidak sama dengan HOME
ws1.Range("A2:E2").Copy 'copy range A2:E2
ws.Range("A1:E1").Value = ws1.Range("A1:E1").Value 'membuat judul
With ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) 'copy range ke worksheet HASIL
.PasteSpecial (xlPasteValues)
.PasteSpecial (xlPasteFormats)
End With

End If
Next ws1
With ws 'kondisi untuk hasil copy di sheet HASIL
.Range("A1:E1").Font.Bold = True
.Columns.AutoFit
.Range("A1").Select
End With
End Sub
Sub copymultikolomsheet()
'kalau ada sheet hasil maka delete tanpa peringatan
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("HASIL").Delete
Application.DisplayAlerts = True

'menambahkan sheet dengan nama HASIL
Set ws = ActiveWorkbook.Worksheets.Add
ws.Name = "HASIL"

For Each ws1 In Worksheets
If ws1.Name <> "HASIL" Then 'untuk worksheet yang namanya tidak sama dengan HOME
ws1.Range("A:A").Copy 'copy data di kolom A

With ws.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) 'paste ke sheet hasil
.PasteSpecial (xlPasteValues)
.PasteSpecial (xlPasteFormats)

End With

End If

Next ws1
With ws 'kondisi untuk di sheet HASIL
.Range("A:A").Delete
.Range("A1:E1").Font.Bold = True
.Columns.AutoFit
.Range("A1").Select
End With

End Sub
Sub copymultidatasheet()
Dim rngku As Range

'kalau ada sheet hasil maka delete tanpa peringatan
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("HASIL").Delete
Application.DisplayAlerts = True

'menambahkan sheet dengan nama HASIL
Set ws = ActiveWorkbook.Worksheets.Add
ws.Name = "HASIL"

For Each ws1 In Worksheets
Set rngku = ws1.Range("A2", ws1.Cells(ws1.UsedRange.Row + ws1.UsedRange.Rows.Count, ws1.UsedRange.Column + ws1.UsedRange.Columns.Count)) 'setting range untuk di copy
If ws1.Name <> "Hasil" Then
rngku.Copy
ws.Range("A1:E1").Value = ws1.Range("A1:E1").Value
With ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'copy data ke sheet HASIL
.PasteSpecial (xlPasteValues)
.PasteSpecial (xlPasteFormats)
End With
End If
Next ws1
With ws 'kondisi untuk sheet HASIL
.Range("A1:E1").Font.Bold = True
.Columns.AutoFit
.Range("A1").Select
End With

End Sub

Contohnya bisa di langsung di DOWNLOAD disini

Entry Data Dari Beberapa File Workbook Excel

noreply@blogger.com (Agoes Cho) — Mon, 08 Nov 2010 05:20:00 +0000

Dilihat dari judulnya, kayaknya menarik... menurutku loh...

Proses dari Entry Data ini adalah dengan menggunakan beberapa workbook untuk membuka form entry data, dan menyimpan hasil entry datanya ke satu file workbook master.

Tapi form ini baru aku coba di satu komputer, jadi bagaimana hasilnya bila di entry data-nya dari beberapa komputer... mungkin bisa di coba sendiri.

Dan untuk kodenya bisa di pelajari di bawah ini:

Private Sub CommandButton1_Click()
Dim rc As Long
Dim fileku As String
Dim wb As Workbook

Application.ScreenUpdating = False
fileku = ActiveWorkbook.Path
rc = ActiveSheet.UsedRange.Rows.Count 'menghitung jumlah baris yang ada

With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value 'baris akhir kolom A yang kosong, sama dengan nilai textbox nama
.Offset(rc, 1).Value = Me.TextBox2.Value 'baris akhir kolom B yang kosong, sama dengan nilai textbox barang
.Offset(rc, 2).Value = Me.TextBox3.Value 'baris akhir kolom C yang kosong, sama dengan nilai textbox penjualan
End With
ThisWorkbook.Save
Workbooks.Open fileku & "" & "Master.xls" 'buka workbook master
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value
.Offset(rc, 1).Value = Me.TextBox2.Value
.Offset(rc, 2).Value = Me.TextBox3.Value
.Offset(rc, 3).Value = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 'nama dari workbook yang entry
End With

wb.Save
wb.Close 'tutup workbook master
Application.ScreenUpdating = True
Unload Me
Entry_Form.Show
End Sub

Untuk saat ini cukup sekian dulu, dan jika ingin mempelajari lebih lanjut file bisa di DOWNLOAD disini.Mohon informasinya apabila ada perbaikan yang lebih keren, soalnya aku juga mo belajar...

Membuka Situs yang Diblokir

noreply@blogger.com (Agoes Cho) — Sun, 07 Nov 2010 20:09:00 +0000

Akhir-akhir ini Blogspot dan situs-situs tertentu yang tidak ada kaitannya dengan pornografi tidak dapat diakses dengan menggunakan koneksi Telkom Speedy. Blogspot hanya dapat diakses pada jam-jam tertentu. Blogspot merupakan layanan blog gratis terbesar besutan Google. Saya pribadi kecewa terhadap layanan Telkom yang menpunyai jargon "Akses Internet Cepat" ini karena ada beberapa blog yang menjadi sumber inspirasi tidak dapat saya akses. Meskipun domain blogspot.com tidak dapat diakses namun kita tetap dapat sign in di blogger untuk meng-upadate blog. Saya belum tahu apa yang terjadi mengapa domain yang berakhiran blogspot.com tidak dapat diakses, namun ketika sign in di Blogger yang merupakan server dari blogspot dapat diakses. Mungkin saja pihak Telkom memblokir semua domain yang berakhiran blogspot.com atas rekomendasi seorang pakar telematika berinisial RS yang menyatakan blogger=hacker terkait aksi deface yang menimpa salah satu halaman situs Depkominfo beberapa waktu lalu yang memuat gambar sang pakar telematika tersebut.

Membuka Situs yang di Blok

Setelah menyadari blogspot.com tidak dapat akses, saya mencoba googling untuk bisa mengakses blogspot.com. Berikut beberapa cara untuk mengatasi situs yang kena blokir termasuk blogspot.com :

Menggunakan web proxy. Salah satu cara tercepat untuk mengakses situs yang kena blok adalah menggunakan web proxy. Kamu dapat mencari web proxy yang paling handal dengan googling dan masukkan keyword "web proxy". Sebagai contoh dan yang selalu pakai adalah www.guardster.com/subscription/proxy_free.php. Setelah menemukan situs penyedia proxy, kamu tinggal masukkan alamat situs/URL yang ingin kamu kunjungi. Salah satu kelemahan menggunakan web proxy adalah akses menjadi lebih lambat karena halaman/page yang kamu buka harus melewati proxy tersebut sebelum di transfer ke komputer kamu.

Mengunakan IP proxy server.
Menurut Wikipedia, Proxy server adalah sebuah komputer server atau program komputer yang dapat bertindak sebagai komputer lainnya untuk melakukan request terhadap content dari Internet atau intranet.
Proxy Server bertindak sebagai gateway terhadap dunia Internet untuk setiap komputer klien. Proxy server tidak terlihat oleh komputer klien. Seorang pengguna yang berinteraksi dengan Internet melalui sebuah proxy server tidak akan mengetahui bahwa sebuah proxy server sedang menangani request yang dilakukannya. Web server yang menerima request dari proxy server akan menginterpretasikan request-request tersebut seolah-olah request itu datang secara langsung dari komputer klien, bukan dari proxy server.
Berikut langkah-langkah untuk setting proxy server dengan browser favorite saya yaitu Mozilla Firefox : 1. Buka Mozila Firefox 2. klik menu Tools, pilih Options 3. Pilih tab Advanced, pilih tab Network, pilih settings 4. Pilih Manual proxy configurations 5. Isikan IP proxy server, misal: 203.144.160.248 port: 8080. 6. Beri tanda centang pada use this proxy for all protocols. 7. Kunjungi situs yang ingin dibuka, misal http://atlantisnetwork.blogspot.com.
Untuk mencari IP Proxy Server gunakan mesin cari Google dan masukkan kata kunci "free proxy server". Pilihlah IP yang mempunyai koneksi bagus secara trial and error dan carilah dari negara terdekat (Australia, Thailand, India, dll) agar koneksi bisa berjalan secara stabil.

Jika menurut kamu artikel ini berguna, tinggalkan saran dan komentar maupun pertanyaan di kotak komentar. Selamat mengakses internet dengan bijaksana.

Copy Multi File Excel Di Satu Folder

noreply@blogger.com (Agoes Cho) — Sun, 07 Nov 2010 05:15:00 +0000

Posting ini aku buat, karena banyaknya request mengenai copy multi file excel.
Sebelumnya aku pernah membuat postingan mengenai copy data multifile excel yang bersifat dasar.

Sekalian mo kasih informasi kalau tulisan di blog ini, aku buat bukan karena sok tahu atau sok ngajarin, tetapi sebagai catatan dan pembelajaran bagi aku secara pribadi, dan syukur ada gunanya bagi orang lain, tetapi karena blog ini bisa dilihat siapa saja, jadi yach mohon maaf apabila ada kesalahan.

Langsung saja ke penjelasan perihal postingan ini, dimana prosesnya adalah melakukan copy data sheet 1, dari semua file excel di folder yang telah ditentukan, dan melakukan paste value pada sheet baru.

Sedangkan untuk kodenya adalah :

Sub copy_multIfile_dIfolder()
Dim foldr As String
Dim nwb As Workbook
Dim lwb As Workbook
Dim nws As Worksheet
Dim ws As Worksheet
Dim fileku As String
Dim rngku As Range
Dim rnum As Long

foldr = ThisWorkbook.Path & "fileku" 'kondisi foldr sebagai alamat folder fileku
Set nwb = Workbooks.Add(1) 'tambah sheet
Set nws = nwb.ActiveSheet 'sheet baru menjadi aktIf
Set ws = Sheets(1) 'setting ws sebagai sheet 1

'kondisi jika dibelakang folder tidak ada tanda ""
If Right(foldr, 1) <> "" Then
foldr = foldr & ""
End If

'kondisi jika tidak ada file di folder fileku
fileku = Dir(foldr & "*.xl*")
If fileku = "" Then
MsgBox "tidak ada file excel"
Exit Sub
End If

Do Until fileku = ""
If foldr <> ThisWorkbook.Path Or fileku <> ThisWorkbook.Name Then
Set lwb = Workbooks.Open(Filename:=foldr & fileku)
'kondisi untuk setiap sheet 1
For Each ws In lwb.Worksheets
'setting range yang akan di copy
Set rngku = ws.Range("A2", ws.Cells(ws.UsedRange.Row + ws.UsedRange.Rows.Count, ws.UsedRange.Column + ws.UsedRange.Columns.Count))
'membuat judul
If rnum = 0 Then
nws.Range("A1", nws.Cells(1, rngku.Columns.Count)).Value = ws.Range("A1", ws.Cells(1, rngku.Columns.Count)).Value
rnum = 1
End If
'copy data dari file sumber ke sheet baru
rngku.Copy
nws.Range("A" & rnum + 1).Resize(rngku.Rows.Count, rngku.Columns.Count).PasteSpecial xlPasteValues
rnum = rnum + rngku.Rows.Count - 1
Next
lwb.Close False
End If
fileku = Dir() 'setting nama file menjadi variable
Loop

nwb.Sheets(1).Select
Application.EnableEvents = True
Application.ScreenUpdating = True

'membersihkan memory
Set nwb = Nothing
Set nws = Nothing
Set ws = Nothing
Set lwb = Nothing
Set rngku = Nothing
End Sub

Demikianlah sehingga postingan ini berakhir, mohon informasinya apabila ada kesalahan.
Dan sekali lagi file bisa langsung di Download disini.

Membuat Daftar Isi Otomatis Dengan Ms.Word

noreply@blogger.com (Agoes Cho) — Sat, 06 Nov 2010 09:27:00 +0000

Membuat halaman daftar isi terkadang sangat sulit dilakukan manual apabila jumlah halaman yang kita buat lebih dari ratusan halaman,,wah sungguh merepotkan!

Namun ternyata lebih mudah apabila kita menggunakan fasilitas yang sudah ada pada Ms.Word [klo ga salah sich setiap Ms.Office ada dech fasilitas ini].

Sebenernya sederhana banget cara yang digunakan disini,,kira2x seperti ini:

Buka file document yang kita akan buat daftar isinya [jika belum dibuat, silahkan dibuat terlebih dahulu]
Blok setiap kata yang nanti akan dimasukkan kedalam daftar isi [biasanya judul bab, tema, atau lain sebagainya]
Pada menu pilihlah Format -> Style and Formatting
Sekarang kita akan menggunakan Style and Formatting terutama untuk penggunaan heading! Pada bagian yang sudah kita blok tadi berikanlah format Heading 1 dan tulisan yang kita blog akan berubah menjadi lebih besar [jika dianggap ukuran tulisan terlalu besar silahkan diatur ukuran tulisan tsb]
Sediakan halaman kosong pada halaman awal,,jika blm ada bisa ditambahkan terlebih dahulu dengan menekan tombol dikeyboard Alt+Enter (page break)
Pada bagian menu, pilihlah Insert -> Refrence -> Index and Tables
Setelah muncul kotak dialog Index and Tables,,klik pada tab Tables of Contents
Selanjutnya biarkan saja settingan yang ada, kecuali pada bagian tab leader silahkan dirubah sesuai dengan keinginan kita
Jika sudah,,selanjutnya klik tombol OK
Hasilnya kira2x seperti ini!

Tampilan daftar isi

Tambahan:

Untuk penggunaan sub bab, saya menggunakan Header 2 , agar tulisan didaftar isi jadi lebih menjorok kedalam
Untuk penggunaan sub-sub bab, saya menggunakan Header 3.

Oke,sekian tutorial ini…silahkan dicoba, dan jgan lupa kritik sarannya!

Print Halaman Ini