Hücrede ProgressBar

İlerleme çubuğu

Hücrede ProgressBar

İleti#1)  Fethi34 » 18 Arl 2012 14:36

Kod: Tümünü seç
Sub CreateBars()
    Dim sh As Shape
    Dim cell As Range
    Dim count As Long

    For count = 1 To 10

    Set cell = Range("A1").Offset(count, 1)

    With ActiveSheet.Shapes
      Set sh = .AddShape(msoShapeRectangle, cell.Left, cell.Top, 0, cell.Height)
      With sh.Fill
    .ForeColor.SchemeColor = count + 2
    .Visible = msoTrue
    .Solid
    End With
    sh.Name = "PB" & count
    End With
    Next
End Sub
Kod: Tümünü seç
Sub DemoProgressBars()
    Dim sh As Shape
    Dim cell As Range
    Dim count As Long
    Dim pc As Long
    Dim ar(1 To 10) As Long
    Dim done As Boolean
    Dim timernow As Double
    For count = 1 To 10
        ActiveSheet.Shapes("PB" & count).Width = 0
    Next

    Do

        done = True

        For count = 1 To 10
            pc = ar(count) + Int(Rnd() * 10)
            If pc > 100 Then pc = 100
            ar(count) = pc
            If pc < 100 Then done = False
            Set sh = ActiveSheet.Shapes("PB" & count)
            sh.Width = Cells(count + 1, "B").Width * pc / 100
        Next
        DoEvents
        timernow = Timer
        Do: Loop Until Timer - timernow > 0.25
    Loop Until done

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 18:18
Konum: İstanbul
Meslek: Memur
Yaş: 38
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücrede ProgressBar

İleti#2)  Ozan İLGÜN » 10 Ekm 2013 21:57

25 kişi indirmiş. Kimse teşekkür etmemiş. Paylaşım için teşekkürler.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Hücrede ProgressBar

İleti#3)  Fethi34 » 11 Ekm 2013 10:41

Bunu o kadarda sorun etmiyorum Ozan bey yine de sağolun.
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 18:18
Konum: İstanbul
Meslek: Memur
Yaş: 38
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücrede ProgressBar

İleti#4)  Ersin YALIN » 11 Ekm 2013 12:26

Güzel bir örnek teşekkürler.
Kullanıcı avatarı
Ersin YALIN
Forum Moderatörü
 
Adı Soyadı:Ersin Yalın
Kayıt: 10 May 2010 10:52
Yaş: 41
İleti: 1592
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

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

Cevap: Hücrede ProgressBar

İleti#5)  Murat OSMA » 11 Ekm 2013 13:51

Evet güzel bir örnek olmuş. [evet]
Teşekkürler Poyraz Bey --)(

Öneri: C sütununa şekillerin % değerlerini ve D sütununa da, bitiş çizgisine ilk önce hangi şeklin (atın :)) ulaştığını yazdırabilseydiniz daha güzel bir örnek olabilirdi.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14358
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Hücrede ProgressBar

İleti#6)  Ozan İLGÜN » 11 Ekm 2013 15:08

Bir de burun çizseydiniz. Varış noktasına da fotofinish yazsaydınız iyi olurdu evet hehe
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2889
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücrede ProgressBar

İleti#7)  Murat OSMA » 11 Ekm 2013 15:52

:lol: :lol: :lol: hehe hehe hehe Bence bu da çok iyi oldu Ozan Bey. :D hehe hehe
Evet Poyraz Bey öneriler artıyor, bence siz bu işi de halledersiniz. [fısıltı] :D
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14358
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Hücrede ProgressBar

İleti#8)  Fethi34 » 21 Ekm 2013 00:36

ozanilgun yazdı:Bir de burun çizseydiniz. Varış noktasına da fotofinish yazsaydınız iyi olurdu evet hehe

Siz yeterki isteyin hallederiz.
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 18:18
Konum: İstanbul
Meslek: Memur
Yaş: 38
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücrede ProgressBar

İleti#9)  emrah2321 » 04 Eyl 2019 12:29

Teşekkürler elinize sağlık.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 08:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 37
İleti: 425
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: Hücrede ProgressBar

İleti#10)  erseldemirel2 » 04 Eyl 2019 21:00

Userform için; label, textbox , buton gibi nesneler kullanılarak yapılan progressbar örneği varmıdır? Bu örnek uyarlanabilir userform da göstermek için?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum ProgressBar

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe