Form Oluştur ProgressBar Ekle Çalıştır

İlerleme çubuğu

Form Oluştur ProgressBar Ekle Çalıştır

İleti#1)  Fethi34 » 18 Arl 2012 16:45

Kod: Tümünü seç
Function CreateProgressBar(Txt$) As Object
Dim BarForm As Object, Lbl As Object
 
  Set BarForm = ThisWorkbook.VBProject.VBComponents.Add(3)
  With BarForm
    .Properties("Caption") = Txt
    .Properties("Width") = 267
    .Properties("Height") = 48
    .Properties("ShowModal") = False
  End With
 
  Set Lbl = BarForm.Designer.Controls.Add("forms.Label.1")
  With Lbl
    .Left = 24: .Top = 7: .Width = 215: .Height = 15
    .BackColor = &HFF8080: .specialeffect = 2
    .Font.Bold = True: .TextAlign = 2
  End With
 
  VBA.UserForms.Add (BarForm.Name)
  Set CreateProgressBar = UserForms(UserForms.Count - 1)
   
End Function
Kod: Tümünü seç
Sub MAJBarre(PB As Object, Inc, Compteur, Max)
  If Compteur Mod Inc = 0 Then
    With PB
      .Label1.Width = CInt(Compteur * 215 / Max)
      .Label1.Caption = Format(Compteur / Max, "0%")
      .Repaint
    End With
  End If
End Sub
Kod: Tümünü seç
Sub DelProgressBar(Nom$)
  With ThisWorkbook.VBProject.VBComponents
        .Remove .Item(Nom)
    End With
End Sub
Kod: Tümünü seç
Sub TestPB()
Dim PB As String, i&, j&, Max&
Dim ufBar As Object
  Set ufBar = CreateProgressBar("Test Yazma")
  ufBar.Show
 
  Max = 5000
  For i = 1 To 5000
    For j = 1 To 10
      Cells(i, j).Value = i + j
      MAJBarre ufBar, 10, i, Max
    Next j
  Next i
 
  DelProgressBar ufBar.Name
  Unload ufBar
  Set ufBar = Nothing
  Cells.ClearContents
  MsgBox "Tamamlandı."
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 36
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Form Oluştur ProgressBar Ekle Çalıştır

İleti#2)  Ozan İLGÜN » 14 Nis 2013 15:48

Eğer amacın paylaşımsa paylaşım için teşekkürler. Eğer bu kod hata veriyor neden diye soruyorsan;
Excel simgesine tıkla sol üstten. Excel seçeneklerine tıkla.Güven Merkezine tıkla. Makrolar'a tıkla. Tüm makroları etkinleştir'e ve sonrada VBA erişime güven seçeneğine tıkla.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2587
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Form Oluştur ProgressBar Ekle Çalıştır

İleti#3)  Fethi34 » 16 Nis 2013 00:05

Amacım elbette ki paylaşmak. Bir soru sorsam yazardım cevap için bu kadar beklemezdim. Hatayı düzeltme için teşekkür ederim.
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 36
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Form Oluştur ProgressBar Ekle Çalıştır

İleti#4)  Tarkan VURAL » 16 Nis 2013 02:12

Bu iletiyi gözden kaçırmışım. Katkı için teşekkür ediyorum, elinize sağlık. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum ProgressBar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe