File EXCEL Kadaluarsa

sobat lama saya tidak share, kali saya akan akan share masih mengenai excel dan macro tentunya. Yang saya share kali ini yaitu tentang expired (kadaluarsa) file excel.

Seperti biasa untuk latihan kita bikin satu file excel baru, sheet1 kasih nama "HOME" sheet yang lain apa saja boleh. Lalu kita buka macro excel untuk lebih cepat tekan di keyboard ALT + F11, source code nya sebagai berikut simpan di "ThisWorkbook"

Private Sub Workbook_Open()

Application.Calculation = xlCalculationSemiautomatic

Dim TglExpire As Date

TglExpire = "9/9/2013" 'mm/dd/yyyy

If Date > TglExpire Then

MsgBox ("Periode Aplikasi sudah berakhir, Harap hubungi Dede Suparman") _

, vbOKOnly + vbExclamation, "Expired"

Application.DisplayAlerts = False

sembunyikan "HOME"

ThisWorkbook.Close

End If

ActiveWindow.DisplayWorkbookTabs = False

End Sub

dan untuk di "modules" bikin terpisah saja bikin module baru klik kanan insert module

source code nya sebagai berikut

Sub sembunyikan(nmSheet As String)

With Worksheets(nmSheet)

.Visible = xlSheetVisible

.Activate

End With

For Each Sh In ThisWorkbook.Worksheets

If Sh.Name = ActiveSheet.Name Then

   Sh.Visible = xlSheetVisible

   Else

   Sh.Visible = xlSheetVeryHidden

   End If

   Next Sh

End Sub

save dah, jangan lupa save macro enabled-workbook

contoh file di SINI, demikian share kali ini. salam del.

Readmore..

TRIM (Fungsi TRIM) Excel

Artikel ini menguraikan sintaks rumus dan penggunaan fungsi TRIM di Microsoft Excel.

Deskripsi

Menghapus semua spasi dari teks kecuali spasi tunggal di antara kata. 

Gunakan TRIM pada teks yang Anda terima dari aplikasi lain yang mungkin memiliki penspasian tak tentu. PENTING   Fungsi TRIM didesain untuk memangkas karakter spasi ASCII 7-bit (nilai 32) dari teks. Dalam kumpulan karakter Unicode, ada karakter spasi tambahan yang disebut karakter spasi tidak terputus yang memiliki nilai desimal 160. Karakter ini umumnya digunakan di halaman web sebagai entitas HTML,  . Dengan sendirinya, fungsi TRIM tidak menghapus karakter spasi tidak terputus ini. Untuk contoh bagaimana memangkas kedua karakter spasi dari teks, lihat Menghapus spasi dan karakter tak tercetak dari teks.

=TRIM(TEXT)

Misal text ada di cell A1 penulisanya =TRIM(A1)

|   contoh     fungsi  TRIM      excel   |   hasilnya  |contoh fungsi TRIM excel|   

spasi nya jadi satu karakter.

Demikian semoga jadi manfaat...

Sumber:

office.microsoft.com

Readmore..

OfficeCustomUIEditorSetup

Pada kesempatan ini saya akan share tentang OfficeCustomUIEditorSetup, ini adalah aplikasi untuk menambah menu ribbon pada Microsoft Excel, bisa dilihat seperti pada gambar

mungkin cara dan contoh file nya akan saya share pada episode berikut nya..

aplikasi bisa didownload di sini.

Readmore..

Awaludin

 بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Ini adalah blog pertama saya, juga posting pertama saya. Saya hanya ingin mencari dan berbagi juga ingin menjadi bagian dari pencarian. carilah ilmu sampai ke dunia maya. Blog ini saya namakan cat-cil artinya catatan kecil semoga bermanfaat.

Readmore..