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

Tombol Minimize dan Maksimize di User Form

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 

Aplukasi Persuratan Excel

Ini adalah code macro untuk mengambil file

Private Sub getlinkfile() ‘ langsung di tempatkan pada label
Dim nFileName As Variant
'nFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "Ambil file")'with
nFileName = Application.GetOpenFilename()
If nFileName = False Then
Me.Label1.Caption = "Tidak ada file yang dipilih"
Else
Me.Label1.Caption = nFileName
End If
End Sub

Perhatikan kodenya dan coba baca alurnya.

Excel Mengambil nama file - Get File Link

IF …. Then
-----------------------------------
Sub IF_FUNCTION()
If 6 > 3 Then
    MsgBox "6 Lebih besar dari 3"
End If
End Sub


Cara membaca kode :

Jika 6 lebih besar dari 3 maka tampilkan pesan "6 lebih besar dari 3"

IF … Then …. Else
-----------------------------------
Sub IF_FUNCTION2()
If 6 < 3 Then
MsgBox "6 Lebih kecil dari 1"
Else
If 6 < 5 Then
MsgBox "6 Lebih kecil dari 1"
Else
MsgBox "6 Lebih Besar dari 1"
End If
End If
End Sub
IF_"2 is greater than 4"
ElseIf 3 > 4 Then
Msgbox "..."
End If
End Sub

ELSEIF_ELSE
-----------------------------------
Sub IF_ELSEIF_ELSE_FUNCTION()
If 1 > 4 Then
MsgBox "1 is greater than 4"
ElseIf 2 > 4 Then
MsgBox
box "3 is greater than 4"
Else:
MsgBox "1, 2 or 3 are lesser than 4"
End If
End Sub

Cara membaca kode :

Contoh Penggunaan Fungsi IF ELSE excel

Jenis Perintah SQLData Definition Language (DDL) - Perintah SQL untuk mendefinisikan skema database atau Tabel : CREATE , DROP, ALTERData Manipulation Language (DML) - Perintah SQL untuk memanipulasi data dan pencarian data : INSERT , UPDATE, DELETE, SELECT

Data Control Language (DCL) - Perintah SQL untuk mengontrol database atau tabel : GRANT - REVOKE


Kumpulan Perintah MySQL

CONTOH PERINTAH SQL	KETERANGAN
CREATE DATABASE DBKOPERASI	Membuat Database dengan nama DBKOPERASI
SHOW DATABASE	Melihat daftar database yang ada di server
DROP DATABASE DBKOPERASI	Menghapus Database dengan nama DBKOPERASI
ALTER DATABASE
CREATE TABEL Pelanggan ( idpel INT AUTO_INCREMENT PRIMARY KEY, nama VARCHAR(30) NOT NULL, alamat VARCHAR(70), deposit DOUBLE DEFAULT 200000)	Membuat tabel dengan nama Pelanggan dengan field idpel, nama, dan alamat. Idpel bersifat INT, tidak boleh NULL, otomatis isiannya, dan Primary Key), FIELD deposit dengan default 200000
DESC Pelanggan	Menampilkan design tabel Pelanggan

Asumsi

CREATE DATABASE -- Membuat database
CREATE DATABASE DBKOPERASI -- misal membuat database dengan nama DBKOPERASI

MEMBUAT VIEWCREATE VIEW <NAMA TABLE VIEW> AS <lnjutkan dengan perintah>
exp : CREATE VIEW LIHAT AS
SELECT A.*,B.NAMA FROM PRODUK A INNER JOIN JENIS_PRODUK B WHERE A.IDJENIS=B.IDJENIS
delimiter //
create procedure test_param3
(out param1 INT, in param2 INT, in param3 int)
begin
select count(*) into param1 from produk
WHERE idjenis=param2 or idjenis=param3;
end;
//delimiter
call test_param3 (@count,2,3);
SELECT @count

Tutorial MySQL (1)

Bagaimana cara membuat file untuk menyimpan macro ?

Untuk dapat menjalankan file yang mengandung code makro maka kita harus membuat file suatu file Macro.

File Macro excel adalah file yang berextensi .xlsm. Contoh : LatihanForm.xlsm

Bagaimana Caranya ?

1. Buat file Baru : Menu File – New – Blank Workbook
2. Simpan File : Menu File – Save As
3. Klik File Name : LatihanForm dengan Save as type : excel Macro-Enabled Workbook.
4. Save

Gambar :

Sumber : Buku Membuat Form Excel Profesional dengan VBA Macro – Nyong Masbaim

Membuat file Baru Macro berextensi .XLSM

Muncul Pesan error #1044 - Access denied for user '......'@'localhost' to database '......' ketika menginport file mysql ke database mysql di web melalui phpmyadmin. Hal ini disebabkan karena perintah untuk membuat table database tidak di bisa dilakukan.

Solusinya :Buka file backup sql yang akan di upload / import dengan menggunakan notepad dan hapus code berikut

CREATE DATABASE /*!32312 IF NOT EXISTS*/`.....` /*!40100 DEFAULT CHARACTER SET utf8 */;
USE `........`;

Simpan kembali file tersebut dan silahkan di import lagi.

Sumber asli
http://www.inmotionhosting.com/support/website/database-troubleshooting/mysql-1044-access-denied-error-message

Error Import mysql phpMyAdmin Error #1044 - Access denied for user