Silahkan Pilih

Archive for 2014

Indonesian Capital Market Diretory (ICMD) 2002 - 2013 Free Download

By : AdiMPS

Bagi yang belum mengetahui apa itu ICMD tenang saja, saya akan bantu untuk menjelaskan tentang ICMDJadi, ICMD adalah produk dari ECFIN yang berfungsi sebagai sumber referensi untuk melakukan pencarian terkait data keuangan perusahaan yang ada di indonesia.





ICMD mencakup data sebagai berikut :

1. Daftar semua perusahaan diindonesia
2. Ranking perusahaan
3. Klasifikasi perusahaan
4. Data keuangan lainnya (Obligasi,sekuritas)

Dengan ICMD kita dapat mengetahui perusahaan mana saja yang sudah GO publik/data lain semisal,pergerakan harga saham. ICMD saat ini telah menjadi sumber acuan bagi investor,pemerintah, pelaku pasar modal, sampai pada mahasiswa dalam mengerjakan skripsi.Disini saya akan bagikan ICMD 2002-2013 yang banyak di cari untuk kepentingan bisnis/penelitian/skripsi saat ini.

Silahkan download pada link dibawah ini :
ICMD 2013  Download
ICMD 2012  Download or here
ICMD 2011  Download
ICMD 2010  Part 1   Part 2
ICMD 2009  Part 1   Part 2
ICMD 2008  Download
ICMD 2007  Download
ICMD 2006  Download
ICMD 2005  Download or here
ICMD 2004  Download
ICMD 2003  Download
ICMD 2002  Download  

Alternative Link
ICMD 2011  Download
ICMD 2010  Part 1  Part 2
ICMD 2008  Download or here
ICMD 2007  Part 1  Part 2
ICMD 2006  Download
ICMD 2005  Download or here
ICMD 2004  Download
ICMD 2003  Download
ICMD 2002  Download or here

password : martintobing.com
password ICMD 2013 : eugene
Notice : saat download dari ziddu hilangkan tanda centang pada tulisan "download with ziddu accelerator and get recommended offers" atau jangan pakai idm saat download di ziddu.

sumber: http://media2give.blogspot.com/

Kode VBA Excel

By : AdiMPS

Auto Run

Ada beberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membuka workbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka.
Sub Auto_Open( )
Msgbox “hi”
End Sub
Private Sub Workbook_Open( )
Msgbox “hi”
End Sub

Menghitung Rows, Columns dan Sheet

Kode berikut digunakan untuk menghitung berapa jumlah rows (baris) atau columns(kolom) yang telah kita sorot dengan kursor.
Sub Hitung( )
hitung_baris = Selection.Rows.Count
hitung_kolom = Selection.Columns.Count
MsgBox hitung_baris & " " & hitung_kolom
End Sub
Sub hitung_sheet( )
hitung_sheet = Application.Sheets.Count
Msgbox hitung_sheet
End Sub

Meng-kopi Range

Contoh berikut akan meng-kopi range A1 sampai A3 ke D1 sampai D3
Sub Kopi_Range( )
Range (“A1:A3”).Copy Destination:=Range(“D1:D3”)
End Sub

Waktu Sekarang

Contoh berikut akan menampilkan waktu pada saat ini
Sub sekarang( )
Range (“A1”)= Now
End Sub

Mengetahui Posisi Sel yang Sedang Aktif

Sub posisi( )
baris = ActiveCell.Row
kolom = ActiveCell.Column
Msgbox baris & “,” & kolom
End Sub

Menghapus Baris yang Kosong

Sub hapus_baris_kosong( )
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next I
End Sub
Menebalkan dan Mewarnai Huruf (Font)
Contoh berikut akan menebalkan dan memberi warna merah pada huruf dimana sel sedang aktif.
Sub tebal_merah( )
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End Sub

Mengirimkan Workbook melalui Email

Sub email( )
ActiveWorkbook.SendMail recipients:= ”excel@ahoo.c”
End Sub

Fungsi Excel

Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi round untuk membulatkan sebuah angka, dalam spreadsheet akan terlihat seperti ini
= round(1.2367, 2)
Dalam VBE Anda cukup menggunakan Application kemudian disusul fungsi yang akan dipakai.
Sub bulat( )
ActiveCell = Application.Round(ActiveCell, 2)
End Sub

Menghapus Nama-Nama Range

Contoh berikut akan menghapus semua nama-nama range di dalam workbook Anda
Sub hapus_nama_range( )
Dim NameX As Name
For Each NameX In Names
ActiveWorkbook.Names(NameX.Name).Delete
Next NameX
End Sub

Layar Berkedip

Program dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut.
Application.ScreenUpdating = False

Menuju Range Tertentu

Untuk menuju suatu range tertentu, kode-kode berikut dapat digunakan.
Application.Goto Reference:=”A1”
Atau,
Range(“A1”).Select

Menuju Sheet tertentu

Sedangkan untuk menuju worksheet tertentu, gunakan kode-kode berikut.
Sheets(1).Select
Atau
Sheet1.Select
Untuk menuju Sheet terdepan (nomor 1)
Sheet(“coba”).Select
Untuk menuju Sheet bernama “coba”

Menyembunyikan WorkSheet

Kode berikut berfungsi untuk menyembunyikan Sheet1
Sheet1.Visible = xlSheetVeryHidden
Pengguna tidak dapat membuka sheet yang telah disembunyikan dengan cara ini, hanya dengan kode VBE sheet dapat dibuka kembali.

Input Box

Kode berikut berguna untuk memunculkan Input Box
InputBox(“Masukkan Nama”)

Menyisipkan Baris dan Kolom

