abonnement Unibet Coolblue Bitvavo
  maandag 16 november 2009 @ 14:24:01 #211
100297 teamlead
Nu met Napoleon complex
pi_74747720
Ik heb een sheet gemaakt, met per supervisor een tabblad waarin scores van medewerkers verwerkt kunnen worden en 1 tabblad met het totaaloverzicht.
Omdat er nog een handvol formules aan gekoppeld zijn (voor rapportagedoeleinden etc) wil ik niet dat iedereen kan gaan prutsen in de sheet en heb ik e.e.a. beveiligd.
So far so good.

Omdat er zo nu en dan ook nieuwe medewerkers instromen, heb ik een macrootje opgenomen en gekoppeld aan een button, zodat supervisors alleen maar daarop hoeven te klikken en een naam hoeven in te vullen (dat moet nog nét lukken ). In de macro heb ik opgenomen dat de beveiliging verwijderd wordt en later weer wordt teruggezet. Ook dat werkt prima

En dan..... dan sla ik de werkmap "gedeeld" op, zodat de 7 gebruikers er tegelijk in kunnen werken...... maar dan doen de macro's het dus niet meer . (error 1004)

Iemand enig idee hoe ik die macro's ook in een gedeelde map aan de gang krijg
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
pi_74747933
Hallo,

Voor het vak Operations Research I moet er een aantal grafieken gemaakt worden van lineaire vergelijkingen.

Zoals:
quote:
Maximize: Z=3x1 + 2x2
subject to:
x1 ≤ 4
2x2 ≤ 12
3x1 + 2x2 ≤18
en x1 ≥ 0 en x2 ≥ 0
Z=18=3x1 + 2x2

Nu moeten daar in Excel of Calc dit soort grafiekjes bij worden gemaakt:



Helaas, omdat ik nog nooit met Excel heb gewerkt weet ik niet hoe dit moet.

Hopelijk kan iemand het me uitleggen
cracka frakka ass
pi_74748055
teamlead:
Op welke regel loopt ie vast?
pi_74748141
Ik zou met lineair programmeren ver weg blijven van Excel, is te beperkt in oplossen.
Beter gebruik je Maple ( ) oid.
pi_74748223
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.
Bedankt voor de tip.
cracka frakka ass
  maandag 16 november 2009 @ 14:59:15 #216
100297 teamlead
Nu met Napoleon complex
pi_74748705
quote:
Op maandag 16 november 2009 14:36 schreef DaFan het volgende:
teamlead:
Op welke regel loopt ie vast?
dat zegt ie niet

"Fout 1004 tijdens uitvoering: Door de toepassing of object gedefinieerde fout"

Ik haat excel 2007
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
pi_74750101
Kan je niet foutopsporing doen ? Weird.
Ik denk eerlijk gezegd wel dat er een fout in je code zit, kan je een deel plakken waar je denkt dat het probleem zit?
pi_74757045
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
Dat met dat "keuzelijstje" is geniaal. Hoe maak je zon ding ? Ik zie ook namelijk nergens de formule erachter of iets dergelijks
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
  maandag 16 november 2009 @ 19:34:14 #219
62215 qu63
..de tijd drinkt..
pi_74757728
quote:
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
Excel 2007: In het 'lint' ga je naar 'gegevens', dan naar gegevensvalidatie, dan 'toestaan: lijst' en dan bij bron je lijstje invullen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_74758582
quote:
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
Okej en hoe doe ik dat in de oude excel ? en hoe "maak" ik dat "dingetje" met knopje ?
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
  maandag 16 november 2009 @ 20:20:19 #221
62215 qu63
..de tijd drinkt..
pi_74759804
In de oude Excel weet ik het niet, zoek eens op 'gegevens controleren' oid..

En dat knopje komt dus vanzelf
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_74760991
Mijn helden
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
pi_74772463
Is het mogelijk een lijst bestanden van een bepaalde map die je met de verkenner voor je ziet als lijst in Excel te importeren?
Dus gewoon de rij bestanden importeren in Excel?
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_74772483
Waarom doe je dat niet met dos en dan de txt.file naar Excel copy/pasten?
pi_74772484
Hallo allemaal!

Ik had al een aparte topic gemaakt, maar aangezien hier heel veel kennis over excel huist, plaats ik het bericht ook maar hier.
Ik hoop dat dat mag, en ik geen regels overtreed, anders mijn excusses.
Mijn bericht is als volgd:
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????
een probleem is pas een probleem
als NIEMAND hem op kan lossen
pi_74772552
Deze werkt ook wel trouwens:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub LoopThroughFiles()
    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 = colFilesi
        Next i
    End If
    
End Sub
pi_74772627
Hans probeer eens:
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
Sub afbeeldinginvoegen()
'
' 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
    


Anders weet ik het niet, kijk even of je je bestand ergens kan uploaden dan :)
pi_74772634
Let ook op het gebruik van With myshape.ShapeRange
Ziet er een stuk netter uit!
pi_74772751
quote:
Op dinsdag 17 november 2009 08:19 schreef DaFan het volgende:
Deze werkt ook wel trouwens:
[ code verwijderd ]


Om de een of andere reden doet ie 't niet.
Maar hoe doe je dit via dos?


Laat maar Keppem: Dir > naam.txt

Good old Dos!


[ Bericht 18% gewijzigd door Twentsche_Ros op 17-11-2009 09:09:00 ]
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_74772839
Je moet achter colfiles ff (i ) zetten ipv i
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.
pi_74774007
quote:
Op dinsdag 17 november 2009 08:38 schreef DaFan het volgende:
Je moet achter colfiles ff (i ) zetten ipv i
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.


Hartelijk dank!
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_74776292
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?
  dinsdag 17 november 2009 @ 11:22:41 #233
62215 qu63
..de tijd drinkt..
pi_74776420
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?
OS en Excel versie/taal?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_74776597
quote:
Op dinsdag 17 november 2009 11:22 schreef qu63 het volgende:

[..]

OS en Excel versie/taal?
Vista, Excel 2007 (Nederlands)
  dinsdag 17 november 2009 @ 11:56:56 #235
62215 qu63
..de tijd drinkt..
pi_74777430
quote:
Op dinsdag 17 november 2009 11:29 schreef Maartel het volgende:

[..]

Vista, Excel 2007 (Nederlands)
Ctrl+shift al geprobeerd?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_74777764
quote:
Op dinsdag 17 november 2009 11:56 schreef qu63 het volgende:

[..]

Ctrl+shift al geprobeerd?
Dat verandert niets.. of bedoel je alleen om meerdere cellen te selecteren?
Dat lukt namelijk wel, alleen als ik op delete/backspace druk wordt dat vervolgens uitsluitend op de eerst geselecteerde cel toegepast.
pi_74802410
scroll lock staat uit?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_74802916
quote:
Op woensdag 18 november 2009 00:07 schreef Deetch het volgende:
scroll lock staat uit?
Jezus, wat simpel eigenlijk..
maar zoals gezegd, je moet maar net doorhebben welke knop je perongeluk hebt aangeraakt..
pi_74806690
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..
Wat is eigenlijk het nut van Scroll Lock.
Behalve mensen pesten die 'm per ongeluk hebben ingedrukt.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_74806804
http://en.wikipedia.org/wiki/Scroll_lock
quote:
Combat Arms, a Free-to-play Microtransaction based first person shooter, uses the scroll lock key to lock the movement of chat messages.
Dat je het weet
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')