1. Penyebab error nya karena ProgressBar1.Max = 10000 yang anda simpan pada prosedur UserForm_Load tidak pernah dieksekusi, karena pada VBA tidak mengenal Event UserForm_Load, melainkan UserForm_Initialize
Private Sub UserForm_Load() Dim i As Integer ProgressBar1.Max = 10000 ProgressBar1.Min = 1 End Sub Diganti dengan, Private Sub UserForm_Initialize() ProgressBar1.Max = 10000 ProgressBar1.Min = 1 End Sub 2. Kalau dilihat, ini mah bukan progress bar, tapi animation bar karena fungsinya hanya untuk menimbulkan efek animasi pada saat proses penyimpanan (memindahkan data dari user form ke area excel. 3. Sedikit koreksi pada bagian For i = 1 To 10000 i = i + 1 ProgressBar1.Value = i Next i sepertinya pada line i = i + 1 tsb tidak perlu, karena jika menggunakan loop For...Next maka secara otomatis nilai i akan bertambah 1. Jadi dengan adanya i = i + 1 nilai i nya akan bertambah 2 setiap loop nya. ________________________________ From: PT. ADHI KARYA (PERSERO) Tbk <[email protected]> To: belajar xl <[email protected]> Sent: Friday, December 30, 2011 7:51 AM Subject: [belajar-excel] Membuat Progress Bar Yang Run Time Error Terus Para pakar XL, kasih adonan utnuk bikin progressbar dong, karena yang saya bikin nih error terus (file terlampir).. Mohon korksi resepnya dari para senior... Terima kasih sebelumnya... HASANNUDIN Tax Officer - Riau - Kepri - Sumbar Area
