Posts tagged ‘Ms Excel’

Cari Nilai Tertinggi dan Namanya

Pertanyaan Pak Martono dari Pakisaji – Malang:
Bagaimana mencari nilai tertinggi sekalian dengan namanya ( bisa jadi nilai tertinggi ada dua orang atau lebih) digunakan untuk mencari nilai tertinggi untuk ujian, thank

Berikut solusinya:
Untuk mencari nilai tertinggi bisa digunakan fungsi Max() sedangkan untuk mencari nama bisa digunakan index atau vlookup.  Contoh berikut menggunakan fungsi Index(), Match() dan Max() dapat di download disini.

Nama Nilai Nilai tertinggi
Achmad 46 Dipo dengan nilai  88
Amir 21
Andi 42 dengan rumus
Budi 60 INDEX(A2:B11,MATCH(MAX(B2:B11),$B$2:$B$11,0),1)& ” dengan nilai  ” &MAX(B2:B11)
Badrun 86
Bakti 68
Dimas 50
Dipo 88
Sujiwo 69
Suharto 38
Advertisements

May 3, 2009 at 3:51 pm 3 comments

Pivot Table and Examples 2

Pivot Table adalah cara yang cepat dan mudah untuk meringkas sebuah tabel data yang besar.

Berikut contoh lainnya dari tabel yang dapat langsung anda download:

(more…)

April 6, 2009 at 4:28 pm 3 comments

Memilih Directory dng UserForm

Kadang kita perlu mengambil file dari directory tertentu dalam aplikation Excel. Kita dapat menggunakan method GetOpenFileName untuk mendisplay sebuah user dialog yang meminta sebuah file (file name), akan tetapi kita tidak diberi pilihan untuk mendisplay sebuah dialog box that yang menunjukkan hanya directory saja. Dalam tulisan ini saya mencobah menyajikan sebuah fungsi yang diberi nama AmbilDirektori yang akan menampilkan dialog box seperti di bawah ini dan menghasilkan string yang menunjukkan directory yang terpilih. Jika user anda mengklik cancel, maka fungsi ini akan menghasilkan string kosong (empty). Fungsi AmbilDirektori memerlukan satu argument, tapi tidak wajib (optional). Argumen ini adalah variable a string yang akan ditampilkan dalam dialog box. Jika argumen tidak disertakan maka dialog box menampilkan pesan Pilih folder.

AmbilDirektori function

