Avatar billede Primus_t Nybegynder
07. marts 2009 - 09:47 Der er 10 kommentarer

VBA Excel problem - HJÆLP

Hej

Kan i hjælpe mig?

Hvordan laver jeg en makro, som:

Jeg har lavet en tabel, der viser at antal aktiviteter i rækkerne og et antal uger i kollonnerne. De forskellige aktiviteter har forskellige længder. F.eks 2 uger eller 3 uger.

Jeg skal nu have lavet et program således at hvis f.eks. aktivitet 1 starter i uge 1 og slutter i uge 6 så skal ugerne 1-6 highlightes og hvis aktivitet 2 f.eks. starter i uge 3 og slutter i uge 5 så skal der udfor aktivitet 2 highlightes ugerne 3-5.

Disse forskellige aktiviteter har også tilknyttet et antal medarbejdere. F.eks har aktivitet brug for 5 medarbejdere og aktivitet 2 har brug for 2 medarbejdere. Det programmet derefter skal gøre er at forskyde disse aktiviteter således at de bliver sorteret efter at der skal bruges et lige antal medarbejdere i hver uge. Således at der f.eks ikke er uger hvor der er 20 medarbejdere og uger hvor der er 2. Antallet af arbejdere, skal ved at flytte rundt på aktiviteterne, glattes ud på de forskellige uger så arbejdspresset bliver så optimalt som muligt.

Der er dog en regel om at man kun må flytte aktiviteter hvor der er et "slack". Altså hvor der ikke direkte i efterfølgende uge er startende aktiviteter.

Håber at få nogle forslag til løsning af dette problem.
Ved at det er et stort projekt og jeg smider derfor 200 point efter den bedste løsning.

Tak på forhånd..

Morten
Avatar billede komputerdk Mester
07. marts 2009 - 10:06 #1
Du kunne måske kigge på du projektplanlægningsværktøj som openproj eller openworkbench (hedder det vist)
Avatar billede supertekst Ekspert
07. marts 2009 - 10:42 #2
Hvor meget VBA kan du selv?
Avatar billede Primus_t Nybegynder
07. marts 2009 - 11:20 #3
Det skal være i VBA. Og kan kun lidt basis-ting desværre.
Avatar billede supertekst Ekspert
07. marts 2009 - 11:39 #4
Kan godt konstruere det nødvendige i VBA - men lad os se, om der er andre på banen..
Avatar billede Primus_t Nybegynder
07. marts 2009 - 11:44 #5
okay. Ja god idé, men det ville være hvis du kunne hjælpe. :-)
Avatar billede Primus_t Nybegynder
07. marts 2009 - 13:35 #6
Hej supertekst,

Jeg ville blive rigtig glad hvis du kunne konstruere det nødvendige. Har ingen anelse om hvordan jeg skal komme igang nemlig.
Avatar billede supertekst Ekspert
07. marts 2009 - 15:03 #7
ok - prøv at sende en kopi..
Avatar billede Primus_t Nybegynder
07. marts 2009 - 15:32 #8
Tak,

Har sendt den nu..
Avatar billede komputerdk Mester
10. marts 2009 - 06:14 #9
noget vi andre også kunne få glæde af ? ;)
Avatar billede supertekst Ekspert
10. marts 2009 - 09:02 #10
Ja - måske:

Koden vedr. 1. del af indlæg:

Const kolonneNul = 11                              '"J" + 1
Sub FarvelægUger()
Dim ræk, startUge, slutUge
Rem Traverser kolonne B
    For ræk = 2 To 65000
        If Cells(ræk, 2) = "" Then
            Exit For
        End If
       
        startUge = Cells(ræk, 2) + kolonneNul
        slutUge = Cells(ræk, 3) + startUge - 1
       
        Range(Cells(ræk, startUge), Cells(ræk, slutUge)).Select
        Selection.Interior.ColorIndex = 6
    Next ræk
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester