Met INDEX kan ie ook wel.quote:Op maandag 19 mei 2014 20:11 schreef Niesl het volgende:
Ik maak gebruik van Excel 2010.
Ik heb een sheet met 300 rijen met elk 50 kolommen. In elk van de velden zijn waarden opgenomen. Nu wil ik alle rijen en kolommen selecteren, de inhoud kopiëren en dit plaatsen in één enkele kolom, zodat je dus alle 15000 waarden onder elkaar hebt staan.
Is er een makkelijke manier om dit te doen?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | For i = 1 To 52 Sheets("Forecasting").Select Solverreset SolverOk SetCell:=Range("DN5").Offset(0, 5 * i).Address, MaxMinVal:=3, ValueOf:=0, ByChange:=Range("DN2:DN4,DL2").Offset(0, 5 * i).Address, _ Engine:=1, EngineDesc:="GRG Nonlinear" SolverAdd CellRef:=Range("DN2:DN4,DL2").Offset(0, 5 * i).Address, Relation:=1, FormulaText:="1" SolverAdd CellRef:=Range("DN2:DN4,DL2").Offset(0, 5 * i).Address, Relation:=3, FormulaText:="0" Results = SolverSolve(True, "SolverIteration") SolverFinish KeepFinal:=1 Sheets("Optimization").Select Range("A1").Offset(i, 0).Select ActiveCell.Value = i Range("B1").Offset(i, 0).Select ActiveCell.Value = Results Next i |
De iteratie is bedoeld omdat de forecast steeds een week opgeschoven moet worden. Voor i=1 wordt week 1-52 gebruikt om de parameters te bepalen, voor i=2 worden week 2-53 gebruikt, etc.. Het probleem zit 'm vooral in dat Excel waardes aan de variabelen gaat toekennen die buiten de constraints liggen, terwijl ze als enige constraint hebben dat ze tussen 0 en 1 moeten zijn.quote:Op zondag 25 mei 2014 14:24 schreef snabbi het volgende:
Het is lastig je ding te volgen vanuit de code alleen. Ik begrijp sowieso niet waarom je de solver met een eigen iteratie doorloopt. Probeer je wijzigende parameters eens te verkleinen. Een leuk filmpje hierover is:
Snelkoppeling toevoegen aan de start-up folder: http://office.microsoft.c(...)cel-HA010158030.aspxquote:Op maandag 26 mei 2014 12:52 schreef Basp1 het volgende:
Hallo,
Op mijn werk wil men graag wat data van een website bijhouden. 1* per dag moet dat gedownload worden. Nu kan dat mooi met excel die gegevens eruit trekken. De verbinding maken is een fluitje van een cent dat is me al gelukt. Nu mijn probleem, het liefst zou ik gewoon een excel file in de morgen als de gebruiker (die dit wil bijhouden) zijn pc opstart automagisch laten opstarten is dit mogelijk?
Waarom zou dat niet kunnen? Als je de koppelingen hebt (ja, die heb je: ActiveWorkbook.LinkSources(xlExcelLinks) is een array met de Excel-links), dan kan je deze bestanden openen, bewerken, opslaan en sluiten.quote:Op woensdag 28 mei 2014 18:10 schreef Piger het volgende:
Weet iemand of het mogelijk is om via vba alle koppelingen te openen, data bij te werken, en weer af te sluiten?
Ik heb na lang rommelen al een oplossing: Ik gebruik de functie SUBSTITUEREN om te bepalen hoeveel A, C, G of T in de tekst aanwezig is. Dat worden dus 4 kolommen. Vervolgens bepaal ik m.b.v. de lengte van de eerste tekst gecombineerd met de 'substitutie' tekst hoeveel van elke letter aanwezig is.quote:Op vrijdag 30 mei 2014 09:55 schreef Janneke141 het volgende:
Hoe lang is de langste code (ongeveer)?
Ik gebruik een Gantt-chart die werkt met voorwaardelijke opmaak -> http://www.vertex42.com/ExcelTemplates/excel-gantt-chart.htmlquote:Op maandag 9 juni 2014 14:42 schreef zarGon het volgende:
Is het mogelijk om deze pagina in Excel te bouwen?
Dat tabelletje met data en een pie chart is geen enkel probleem natuurlijk. Ik loop vast bij de timeline chart...
Ik heb een paar tutorials gevonden, maar het lukt me niet om het werkend te krijgen.
- http://www.smartsheet.com/blog/gantt-chart-excel
- http://www.excel-easy.com/examples/gantt-chart.html
Twee voorbeelden met waar ik genoeg aan zou hebben, maar ik krijg niet wat ik wil zien.
Iemand die me kan helpen?
Wat ik nu heb:
[ afbeelding ]
Ik heb de links gelezen en uitgeprobeerd, maar het wil me niet helemaal lukken. Je eerste link is bijvoorbeeld kant-en-klaar, maar het is niet flexibel; de indeling blijft staan (2012). Ik heb juist flexibele datums (soms 3 maanden, soms jaren).quote:Op maandag 9 juni 2014 14:51 schreef qu63 het volgende:
[..]
Ik gebruik een Gantt-chart die werkt met voorwaardelijke opmaak -> http://www.vertex42.com/ExcelTemplates/excel-gantt-chart.html
Of probeer het op deze manier: http://office.microsoft.c(...)px#BMfloatingcolumns of http://www.techrepublic.c(...)lumn-chart-in-excel/ (maar kies dan voor horizontaal ipv verticaal)
Hulpkolom (F) aanmaken met daarin: MIN(C2:C20)-C2, daarnaast in G: MAX(D2:D20)-D2quote:Op dinsdag 10 juni 2014 23:27 schreef zarGon het volgende:
[..]
Ik heb de links gelezen en uitgeprobeerd, maar het wil me niet helemaal lukken. Je eerste link is bijvoorbeeld kant-en-klaar, maar het is niet flexibel; de indeling blijft staan (2012). Ik heb juist flexibele datums (soms 3 maanden, soms jaren).
Hmpf, het leek zo 'simpel'...
Zou ik te veel van je vragen als ik je vraag om een voorbeeld voor mij te maken?quote:Op woensdag 11 juni 2014 01:02 schreef qu63 het volgende:
[..]
Hulpkolom (F) aanmaken met daarin: MIN(C2:C20)-C2, daarnaast in G: MAX(D2:D20)-D2
Dan maak je een gestapelde grafiek met kolom F als eerste data, kolom E als tweede en kolom G als derde. De eerste en laatste kan je met de opmaak doorzichtig maken en zonder rand . En dan kolom B als label kiezen. Om het er nóg leuker uit te laten zien kan je ook je horizontale as nog voorzien van labels
Zoiets: http://www.mijnbestand.nl/Bestand-C6XWESWCDSY7.xlsxquote:Op woensdag 11 juni 2014 10:29 schreef zarGon het volgende:
[..]
Zou ik te veel van je vragen als ik je vraag om een voorbeeld voor mij te maken?
Allereerst: bedankt voor de moeite!quote:Op woensdag 11 juni 2014 13:45 schreef qu63 het volgende:
[..]
Zoiets: http://www.mijnbestand.nl/Bestand-C6XWESWCDSY7.xlsx
Alleen de tijdslijn aan de onderkant kreeg niet zo snel naar wens..
Enige wat ik nu zo snel kan bedenken is eigenlijk vals spelen. Verwijder de labels op de x-as en maak een tweede grafiek die precies net zo groot is. Verberg alle elementen behalve de x-as en zorg er voor dat daar de datums op staanquote:Op woensdag 11 juni 2014 13:52 schreef zarGon het volgende:
[..]
Allereerst: bedankt voor de moeite!
Boh, dit is bijna wat ik nodig heb. Alleen is die tijdslijn (datum op x-as) wel een belangrijke. Hoe zou ik dat eventueel kunnen fiksen?
Bedankt nogmaals, kan ik hier even mee verkloten.
1 2 3 4 5 6 | Dim maxrow As Integer maxrow = Cells(Rows.Count, "A").End(xlUp).Row With ActiveSheet .Rows(maxrow + 1 & ":" & .Rows.Count).Delete End With |
Super! Werkt perfect!quote:Op woensdag 18 juni 2014 15:57 schreef Stickers het volgende:
Hiermee moet het lukken:
Sub getLastRow()
Dim LastUsedRow As Long
LastUsedRow = [LOOKUP(2,1/(A1:A65000<>""),ROW(A1:A65000))]
End Sub
Gevonden op http://www.mrexcel.com/fo(...)up-ignore-blank.html
Formule:
=ZOEKEN(2;1/(A1:A18<>"");RIJ(A1:A18))
Dan kun je spelen zonder elke keer een macro te hoeven runnen.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |