back to top

excel.web.id

Secara default sebuah UserForm hanya ada tombol Close(X) saja, sehingga kita tidak bisa me-minimize ataupun me-maximize sebuah UserForm. Namun jika kita memang ingin menambahkan atau menampilkan tombol Minimize dan Maximize maka kita harus memanfaatkan fungsi API pada VBA Excel.
Untuk bisa menambahkan tombol Minimize dan Maximize di UserForm Excel, caranya adalah sebagai berikut:
Buka aplikasi Microsoft Visual Basic for Application pada Excel, bisa melalui tab developer ataupun bisa juga dengan menekan tombol Alt+F11.

Tambahkan sebuah UserForm dan kemudian masukkan script VBA berikut ini ke dalam UserForm1 (Code).

Code


Private Sub UserForm_Activate() AddMinMaxButton Me.Caption, MinButton:=True, MaxButton:=True End Sub Tambahkan sebuah Module dan masukkan script VBA berikut ke dalam Module1 (Code). Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_MAXIMIZEBOX = &H10000 Public Const GWL_STYLE = (-16) Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Public Sub AddMinMaxButton(ByVal FormCaption As String, _ ByVal MinButton As Boolean, ByVal MaxButton As Boolean) Dim hWnd As Long Dim lngStyle As Long hWnd = FindWindow(vbNullString, FormCaption) lngStyle = GetWindowLong(hWnd, GWL_STYLE) If MaxButton Then lngStyle = lngStyle Or WS_MAXIMIZEBOX End If If MinButton Then lngStyle = lngStyle Or WS_MINIMIZEBOX End If SetWindowLong hWnd, GWL_STYLE, lngStyle DrawMenuBar hWndEnd Sub

Kembali ke UserForm1, kemudian tekan tombol F5, maka UserForm1 akan dijalankan dan lihatkan sekarang pada UserForm sudah ada tambahan berupa tombol Minimize dan Maximize.

Sumber : http://blog.belajarexcel.org/excel-macro/menambahkan-tombol-minimize-dan-maximize-di-userform/
@masbaim - your partner

Mungkin kamu memerlukan aplikasi persuratan dan Agenda, kali ini saya buatkan aplikasi Persuratan dan Agenda, masih versi 01, ada beberapa menu yang belum selesai, tapi untuk manajemen surat masuk dan surat keluar serta cetak disposisi mudah-mudahan sudah tidak ada masalah. silahkan di coba-coba.



Mungkin aplikasi ini juga bisa meembuaka wawasan baru, ternyata excel bisa dibuat aplikasi lebih dari sekedar yang kita bayangkan.

Compile aplikasi ini menggunakan software gratisan (maklum belum ada biaya untuk membeli software yang berbayar), sehingga pada beberapa anti virus yang gratisan seperti SMADAV juga dianggap sebagai virus, kalau memang diperlukan aplikasi ini, kamu bisa menonaktivkan sementara aplikasi anti virusmu, insya Allah aplikasi ini aman. Namun jika kamu menggunakan aplikasi anti virus berbayar, kamu bisa mengatur setingan agar aplikasi ini tidak dianggap musuh oleh anti virus kamu.

silahkan kalau ada masukan, insya Allah nanti kita perbaiki.
Aplikasi ini free untuk di pakai atau di share.
Untuk mengakses sheet data base saya membuat pasword yang bisa kamu minta secara gratsi via PM twitter atau facebook, sekaligus untuk mengetahui / menghitung manfaat seberapa banyak aplikasi ini di gunakan, sekaligus pemberitahuan jika terdapat update.



Kelebihan Aplikasi :- Gratis dan selalu gratis insya Allah
- Mudah di operasikan
- Data base bisa di copas karena basisnya Excel

Kekurangan :- masih terdapat modul yang belum selesai
- dianggap virus oleh SMADAV

Download di SINI , keterangan lengkap ada di sini 

shipping

0 item(s) in cart

bank acc

Copyright © 2016.
excel.web.id Allright reserved.
Proudly by Blogger
cart
0 items in cart