Hücrede ProgressBar

İlerleme çubuğu

Hücrede ProgressBar

İleti#1)  Fethi34 » 18 Arl 2012 16: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 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 37
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücrede ProgressBar

İleti#2)  Ozan İLGÜN » 10 Ekm 2013 23: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 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2631
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Hücrede ProgressBar

İleti#3)  Fethi34 » 11 Ekm 2013 12: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 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 37
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücrede ProgressBar

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

Güzel bir örnek teşekkürler.
Resim
Kullanıcı avatarı
Ersin YALIN
Forum Moderatörü
 
Adı Soyadı:Ersin Yalın
Kayıt: 10 May 2010 12:52
Yaş: 40
İleti: 1591
 
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 15: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: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Hücrede ProgressBar

İleti#6)  Ozan İLGÜN » 11 Ekm 2013 17: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 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2631
 
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 17: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: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Hücrede ProgressBar

İleti#8)  Fethi34 » 21 Ekm 2013 02: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 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 37
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul


Forum ProgressBar

Online Kullanıcılar

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

Bumerang - Yazarkafe