Fungsi AmbilDirektori adalah sebagai berikut. Untuk menggunakannya cukup copykan ke module VBA. Sebagai alternatif ambil contoh disini

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
’32-bit API declarations
Declare Function SHGetPathFromIDList Lib “shell32.dll” _
Alias “SHGetPathFromIDListA” (ByVal pidl As Long, ByVal pszPath As String) _
As Long
Declare Function SHBrowseForFolder Lib “shell32.dll” _
Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long
Sub UjiCoba()
Dim Msg As String
Msg = “Contoh: Pilih lokasi untuk backup.”
MsgBox AmbilDirektori(Msg)
End Sub
Function AmbilDirektori(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = “Pilih folder.”
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
AmbilDirektori = Left(path, pos – 1)
Else
AmbilDirektori = “”
End If
End Function


Cara menggunakan fungsi AmbilDirektori

Berikut subrutin sederhana untuk memakai fungsi AmbilDirektori

Sub UjiCoba()

Dim Msg As String

Msg = ” Contoh: Pilih lokasi untuk backup!!”

MsgBox AmbilDirektori(Msg)

End Sub

March 9, 2009 at 12:51 pm Leave a comment

Extools User Guide

Extools  – Free Excel spreadsheet editing tools user guide

Below is a list of tools and utilities, built with Excel macros (Excel VBA), available in Extools and Extools RX free add-in software for Microsoft Excel (Excel 97, 2000, 2002, 2003). You can even treat this page as a tutorial for Extools and Extools RX Excel add-in.

You will find the tools provided by Extools and Extools RX free Excel spreadsheet add-in software useful for project management, scheduling, budget, accounting – well, just about any simple or complicated spreadsheet task can benefit from the features.

Introduction

ExTools is a free add-in software program for Microsoft Excel (Windows). It is designed to make your work with Excel more productive as it provides many features that make spreadsheet editing much easier.
(more…)

September 16, 2008 at 1:46 pm 1 comment

Add Ins ExTools

Add-Ins Excel Extools adalah program/Add Ins yang dapat membantu kita sehingga bisa bekerja lebih produktif di Excel. Program ini disediakan gratis di website http://www.excel-extool atau download file untuk Excel 97-2003 -extools20 atau Excel 2007 – extools_rxUntuk user guide klik berikut Petunjuk Extools English

(more…)

September 16, 2008 at 1:41 pm Leave a comment

Membuat Daftar Data Dalam Kolom Excel

Kalau anda mempunyai tabel  dengan ribuan data dan sebagian besar merupakan isinya sama (data duplikasi), bagaimana caranya mengenerate daftar dengan isi yang unik (masing-masing hanya satu data berlainan yang tampil dalam satu kolom ?

Ada dua cara untuk mendapatkannya yaitu: pertama dengan menggunakan fungsi Data | Autofilter, kemudian klik drop-down list untuk kolom yang diperlukan. Dengan melakukan perintah di atas anda akan mendapatkan daftar data unik di layar.  Kalau dengan cara ini anda cukup puas, maka permasalahan sudah selesai.

Cara yang kedua adalah jika anda perlu memiliki daftar yang unik yang dapat dicopy dan paste kan ke range (kolom) lainnya. Untuik menghasilkan daftar yang unik tersebut, maka anda perlu menggunakan perintah Data | Filter | Advanced Filter.  Contoh di bawah ini adalah cara untuk mendapatkan daftar tersebut di atas. Kita akan menggunakan kolom B pada Gambar 1.

Gambar 1

Gambar 1

  1. Klik kolom pada  label hurufnya untuk memilih seluruh kolom yang berisi data dan copy dengan cara menekan Ctrl + C,  ke menu Edit | Copy, atau dengan menekan icon Copy pada toolbar Standard . (Memilih seluruh kolom karena anda perlu seluruh isi data beserta judul kolomnya).
  2. Mem-Paste-kan data tersebut ke kolom lain (misalnya Kolom E)yang (ingat beri jarak dengan range sumber data),  atau pada sheet baru. Setelah anda melakukan paste, kolom B masih tetap terpilih (lihat ada garis putus-putus disekeliling Kolom B). Akan tetapi jika anda secara tidak sengaja telah membatalkan peritah select, pastikan bahwa petunjuk sel (cell pointer) berada di dalam data yang baru anda paste (kolom E) sebelum melanjutkan. Catatan: Anda tidak perlu memilih seluruh data atau men-sort (urut data) dahulu untuk melakukan perintah ini.
  3. Ke menu Data | Filter | Advanced Filter. Secara otomatis, Excel akan menunjukkan bahwa filtering telah aktif. Kita lanjutkan saja, yaitu dengan memilih opsi copying the unique records to another location, sehing anda dapat membandingkan kedua daftar secara berdampingan.
  4. Pilih opsi (radio button) Select the Copy To Another Location (Gambar 2), pilih opsi Check Box  Unique Records Only , dan ketik G1 pada input Copy To field.
  5. Klik OK, dan Excel akan mengcopykan daftar dengan data unik dari kolom sumber data ( kolom E) ke kolom baru ( kolom G). Bahkan hasinya akan urut abjad , seperti yang tampak pada Gambar 3

Gambar 2

Gambar3

Selamat berkarya !!!!

September 4, 2008 at 4:21 pm 2 comments


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 13 other followers

Blog Stats

  • 106,381 hits

Twitter Updates

Iklan