Z=18=3x1 + 2x2quote:Maximize: Z=3x1 + 2x2
subject to:
x1 ≤ 4
2x2 ≤ 12
3x1 + 2x2 ≤18
en x1 ≥ 0 en x2 ≥ 0
Bedankt voor de tip.quote:Op maandag 16 november 2009 14:39 schreef DaFan het volgende:
Ik zou met lineair programmeren ver weg blijven van Excel, is te beperkt in oplossen.
Beter gebruik je Maple () oid.
dat zegt ie nietquote:
Dat met dat "keuzelijstje" is geniaal. Hoe maak je zon ding ?quote:Op zondag 15 november 2009 23:19 schreef qu63 het volgende:
[..]
Je kan het ook zo doen natuurlijk: http://www.qu63.nl/fokvb.xlsx
Excel 2007: In het 'lint' ga je naar 'gegevens', dan naar gegevensvalidatie, dan 'toestaan: lijst' en dan bij bron je lijstje invullenquote:Op maandag 16 november 2009 19:17 schreef znarch het volgende:
[..]
Dat met dat "keuzelijstje" is geniaal. Hoe maak je zon ding ?Ik zie ook namelijk nergens de formule erachter of iets dergelijks
Okejquote:Op maandag 16 november 2009 19:34 schreef qu63 het volgende:
[..]
Excel 2007: In het 'lint' ga je naar 'gegevens', dan naar gegevensvalidatie, dan 'toestaan: lijst' en dan bij bron je lijstje invullen
quote:Ik heb een vraag waar ik al antwoord op heb gevonden via google, maar de oplossing krijg ik niet voor elkaar.
Wat is er aan de hand?
Ik heb een lijst in excel (± 500 regels) en daar wil ik in het opmerkingen vak een fototje laten verschijnen op het moment dat je daar met je muis overheen gaat.
Via google ben ik inmiddels erachter hoe dat moet.
Rechts klikken op de cel→opmerking invoegen→op de rand van de opmerking rechts klikken→opmerking opmaken→kleuren en lijnen→opvulling→opvuleffect→afbeelding→afbeelding selecteren→OK→OK→groote van opmerkingenvak aanpassen.
Dit is het probleem: voor 500 plaatjes zijn dit heel veel handelingen.
Kan dit met een macro, (als ik de macro opneem in excel krijg ik constant foutmeldingen)
Sub afbeeldinginvoegen()
'
' afbeeldinginvoegen Macro
' foto invoegen in opmerkingen vak
'
' Sneltoets: CTRL+a
'
Range("C16").AddComment
Range("C16").Comment.Visible = False
Range("C16").Comment.Text Text:="Hans Degenkamp:" & Chr(10) & ""
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 225)
Selection.ShapeRange.Fill.UserPicture _
"C:\Documents and Settings\Hans\Mijn documenten\Mijn afbeeldingen\test macro\rondje.JPG"
End Sub
Wie kan mij helpen????
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Dim strFile As String Dim strPath As String Dim colFiles As New Collection Dim i As Integer strPath = "C:\Documents and Settings\user\" strFile = Dir(strPath) While strFile <> "" colFiles.Add strFile strFile = Dir Wend 'List filenames in Column A of the active sheet If colFiles.Count > 0 Then For i = 1 To colFiles.Count ActiveSheet.Cells(i, 1).Value = colFiles ![]() Next i End If End Sub |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | ' ' afbeeldinginvoegen Macro ' foto invoegen in opmerkingen vak ' ' Sneltoets: CTRL+a ' Dim myshape As Shape Range("C16").AddComment Range("C16").Comment.Visible = False Range("C16").Comment.Text Text:="Hans Degenkamp:" & Chr(10) & "" For Each myshape In ActiveSheet.Shapes With myshape.ShapeRange .Fill.Transparency = 0# .Line.Weight = 0.75 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoTrue .Line.ForeColor.RGB = RGB(0, 0, 0) .Line.BackColor.RGB = RGB(255, 255, 255) .Fill.Visible = msoTrue .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.RGB = RGB(255, 255, 225) .Fill.UserPicture _ "C:\Documents and Settings\Hans\Mijn documenten\Mijn afbeeldingen\test macro\rondje.JPG" End With Next myshape |
Om de een of andere reden doet ie 't niet.quote:Op dinsdag 17 november 2009 08:19 schreef DaFan het volgende:
Deze werkt ook wel trouwens:
[ code verwijderd ]
Hartelijk dank!quote:Op dinsdag 17 november 2009 08:38 schreef DaFan het volgende:
Je moet achter colfiles ff (i ) zetten ipv![]()
En denk eraan dat je je pathstring afsluit met een backslash zoals ik ook heb.
dir > list.txt
Zet een tekstbestand in de map waar je nu werkt, met de inhoud van de map + grootte ed.
Met dir/s krijg je de volledige diepte van alle mappen te zien.
OS en Excel versie/taal?quote:Op dinsdag 17 november 2009 11:18 schreef Maartel het volgende:
Weer eens een leuke beginnersvraag: ik heb volgens mij perongeluk een toetsencombinatie gemaakt waardoor nu Excel anders functioneert.. als ik 10 cellen selecteer en op delete druk wordt alleen de eerst-geselecteerde sel geleegd.. Weet iemand welke optie ik terug moet zetten om te zorgen dat ik weer gewoon meerder cellen tegelijk kan legen?
Ctrl+shift al geprobeerd?quote:
Dat verandert niets.. of bedoel je alleen om meerdere cellen te selecteren?quote:
quote:
Wat is eigenlijk het nut van Scroll Lock.quote:Op woensdag 18 november 2009 00:23 schreef Maartel het volgende:
[..]
Jezus, wat simpel eigenlijk..
maar zoals gezegd, je moet maar net doorhebben welke knop je perongeluk hebt aangeraakt..
Dat je het weetquote:Combat Arms, a Free-to-play Microtransaction based first person shooter, uses the scroll lock key to lock the movement of chat messages.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |