DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Je bent geweldig!!! Dit werktquote:Op woensdag 10 oktober 2012 19:44 schreef Holy_Goat het volgende:
Ik denk dat ik em heb
Volgens mij is het:
[ code verwijderd ]
[ afbeelding ]
Heb me hier dus echt wel druk om gemaakt toen ik erachter kwam dat al mijn uitkomsten niet klopten.
Het heeft hier niet zo zeer met de tool te maken maar met een definitie probleem. Wanneer je t waarde negatief is, spreek je per definitie van een mutatie ten opzichte van je verlies. Een groter wordend verlies is dus een positief percentage en een kleiner wordend verlies of zelfs winst wordt een negatief percentage:
Zie definities van onze zeer betrouwbare bron wikipedia onder het kopje change in sign: http://en.wikipedia.org/wiki/Percentage
Zie definities van onze zeer betrouwbare bron wikipedia onder het kopje change in sign: http://en.wikipedia.org/wiki/Percentage
Met visual basic zou dat wel mogelijk moeten zijn maar dan opent hij op de achtergrond toch dat bestand.quote:
Kan je sorteren in een bestand terwijl het gesloten blijft?
een csv bestand gaan sorteren? Dat bestand zul je dan eerst in een excel instantie moeten importeren.
Waarom wil je dit buiten het opstarten van excel doen?
Waarom niet gewoon dan in vba die csv binnenhalen in een array en daar sorteren?
Waarom wil je dit buiten het opstarten van excel doen?
Waarom niet gewoon dan in vba die csv binnenhalen in een array en daar sorteren?
Omdat in een .csv bestand elders op het netwerk de data staat waaruit ik een LOOKUP moet doen.quote:
een csv bestand gaan sorteren? Dat bestand zul je dan eerst in een excel instantie moeten importeren.
Waarom wil je dit buiten het opstarten van excel doen?
Waarom niet gewoon dan in vba die csv binnenhalen in een array en daar sorteren?
Dat is een heel groot bestand en wil ik ook niet open hebben.
Ik heb inmiddels begrepen dat een bestand eerst gesorteerd moet zijn voordat je een LOOKUP functie doet anders krijg je de verkeerde regel.
.csv kan je toch gewoon sorteren?
Hoe dan ook zal dat csv bestand geopend worden om te sorteren en daarna gesloten worden.quote:
[..]
Omdat in een .csv bestand elders op het netwerk de data staat waaruit ik een LOOKUP moet doen.
Dat is een heel groot bestand en wil ik ook niet open hebben.
Ik heb inmiddels begrepen dat een bestand eerst gesorteerd moet zijn voordat je een LOOKUP functie doet anders krijg je de verkeerde regel.
.csv kan je toch gewoon sorteren?
Verder is een lookup heel leuk, maar als er in de lookup rij dubbele/dezelfde data staat ga je ook alleen maar het eerste resultaat krijgen. ben je er zeker van dat dit niet in het csv bestand zit.
Ik zou toch het csv bestand in excel importeren desnoods in een nieuwe file, als er veel overbodige data inzit deze meteen eruit gooien en dan de sortering laten plaatsvinden, en als laatste dan je lookup doen.
Maar met wat programeer ervaring is ook het csv bestand buiten excel wel te sorteren en weg te schrijven.
Nee openen is geen optie om diverse redenen.
Meerdere mensen gebruiken dit bestand.
Bij ieder persoon heet de schijf waar die opstaat weer anders.
openen buiten excel lukt me ook wel in VBA en ook de eerste sheet selecteren(dank aan google) alleen weet ik nu niet hoe ik dat sorteren doe.
Als dat sorteren "vlot gaat" hoeft het daarna niet opgeslagen te worden anders wel.
Meerdere mensen gebruiken dit bestand.
Bij ieder persoon heet de schijf waar die opstaat weer anders.
openen buiten excel lukt me ook wel in VBA en ook de eerste sheet selecteren(dank aan google) alleen weet ik nu niet hoe ik dat sorteren doe.
Als dat sorteren "vlot gaat" hoeft het daarna niet opgeslagen te worden anders wel.
| 1 2 3 4 | Dim wkb As Workbook, sht As Worksheet 'Deze regel opent Wel het bestand, maar als object. Het is niet zichtbaar of oproepbaar vanuit excel. Set wkb = GetObject("P:\bestand.csv") 'hier je pad + bestand Set sht = wkb.Sheets(1) '1 is eerste werkblad, of anders werkbladnaam invoeren |
Ook al heet de schijf overal anders dan moet je ook niet de schijfmapping gebruiken maar de directe windows mapping. Dus niet op p:\ maar iets van servernaam\directory\ enz...quote:
Nee openen is geen optie om diverse redenen.
Meerdere mensen gebruiken dit bestand.
Bij ieder persoon heet de schijf waar die opstaat weer anders.
openen buiten excel lukt me ook wel in VBA en ook de eerste sheet selecteren(dank aan google) alleen weet ik nu niet hoe ik dat sorteren doe.
Als dat sorteren "vlot gaat" hoeft het daarna niet opgeslagen te worden anders wel.
[ code verwijderd ]
En deze file zal hoe dan ook geopend worden, als je hem wilt sorteren.
Verder moet je voor de juiste excelcommmandos die je wilt gebruiken even in excel een macro opnemen en die code kun je dan gebruiken in je andere vba code.
Ik heb nu onderstaande (na de alinea) ingebouwd maar dan sorteertt hij een bestand dat op het moment actief is en niet het genoemde bestand.
| 1 2 3 4 5 6 7 8 9 10 | Dim wkb As Workbook, sht As Worksheet Set wkb = GetObject("P:\voorbeeld.xls") Set sht = wkb.Sheets(1) Set tst = Sheets("Sheet2").Select Range("A17").Select Range("A1:B44").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Sheet1").Select |
Wat gebeurt er als je in regel 5 ipv Set tst = Sheets("Sheet2").Select
iets van Set tst = wkb.Sheets("Sheet2").Select zou zetten?
iets van Set tst = wkb.Sheets("Sheet2").Select zou zetten?
op regel 4 "wkb.activate" toevoegenquote:
Ik heb nu onderstaande (na de alinea) ingebouwd maar dan sorteertt hij een bestand dat op het moment actief is en niet het genoemde bestand.
[ code verwijderd ]
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
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
Nee werkt helaas niet. Blijft bij het (ander) bestand dat aktief isquote:Op donderdag 11 oktober 2012 11:32 schreef Deetch het volgende:
[..]
op regel 4 "wkb.activate" toevoegen
Helaas een foutmeldingquote:
Wat gebeurt er als je in regel 5 ipv Set tst = Sheets("Sheet2").Select
iets van Set tst = wkb.Sheets("Sheet2").Select zou zetten?
Hallo allemaal.. ik heb een vraagje:
Ik heb een excel bestand die beveiligd moet worden d.m.v. een wachtwoord, maar tegelijkertijd mag iedereen het Excel bestand wel lezen echter mogen ze geen wijzgingen uitvoeren.
Dus zodra ze het bestand willen openen en wijzigen dienen ze een wachtwoord in te voeren, maar wanneer ze op de button "Alleen lezen" klikken wordt het bestand wel geopend maar dan alleen voor leesrechten.
Hoe stel ik dat in?
Versie: Excel 20120
Zie printscreen om het te verduideleken:
Ik heb een excel bestand die beveiligd moet worden d.m.v. een wachtwoord, maar tegelijkertijd mag iedereen het Excel bestand wel lezen echter mogen ze geen wijzgingen uitvoeren.
Dus zodra ze het bestand willen openen en wijzigen dienen ze een wachtwoord in te voeren, maar wanneer ze op de button "Alleen lezen" klikken wordt het bestand wel geopend maar dan alleen voor leesrechten.
Hoe stel ik dat in?
Versie: Excel 20120
Zie printscreen om het te verduideleken:
Oke ik ben weer een stapje verder, thanks.
Ik heb nu onderstaande code staan maar het gaat nog fout met regel 9
Die bewerking doet ie dan op het op dat moment aktieve excel document en dat is niet de bedoeling. Het moet op het document dat alleen in VBA aktief is n.l P:\bestand.csv
Ik heb nu onderstaande code staan maar het gaat nog fout met regel 9
Die bewerking doet ie dan op het op dat moment aktieve excel document en dat is niet de bedoeling. Het moet op het document dat alleen in VBA aktief is n.l P:\bestand.csv
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | GetObject ("P:\bestand.csv") Dim wkb As Workbook, sht As Worksheet Set wkb = GetObject("P:\bestand.csv") 'hier je pad + bestand Set sht = wkb.Sheets(1) '1 is eerste werkblad, of anders werkbladnaam invoeren wkb.Activate Range("A1:P60000").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal With Sheets(1) .Columns(3).Insert .Range("C3") = "Collo No" .Range("C4").Resize(.Cells(Rows.Count, 2).End(xlUp).Row) = "=LOOKUP(C[-1],bestand.csv!R2C8:R60000C8,bestand.csv!R2C6:R60000C6)" On Error Resume Next Application.ScreenUpdating = False wkb.Close False 'anders blijft het wkb in VBA als geopend achter |
Je moet hier het volgende doenquote:
Ik heb nu onderstaande (na de alinea) ingebouwd maar dan sorteertt hij een bestand dat op het moment actief is en niet het genoemde bestand.
[ code verwijderd ]
| 1 2 3 4 5 6 7 8 | Dim wkb As Workbook, sht As Worksheet Set wkb = GetObject("P:\voorbeeld.xls") Set sht = wkb.Sheets(1) wkb.sht.Range("A1:B44").Sort Key1:=wkb.sht.Range("B2"), Order1:=xlAscending, Header:= _ xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal |
Ik zou xlguess sowieso altijd vervangen door xlyes of xlno. Verder geef je nu aan dat je de betreffende workbook/worksheet moet sorteren en niet een actief workbook.
selecteren, wbk actief hebben of sheet actief hebben is niet nodig.quote:
Wat gebeurt er als je in regel 5 ipv Set tst = Sheets("Sheet2").Select
iets van Set tst = wkb.Sheets("Sheet2").Select zou zetten?
Jammer, een foumelding op die regel wkb.sht.Range etc
melding is:
Object doesn`t support this property or method.
[ Bericht 0% gewijzigd door Frixel op 11-10-2012 14:55:47 ]
melding is:
Object doesn`t support this property or method.
[ Bericht 0% gewijzigd door Frixel op 11-10-2012 14:55:47 ]
iemand?quote:
Hallo allemaal.. ik heb een vraagje:
Ik heb een excel bestand die beveiligd moet worden d.m.v. een wachtwoord, maar tegelijkertijd mag iedereen het Excel bestand wel lezen echter mogen ze geen wijzgingen uitvoeren.
Dus zodra ze het bestand willen openen en wijzigen dienen ze een wachtwoord in te voeren, maar wanneer ze op de button "Alleen lezen" klikken wordt het bestand wel geopend maar dan alleen voor leesrechten.
Hoe stel ik dat in?
Versie: Excel 20120
Zie printscreen om het te verduideleken:
[ afbeelding ]
wat als je dat ding nou eerst echt eens opent als een excel instance. Dat doe ik ook namelijkquote:
Jammer, een foumelding op die regel wkb.sht.Range etc
melding is:
Object doesn`t support this property or method.
| 1 2 3 4 5 6 7 8 | dim srcwbk As Workbook dim sht As Worksheet Set srcwbk = Workbooks.Open(filename:=strlocation, UpdateLinks:=False) srcwbk.sht.range(....).sort en dan die key ook srcwbk.sht.range(keyrange) Afsluiten kan dan weer met srcwbk.Close savechanges:=true Set srcwbk = Nothing |
Bij werkmap beveiligen kun je aangeven wat er beveiligd moet worden.quote:
in nederlands controleren -> werkmap/blad beveiligen
Hulp gevraagd van MS Excel professionalsquote:
[..]
bij opslaan als > wachtwoord? of snap ik nu iets niet
Dankan er net een ander window verschijnen en dat is niet goed genoeg.
Helemaal topquote:
[..]
bij opslaan als > wachtwoord? of snap ik nu iets niet
Merci
V
Eerste hit bij zoeken op: opslaan met wachtwoord excel
http://www.worksheet.nl/f(...)bij-openen-file.html
Volgende keer googelenquote:
Eerste hit bij zoeken op: opslaan met wachtwoord excel
http://www.worksheet.nl/f(...)bij-openen-file.html
quote:Open de betreffende file. Dan klik linksboven op bestand, dan op opslaan als.. In het nieuwe venster zie je rechts EXTRA staan. Klik hierop en selecteer dan "Algemene Opties". Voeg een wachtwoord in bij " wachtwoord voor openen". Klik op OK. Je moet het wachtwoord dan nog eens ingeven. Klik weer op OK. Geef de file een naam ( je mag dezelfde houden als die je had bij het openen) en klik op opslaan. Nu kan je het bestand alleen nog openen met dat wachtwoord.
SPOILEROm spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
| Forum Opties | |
|---|---|
| Forumhop: | |
| Hop naar: | |