Posts tagged ‘Vba Excel’

vba Bekerja dengan Workbooks

Berikut ini beberapa procedure vba yang digunakan untuk mengecek….

(Kode-kode berikut diperoleh dari OZGRID)

  • Apakah Workbook terbuka atau tidak.
  • Apakah Workbook ada dalam  file dan folder .
  • membuka Semua Workbooks folder tertentu .
  • Apakah  Worksheet tertentu ada dalam active Workbook .
  • Apakah  nama range tertentu ada dalam active Workbook .
  • A range is hidden by Auto Filters .
  • Count how many pages will be printed .
 (more…)
Advertisements

April 12, 2009 at 5:44 am 3 comments

Menampilkan Pesan Pada Workbook

Berikut adalah contoh VBA Excel yang dapat digunakan sebagai antar muka dengan user yang menampilkan pesan pada saat user membuka workbook (file) excel.  Selain menampilkan pesan, kegunaan dari sub routine ini bisa dikembangkan menjadi counter (penghitung) berapa kali user memakai workbook.  Misal kita memiliki aplikasi yang dikembangkan dengan excel yang harus berbayar, dan memperbolehkan user untuk memakai beberapa kali (uji coba) sebelum workbook tersebut dibayar.

Berikut tampilannya:     Download File pesan dng Counter workbook.xls

pesan

March 13, 2009 at 3:00 am 2 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

Font Blinking di Excel

Excel tidak punya fitur untuk membuat teks berkedip.  (catatan: blinking teks sangat mengganggu orang yang membaca pesan anda jika pesannya banyak). Untuk membuat teks berkedip, Anda harus menjalankan prosedur secara berkala untuk mengubah warna font teks. Metode OnTime dalam VBE dapat digunakan untuk menjalankan prosedur itu. Anda dapat menggunakan module VBA sbb:

Download file:  Blinking excel 2007.zip

Blinking excel 97-2003.zip

Prosedur untuk Teks Blinking

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets(“Sheet1”).Range(“A1”).Font
If .ColorIndex = 3 Then ‘ Red Text
.ColorIndex = 2 ‘ White Text
Else
.ColorIndex = 3 ‘ Red Text
End If
End With
RunWhen = Now + TimeSerial(0,0,1)
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets(“Sheet1”).Range(“A1”).Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , False
End Sub

Kemudian dalam module ThisWorkbook, masukan kode berikut:

Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

November 10, 2008 at 2:56 pm 3 comments

Mengubah Angka Ke Kata – English

Untuk mengubah angka ke kata dalam bahasa Inggris menggunakan fungsi dengan VBA
Yang menggunakan fungsi dapat mendownload file numstowords_vba.zip. yang punya kemampuan sbb:

  • Fungsi NumsToWords(), dengan parameter yang dapat diubah mata uangnya dan format.
  • Contohnya apat dilihat dalam worksheet yang anda download
  • PLUS…Jika anda alergi terhadap VBA..Jangan Takut be!…Click tombolnya dan fungsi tersebut akan otomatis diexport ke workbook yang sedan terbuka atau anda buka tanpa harus mengubah-ubah programnya.
  • Fimgsi ini dibuat oleh Ron Coderre

123.45

Diubah menjadi: One Hundred Twenty Three Dollars and Forty Five Cents

Sintaks nya

=NumsToWords(NumSource, MajorCurrency, MinorCurrency, MajorMinorLink)

Version 1.0.0

Where:
NumSource: The number, or cell reference containing the number, to be converted to text
MajorCurrency: The primary currency name (Optional: Default is “Dollar”)
MinorCurrency: The secondary currency name (Optional: Default is “Cent”)
MajorMinorLink: The word connecting MajorCurrency and MinorCurrency (Optional: Default is “and”)
SkipMinor: True/False flag to ignore the MinorCurrency (Optional: Default is FALSE)

Contoh Penggunaan lainnya:

Usage Umum =NumsToWords(C2)
One Hundred Twenty Three Dollars and Forty Five Cents
Altered Currencies: =NumsToWords(C2,”Goat”,”Kid”)
One Hundred Twenty Three Goats and Forty Five Kids
No MajorMinorLink: =NumsToWords(C2,,,””)
One Hundred Twenty Three Dollars Forty Five Cents
Skip MinorCurrency: =NumsToWords(C2,,,,TRUE)
One Hundred Twenty Three Dollars
Altered MinorCurrency: =NumsToWords(C2,,”Basket”)
One Hundred Twenty Three Dollars and Forty Five Baskets
Altered Major/Minor and Link =NumsToWords(C2,””,”Knot”,”Point”)
One Hundred Twenty Three Point Forty Five Knots

October 19, 2008 at 1:50 pm 2 comments

Fungsi Membalik kalimat atau kata

Ini mungkin fungsi Iseng atau supaya orang tidak bisa membaca  … Karena kita membalik tulisan.  Caranya adalah:

  1. Klik Alt+F11 untuk membuka Visual Basic Editor (VBE).
  2. Dari menu Insert , pilih Module (untuk menambah sebuah module).
  3. Masukkan kode-kode berikut dalam module:
Function BalikText(text) As String

	Dim PanjangText As Integer
	Dim i As Integer
	PanjangText = Len(text)
	For i = PanjangText To 1 Step -1
		BalikText = BalikText & Mid(text, i, 1)
	Next i

End Function

Silahkan coba sendiri   yaitu  =BalikText(alamat sel yang ada textnya)    … dan ketawa sendiri

September 19, 2008 at 3:45 pm 2 comments

Fungsi Triwulan Excel

Jika anda membuat laporan yang memiliki periode Triwulan (Quarter) maka dengan menggunakan fungsi Datepart() dalam VBA excel akan memudahkan anda untuk mengotomatiskan label/ atau judul laporan

Caranya adalah

1. Tekan Alt+F11 untuk membuka VBE.
2. Double-click Module name dalam Workbook, atau masukkan Module baru dalam Personal Macro Workbook dengan memilih Module dari menu Insert

3. Masukkan kode di bawah ini kedalam Module:

Function TriwulanKe(Masukan_Tanggal)
TriwulanKe = DatePart (“Q”, Masukan_Tanggal)
End Function

Jangan lupa untuk menyimpan dengan mengklik save atau tanda disket yang ada di Toolbar.

Untuk Mencoba module anda:

1. Pilih sel kosong dan tekan Shift+F3 untuk membuka Function dialog box.
2. Pilih Kategori User Defined , Pilih TriwulanKe, kemudian klik OK.
3. Dalam dialog box Function Arguments, masukan alamat sel yang berisi date, dan klik OK.

Kalau anda ingin mengkombinasikan dengan Kata-kata dan Angka Romawi

=”Triwulan Ke “&Roman(TriwulanKe(A27))

Rumus Triwulan

Rumus Triwulan

September 19, 2008 at 3:32 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

  • 105,307 hits

Twitter Updates

Iklan