Kode berikut akan menyisipkan baris diatas range A1,
Range(“A1”).Select
Selection.EntireRow.Insert
Sedang yang berikut akan menyisipkan satu kolom disamping kiri range A1,
Range(“A1”).Select
Selection.EntireColumn.Insert

Mengatur Ulang Ukuran Range

Selection.Resize(7,7).Select

Memberi Nama Range

Selection.Name = “nama”

Menyimpan File

Kode berikut berguna untuk menyimpan file tanpa memberi nama,
ActiveWorkbook.Save
Sedangkan bila Anda hendak memberi nama (SaveAs), gunakan kode berikut,
ActiveWorkbook.SaveAs Filename:=”C:\coba.xls”

Penjadwalan

Kadang-kadang kita hendak menjadwalkan sebuah tugas kepada Excel, contohnya menyimpan file pada jam-jam tertentu. VBE dapat melakukannya dengan menggunakan fungsiApplication.OnTime. Sebagai contoh, kode dibawah ini akan menjalankan prosedur Simpan( )pada jam 12:00 dan 16:00, prosedur Simpan( ) sendiri berisi perintah untuk menyimpan file,
Sub tugas()
Application.OnTime TimeValue("12:00:00"), "Simpan"
Application.OnTime TimeValue("16:00:00"), "Simpan"
End Sub
Sub Simpan()
ActiveWorkbook.Save
End Sub
Bila Anda hendak merubah jamnya, missal jam 10:03:05, maka rubah TimeValue menjadiTimeValue(“10:03:05”).
Sedangkan bila Anda hendak melakukannya satu jam setelah prosedur tugas( ) dijalankan maka rubahlah kodenya seperti demikian,
Sub tugas()
Application.OnTime Now + TimeValue("01:00:00"), "Simpan"
End Sub
Perhatikan penambahan kata “Now”. Kode-kode di atas bekerja bila disimpan dalam module, bula Anda ingin menyimpannya di dalam Sheet1 (atau worksheet manapun), maka rubahlah “Simpan” menjadi Sheet1.Simpan
Tag : ,

Tips : Menandai Seluruh Sel yang berisi Rumus

By : AdiMPS

kadang kita perlu mengetahui sel apa saja yang berisi rumus, sehingga akan memudahkan kita untuk merunut kesalahan atau mengetahui hubungan antar isi sel.

Secara manual, tidak ada cara untuk menandai sel yang berisi rumus ini, kecuali dengan memilihnya satu persatu, sehingga hal ini akan sangat membutuhkan waktu dan tidak efektif
Padahal sebenarnya, Excel 2007 telah menyediakan fasilitas untuk memilih sel yang berisi rumus, yaitu pada tab HOME / Finds&Select/Formulas
tandai-formula-di-excel
Setelah menu diatas diklik, maka seluruh sel yang berisi rumus, akan ditandai secara otomatis. Secara default tandanya adalah sel berwarna abu-abu muda. Tentu penandaan ini tidak terlalu kelihatan.
Kalau ingin cell background yang lebih berwarna berani, anda bisa mengganti warnanya di Home/Fonts dan pilih Fill Color atau Font Color.
merubah-warna-sel-berisi-rumus

Kelemahan

Satu-satunya kelemahan dari penandaan formula dengan cara ini adalah, apabila anda kemudian menghapus salah satu sel yang berisi formula, lalu menuliskan formula di sel yang lain, maka sel yang dihapus maupun sel yang ditulis formulanya tidak bisa langsung ditandai, atau dihilangkan tandanya, kecuali anda mengulangi perintah HOME / Finds&Select/Formulas lagi.

Tips Tambahan

Tidak hanya formula saja yang bisa dipilih. Anda bisa memilih semua komentar (comments), konstant (constants), Validasi data (data validation) dan sebagainya Silahkan dicoba sendiri
Tag : ,

Tips Mengkopi Rumus Secara Cepat

By : AdiMPS


Pada suatu tabel, sering kita mencoba untuk mengkopi rumus karena rumusnya sama. Misalkan situasi dimana kita ingin membuat nilai New Salary yang mana Salary ditambah dengan 3.21%. Lihat contoh gambar dibawah ini
copy-rumus
Pada gambar diatas, kita telah membuat rumus sel New Salary yaitu =F2*$J$1+F2, dimana J1 berisi 3.21%. Maksud rumus diatas, adalah hitung kolom New Salary berupa penambahan 3.21% dari kolom Salary
Biasanya setelah menulis rumus diatas, kita akan mengkopi rumus tersebut dengan menarik kotak hitam kecil di Kolom H2 ke bawah, seperti gambar.

Tips 3. Copy Rumus

Namun ada cara cepat untuk mengkopi rumus tersebut, yaitu double klik saja pada kotak kecil hitam yang biasanay kita seret kebawah itu.
Hasilnya adalah, seluruh sel pada kolom New Salary sampai ke bawah akan terisi dengan rumus tersebut

Catatan:

Bila ada satu atau beberapa kolom di samping kiri atau kanan rumus ada yang kosong, maka double klik hanya akan berhenti sampai tempat kosong tersebut. Ini tentu mengesalkan, karena kita harus kembali mengkopi rumus dengan cara menggeser.
Nah untuk mengatasi hal seperti ini, pastikan bahwa disamping kiri dan kanan rumus yang dikopi, tidak ada sel kosong. Hal ini bisa dilakukan dengan cara : Menyembunyikan sel yang kosong tersebut. Caranya dengan klik kolom yang ingin disembunyikanklik kanan lalu pilih Hide.
RUANGKOSONG
hide_kolom
Pada intinya, agar double klik bisa mengkopi rumus secara otomatis, kolom di sebelah kiri atau kanan rumus tidak boleh kosong.
Tag : ,

- Copyright © AdiMPS - - Powered by Blogger - Designed by -