Suatu pekerjaan yg hanya perlu waktu sekilas, mau diberi progress bar ??
'et 'deh.. aya-aya wae ni bocah...
Konsekwensinya progress bar gak pernah kelihatan "PROGRESS"nya
Agar ada sedikit pemandangan (untuk dipandangi), di contoh ini
sebelum progress bar di reset kembali (karena pekerjaan selesai) dia
di paused dulu dengan "Application.Wait" selama 2 detik
Untuk mengisi progress bar dari kosong sampai penuh & sinkron dengan
"jalannya" makro, maka setiap satu kalimat dlm makro disisipkan kalimat baru
yg isinya = "menaikkan Value progress bar ( + 1 )
akhirnya makro bekerja 2 kali waktu yg seharusnya, hanya untuk melihat
progess-bar...
===== MODULE USERFORM1 =====
Private Sub UserForm_Initialize()
With ProgressBar1
.Min = 0
.Max = 7 + Sheets("Sheet2").Cells(1).CurrentRegion.Rows.Count
End With
Sheets("Sheet2").Activate
End Sub
Private Sub CommandButton1_Click()
With ProgressBar1
.Value = .Min
Range("A2").Select
.Value = .Value + 1
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
.Value = .Value + 1
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TNama.Value: .Value = .Value + 1
ActiveCell.Offset(0, 1) = TAlamat: .Value = .Value + 1
ActiveCell.Offset(0, 2) = TKota: .Value = .Value + 1
TNama.Value = "": .Value = .Value + 1
TAlamat.Value = "": .Value = .Value + 1
TKota.Value = "": .Value = .Value + 1
TNama.SetFocus: .Value = .Value + 1
Application.Wait Now + TimeValue("00:00:02")
.Value = .Min
End With
End Sub
'--------------
o'Seno
--- In XL-mania@yahoogroups.com, Aziz Yudhistira Alaudin <aziz.yudhistira.alaudin@...> wrote:
>
> Wahai para fakar xl, ana kepingin belajar bikin control progressbar, tapi
> ga tau mantera-manteranya....
> Kasih ilmu kanuragannya dong para agan sekalian yah...
> Berikut ana lampirkan filenya...
> Terima kasih sebelumnya....
>
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário