Gantt çizelgesi hk.

[emreeyy]

Merhabalar,
ekteki dosyamda örneklediğim A ve C sütunları arasında
16A parçasının A işlemi için 190 sn B işlemi için 300 sn süresi mevcut.
7025 parçasının A işlemi için 100 sn B işlemi için 240 sn süresi mevcut.
Ben süre bilgileri yazdığımda istediğim tekrar sayısı kadar ekteki dosyamdaki gibi tekrar ettirmek istiyorum.

16A parçasının A işlemi süresi kadar renk dolgusu yapıp bir alt satıra B işleminin süresi kadar renk dolgusu attıktan sonra,
7025 parçasının A işemi süresi kadar renk dolgusu yapıp daha sonra B işlemi için renk dolgusu yapmak istiyorum.

Veya alternatif başka bir dosya bulabilir miyiz bu işlem için?
Yardımlarınızı rica ediyorum.
İyi çalışmalar.

 

[kulomer46]

Ek'li dosyada Gantt çizelgesini otomatik oluşturma konusunda belli bir aşamaya gelmeye çalıştım.
Giriş değerleri ile oynayarak farklı desenler elde edebilirsiniz.

Aşağıdaki Ek' li Program henüz Deneme Aşamasındadır.
Henüz geliştirilmesi tamamen bitmemiştir.
Şimdilik bir fikir vermesi amacıyla eklenmiştir.

Selamlar...

 

[veyselemre]

Sub test()
    a1R = 17
    b1R = 49
    a2R = 4
    b2R = 10
    a1Uz = [b2] / 10
    b1Uz = [C2] / 10
    a2Uz = [b3] / 10
    b2Uz = [C3] / 10

    Range("D:XFD").Clear
    sat = 4
    bas = 4

    For i = 1 To [b4]

        sat = sat + 1
        son = bas + a1Uz - 1
        With Range(Cells(sat, bas), Cells(sat, son))
            .Interior.ColorIndex = a1R
            .Merge
            .Value = [a2] & "-" & [b1] & "-" & [b2]
            .Font.Color = vbRed
            .HorizontalAlignment = xlCenter
        End With

        bas = son + 1
        sat = sat + 1
        bSon = bas + b1Uz - 1
        With Range(Cells(sat, bas), Cells(sat, bSon))
            .Interior.ColorIndex = b1R
            .Merge
            .Value = [a2] & "-" & [c1] & "-" & [C2]
            .Font.Color = vbRed
            .HorizontalAlignment = xlCenter
        End With

        With Range(Cells(1, bSon + 1), Cells(sat, bSon + 1)).Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Color = vbRed
            .Weight = xlThick
        End With

        sat = sat + 1
        son = bas + a2Uz - 1
        With Range(Cells(sat, bas), Cells(sat, son))
            .Interior.ColorIndex = a2R
            .Merge
            .Value = [a3] & "-" & [b1] & "-" & [b3]
            .Font.Color = vbRed
            .HorizontalAlignment = xlCenter
        End With

        sat = sat + 1
        bas = son + 1
        bSon = bas + b2Uz - 1
        With Range(Cells(sat, bas), Cells(sat, bSon))
            .Interior.ColorIndex = b2R
            .Merge
            .Value = [a3] & "-" & [c1] & "-" & [C3]
            .Font.Color = vbRed
            .HorizontalAlignment = xlCenter
        End With
    Next i

    With Range(Cells(4, 4), Cells(4, bSon))
        .Value = 10
        .Orientation = 90
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Columns.ColumnWidth = 1.5
    End With

End Sub