Welkom bij “Het grote Excel vragentopic” waar je terecht kan met vragen over Excel.
In dit topic is het de bedoeling dat we gericht vragen stellen en antwoorden geven op de gestelde vragen. Om alles zo goed mogelijk te laten verlopen zijn er een aantal regels.
Regels
1. Als je een vraag stelt, zet er dan bij welke versie van Excel je hebt en op welke taal hij ingesteld staat.
2. Zet macrocode tussen [ code ] tags
3. Als het “pseudo-code” is, vermeldt dit dan duidelijk
4. Er bestaan geen domme vragen, wel domme antwoorden. Als jouw antwoord niet gaat bijdragen, geef het antwoord dan niet.
5. Dit topic is geen “code-FEBO” waar je half opgewarmde code uit de muur trekt, het is de bedoeling dat je er zelf iets van leert.
Definities
Functie Een interne functie die bij Excel is geleverd.
UDF Een “user definded function”, een zelfgebouwde functie
Macro Een stuk code die opdrachten uitvoert, gebouwd in (meestal) de VBA editor
Add-In Een Excel workbook met VBA-code (of C#, C) die als .xla (of .xll) is opgeslagen, deze is als vaste plug-in in Excel te plaatsen.
Workbook Het excelbestand
Sheet of Worksheet Het tabblad
Form, Formulier, Userform Een Dialoogvenster in VBA gebouwd
Tips & Links
De help functie van excel of visual basic voor excel kan je een eind op weg helpen. (F1)
Het workbook met het FOK!-menu zoals in de banner weergegeven is hier te vinden. Dit menu is naar wens aan te passen. De icoontjes in het menu zijn hier allemaal weergegeven. In dit workbook zijn drie macro's aanwezig: Een printertool waarmee je uit meerder workbooks sheets kan selecteren voo afdrukken, een power replace die termen kan wijzigen in meerdere workbooks tegelijk en een formule vertaler, de formule in de actieve cell wordt in het engels weergegeven, je kan ook een engelse formule invoeren die dan in de actieve cell in de geldende taal wordt geplaatst. De UDF is naar aanleiding van een vraag in topic #29. De functie kan worden aangeroepen door in een cel =FOK() te typen en dan op de Fx te klikken voor uitleg over de variabelen.
De VBA editor bereik je door ALT+F11 in te drukken. Vanaf Excel 2007 is de VBA editor lastiger te vinden. Op deze site wordt uitgelegd hoe je de editor kan activeren.
De interne functies zijn afhankelijk van welke taal jouw Excel draait. Op deze en deze site kun je de formules in verschillende talen vertalen.
De meer uitgebreide macro's kunnen traag worden, ook kan het scherm flikkeren als gevolg van veel "select" acties. Deels kun je dit ondervangen door zo veel mogelijk select acties te vervangen door directe verwijzingen naar cells en deels door een macro-optimalisatie door te voeren. In de onderstaande code is een routine voor macro-optimalisatie en een routine om de optimalisatie weer uit te zetten weergegeven. In de voorbeeld sheet is een uitgebreide versie van MOA en MOU opgenomen.
Bij macro's die een bepaalde, merkbare, tijd nodig hebben om hun werk te doen is het van belang de gebruiker een idee te geven van wat er gebeurt, zeker met macro-optimalisatie aan kan het lijken alsof Excel is vastgelopen. Je kan bijvoorbeeld de statusbar een waarde geven, met eventueel een percentage van de reeds uitgevoerde code.SPOILER
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19Sub MOA()
'Macro optimalisatie aan
'Roep deze routine aan bij aanvang van jouw code
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
End Sub
Sub MOU()
'macro optimalisatie uit
'Roep deze routine aan na afloop van jouw code
'zorg er ook voor dat eventuele foutvangers ook verwijzen naar deze routine
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.StatusBar = ""
End Sub
Mooi, grappig en coolSPOILER
1
2
3
4
5
6***Pseudo-code***
for i = 1 to EndOfRoutine
Application.StatusBar = "Bezig met uitvoeren FOK! macro_1 " _
& 100 - cInt((EndOfRoutine - i)/ EndOfRoutine * 100) & " %"
'FOK!_macro_1 code
next
Een uitgebreide site met nuttige en minder nuttige excelsheetjes. Van kekke grafieken om je manager of leraar te betoveren via oscillogrammen en simulatoren tot pong voor als het weer een typische vrijdagmiddag is: Excelunusual
Verder
Alle vorige topics zijn hier terug te vinden.
Nieuw topic? Haal de OP uit de wiki
quote:Op maandag 18 juni 2012 12:42 schreef xyntarsus het volgende:
thx voor de hulp.
kan dit trouwens ook zonder dat ik het menu krijg (dat ie automatisch cel B2 pakt?)
Of als je alle sheets van je workbook in 1 keer wilt doen:quote:
[..]
Dan krijg je
[code]
Sub fok()
If Range("B2").Value <> "" Then ActiveSheet.Name = Range("B2").Value
End Sub
[/code]
als ik t goed heb..
| 1 2 3 4 5 6 7 8 | Sub fok() For Each sh In ActiveWorkbook.Worksheets sh.Activate If Range("B2").Value <> "" Then ActiveSheet.Name = Range("B2").Value Next sh End Sub |
de waarde van die punten in de grafiek kan ik dus aflezen, maar hoe kan ik dus zien welke waarde die trend heeft op gelijke hoogte (heb er voor de duidelijkheid een verticaal rood lijntje doorheen getrokken)
Je kunt wel een nieuwe kolom aanmaken met daarin de vergelijking voor de trend.
stel:
A2:A20 = maanden
B2:B20 = getallen
nieuwe kolom C
in C2 zet je de formule =TREND($A$2:$A$20,$B$2;$B$20,A2)
deze formule trek je door naar beneden (tm C20)
grafiek maken met beide datasets erin en dan kun je de trendlijn wel aflezen.
ja maar die formule klopt dus nietquote:
hmm? je kunt toch gewoon rechtsklikken op de trendlijn en dan bij eigenschappen 'vergelijking in grafiek weergeven' aanvinken? Mocht je specifieke waarden nodig hebben gebruik je die formule om dat te berekenen
waarschijjnlijk moet je de datum waarvan je een waarde wilt weten nog omrekenen naar de seriele datum. Excel slaat een datum nl op als zoveel dagen na 0-januari-1900.quote:Op dinsdag 19 juni 2012 11:19 schreef andreas612 het volgende:
[..]
ja maar die formule klopt dus niet
http://www.cpearson.com/excel/datetime.htm
=als(deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))>LENgte(A1);0;deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1 &"0123456789")))
op 1 of andere manier werkt die formule niet. Kunnen jullie even kijken? Ik ben al een tijdje bezig en heb ook veel gezocht op internet, vind wel dingen maar die lukken op eoa. manier niet. Thx alvast!
Hier de code van vogeltjesdansquote:
Het gaat om een excel document. Ik weet dat er een apart excel topic is, maar hier moet ook VBA code in dus ik post het even apart.
Waar het om gaat is het volgende. Ik heb een lijst met kolommen:
datum omschrijving behandelaar status
op deze kolommen pas ik een filter toe, waardoor ik makkelijk kan sorteren.
Wat ik wil is het volgende:
* selecteren op behandelaar
* afdrukbereik bepalen op behandelaar
* dit afdrukken
Dit heb ik in een macro gestopt (relatieve verwijzinng aangezet) met als volgend resultaat.
[ code zie onder ]
Dit werkt, maar de behandelaar heeft een telkens wisselend aantal rijen. Dus ik wil dat het afdrukbereik bepaald wordt op de rijen waar de betreffende behandelaar staat. Een soort =ALS functie, maar ik weet niet hoe ik dat in deze code moet invoeren.
Iemand?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sub Sorteren() ActiveCell.Offset(5, 4).Range("A1").Select ActiveWorkbook.Worksheets("blad1").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("blad1").AutoFilter.Sort.SortFields.Add Key:= _ ActiveCell.Offset(-3, 0).Range("A1"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("blad1").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveCell.Offset(-1, -5).Range("A1:J17").Select Selection.PrintOutCopies:=1, Collate:=True, IgnorePrintAreas:=False End Sub |
vervang Range("A1:J17").Select door
Range("A1", Range("J65536").End(xlUp)).Select en hij zou moeten werken
[ Bericht 13% gewijzigd door Deetch op 20-06-2012 11:36:47 (end sub niet gekopieerd) ]
Het eerste probleem wat ik zie is dat deel() meerdere argumenten nodig heeft. Het tweede probleem is dat vind.alles (bij mij althans) slechts één tekst zoekt, en dus niet 1 of 2 of 3 of ...quote:
Ik probeer de eerste positie van een getal te vinden in een string. Ik gebruik office 2007 taal = NL. Nu heb ik de volgende functie gevonden
=als(deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))>LENgte(A1);0;deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1 &"0123456789")))
op 1 of andere manier werkt die formule niet. Kunnen jullie even kijken? Ik ben al een tijdje bezig en heb ook veel gezocht op internet, vind wel dingen maar die lukken op eoa. manier niet. Thx alvast!
Ik denk niet dat wat je wilt met louter excel formules te doen is (ik kan het mis hebben). Met VBA is het twee seconden werk.
Wat wel kan (maar erg omslachtig is dit):
| 1 2 3 | B1 = A1 & "1234567890" C1 = MIN(VIND.SPEC(1;B1);VIND.SPEC(2;B1);VIND.SPEC(3;B1);VIND.SPEC(4;B1);VIND.SPEC(5;B1);VIND.SPEC(6;B1);VIND.SPEC(7;B1);VIND.SPEC(8;B1);VIND.SPEC(9;B1);VIND.SPEC(0;B1)) D1 = ALS(C1>LENGTE(A1);-1;C1) |
Eerste positie van een getal (onderstaande functie bevestigen met CTRL+SHIFT+ENTER)quote:
Ik probeer de eerste positie van een getal te vinden in een string. Ik gebruik office 2007 taal = NL. Nu heb ik de volgende functie gevonden
=als(deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))>LENgte(A1);0;deel(vind.alles({0;1;2;3;4;5;6;7;8;9};A1 &"0123456789")))
op 1 of andere manier werkt die formule niet. Kunnen jullie even kijken? Ik ben al een tijdje bezig en heb ook veel gezocht op internet, vind wel dingen maar die lukken op eoa. manier niet. Thx alvast!
=MATCH(TRUE,ISNUMBER(-MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0)
Alle getallen uit een string (onderstaande functie bevestigen met CTRL+SHIFT+ENTER)
=--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&{0,1,2,3,4,5,6,7,8,9})),SUM((LEN(A1)-LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},"")))))
Let op dat je de CTRL+SHIFT+ENTER gebruikt ipv gewone enter anders werken bovenstaande functies niet
SPOILERhad ik al gezegd dat je CTRL+SHIFT+ENTER moet gebruiken?
[ Bericht 16% gewijzigd door Deetch op 20-06-2012 11:23:49 ]
Thanks! Maar als ik hem aanpas en uitvoer geeft hij een fout op de onderste regel, deze wordt geel:quote:Op woensdag 20 juni 2012 10:58 schreef Deetch het volgende:
[..]
Hier de code van vogeltjesdans
[ code verwijderd ]
vervang Range("A1:J17").Select door
Range("A1", Range("J65536").End(xlUp)).Select en hij zou moeten werken
Selection.PrintOutCopies:=1, Collate:=True, IgnorePrintAreas:=FalseEnd Sub.
tussen False en End Sub moet een ENTER (foutje bij kopieren van jouw code)quote:
[..]
Thanks! Maar als ik hem aanpas en uitvoer geeft hij een fout op de onderste regel, deze wordt geel:
Selection.PrintOutCopies:=1, Collate:=True, IgnorePrintAreas:=FalseEnd Sub.
Deetch, zit jij op Excel of zo. 1 minpuntje aan je post. Het is niet duidelijk dat je op CTRL-SHIFT-ENTER moet drukken maar dat vergeef ik je ;-)quote:
[..]
Eerste positie van een getal (onderstaande functie bevestigen met CTRL+SHIFT+ENTER)
=MATCH(TRUE,ISNUMBER(-MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0)
Alle getallen uit een string (onderstaande functie bevestigen met CTRL+SHIFT+ENTER)
=--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&{0,1,2,3,4,5,6,7,8,9})),SUM((LEN(A1)-LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},"")))))
Let op dat je de CTRL+SHIFT+ENTER gebruikt ipv gewone enter anders werken bovenstaande functies niet[ afbeelding ]SPOILERhad ik al gezegd dat je CTRL+SHIFT+ENTER moet gebruiken?
Toch nog een paar vraagjes. De eerste heb ik vertaald naar:
=VERGELIJKEN(WAAR;ISGETAL(-DEEL(A1;RIJ(INDIRECT("1:"&LENGTE(A1)));1));0) ik snap niet zo goed wat die doet.
Die 2e retourneert bij alle getallen in de string. Hartstikke mooi maar ik ben op zoek naar de 1e positie van het getal. Is daar nog makkelijk achter te komen. Bijvoorbeeld in de string. Oranjenummer1inBrazilie2014 wil ik als resultaat 13 terugkrijgen omdat daar de eerste string staat. Thx alvast weer!
Ik weet alleen niet zeker of ISGETAL wel een excel 2007 functie is of dat die nieuw is in 2010. Krijg je daar een foutmelding? ook als je wel ctrl+shift+enter doet
=ISGETAL() is ook een 2007-functiequote:
Die eerste functie geeft aan op welke positie het eerste getal staat, precies wat je zocht.
Ik weet alleen niet zeker of ISGETAL wel een excel 2007 functie is of dat die nieuw is in 2010. Krijg je daar een foutmelding? ook als je wel ctrl+shift+enter doet
Quote ipv edit.. Zelfs na 9 jaar fok heb ik dat trucje niet door..
Kutquote:
[..]
tussen False en End Sub moet een ENTER (foutje bij kopieren van jouw code)
edit: in de code staat hij goed. Help
Ik heb in een sheet een formule:
| 1 | =EXP(((-1*VB1)*VB2))*NORMSDIST(C24) |
VB1 en VB2 zijn cellen met een naam en dus een vaste waarde. C24 wijzigt steeds.
Hoe kan ik nu (in VB) zelf een formule maken waarbij ik alleen als ik: =formule typ alleen C24 zelf hoef in te vullen?
Ik faal, hardquote:
Dat heet een User Defined Function. Ga je zelf proberen of heb je hulp nodig?
quote:
Die eerste functie geeft aan op welke positie het eerste getal staat, precies wat je zocht.
Ik weet alleen niet zeker of ISGETAL wel een excel 2007 functie is of dat die nieuw is in 2010. Krijg je daar een foutmelding? ook als je wel ctrl+shift+enter doet
Ik heb het vertaald naar:quote:
[..]
Deetch, zit jij op Excel of zo. 1 minpuntje aan je post. Het is niet duidelijk dat je op CTRL-SHIFT-ENTER moet drukken maar dat vergeef ik je ;-)
Toch nog een paar vraagjes. De eerste heb ik vertaald naar:
=VERGELIJKEN(WAAR;ISGETAL(-DEEL(A1;RIJ(INDIRECT("1:"&LENGTE(A1)));1));0) ik snap niet zo goed wat die doet.
Die 2e retourneert bij alle getallen in de string. Hartstikke mooi maar ik ben op zoek naar de 1e positie van het getal. Is daar nog makkelijk achter te komen. Bijvoorbeeld in de string. Oranjenummer1inBrazilie2014 wil ik als resultaat 13 terugkrijgen omdat daar de eerste string staat. Thx alvast weer!
=VERGELIJKEN(WAAR;ISGETAL(-DEEL(A1+RIJ(INDIRECT("1:"&LENGTE(A1)));1));0) Ik snap totaal niet wat er gebeurt maar er staat ook dat ik een argument te weinig hebt bij de functie DEEL. Nog een tip over wat ik verkeerd doe?
is juist (had Deetch gezegd CTRL SHIFT ENTER?)
Je hebt in jouw formule bij de A1 een + staan ipv een ;
Wat het eigenlijk doet is dat het in de cel zelf een nieuwe matrix aanmaakt (genaamd array). In deze matrix wordt op elke regel 1 karakter geplaatst. Vervolgens wordt van dit karakter bepaald of het een getal is of niet. Deze uitkomst (WAAR of ONWAAR) wordt opgeslagen op deze regel en daarna wordt de eerste regel met een WAAR teruggeven.
Het gebruik van de CTRL SHIFT ENTER zorgt ervoor dat je de array functie in de cel gebruikt. Dit kan je ook zien aan je formule doordat de formule tussen { } accolades worden weergegeven.
[ Bericht 30% gewijzigd door snabbi op 20-06-2012 21:40:09 ]
Thx!!!! Ik wist niet dat je CTRL SHIFT ENTER moest gebruiken. Had hij wel even kunnen zeggen ;-) Maar die + deed het hem. Ik denk ook wel dat ik de formule ongeveer snap (een klein beetje iig).quote:
=VERGELIJKEN(WAAR;ISGETAL(-DEEL(A1;RIJ(INDIRECT("1:"&LENGTE(A1)));1));0)
is juist (had Deetch gezegd CTRL SHIFT ENTER?)
Je hebt in jouw formule bij de A1 een + staan ipv een ;
Wat het eigenlijk doet is dat het in de cel zelf een nieuwe matrix aanmaakt (genaamd array). In deze matrix wordt op elke regel 1 karakter geplaatst. Vervolgens wordt van dit karakter bepaald of het een getal is of niet. Deze uitkomst (WAAR of ONWAAR) wordt opgeslagen op deze regel en daarna wordt de eerste regel met een WAAR teruggeven.
Het gebruik van de CTRL SHIFT ENTER zorgt ervoor dat je de array functie in de cel gebruikt. Dit kan je ook zien aan je formule doordat de formule tussen { } accolades worden weergegeven.
ik heb een userform gemaakt om een aantal cellen in te voeren.
bij 'ok' voert excel uit, bij 'cancel' annuleert hij en verwijdert automatisch het nieuw aangemaakte blad.
nu heb ik hierbij nog 3 dingen die ik graag wil toevoegen:
1. als ik cancel doe, wil ik graag de standaardmelding van excel (weet u zeker blablabla) overslaan
edit:
| 1 2 3 4 5 6 7 8 9 | Private Sub CommandButton2_Click() UserForm1.Hide Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets("TOTAAL").Select End Sub |
is de oplossing die ik hiervoor gevonden heb
2. als ik op het kruisje klik ipv cancel, moet hij hetzelfde doen als met de cancelknop
3. via het form doe ik ook tabnaam aanpassen, maar ik wil graag een controle of de naam al bestaat
zo nee, mag hij doorgaan, zo ja moet er een pop-up met foutmelding komen
Is dit mogelijk in een VBA script?
(en zo ja, hoe natuurlijk
)[ Bericht 25% gewijzigd door xyntarsus op 21-06-2012 12:58:44 (deeloplossing gevonden) ]
Vraag 2)
Volgens mij moet je iets maken in de trant van:
CloseMode is een 1 wanneer je zelf gebruik maakt van Unload Mequote:Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
'xxx
End If
End Sub
CloseMode is een 0 wanneer je bijvoorbeeld het kruisje gebruikt.
Via deze wijze kan je hem leiden naar je routine die je gebruikt voor Cancel.
3)
Nu kan je gewoon iets doen als:quote:Public Function BladBestaat(ByVal myName As String) As Boolean
On Error Resume Next
Bladbestaat = (Sheets(myName).Name <> "")
On Error GoTo 0
End Function
quote:Dim MyNewName As String
naamwerkblad:
MyNewName = InputBox("Hoe moet het tabblad heten")
If BladBestaat(MyNewName) Then
MsgBox ("Deze naam bestaat al")
GoTo naamwerkblad
End If
ActiveSheet.Name = MyNewName
Okquote:
Open VBA editor met Alt-F11.
Voeg een nieuwe Module toe door rechtermuisknop te klikken je filename (VBAProject (xxx) en te kiezen voor Insert -> Module
Plak deze code erin:
| 1 2 3 4 5 | Public Function ExpNormSDist(x As Double, y As Double, z As Double) As Double ExpNormSDist = Exp(((-1 * x) * y)) * Application.WorksheetFunction.NormSDist(z) End Function |
Dan sluit je de editor.
Nu kan je in Excel dmv
| 1 | =ExpNormSDist(VB1;VB2;C24) |
Omdat VB1 en VB2 gelijk zijn kan je ook gebruik maken van:
| 1 2 3 4 5 | Public Function ExpNormSDist(z As Double) As Double ExpNormSDist = Exp(((-1 * Range("VB1").Value) * Range("VB2").Value)) * Application.WorksheetFunction.NormSDist(z) End Function |
| 1 | =ExpNormSDist(C24) |
Succes!
Kijk even of je eruitkomt hoé het werkt, en niet óf het werkt
ik heb voor de foutcontrole (bestaat de bladnaam al, zo ja geef een melding)
de volgende code
| 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 37 38 39 | Private Sub CommandButton1_Click() Item = TextBox1 ActiveSheet.Range("b2").Value = Item Item = TextBox2 ActiveSheet.Range("b3").Value = Item Item = TextBox3 ActiveSheet.Range("b4").Value = Item Item = TextBox4 ActiveSheet.Range("b5").Value = Item Item = TextBox5 ActiveSheet.Range("f2").Value = Item Item = TextBox6 ActiveSheet.Range("f3").Value = Item On Error GoTo fout ActiveSheet.Name = ActiveSheet.Range("B2") fout: MsgBox ("het nummer bestaat al, voer een nieuw nummer in") UserForm1.Hide Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets("basis").Unprotect Sheets("basis").Copy Before:=Sheets("basis") Sheets("basis").Protect Sheets("basis (2)").Select UserForm1.Show UserForm1.Hide End Sub |
Deze gaat dus lopen als ik op OK klik
Als ik nu een al bestaand project heb geeft hij ook de juiste foutmelding, en hij opent ook netjes
het userform opnieuw.
Hierna gaat het mis, alle nummers die ik invoer neemt hij als 'al bestaand' en ik kom er niet meer uit.
Als ik nu de functie beeindig en opnieuw opstart, blijft hij de fout loopen en kan ik geen nieuwe bladen maken.
Wie kan mij vertellen wat ik fout doe??
Ok, laten we beginnen met een stukje voor de leesbaarheid van je code. Hiermee bedoel ik ook voorkomen dat je onnodig variabelen aanmaakt, danwel de code heel lang maaktquote:
thx voor de info wederom
ik heb voor de foutcontrole (bestaat de bladnaam al, zo ja geef een melding)
de volgende code
[ code verwijderd ]
Deze gaat dus lopen als ik op OK klik
Als ik nu een al bestaand project heb geeft hij ook de juiste foutmelding, en hij opent ook netjes
het userform opnieuw.
Hierna gaat het mis, alle nummers die ik invoer neemt hij als 'al bestaand' en ik kom er niet meer uit.
Als ik nu de functie beeindig en opnieuw opstart, blijft hij de fout loopen en kan ik geen nieuwe bladen maken.
Wie kan mij vertellen wat ik fout doe??
Een verwijziging naar Activesheet is niet nodig, ook is het eigenlijk niet nodig met de range te werken (al vinden veel mensen dit wel zo netjes. Je eerste deel kan je in feite beperken tot:
Nu naar je echte probleem. Hij loopt je code van boven tot beneden door. Dit houdt in dat hij je code van "fout" altijd uitvoert, ongeacht of het nu goed of fout gaat. Wat je dus moet doen is zorgen dat je code stopt, wanneer het niet fout gaat. In jouw geval krijg je dan zoiets:quote:[b2] = textbox1
[b3] = textbox2
[b4] = textbox3
[b5] = textbox4
[f2] = textbox5
[f3] = textbox6
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Private Sub CommandButton1_Click() On Error GoTo fout [b2] = textbox1 [b3] = textbox2 [b4] = textbox3 [b5] = textbox4 [f2] = textbox5 [f3] = textbox6 ActiveSheet.Name = Range("B2") 'mag overigens ook zijn ActiveSheet.Name = [b2] 'wanneer het goed gaat moet hij nu stoppen, daarom zet ik hieronder End neer, je kan bijvoorbeeld ook een Goto Einde maken ofzo On Error GoTo 0 'Wanneer je iets met error handling doet, is het goed om wanneer je klaar bent met het afvangen van je error weer terug te verwijzen naar goto 0 zodat weer de normale Excel error naar voren kan komen. End fout: 'en hier je fout handling zoals je dat wil end sub |
ik heb het zo opgebouwd, en t lijkt zelfs soepeler te lopen.nu voel ik me nog meer een amateur
Maar goed, op naar de volgende te bouwen onderdelen
(lijsten genereren, zoekfunctie bouwen en automatisch gegevens invoeren vanuit cellen)
Ik wil in het bestand dat ik aan het bouwen ben nog 2 extra dingen toevoegen.
1. een lijst van alle tabbladen (in mijn geval projectnummers)
waarbij dan een aantal gegevens uit het tabblad worden gezet in een lijst
2. een zoekfunctie waarbij ik een artikelnummer opgeef en die door meerdere tabbladen heen zoekt en kijkt of er in een bepaalde range cellen
(gedefinieerd door een artikelnummer aan het begin van de regel) niet lege cellen zijn.
deze regels met gegevens (dus de regels waarin in gegevens zijn ingevoerd) moet dan in een lijst
komen die weer begint met het projectnummer en dan de rest van de regel erachter zet
(en voor elk product in de zoekopdracht een lijst maakt)
Ik heb bij deze twee echter geen idee hoe ik moet beginnen
Wie helpt mij???
Voor het eerste deel is er zover ik weet geen normale formule die je daar bij kunt helpen en moet je dus naar VBA en krijg je iets in de trant van:quote:
en wederom ben ik er met een vraag.
Ik wil in het bestand dat ik aan het bouwen ben nog 2 extra dingen toevoegen.
1. een lijst van alle tabbladen (in mijn geval projectnummers)
waarbij dan een aantal gegevens uit het tabblad worden gezet in een lijst
2. een zoekfunctie waarbij ik een artikelnummer opgeef en die door meerdere tabbladen heen zoekt en kijkt of er in een bepaalde range cellen
(gedefinieerd door een artikelnummer aan het begin van de regel) niet lege cellen zijn.
deze regels met gegevens (dus de regels waarin in gegevens zijn ingevoerd) moet dan in een lijst
komen die weer begint met het projectnummer en dan de rest van de regel erachter zet
(en voor elk product in de zoekopdracht een lijst maakt)
Ik heb bij deze twee echter geen idee hoe ik moet beginnen
Wie helpt mij???
| 1 2 3 | For i = 1 To Sheets.Count ActiveCell.Offset(i - 1, 0).Value = Sheets(i).Name Next i |
Het tweede deel van je vraag begrijp ik niet helemaal. Kan je niet beter alle activiteiten op 1 tabblad opslaan en wanneer je iets voor een specifiek project wilt zien daar op filteren of een view daarvoor maken. Het verspreiden over al die tabbladen lijkt me eigenlijk niet handig.
kan ik daar dan ook, als ik die lijst eenmaal gegenereerd heb, gegevens uit dat specifieke blad achter hangen op een geautomatiseerde manier
de code die ik nu heb:
| 1 2 3 4 5 6 7 8 | Private Sub CommandButton4_Click() Sheets.Add Before:=Sheets("totaal") ActiveSheet.Name = "Projectenlijst" For i = 4 To Sheets.Count -1 ActiveCell.Offset(i - 1, 1).Value = Sheets(i).Name Next i |
Wat ik ook graag wil is een aantal bladen uitsluiten in de lijst (totaalblad en 'basis'tabel)
Kan dat ook?
boerenlogica zegt: als bladnaam = totaal, dan niets doen en doorgaan met de volgende
edit: ik heb hem nu in het 4e blad laten beginnen en het laatste niet meenemen, dan krijg ik in ieder geval te zien wat ik wil. Weet alleen niet of dit de beste oplossing is
voor het tweede deel van mijn vraag:
omdat ik ook een lijst per project wil kunnen uitdraaien, en ik iedere keer dezelfde tabel heb
voor een project (in de rijen de producten en in de kolommen 52 weken) wordt het heel onoverzichtelijk om dat in 1 blad te doen.
vandaar de keuze om voor elk project (pakweg 50 tegelijk meestal) een apart tabblad te maken, mijn 1e blad is dan een totaalblad dat optelt door de bladen heen.
Ik heb laatst een vergelijkbare opzet gezien, maar helaas krijg ik daar de code niet van :S
[ Bericht 7% gewijzigd door xyntarsus op 29-06-2012 10:10:59 (trial and error werkt :P) ]
Waarom begin je trouwens pas vanaf sheet 4 te tellen?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub test() j = 0 For i = 4 To Sheets.Count -1 If Sheets(i).Name = "totaalblad" Or Sheets(i).Name = "basistabel" Then j = j Else ActiveCell.Offset(j, 1).Value = Sheets(i).Name j = j + 1 End If Next i End Sub |
dat stukje 'if' functie is denk ik de nette manier
zo lukt het in ieder geval wel
blijven de punten van het invullen van andere gegevens uit de betreffende bladen en de zoekfunctie over...
na wat zoek en stoeiwerk denk ik dat ik met vert.zoeken een eind moet kunnen komen,
maar dan moet ik dat over meerdere bladen trekken en vervolgens van de gevonden regels een kopie in een nieuw blad zetten (en dan alle gevonden regels in hetzelfde blad onder elkaar)
Als je veel uitzonderingen hebt is het misschin mooier om met case select te werken in plaats van de If....then...else
Dus in plaats van het hele stuk code tusen IF en END IF doe je onderstaande code
| 1 2 3 4 5 6 7 | Select Case Sheets(i).Name Case "totaal", "test" j = j Case Else ActiveCell.Offset(j, 1).Value = Sheets(i).Name j = j + 1 End Select |
Aangezien je een lijst wilt op basis van projectnummer en alle tabbladen projectnumemrs zijn zou je een vert.zoeken kunnen combineren met indirect?
nu ben ik overvraagd....
Om nu een waarde uit dat tabblad te halen doe je ='project1'!C2
Echter als je nou de naam van het tabblad variabel wilt maken omdat je al een lijst hebt met alle tabbladnamen dan kun je met INDIRECT dat bereiken.
Voorbeeld:
zet de naam van het tabblad op een ander blad in cel A1 (bijvoorbeeld)
en zet in de cel eronder de volgende formule
=indirect("'"& A1 &"'!C2") (let op alle leestekens)
deze haalt de waarde uit cel C2 van het tabblad waarvan de naam in A1 staat.
met het & teken kun je tekststrings aan elkaar plakken. Je plakt hier dus een ' voor de naam van het tabblad (A1) en erachter '!C2 voor het afsluiten van de tabblad naam en de verwijzing naar de cel.
enige wat hij nu niet doet, is projecten die er niet meer zijn weghalen,
is er een mogelijkheid dat ik dta kan invoegen?
Ik ben er van uitgegaan dat de sheetnamenlijst in b1 en daaronder staat, anders in de activesheet regel b1 veranderen in de gewenste celquote:
ok thx, dit werkt, ik kan nu een projectenlijst maken en updaten
enige wat hij nu niet doet, is projecten die er niet meer zijn weghalen,
is er een mogelijkheid dat ik dta kan invoegen?
De hele regel van de sheet die niet meer bestaat wordt verwijderd
| 1 2 3 4 5 6 7 8 9 10 11 12 | Sub sheetbestaatnietmeer() On Error Resume Next ActiveSheet.Range("b1", ActiveSheet.Range("b1").End(xlDown)).Select For Each c In Selection If Sheets(c.Value).Name = "" Then c.EntireRow.Delete Next c On Error GoTo 0 End Sub |
Tja eigenlijk blijf ik wel van mening dat je eigenlijk al je data in 1 tabblad moet zetten. Wanneer je verschillende dwarsdoorsnedes wilt maken van je gegevens set kan je dat veel makkelijker via een pivot tabel regelen. Dan kan je tenminste zeggen ik wil alles van 1 project zien, of 1 product over alle projecten heen.quote:
voor het tweede deel van mijn vraag:
omdat ik ook een lijst per project wil kunnen uitdraaien, en ik iedere keer dezelfde tabel heb
voor een project (in de rijen de producten en in de kolommen 52 weken) wordt het heel onoverzichtelijk om dat in 1 blad te doen.
vandaar de keuze om voor elk project (pakweg 50 tegelijk meestal) een apart tabblad te maken, mijn 1e blad is dan een totaalblad dat optelt door de bladen heen.
Ik heb laatst een vergelijkbare opzet gezien, maar helaas krijg ik daar de code niet van :S
Ook scheelt dit heel veel macro gedoe, wat in mijn ogen er alleen maar voor zorgt dat je programma onbeheersbaar wordt.
Dat is eigenlijk wel beter voor xyntarsus' gebruik. Maar ja, access is engquote:
Falerquote:
[..]
Dat is eigenlijk wel beter voor xyntarsus' gebruik. Maar ja, access is eng
maar acces is niet beschikbaar op het netwerk hier
moet het doen met word en excel....
en wat betreft de aparte tabbladen, ook dat is een soort van
'opgelegde eis' :S
pivot tables zouden inderdaad kunnen als alles in 1 blad stond.
zucht, IT op de werkplekquote:
access is niet eng hoor
maar acces is niet beschikbaar op het netwerk hier
moet het doen met word en excel....
en wat betreft de aparte tabbladen, ook dat is een soort van
'opgelegde eis' :S
pivot tables zouden inderdaad kunnen als alles in 1 blad stond.
kan thuis wel een Access dbase bouwen in office 2010, maar daar gaan we in
excel 2003 weinig aan hebben
:Pzal dus wat meer moeite moeten doen, maar heb er wel vertrouwen is dat t gaat lukken...
(denk ik....)
Daarnaast kan je bij het dubbel-klikken in je pivot tabel je betreffende benodigde tabblad creëren. Het maakt in ieder geval die zoekfunctie makkelijker (query) ipv via vertikaal zoeken over alle tabbladen of een ctrl f functie via macro's.
Is die zoekfunctie overigens wel mogelijk??
[ Bericht 15% gewijzigd door xyntarsus op 03-07-2012 08:48:05 ]
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Sub zoek(ByRef Sheet As Worksheet, ByRef Targetcell As Range, ByRef qrySearch As String, ByRef numcolumns As Integer) Dim zoekrange As Range, lastrow As Integer, cell As Range Set zoekrange = Sheet.Range("A:A")'Waar gaan we zoeken? Set cell = Sheet.Cells(1, 1)'De eerste cell in de kolom lastrow = 0 Do Set cell = zoekrange.Find(qrySearch, cell, xlValues, xlPart, xlByColumns, xlNext) If cell Is Nothing Then Exit Sub'zoekopdracht nergens gevonden If cell.Row < lastrow Then Exit Sub'voorbij einde van kolom lastrow = cell.Row Targetcell.Value = Sheet.Name If WorksheetFunction.CountA(Sheet.Rows(lastrow)) > 1 Then'Er zitten niet-lege cellen in deze rij Sheet.Range("A" & lastrow).Resize(ColumnSize:=numcolumns).Copy Targetcell.Offset(ColumnOffset:=1).Resize(ColumnSize:=numcolumns) Set Targetcell = Targetcell.Offset(Rowoffset:=1) End If Loop End Sub |
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Sub test() dim rngDoelwit as Range dim strQry as string dim numCols as integer 'hoeveel kolommen moeten er gekopieerd worden numCols = 10 'Je zoekopdracht strQry = "1*" 'Waar moeten de resultaten komen set rngDoelwit = ActiveCell For i = 4 To Sheets.Count -1 If Sheets(i).Name <> "totaalblad" And Sheets(i).Name <> "basistabel" Then zoek Sheets(i), rngDoelwit, strQry, numCols End if Next i End Sub |
maar wat ik even niet kan zien in de gauwigheid is of hij een nieuw blad aanmaakt
waarin hij alle gevonden regels als kopie zet (met als naam: 'art "ingegeven nummer" '.
(dit laatste lijkt me de regel:
| 1 2 | item = textbox activesheet.name = ' "art"' &item' |
tenminste zo had ik het zelf verzonnen
)Van de (artikel)nummers waarop ik ga zoeken weet ik overigens zeker dat ze bestaan en gevonden zullen worden.
Lijst 1 heeft een aantal namen
Lijst 2 heeft getallen die bij de namen horen
In plaats van:
Banaan 2
Appel 3
Wil ik zo een lijst
Banaan
Banaan
Appel
Appel
Appel
Weet iemand hoe ik dit snel en makkelijk kan doen?
snel en makkelijk via VBA, maar het kan ook in excel (zij het omslachtigquote:
Ik heb in excel een sheet met 2 lijsten naast elkaar
Lijst 1 heeft een aantal namen
Lijst 2 heeft getallen die bij de namen horen
In plaats van:
Banaan 2
Appel 3
Wil ik zo een lijst
Banaan
Banaan
Appel
Appel
Appel
Weet iemand hoe ik dit snel en makkelijk kan doen?
)Ik ga even van de volgende indeling uit:
| 1 2 3 4 | Fruit Aantal Banaan 2 Appel 3 Peer 4 |
stap 1) maak een lege kolom vóór de fruitkolom.
In A2 vul je de rij in waarin je uitkomst kolom moet beginnen. (bijvoorbeeld '2', indien je rij in D2 begint)
in A3 vul je =SOM(C$2:C2)+A$2
deze formule trek je naar beneden tot één rij onder je laatste fruit.
Dan, ik de kolom waar je je fruit wil hebben, vul je de volgende formule in
=VERT.ZOEKEN(RIJ();A:B;2;WAAR)
Deze formule trek je naar beneden zover je wil.
Indien je de nullen lelijk vindt zet je een spatie in de cel onder het laatste fruit.
Klaar.
| 1 2 3 | sheetnaam = InputBox("Geef artikelnummer: ", "Artikelnummer") Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = "art." & sheetnaam |
Als de sheetnaam (oftewel het artikelnummer) ergens vandaan komt dan moet je in plaats van de inputbox naar die plek verwijzen. Of in een eerder stadium in je macro het gevonden artikelnummer aan de variabele sheetnaam hangen.
Op blad 1, moet worden ingevuld JA of NEE. Op blad 2, staan de antwoorden, ook in JA of NEE vorm. En op blad 3, moet de uitslag neer worden gezet. Als het goed is, dan moet hetzelfde vakje als in blad 1 en 2, in het groen komen te staan met de tekst 'GOED'. Als het fout is, dan in het rood met de test 'FOUT'.
Kom er niet uit.
Thanks!quote:
Enig idee, trouwens. Ik heb bij de 'uitslag' pagina dus de uitslag staan, maar als ik niets invul bij de antwoorden zelf geeft hij 'fout' aan. Is er ook een manier om het zo in te stellen, dat hij pas 'goed' of 'fout' aangeeft als ik pas iets heb ingevuld?
[ Bericht 23% gewijzigd door einschtein op 08-07-2012 21:10:55 ]
SPOILER=als(Blad1!A1<>"";ALS(Blad1!A1=Blad2!A1;"GOED";"FOUT");"")
Ik had zelf inderdaad even verder moeten denken, maar heb er niet aangedacht om een ALS in een ALS te verwerken.quote:
Lukt je dat niet zelf adhv de formule die je net hebt gekregen?SPOILER=als(Blad1!A1<>"";ALS(Blad1!A1=Blad2!A1;"GOED";"FOUT");"")
=ALS(Vragen!A1="";"Blanco";ALS(Vragen!A1=Antwoorden!A1;"Goed";"Fout"))
En het werkt.
Even een andere 'vraag'
Heeft iemand van jullie wel eens wat gemaakt (in excel om het ontopic te houden) waar je ZO trots op bent dat je er gewoon een tikkie blij van wordt als je er aan denkt? Ja, i know, quite nerdy enzo, maar vroeg het me af.
Want dat heb ik nu wel
Voor het eerst ook een echt gelikte GUI in elkaar geflanst die onwijs intuitief aanvoelt en gewoon vet is. (als het af is post ik wel filmpie )/offtopic
Maarja, het is geen showoff topic hier natuurlijk ^^
Jup, mijn mega-super-duper-planning voor m'n studie!quote:
/offtopic
Even een andere 'vraag'
Heeft iemand van jullie wel eens wat gemaakt (in excel om het ontopic te houden) waar je ZO trots op bent dat je er gewoon een tikkie blij van wordt als je er aan denkt? Ja, i know, quite nerdy enzo, maar vroeg het me af.
Want dat heb ik nu wel
/offtopic
Maarja, het is geen showoff topic hier natuurlijk ^^
Helaas hield die er alleen geen rekening mee dat ik er langer dan 4 jaar over zou doen..
Alleen worden de successen vaak overschaduwt door de dingen die ik wel wil, maar niet voor elkaar krijg in Excel
Dat was wel in de tijd dat ik nog niet zoveel met arrays etc werkte dus na het invoeren van alle relevante data in een userform flitste het scherm een minuut of 5 en dan kwam er een vet sjieke grafiek uit.
Daar was ik toen heel trots op en ook mijn cijfer was ernaar
Als ik er nu over nadenk: 
Nou bestaat die uit 3 vakjes met nauwelijks opmaakmogelijkheden, maar ik wil graag een tabel van 4 vakjes als footer.
Kan dat?
Je zult je in ieder geval moeten behelpen met de 3 secties (links, center en rechts)
Maar als ik het zo begrijp is de enige mogelijkheid dus om dat als afbeelding in te voegen?
Met andere woorden ik begrijp niet wat je precies wilt. Excel kan goed werken met getallen, bedoel je soms uit een hele reeks data "random" een x aantal getallen halen?quote:
Ik vroeg me af of Excel eigenlijk de mogelijkheid kent om een bootstrap te doen (uit een distrubtie trekken). Met andere woorden, het (tigmaal) samplen van een tijdreeks?
Wat heb je als in input en wat wil je als output?
Ja, maar moet je zelf schrijven in visual basic.quote:
Ik vroeg me af of Excel eigenlijk de mogelijkheid kent om een bootstrap te doen (uit een distrubtie trekken). Met andere woorden, het (tigmaal) samplen van een tijdreeks?
EDIT: Het KAN strict genomen in excel ook maar is erg onpractisch.
één bootstrap wordt dan (als brondata, bijvoorbeeld kosten en effecten in A1:B100 staat)
C1 = 1+ASELECT()*99
D1 = Index(A1:B100;C1;1)
E1 = Index(A1:B100;C1;2)
Trek dit 200 cellen naar beneden en je hebt 200 bootstraps aan kosten (D) en effecten (E).
De reden dat je dit beter niet zo kunt doen is dat 1) een bootstrap van 10000x erg traag wordt en 2) excel random getallen keer op keer vernieuwd waardoor je lijst continue veranderd.
[ Bericht 30% gewijzigd door ralfie op 16-07-2012 12:15:20 ]
Om één of andere reden is een Excelsheet van me kolossaal geworden met héél veel rijen en héél veel kolommen. Zoveel dat Excel het niet aan kan om ook maar één rij of kolom te verwijderen omdat dat 'te zwaar is', ookal is 99% ervan leeg.
Weet iemand of er een manier is om een Excel sheet te 'croppen'?
Wellicht begrijp ik je verkeerd, ik lees dit even als dat je een scenario wilt doorberekenen aan de hand van een random input? Ja dat kan. Maak hiervoor gebruik van de gegevenstabel zoals dit te vinden is onder tab Gegevens -> Wat-als analyse.quote:
Ik vroeg me af of Excel eigenlijk de mogelijkheid kent om een bootstrap te doen (uit een distrubtie trekken). Met andere woorden, het (tigmaal) samplen van een tijdreeks?
Het is even prutsen om het de eerste keer werkend te krijgen maar feitelijk is dit bedoeld om een formule met verschillende scenario's door te rekenen. Voor jouw analyse zal je vervolgens het gemiddelde hiervan waarschijnlijk willen gebruiken (van een random input var).
De makkelijkste manier is je relevante data naar een nieuw werkblad te brengen en de oude te verwijderen.quote:
Oké, 'help!'
Om één of andere reden is een Excelsheet van me kolossaal geworden met héél veel rijen en héél veel kolommen. Zoveel dat Excel het niet aan kan om ook maar één rij of kolom te verwijderen omdat dat 'te zwaar is', ookal is 99% ervan leeg.
Weet iemand of er een manier is om een Excel sheet te 'croppen'?
Pfff, dan gaat alleen de lay-out enigszins naar de kl*ten, maar dat gaan we dan toch maar even proberen want rijen verwijderen trekt ie kennelijk echt niet.quote:
[..]
De makkelijkste manier is je relevante data naar een nieuw werkblad te brengen en de oude te verwijderen.
Ik heb overigens nog steeds geen flauw idee welke toetsencombinatie die rijen tevoorschijn heeft gehaald..
Kijk hiervoor onder het tabblad Formules naar de optie Berekeningopties. Haal deze van automatisch af om te voorkomen dat je bij elke wijziging alle dingen opnieuw doorrekent. Nadat je de wijzigingen hebt doorgevoerd, kan je dit weer aanzetten.
Nu wil ik mijn gemiddelde 'vast' zetten, als in: daar hoef ik niets aan te doen. Dat betekent dat als ik een nieuw cijfer in wil voeren, ik enkel het cijfer en de wegingsfactor invoer, waarna mijn gemiddelde wordt berekend.
Ik kan wel bedenken hoe ik mijn totale wegingsfactor uitreken (=SUM(Weging[#All]), maar ik kan mij niet bedenken hoe ik wanneer ik een nieuwe kolom maak, ik mijn cijfer maal mijn wegingsfactor kan doen (voor elk cijfer). Kan iemand mij helpen?
Je wegingsfactor in kolom A (bijvoorbeeld van A2 tot A10), je cijfer in kolom B.(bijvoorbeeld van B2 tot B10).
Je kan nu je totaal berekenen door middel van somproduct(A2:A10;B2:B10) [in het engels sumproduct] en je kunt het totaal van je wegingsfactor berekenen via som(A2:A10).
Je gewogen gemiddelde vormt dus: somproduct(A2:A10;B2:B10)/som(A2:A10)
Ontzettend bedankt, ik kende die functie niet.quote:
Voorbeeld
Je wegingsfactor in kolom A (bijvoorbeeld van A2 tot A10), je cijfer in kolom B.(bijvoorbeeld van B2 tot B10).
Je kan nu je totaal berekenen door middel van somproduct(A2:A10;B2:B10) [in het engels sumproduct] en je kunt het totaal van je wegingsfactor berekenen via som(A2:A10).
Je gewogen gemiddelde vormt dus: somproduct(A2:A10;B2:B10)/som(A2:A10)
Nu kan ik weer verder.Hmm, ik heb geprobeerd het totaal aantal punten (voor deling) te berekenen, echter voert Excel mijn formule überhaupt niet uit. Wat is er fout aan deze formule?quote:
Voorbeeld
Je wegingsfactor in kolom A (bijvoorbeeld van A2 tot A10), je cijfer in kolom B.(bijvoorbeeld van B2 tot B10).
Je kan nu je totaal berekenen door middel van somproduct(A2:A10;B2:B10) [in het engels sumproduct] en je kunt het totaal van je wegingsfactor berekenen via som(A2:A10).
Je gewogen gemiddelde vormt dus: somproduct(A2:A10;B2:B10)/som(A2:A10)
| 1 | =SUMPRODUCT(Weging[[#All]];[@[Proefwerk H1]]:OFFSET(E6;;COUNTA(ProgressChartValues))) |
Weging[#All] is het totaal van de wegingsfactoren (die zelf een tabel vormen). Bij [@[Proefwerk H1]] beginnen de cijfers. OFFSET(E6;;COUNTA(ProgressChartValues)) berekent de locatie van mijn laatste cijfer d.m.v. de wegingsfactor. Als ik bijvoorbeeld 3 wegingsfactoren heb ingevuld, is COUNTA(ProgressChartValues) 3, waardoor OFFSET(E6;;COUNTA(ProgressChartValues)) de waarde E9 wordt. ProgressChartValues is hierbij een array met alle wegingsfactoren.
//edit: Laat maar, de formule was wel correct. Ik heb een hele stomme fout gemaakt: ik had de cell op 'Text' gezet. Door 'm op 'General' te zetten, kwam alles weer goed.
[ Bericht 2% gewijzigd door PowerData op 18-07-2012 11:23:23 ]
Ik zou graag een gemiddelde (gewogen) over een aantal cijfers berekenen via een dynamische tabel, echter wil ik dat bijvoorbeeld wanneer er een 0 waarde staat hij niet wordt meegerekend. Ik vertel wat ik mijn cellen heb. In de cellen A3 t/m A5 heb ik de namen van de leerlingen staan. In de cellen B3 t/m B5 staan hun gemiddeldes.
Cel B3:
| 1 | =IFERROR(SUMPRODUCT(Weging[#All];[@[Proefwerk 1]]:OFFSET(B3;;COUNTA(ProgressChartValues)))/SUM(Weging[#All]);"") |
De werking is als volgt: via SUMPRODUCT worden de cijfers vermenigvuldigt met de wegingsfactoren (Weging[#All]). Vervolgens worden deze totalen gedeeld door de som van de wegingsfactoren (SUM(Weging[#All]).
De OFFSET berekent dynamisch, aan de hand van het aantal wegingsfactoren, hoeveel cijfers er in de tabel ingevoerd zijn.
In de cellen C3 t/m C5 heb ik de eerste cijfers ingevoerd (van 'proefwerk 1'), in de cellen D3 t/m D5 de cijfers van het tweede proefwerk en de cellen E3 t/m E5 die van het derde proefwerk.
Stel dat ik bijvoorbeeld bij leerling 2 het cijfer van het tweede proefwerk niet invul, hoe zorg ik er dan voor dat het gemiddelde geen rekening houdt met zijn tweede proefwerk, maar wel met dat van de anderen?
Ik heb een voorbeeld voor je gemaakt hoe ik het zou doen. Dit voorbeeld moet je alleen gebruiken wanneer het aantal leerlingen niet heel groot wordt (dus zeg onder de 1000 ofzo).quote:
Het voorbeeld kan je hier vinden: http://www.snirc.nl/extra/leerlingen.xlsx
Wat ik hier doe is het volgende:
Ik bepaal nog steeds de sumproduct op de gebruikelijke wijze, immers vormt een 0 * een wegingsfactor gewoon 0. De truc zit in het tweede deel: SUM((C3:E3>0)*(C1:E3))
Wat ik hier doe is gebruik maken van een array (of vector) binnen 1 cel. De vector voor het deel C3:E3 levert een 1 op wanneer dit groter is dan 1 en een 0 wanneer dit niet groter is dan 0. Deze 1 of 0 vermenigvuldig ik vervolgens met de betreffende wegingsfactor in C1:E1. Hierdoor tellen alleen de wegingsfactoren voor je betreffende leerling mee wanneer het cijfer >0 is.
Voor het gebruik van een array formule moet je bij het invoeren je linker CTRL en SHIFT toets ingedrukt houden terwijl je via enter de formule bevestigd. Gebruik je niet del CTRL + SHIFT dan kan Excel dit niet juist verwerken.
Het gebruik van een array binnen een cel zorgt ervoor dat excel extra berekenigen moet maken per cel. Wanneer je dus veel (echt veel) leerlingen en proefwerken hebt, kan dit trager werken.
Tot slot. Wanneer je geen cijfers invoert zal hij een deling door 0 maken. Dit kan je eventueel oplossen door kolom B te splitsen in 2 kolommen. In de ene kolom maak je de werkelijke berekening (en deze verberg je) en via de andere kolom zet je iets als: =if(iserror(B3):0;B3)
Nu wordt er 0 getoond wanneer je die foutmelding krijgt voor delen door 0.
Briljant.quote:
[..]
Wat ik hier doe is het volgende:
Ik bepaal nog steeds de sumproduct op de gebruikelijke wijze, immers vormt een 0 * een wegingsfactor gewoon 0. De truc zit in het tweede deel: SUM((C3:E3>0)*(C1:E3))
Wat ik hier doe is gebruik maken van een array (of vector) binnen 1 cel. De vector voor het deel C3:E3 levert een 1 op wanneer dit groter is dan 1 en een 0 wanneer dit niet groter is dan 0. Deze 1 of 0 vermenigvuldig ik vervolgens met de betreffende wegingsfactor in C1:E1. Hierdoor tellen alleen de wegingsfactoren voor je betreffende leerling mee wanneer het cijfer >0 is.
Ik ben nieuw met arrays binnen Excel (al heb ik ze wel gebruikt, gezien dat handig is voor dynamische grafieken ed.), maar ik wist nog niet dat je ook een True, False, True array kon maken. Bedankt daarvoor.Overigens is er iets wat ik nog niet helemaal snap: wat is nou het verschil tussen SUM((C3:E3>0)*(C1:E3)) en SUMPRODUCT(C3:E3>0;C1:E3). De SUMPRODUCT werkt niet, maar ik zou toch denken dat die juist zelfs zonder array zou werken?
In ieder geval, dit is nu het resultaat voor het gemiddelde (in B3), en het werkt.
| 1 | {=IFERROR(SUMPRODUCT(Weging[#All];[@[Proefwerk H1]]:OFFSET(B3;;COUNTA(ProgressChartValues)))/SUM(([@[Proefwerk H1]]:OFFSET(B3;;COUNTA(ProgressChartValues))>0)*Weging[#All]);"")} |
Bedankt.
Waarom weet ik niet precies, maar SUMPRODUCT(C3:E3>0) blijft TRUE en FALSE gebruiken ipv 1 en 0. SUMPRODUCT((C3:E3>0)*1) maakt er wel al 1 en 0 van.quote:Op woensdag 18 juli 2012 23:15 schreef PowerData het volgende:
Overigens is er iets wat ik nog niet helemaal snap: wat is nou het verschil tussen SUM((C3:E3>0)*(C1:E3)) en SUMPRODUCT(C3:E3>0;C1:E3). De SUMPRODUCT werkt niet, maar ik zou toch denken dat die juist zelfs zonder array zou werken?
Het nadeel van dit toe te passen in je sumproduct deel is dat je het cijfer van je proefwerk kwijt raakt in het 1 en 0 geneuzel. Dit zou je weer moeten oplossen door er zoiets van te maken:
=SUMPRODUCT((C3:E3>0)*(C3:E3);$C$1:$E$1)
Op dit moment heb je nog steeds maar het totaal berekend en niet het deel wat je moet berekenen voor de wegingsfactor. Er is geen verschil tussen SUM en SUMPRODUCT wanneer je alles binnen 1 argument houdt. In mijn formule is het enige verschil dat het deel van de SUM bepaalt door hoeveel gedeeld moet worden.
You're welcomequote:Bedankt.
Zoals je al zei is het voor het totaal berekenen niet nodig om een vergelijking als > 0 in te voeren, gezien die automatisch al wegvalt.quote:
[..]
Waarom weet ik niet precies, maar SUMPRODUCT(C3:E3>0) blijft TRUE en FALSE gebruiken ipv 1 en 0. SUMPRODUCT((C3:E3>0)*1) maakt er wel al 1 en 0 van.
Het nadeel van dit toe te passen in je sumproduct deel is dat je het cijfer van je proefwerk kwijt raakt in het 1 en 0 geneuzel. Dit zou je weer moeten oplossen door er zoiets van te maken:
=SUMPRODUCT((C3:E3>0)*(C3:E3);$C$1:$E$1)
Ik bedoelde eigenlijk voor de noemer.Jij had voorgesteld als noemer SUM((C3:E3>0)*(C1:E3)) te nemen en er dan een array van te maken, wat dus overigens perfect werkt. Zou het niet ook werken om dan in plaats daarvan SUMPRODUCT(((C3:E3>0)*1);$C$1:$E$1) te gebruiken, waarbij je geen (extra) arrays nodig hebt?
//edit: ik heb het getest, en dit werkt ook!
Welke is dan slimmer om te gebruiken? De SUM waarbij je de array met CSE zelf toevoegt, of de SUMPRODUCT die uit zichzelf al met arrays werkt?Wat is beter, tja ik zou vermoeden dat het beter is geen gebruik te maken van een array formule, omdat ik verwacht dat de interne formules van Excel efficienter zijn geprogrammeerd, maar volgens mij is het het belangrijkste dat het werkt
Zonder array is wel makkelijker invoeren en daardoor minder fout gevoelig.
Ik gebruik zelf liever -- ervoor omdat het dan duidelijker is dat je die alleen gebruikt om van true false een 1 of 0 te maken ipv dat je een array daadwerkelijik vermenigvuldigd met een echt getal.
=SUMPRODUCT(--(C3:E3>0))
Mijn ervaring is dat een sumproduct sneller is dan een CSE functie. En verder ziet een sumproduct er natuurlijk vet uit.
Ik heb een sheet met voor elke dag (kolommen) hoeveelste deel van een doos er ontvangen moet worden per product (rijen). Dit is bijvoorbeeld 1,3 of 2,5 of 3. Bijvoorbeeld:
| 1 2 3 4 5 | 1 jan 2 jan 3 jan 4 jan prod 1 1 2 0 1 prod 2 1.5 1.3 1 1.4 prod 3 2 0 1.2 1.9 prod 4 0 1 1.7 1.2 |
Nu moet ik kijken wanneer er een afgevulde vrachtwagen met bijvoorbeeld plaats voor 10 dozen kan komen rijden. Probleem hierbij is dat 1,5 doos de ruimte inneemt van 2 dozen. Maar dat prod 2, als de vrachtwagen op 1 jan rijdt en voor 2 dagen meeneemt, niet 4 (roundup(1.5)+roundup(1.3) dozen aan ruimte inneemt, maar 3 want roundup(1.5+1.3). Hoe kan ik dit het makkelijskte doen?
invullen en met ctr+shift+enter accepteren
Dank je, met een ,0 bij de roundup lukte hetquote:
=SUM(ROUNDUP((A2:A5+B2:B5))
invullen en met ctr+shift+enter accepteren
Alleen hoe bepaal ik nu of ik de som van 1, 2, 3 of misschien wel meer kolommen moet hebben om de vrachtwagen te vullen? Het kan bijvoorbeeld voorkomen dat de vrachtwagen gevuld kan worden met de behoefte van bijvoorbeeld 20 dagen.
[ Bericht 99% gewijzigd door _superboer_ op 21-07-2012 16:23:53 ]
had je het zelf opgelost? Misschien kon iemand anders er nog wat van leren.quote:
Had het zelf opgelost:quote:
[..]
had je het zelf opgelost? Misschien kon iemand anders er nog wat van leren.
ActiveCell.FormulaR1C1 = _
"=ROUNDUP(SUM('4.1.1. tussenstap krat'!RC:RC[j - 1]),0)"
Moest zijn:
ActiveCell.FormulaR1C1 = _
"=ROUNDUP(SUM('4.1.1. tussenstap krat'!RC:RC[" & j - 1 & "]),0)"
In bestand A staat in kolom D data. Deze staat in willekeurige volgorde ook in bestand B, kolom A. Echter staat er in bestand B data in kolom B welke ik naar bestand A wil hebben. Maar alleen op de goede plaats iofwel achter dezelfde term als waar het in B ook staat. Hoe doe ik dit?
Dit in Excel 2007, Engels.
=VLOOKUP(D1,[bestandB.xlsx]Sheet1!$A$1:$B$4,2,0)
Ik ben er gemakshalve even vanuit gegaan dat je tabel in bestandB niet verder gaat dan rij 4, anders moet je $B$4 even naar smaak aanpassen.
[ Bericht 72% gewijzigd door Deetch op 26-07-2012 11:58:53 ]
http://social.technet.mic(...)5-876e-9d1d46e7975f/quote:
Als ik enkele van mijn excelbestanden probeer te openen (>15mb) loopt excel (64bit) vast. Als ik deze bestanden echter openen op een virtual machine met excel (32bit) kunnen de bestanden wel geopend worden. Iemand een idee waar dit aan kan liggen?
?
Hoe doe ik onderstaande het meest efficiënt in VBA?
{=SOM((B2:B10="A")*(C2:C10="B")*D2:D10)}
Thanks!
Waarom niet gewoon in excel?
=SUMIFS(D2:D10,B2:B10,"A",C2:C10,"B")
1)
Sommen.als of sumifs zoals hierboven
2)
Range("A1").FormulaArray = "=SuM((B2:B10=""A"")*(C2:C10=""B"")*D2:D10)"
3) Een andere goede methode is gebruik te maken van autofilters en subtotaal.
4) Tot slot kan je een for loop bouwen, maar dit lijkt me zeer inefficient.
[ Bericht 9% gewijzigd door snabbi op 28-07-2012 22:15:22 ]
bedankt voor de reacties.
myvalue = Evaluate("=SUMIFS(D2:D10,B2:B10,""A"",C2:C10,""B"")")
Ik heb in Excel kolom A is startdatum, kolom B is einddatum en dan wil ik dat kolom C het totaal aantal maanden laat zien maar welke formule moet ik dan waar neerplempen?
Versie 2007 geloof ik en taal staat gewoon in het Nederlands
Waar "m" is de eenheid die je wilt (kan ook "j" zijn bv)
En waar zet ik dat neer? Want k snap er echt ff helemaal niks meer van. Heb tot nu toe alleen "simpele" sommen hoeven verwerken in Excel en nog nooit echt met formules gewerktquote:
DATUMVERSCHIL(startdatum;einddatum;"m")
Waar "m" is de eenheid die je wilt (kan ook "j" zijn bv)
In cel c1 zet je =datumverschil(A1;B1;"m")quote:Op donderdag 2 augustus 2012 12:31 schreef Huppelmuts het volgende:
[..]
En waar zet ik dat neer? Want k snap er echt ff helemaal niks meer van. Heb tot nu toe alleen "simpele" sommen hoeven verwerken in Excel en nog nooit echt met formules gewerkt
En in cel C2 dus =datumverschil(A2;B2;"m") enz?quote:
[..]
In cel c1 zet je =datumverschil(A1;B1;"m")
Dat kan niet makkelijker? Ik hoef namelijk maar 505 rijen uit te rekenen
Voer de formule in in cel c1, klik de cel aan en sleep het kleine vierkantje in de rechter onderhoek van de cel naar beneden. Als je dubbelklikt op dat vierkantje worden de cel gekopieerd tot de laatste gevulde cel van B2. A1 en B1 veranderen dan automatisch naar A2 en B2 in cel C2, en B3 en C3 in cel C3, enz.quote:
[..]
En in cel C2 dus =datumverschil(A2;B2;"m") enz?
Dat kan niet makkelijker? Ik hoef namelijk maar 505 rijen uit te rekenen
Helemaal geweldig!!quote:
[..]
Voer de formule in in cel c1, klik de cel aan en sleep het kleine vierkantje in de rechter onderhoek van de cel naar beneden. Als je dubbelklikt op dat vierkantje worden de cel gekopieerd tot de laatste gevulde cel van B2. A1 en B1 veranderen dan automatisch naar A2 en B2 in cel C2, en B3 en C3 in cel C3, enz.
Mijn dank is groot!!
Welkom in de wondere wereld van Excel waar alles makkelijker is dan het lijktquote:
[..]
Helemaal geweldig!!
Mijn dank is groot!!
Ghehe mjah ik heb er gewoon al jaren niet meer mee gewerkt. Voel me nu echt een dom blondjequote:
[..]
Welkom in de wondere wereld van Excel waar alles makkelijker is dan het lijkt
Dan ga ik nu uitzoeken hoe ik de volgende kolom van de juiste formule ga voorzien
Die was simpelquote:
=C2*0,50
| 1 | =AANTAL.ALS(E186:BG186;"D")-AANTAL.ALS(H186:K186;"D") |
Hij telt dus het aantal keer "D" in regel 186 van kolom E t/m BG. Hij trekt echter de kolommen H t/m K er van af.
Nu wil ik echter nog een paar losse kolommen selecteren die Excel ook moet aftrekken. Bijvoorbeeld cel T186 en AC186.
Maar hoe doe ik dat? Want ik kan alleen maar een bereik opgeven. Moet ik dan voor die losse cellen, telkens een nieuwe functie erachter zetten?
Dus als volgt:
| 1 | =AANTAL.ALS(E186:BG186;"D")-AANTAL.ALS(H186:K186;"D")-AANTAL.ALS(T186;"D") |
[ Bericht 9% gewijzigd door DaFan op 02-08-2012 15:31:44 (Wtf telefoon ) ]
Ik ga proberen het uit te leggen. Geen idee of dat gaat lukken.
Dit zijn mijn kolommen:
Kenteken, Status, Ingangsdatum, Einddatum, Fysieke Einddatum, Aantal maanden actief, Bedrag tot nu toe (2-8-12)
De kolom einddatum is gebruikt om het aantal maanden actief uit te rekenen. Maar toen ontdekten we dat die einddatum in sommige gevallen pas over 10 jaar is.
Wat ik nu zou willen is dat als de status kolom (waar de keuze bestaat uit "actief", "niet actief" o "geblokkeerd") actief is dat de einddatum automagisch op "vandaag" springt.
Ik weet dat ik voor "vandaag" =VANDAAG() moet gebruiken maar is dat stukje van als status actief is dan vandaag ook mogelijk en zo ja hoe?
Is het een beetje duidelijk uitgelegd?
=ALS(B2="Actief";VANDAAG();ANDEREFORMULE)quote:
Ben ik weer!!
Ik ga proberen het uit te leggen. Geen idee of dat gaat lukken.
Dit zijn mijn kolommen:
Kenteken, Status, Ingangsdatum, Einddatum, Fysieke Einddatum, Aantal maanden actief, Bedrag tot nu toe (2-8-12)
De kolom einddatum is gebruikt om het aantal maanden actief uit te rekenen. Maar toen ontdekten we dat die einddatum in sommige gevallen pas over 10 jaar is.
Wat ik nu zou willen is dat als de status kolom (waar de keuze bestaat uit "actief", "niet actief" o "geblokkeerd") actief is dat de einddatum automagisch op "vandaag" springt.
Ik weet dat ik voor "vandaag" =VANDAAG() moet gebruiken maar is dat stukje van als status actief is dan vandaag ook mogelijk en zo ja hoe?
Is het een beetje duidelijk uitgelegd?
Zo kijkt ie of er in B2 'Actief' staat. Als dat zo is dan vult ie VANDAAG() in, zo niet, dan voert ie de andere formule uit
Ik zou een afweging maken tussen hoe groot je bereik is en hoeveel individuele cellen je moet uittikken:quote:
Ik heb hier de volgende formule:
[ code verwijderd ]
Hij telt dus het aantal keer "D" in regel 186 van kolom E t/m BG. Hij trekt echter de kolommen H t/m K er van af.
Nu wil ik echter nog een paar losse kolommen selecteren die Excel ook moet aftrekken. Bijvoorbeeld cel T186 en AC186.
Maar hoe doe ik dat? Want ik kan alleen maar een bereik opgeven. Moet ik dan voor die losse cellen, telkens een nieuwe functie erachter zetten?
Dus als volgt:
[ code verwijderd ]
=AANTAL.ALS(E186:BG186;"D")-AANTAL.ALS(H186:K186;"D")-SOM(T186="D";AC186="D")
heb je een groot bereik dan is aantal.als handig, heb je een paar lossen cellen dan kan je bijvoorbeeld gebruik maken van som. Dat som deel kan je gemakkelijk uitbreiden.
Mooi, wist niet dat SOM dat kon.quote:
[..]
Ik zou een afweging maken tussen hoe groot je bereik is en hoeveel individuele cellen je moet uittikken:
=AANTAL.ALS(E186:BG186;"D")-AANTAL.ALS(H186:K186;"D")-SOM(T186="D";AC186="D")
heb je een groot bereik dan is aantal.als handig, heb je een paar lossen cellen dan kan je bijvoorbeeld gebruik maken van som. Dat som deel kan je gemakkelijk uitbreiden.
Bedankt! Maakt de formule wel overzichtelijker in ieder geval.quote:
[..]
Ik zou een afweging maken tussen hoe groot je bereik is en hoeveel individuele cellen je moet uittikken:
=AANTAL.ALS(E186:BG186;"D")-AANTAL.ALS(H186:K186;"D")-SOM(T186="D";AC186="D")
heb je een groot bereik dan is aantal.als handig, heb je een paar lossen cellen dan kan je bijvoorbeeld gebruik maken van som. Dat som deel kan je gemakkelijk uitbreiden.
Dank u!!quote:
[..]
=ALS(B2="Actief";VANDAAG();ANDEREFORMULE)
Zo kijkt ie of er in B2 'Actief' staat. Als dat zo is dan vult ie VANDAAG() in, zo niet, dan voert ie de andere formule uit
Dat werkt maar half
Als er bij status iets anders staat dan veranderd hij de datum die er stond in #NAAM
[ Bericht 18% gewijzigd door Huppelmuts op 03-08-2012 10:45:30 ]
wat voor ANDEREFORMULE heb je ingevuld?quote:
[..]
Dank u!!
Dat werkt maar half
Als er bij status iets anders staat dan veranderd hij de datum die er stond in #NAAM
Wat wil je dat ie doet als er een andere status staat?quote:
[..]
Dank u!!
Dat werkt maar half
Als er bij status iets anders staat dan veranderd hij de datum die er stond in #NAAM
| 1 2 3 4 5 6 7 | v = Range("X10:AB" & lpr) For x = 1 To UBound(v) If v(x, 5) <> 1 Then v(x, 1) = v(x, 1) * v(x, 5) End If v(x, 5) = vbNullString Next x |
Nu wil ik bij het terugzetten van de variant kolom AB leeg hebben. Nu doe ik dit per regel (x,5). Kan ik ook in één keer kolom AB leeghalen? Zoiets als: v(1,5),v(ubound,5). Wat is de juiste code om kolom AB (5) in één keer te legen voordat de variant wordt terug gezet?
Hoe zouden jullie zoiets doen?
Eigenlijk vind ik dat dit buiten 'excel' gaat. Je zit meer in VB programmeren nu. Desalniettemin:quote:
Ik heb het volgende stukje VBA, waar kolom X (1) met kolom AB (5) wordt vermenigvuldigd.
[ code verwijderd ]
Nu wil ik bij het terugzetten van de variant kolom AB leeg hebben. Nu doe ik dit per regel (x,5). Kan ik ook in één keer kolom AB leeghalen? Zoiets als: v(1,5),v(ubound,5). Wat is de juiste code om kolom AB (5) in één keer te legen voordat de variant wordt terug gezet?
verwijder regel 6 en plaats buiten je loop een redim:
ReDim v(UBound(v), 4)
ReDim v(UBound(v), 5)
je laatste kolom is hierdoor leeg geraakt.
De meest 'simpele' manier is gewoon je gegevens te kopieren, vervolgens naar je andere tabblad te gaan en te kiezen voor 'Koppeling plakken' in het plakmenu. Vervolgens kun je de sortering aanpassen, maar blijft elke cel nog naar de oorspronkelijke cel verwijzen. Hierdoor hoef je een wijziging maar 1 keer door te voeren.quote:
Hallo, ik heb een excelsheet met data op het 1e tabblad. Nu wil ik de data op meerdere tabbladen in de excelsheet tonen maar dan telkens anders gesorteerd. In Google docs heb ik dat ooit gedaan met verschillende sheets met de ImportRange formule.
Hoe zouden jullie zoiets doen?
Dus in een kolom wordt bijvoorbeeld 101 ingevoerd en het bijbehorende bedrag uit de volgende kolom moet dan op een verzamelstaat neergezet worden.
Maar als er in de eerste kolom 108 wordt ingevoerd dan moet het betreffende bedrag uit de kolom erachter dus naar een verzamelstaat die bij 108 hoort worden gekopieerd.
Heeft iemand een idee hoe ik dat handig kan doen?
[ Bericht 1% gewijzigd door Deetch op 07-08-2012 10:20:35 ]
vervang in de formule die nu half werkt de tekst ANDEREFORMULE door D2quote:
[..]
Dank u!!
Dat werkt maar half
Als er bij status iets anders staat dan veranderd hij de datum die er stond in #NAAM
SPOILERschattig zo'n excel noob
Check!quote:
kan toch met een SUMIF of SOM.ALS? Check de help vand eze functie maar eens.
Dank je wel, helemaal gelukt!
Dit zijn de individuele functies die ik wil nesten:
=ALS($A2="R1";RR;A$1$)
=ALS($A2="R2";RM;A$1$)
=ALS($A2="R3";SR;A$1$)
=ALS($A2="P1";PL;A$1$)
=ALS($A2="D1";DP;A$1$)
=ALS($A2="A1";AD;A$1$)
=ALS($A2="C1";CC;A$1$)
=ALS($A2="SM1";SM;A$1$)
De functie wil ik bij [bron] invoeren.
En is er wellicht een elegantere oplossing dan al die alsjes nesten?
Zo misschien: http://helpdeskgeek.com/o(...)down-lists-in-excel/quote:Op maandag 6 augustus 2012 11:56 schreef Z het volgende:
Opgelost. Tikfout. Maar de vraag of er eventueel een mooiere oplossing is, blijft staan.
Daar dacht ik ook aan maar werkt niet (bij mij althans, office 2007). Wat wel werkt is een hulpkolom met daarinquote:
[..]
Zo misschien: http://helpdeskgeek.com/o(...)down-lists-in-excel/
=INDIRECT(LINKS($A$2;LENGTE($A$2)-1) & RIJ())
en dan die hulpkolom gebruiken als bron voor de dropdown.
Je moet wel dezelfde opbouw gebruiken en ook de goeie naam voor de ranges gebruiken.
1,58735
-4,79771
3,21036
En dit is het rijtje voor de Confidence intervals (in excel staan de cellen nog niet 'vast' )
Lower bound Upper bound
-4,661564352 7,836254441
-9,883168958 0,287754865
-2,981011432 9,401735435
Hoe komt het dan dat in mijn grafiek, de errorbars 'boven' de gemiddelden staan?
Of beter, hoe kan ik dit veranderen?
edit: ik heb de errorbars als volgt gemaakt:
SPOILER1. Click on the Chart Area of your graph and select the Layout Tab, Error Bars, and More Error Bars
Options.
2. Under Vertical Error Bars, choose Custom, Specify Value.
3. For both Positive Error Value and Negative Error Value, select the range in the spreadsheet that
contains the increment that corresponds to the 95% Students T confidence interval.
4. Excel produces both vertical and horizontal error bars by default. To delete the horizontal error
bars, click on the Chart Area, and in Selection Field (upper left corner), select the chart element
xerror bars and then delete.
[ Bericht 35% gewijzigd door Markeerstift op 06-08-2012 22:03:27 ]
Dus je confidence ondergrens ligt op 1.58 - (-4.66) = 6.24 en je bovengrens op 1.58 + 7.83 = 9.41 en dat is ook wat je ziet.
Je moet dus nog een kolommetje maken die het verschil berekend tussen je gemiddelde waarde en je ondergrens en je bovengrens en je gemiddelde waarde.
Zo te zien is het verschil tussen je ondergrens en gemiddelde en je bovengrens en gemiddelde hetzelfde getal? Dan kun je deze dus ook gebruiken als je error bar waarden.
Oja, volgens mij heb ik hem nu goed, ik had al een kolom gemaakt met het verschil inderdaad, dus die heb ik gebruikt! Thanksquote:
Via deze methode worden de getallen die je gebruikt gezien als het verschil ten opzichte van de gemiddelde waarde.
Dus je confidence ondergrens ligt op 1.58 - (-4.66) = 6.24 en je bovengrens op 1.58 + 7.83 = 9.41 en dat is ook wat je ziet.
Je moet dus nog een kolommetje maken die het verschil berekend tussen je gemiddelde waarde en je ondergrens en je bovengrens en je gemiddelde waarde.
Zo te zien is het verschil tussen je ondergrens en gemiddelde en je bovengrens en gemiddelde hetzelfde getal? Dan kun je deze dus ook gebruiken als je error bar waarden.
(is dat verschil soms wel eens anders dan voor onder en bovengrens?Bij normaal verdeelde data is de boven en ondergrens symmetrisch ten opzichte van het gemiddelde. Dat is een uitgangspunt bij de meeste statistiek berekeningen.quote:
[..]
Oja, volgens mij heb ik hem nu goed, ik had al een kolom gemaakt met het verschil inderdaad, dus die heb ik gebruikt! Thanks
Normaal gesproken check je ook altijd eerst of je data wel "normaal" verdeeld is voordat je er aan gaat rekenen. Via deze methode kun je visueel zien of de data normaal verdeeld is of niet.
Ah oke, maar, mijn standaard deviaties zijn vaak groter dan het gemiddelde, ik dacht dat dat o.a. inhield dat de data een scheve distributie had..quote:
[..]
Bij normaal verdeelde data is de boven en ondergrens symmetrisch ten opzichte van het gemiddelde. Dat is een uitgangspunt bij de meeste statistiek berekeningen.
[ link | afbeelding ]
Normaal gesproken check je ook altijd eerst of je data wel "normaal" verdeeld is voordat je er aan gaat rekenen. Via deze methode kun je visueel zien of de data normaal verdeeld is of niet.
Nee hoor, alleen dat je data heel erg veel spreiding om het gemiddelde kent. Dat kan liggen aan je meetmethode of het proces wat ten grondslag ligt aan je gemeten waarde.quote:
[..]
Ah oke, maar, mijn standaard deviaties zijn vaak groter dan het gemiddelde, ik dacht dat dat o.a. inhield dat de data een scheve distributie had..
Het beste is om al je meetpunten ook even uit te zetten in een grafiekje, misschien zijn er uitschieters? En dan moet je kijken of de uitschieters te verklaren zijn door een meetfout of fout in de monstername.
Als er geen verklaring voor de uitschieter is dan moet je ze meenemen in je gemiddelde. Hier een mooi voorbeeld: http://kieranhealy.org/blog/archives/2007/07/13/outliers/
[ Bericht 7% gewijzigd door Deetch op 07-08-2012 11:03:57 ]
In excel heb ik in cel A1: postcode 1, B1: huisnummer 1, D1: postcode 2 & E1: huisnummer 2
In cel B11 staat:
| 1 | =TEKST.SAMENVOEGEN("http://route.anwb.nl/routeplanner/servlet/rp?rtvMode=departure&modality=car&zip1=";A1;"&street1=&housenr1=";B1;"&city1=&zip2=";D1;"&street2=&housenr2=";E1;"&city2=&x=49&y=13") |
| 1 | =HYPERLINK(B11;"Test") |
Als ik nu op de hyperlink "Test" klik, wil ik dat in cel G1 de hoeveelheid kilometers komt van (het liefst) de ANWB routeplanner.
Welke expert kan mij hierbij helpen?
Dit is informatie halen van/uit een website, ik denk niet dat Excel daar de juiste tool voor is.
De ANWB ...que?quote:
Wat zegt de ANWB API erover?
Dit is informatie halen van/uit een website, ik denk niet dat Excel daar de juiste tool voor is.
http://nl.wikipedia.org/wiki/Application_programming_interfacequote:
Op Je moet iets hebben wat de communicatie tussen de ANWB site en Excel kan doen. Dat kan Excel zelf (bijna) niet.
Het kan wel met Google Maps, maar daar zitten wel wat haken en ogen aan:
http://stackoverflow.com/(...)-via-excel-web-query
Succes...
Of kijk hier eens, een opensource database met alle NLse postcodes: http://www.d-centralize.nl/projects/6pp/quote:
[..]
http://nl.wikipedia.org/wiki/Application_programming_interface
Je moet iets hebben wat de communicatie tussen de ANWB site en Excel kan doen. Dat kan Excel zelf (bijna) niet.
Het kan wel met Google Maps, maar daar zitten wel wat haken en ogen aan:
http://stackoverflow.com/(...)-via-excel-web-query
Succes...
Bij de voorbeelden staat onderaan het voorbeeld om de afstand tussen 2 postcodes te bereken: http://www.d-centralize.nl/pro6pp/demo
En hier de source (in JavaScript) http://www.d-centralize.nl/pro6pp/examples/distance
Als je het in Excel voor elkaar kunt krijgen dat je gegevens uit je browser kunt halen is het makkelijk te implementeren, maar anders....
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
| 1 2 3 4 5 6 7 8 9 | Sub vert_zoeken() Range("B2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'[Producten per leverancier.xlsx]Blad1'!R1:R1048576,4,FALSE),"""")" Range("B3").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'[Leverancier per inkoper.xls]Lijst'!R1:R65536,2,FALSE),"""")" Range("C2").Select End Sub |
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 'Verkoper informatie bestanden openen Workbooks.Open Filename:="u:\Inkoop\Producten per leverancier.xlsx" Workbooks.Open Filename:="u:\Inkoop\Leverancier per inkoper.xls" 'Verkoper informatie toevoegen Windows("mankorapport.xls").Activate Columns("C:D").Select With Selection .Insert shift:=xlToRight .ColumnWidth = 17 End With Range("C1").FormulaR1C1 = "Leverancier" Range("C2").Select ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'[Producten per leverancier.xlsx]Blad1!'R1:R1048576,4,FALSE),"""")" Range("C2").AutoFill Destination:=Range("C2:C4520"), Type:=xlFillDefault Range("C2:C4520").Select Range("D1").FormulaR1C1 = "Inkoper" Range("D2").Select ActiveCell.Formula = "=IFERROR(VLOOKUP(RC[-1],'[Leverancier per inkoper.xls]Lijst'!R1:R65536,2,FALSE),"""")" Range("D2").AutoFill Destination:=Range("D2:D4520"), Type:=xlFillDefault Range("D2:D4520").Select |
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
omdat je in regel 14 van je code '! hebt staan in plaats van !' ?quote:
Beste mensen,
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
[ code verwijderd ]
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
[ code verwijderd ]
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
[ Bericht 0% gewijzigd door Deetch op 08-08-2012 12:38:14 ]
Precies andersomquote:
[..]
omdat je in regel 14 van je code '! hebt staan in plaats van !' ?
, er moet namelijk '! staan.Dit gewijzigd, maar hij blijft weer steken op regel 14.
Ergens anders in de hoofdcode, die door iemand anders 2 jaar geleden opgenomen is staat de volgende vertikaal zoeken:
| 1 2 | ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-1],[weeknummer.xls]Blad1!R1:R65536,2,FALSE)),"""",VLOOKUP(RC[-1],[weeknummer.xls]Blad1!R1:R65536,2,FALSE))" |
Voordat deze functie gebruikt wordt, wordt ook eerst het betreffende bestand geopend.
Echter als ik deze oude code gebruik om toe te passen op mijn nieuwe vertikaal zoeken werkt deze ook niet
hier meer over RC verwijzing.
http://www.lytebyte.com/2(...)ence-style-in-excel/
Dat lijkt me sterk, en ik zal uitleggen waarom ik dat denk.quote:
zo te lezen doe je nu een Vlookup in de vierde kolom van een tabel die maar 1 kolom breed is (nl. R1:R65536) waarschijnlijk moet dit een RC achtige verwijzing worden of in ieder geval een breed genoege (hmmmzz) dataset.
hier meer over RC verwijzing.
http://www.lytebyte.com/2(...)ence-style-in-excel/
Ten eerste heb ik een macro opname gestart, en daarna de volgende formule ingevuld in de cel:
=ALS.FOUT(VERT.ZOEKEN(B2;'[Producten per leverancier.xlsx]Blad1'!$1:$65536;2;ONWAAR);"")
Deze formule werkt an sich prima.
Omdat VBA hier niet mee om kan gaan maakt ie er zelf de =IFERROR(VLOOKUP code van, dus ik neem aan dat dan alle zoekparameters goed mee overgenomen worden.
Ten tweede werkt de als tweede genoemde "oude" formule met dezelfde RC verwijzing voor alle cellen in het werkblad, R1:R65536, welke dus wel werkt.
Vreemd.
In ieder geval alvast bedankt voor alle input!
Is je 'hoofdmap' een xls file? want in dat geval kan excel in de compatibiliteitsmode staat. Dan kan je niet zoeken naar rijeen boven de 65536 (bestond namelijk nog niet). Dat doe je wel in regel 14. Dus het werkt in principe wel als je er even een xlsx van maakt (in je test bestandje deed hij het wel omdat een nieuwe file standaard een xlsx bestand is).quote:
Beste mensen,
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
[ code verwijderd ]
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
[ code verwijderd ]
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
Bedankt, dat was het probleem! Bestandjes opgeslagen als xlsx en xlsm, verwijzingen in de code ook aangepast en het werkt nu prima! Super bedankt, kan ik weer verder!quote:
[..]
Is je 'hoofdmap' een xls file? want in dat geval kan excel in de compatibiliteitsmode staat. Dan kan je niet zoeken naar rijeen boven de 65536 (bestond namelijk nog niet). Dat doe je wel in regel 14. Dus het werkt in principe wel als je er even een xlsx van maakt (in je test bestandje deed hij het wel omdat een nieuwe file standaard een xlsx bestand is).
dus A1 staat bv op 13 augustus, deze word naar beneden gesleept en dan zou A2 20 augustus moeten worden ipv 14 augustus.
Iemand een idee hoe ik dit voor elkaar kan krijgen?
In A2 -> =A1+7 en dat naar beneden slepenquote:
Hmmmm misschien een simpele vraag maar ik moet voor elkaar zien te krijgen dat de cellen per week oplopen als je deze naar beneden sleept
dus A1 staat bv op 13 augustus, deze word naar beneden gesleept en dan zou A2 20 augustus moeten worden ipv 14 augustus.
Iemand een idee hoe ik dit voor elkaar kan krijgen?
Mijn dank is groot, zat ik toch een beetje in de buurtquote:
[..]
In A2 -> =A1+7 en dat naar beneden slepen
Je kunt ook in A1 13-9-2012 invoeren en in A2 20-9-2012. Selecteer ze beide en trek ze naar beneden. Op die manier heb je niet al die formules in je worksheet en is je worksheet dus sneller.quote:
[..]
Mijn dank is groot, zat ik toch een beetje in de buurt
Je kunt uiteraard ook de formules gewoon omzetten in vaste waardes.
[ Bericht 92% gewijzigd door DJSeboss op 14-08-2012 19:32:33 ]
Ik ben bezig met de Eredivisie in excel in beeld aan het brengen. Nou heb ik 2 vragen:
Hoe kun je het zo maken (liefst geen VB Code maar als het niet anders kan...) dat als je een uitslag ingeeft dat Excel meteen 3 ptn bij de winnaar toevoegt, het doelsaldo wordt bijgewerkt en er bij W (winst) 1 bijkomt.
Mijn andere vraag is dat het automatisch wordt gesorteerd (nu moet ik de hele tijd Data -> Sorteren doen).
Ik ben niet zo goed met Excel, maar toch wel boven gemiddeld en ik weet niet hoe het heet wat ik nodig heb als iemand me dat geeft ben ik ook tevreden (en helemaal mooi als er dan site bij is waar uitleg bijstaat (voorkeurstaal Nederlands))
Alvast bedankt
Wat heb je zelf al uitgezocht?quote:
Hallo,
Ik ben bezig met de Eredivisie in excel in beeld aan het brengen. Nou heb ik 2 vragen:
Hoe kun je het zo maken (liefst geen VB Code maar als het niet anders kan...) dat als je een uitslag ingeeft dat Excel meteen 3 ptn bij de winnaar toevoegt, het doelsaldo wordt bijgewerkt en er bij W (winst) 1 bijkomt.
Mijn andere vraag is dat het automatisch wordt gesorteerd (nu moet ik de hele tijd Data -> Sorteren doen).
Ik ben niet zo goed met Excel, maar toch wel boven gemiddeld en ik weet niet hoe het heet wat ik nodig heb als iemand me dat geeft ben ik ook tevreden (en helemaal mooi als er dan site bij is waar uitleg bijstaat (voorkeurstaal Nederlands))
Alvast bedankt
http://www.veit.nl/351258-automatisch-sorteren-mogelijk
En wat betreft data van een sheet naar een ander sheet weet ik niet hoe heet/zoekterm
Wat snap je daar niet aan dan?quote:
Ik heb al gezocht op automatisch sorteren maar dat begreep ik niet zo:
http://www.veit.nl/351258-automatisch-sorteren-mogelijk
Zegt de functie ALS() je iets?quote:En wat betreft data van een sheet naar een ander sheet weet ik niet hoe heet/zoekterm
Ik heb in kolom A de volgende nummers onder elkaar staan: 2, 5, 7, 2 en 8.
Ik heb in kolom B de volgende nummers onder elkaar staan: 1, 2, 4, 5, 6 en 9.
Bestaat er een functie om te kijken hoeveel nummers er uit kolom A in kolom B voorkomen? Antwoord is in dit geval 3 nummers (2, 2 en de 5).
Met de functies '=AANTAL.ALS' en '=AANTALLEN.ALS' kom ik er niet uit.
Het kan wel, maar dan mag je een hele hoop formules aan elkaar plakken;
=AANTAL.ALS(A1:A5;B1)+AANTAL.ALS(A1:A5;B2)+...+AANTAL.ALS(A1:A5;B7)
Weet iemand een betere oplossing?
in kolom C zet je de functie =ALS(ISFOUT(VERT.ZOEKEN(A1;$B:$B;1;0));0;1)
vervolgens tel je deze kolom op en dat is het aantal getallen in lijst A dat in lijst B voorkomt
Bedankt, dat werkt!quote:
Volgens mij is het snelste een hulpkolom (C)
in kolom C zet je de functie =ALS(ISFOUT(VERT.ZOEKEN(A1;$B:$B;1;0));0;1)
vervolgens tel je deze kolom op en dat is het aantal getallen in lijst A dat in lijst B voorkomt
Jammer dat Excel geen OF/OR-functie beschikt in dit geval.
Dan worden alleen de unieke waarden geteld. Dus in het voorbeeld komt er dan 2 uit ipv 3 (GuitarJJ telt de 2 nl dubbel).quote:
Het is wel een handige functie trouwens.
Vertaling naar NL: =SOM(ALS(INTERVAL(A1:A5;B:B)>0;1))
Bij mij ook, maar ook als je cel B2 veranderd in bijvoorbeeld 12 dan blijft de uitkomst op 3 staanquote:
Ik heb een sheet waar ik dingen met een drop-down menu wil kiezen, alleen moeten deze drop downs met elkaar verbonden zijn.
Zo heb ik in het eerste drop-down menu een lijstje met telefoonmerken.
In D:15 kan ik dus de telefoonmerken kiezen. Nu wil ik in E:15 de toestellen van dit merk kunnen kiezen. En daar zit het probleem.
In een ander sheet staat een lijst met alle toestellen, gesorteerd per merk.
Hoe krijg ik die toestellen in het E:15 drop-down menu? Ik zat te denken aan een IF-functie die de van het D:15 gekozen merk de toestellen kopieert naar een aparte celrange. Dan zou ik in principe voor E:15 kunnen refereren naar die nieuwe celrange.
Het probleem zit'm (voor mij) in het feit dat ik met de IF-functie het niet voor elkaar krijg om tekst van meerdere cellen naar lege cellen te kopiëren.
Ik hoop dat het zo duidelijk genoeg is.
In dit of het vorige topic is dezelfde vraag ook al langesgekomen, inclusief antwoordquote:Op donderdag 23 augustus 2012 12:24 schreef Façade het volgende:
Hoi!
Ik heb een sheet waar ik dingen met een drop-down menu wil kiezen, alleen moeten deze drop downs met elkaar verbonden zijn.
Zo heb ik in het eerste drop-down menu een lijstje met telefoonmerken.
[ afbeelding ]
In D:15 kan ik dus de telefoonmerken kiezen. Nu wil ik in E:15 de toestellen van dit merk kunnen kiezen. En daar zit het probleem.
In een ander sheet staat een lijst met alle toestellen, gesorteerd per merk.
[ afbeelding ]
Hoe krijg ik die toestellen in het E:15 drop-down menu? Ik zat te denken aan een IF-functie die de van het D:15 gekozen merk de toestellen kopieert naar een aparte celrange. Dan zou ik in principe voor E:15 kunnen refereren naar die nieuwe celrange.
Het probleem zit'm (voor mij) in het feit dat ik met de IF-functie het niet voor elkaar krijg om tekst van meerdere cellen naar lege cellen te kopiëren.
Ik hoop dat het zo duidelijk genoeg is.
Dan ga ik het even doorspitten.quote:
[..]
In dit of het vorige topic is dezelfde vraag ook al langesgekomen, inclusief antwoord
Gevonden en (veel te makkelijkquote:
[..]
In dit of het vorige topic is dezelfde vraag ook al langesgekomen, inclusief antwoord
) opgelost. Bedankt voor de heads up.Graag gedaan!quote:
[..]
Gevonden en (veel te makkelijk
Ik gebruik om het aantal keren te tellen dat een Nee of Ja uit cellen voorkomt het volgende:
Sub Copy_()
MsgBox Evaluate("Sum(COUNTIF(A:L,{""Nee"",""Ja""}))")
End Sub
Dat werkt prima. Alleen nu heb ik grote cellen met lange strings, dus ik wil dat hij door de hele string heen telt. Nu vind het script namelijk alleen 'schone' cellen met los een Nee of een Ja en bijv. niet in cellen waar Ja Nee achter elkaar staan.
Nou heb ik deze code gezien, maar ik kom er niet uit hoe ik precies moet invullen?
MsgBox Evaluate("Sum(COUNTIF(A:L,{""" & Join(v, """,""") & """}))")
Heb natuurlijk al een en ander geprobeerd, maar het lukt vooralsnog niet..
[ Bericht 0% gewijzigd door Stringer op 29-08-2012 22:32:55 ]
Optie 1: Je wilt het aantal cellen tellen waarin ja of nee in voorkomt (ongeacht of er meer info in staat).
Gebruik wildcards in je huidige code door het toevoegen van *
MsgBox Evaluate("Sum(COUNTIF(A:L,{""*Nee*"",""*Ja*""}))")
Optie 2: Je wilt het aantal cellen tellen de som van het aantal cellen met ja en de som van het aantal cellen met nee. (in dit geval tel je dus een cel met ja nee 2 keer, maar 1 keer wanneer er meerdere keren ja in staat.)
maar wellicht nog iets anders?quote:Dim i As Integer
Dim myCell, rRange As Range
'Aan de hand van deze rRange zorg ik dat je alleen de beschreven cellen in A:L doorloopt
'formules worden niet meegenomen.
Set rRange = ActiveSheet.Range("A:L").SpecialCells(xlCellTypeConstants)
For Each myCell In rRange
'wanneer die ja bevat dan moet je hem meenemen
If myCell Like "*ja*" Then
i = i + 1
End If
'wanneer die nee bevat ook meenemen
If myCell Like "*nee*" Then
i = i + 1
End If
Next myCell
Set rRange = Nothing
Dank voor je antwoord! Ik denk dat ik er zo uit kom.. (anders kom ik nog even terug ;-)quote:
Voor mij is er net te weinig info om de vraag te beantwoorden. Je kan namelijk verschillende dingen willen.
Optie 1: Je wilt het aantal cellen tellen waarin ja of nee in voorkomt (ongeacht of er meer info in staat).
Gebruik wildcards in je huidige code door het toevoegen van *
MsgBox Evaluate("Sum(COUNTIF(A:L,{""*Nee*"",""*Ja*""}))")
Optie 2: Je wilt het aantal cellen tellen de som van het aantal cellen met ja en de som van het aantal cellen met nee. (in dit geval tel je dus een cel met ja nee 2 keer, maar 1 keer wanneer er meerdere keren ja in staat.)
[..]
maar wellicht nog iets anders?
Thanks!!!
[ Bericht 6% gewijzigd door Stringer op 30-08-2012 00:01:54 ]
*edit: even Lcase toegevoegd zodat alles naar lower case gaat en hij Ja JA en jA ook meetelt.quote:Dim aantalJa, aantalNee, AantalJaNee As Integer
Dim myCell, rRange As Range
Set rRange = ActiveSheet.Range("A:L").SpecialCells(xlCellTypeConstants)
For Each myCell In rRange
If Lcase(myCell.value) Like "*ja*" And Lcase(myCell.value) Like "*nee*" Then
AantalJaNee = AantalJaNee + 1
ElseIf Lcase(myCell.value) Like "*ja*" Then
aantalJa = aantalJa + 1
ElseIf lcase(myCell.value) Like "*nee*" Then
aantalNee = aantalNee + 1
End If
Next myCell
Set rRange = Nothing
Mocht je ook binnen een cel meerdere keren willen tellen, dan moeten we daar iets aparts voor schrijven.
[ Bericht 4% gewijzigd door snabbi op 30-08-2012 00:09:19 ]
ah dank, had even ge-eddited, ben een beetje onduidelijk vanwege het late tijdstip.quote:
Let wel op, dat hij het dus maar 1 keer telt wanneer het meerdere keren voorkomt in 1 cel:
[..]
Mocht je ook binnen een cel meerdere keren willen tellen, dan moeten we daar iets aparts voor schrijven.
Top dankje, morgen verder ;-)
Dit is ook de reden waarom ik schrijf dat het lastig is je vraag te beantwoorden. Wanneer moet iets wel geteld worden, wanneer niet.
als ik nu 1 aanmaak blijft hij alleen voor het huidige document?
Het is mogelijk op de volgende manier:quote:
Is het in excel 2007 ook mogelijk om een macro blijvend te maken voor alle documenten.
als ik nu 1 aanmaak blijft hij alleen voor het huidige document?
- Schrijf je code in je Visual Basic editor.
- Sluit de editor en in het normale office document kies je voor Opslaan als
- Kies voor het bestandstype invoegtoepassing (*.xlam)
- Ga nu onder de office knop naar Excel opties
- Kies voor Invoegtoepassingen. Hij staat standaard op Excel invoegtoepassingen. Klik op de knop start.
- Kies nu je bestand.
Voortaan wordt deze invoegtoepassing met jouw specifieke macro ook opgeladen wanneer Excel opent.
*edit
Deze manier werkt alleen voor het aanroepen van een formule in je werkblad. Wanneer je daadwerkelijk subroutines wilt openen moet je naar mijn volgende post gaan.
[ Bericht 7% gewijzigd door snabbi op 31-08-2012 21:45:53 ]
Het is ook een invoegtoepassing geworden, geen macro.quote:
Ik heb het geprobeerd stap voor stap. maar het lukt niet, als ik excel weer open is het qua macro niet terug te vinden
Of zie je niet dat ie werkt?
Ok ik ben inderdaad een beetje snel gegaan. De eerder genoemde methode werkt alleen voor macro's die je hebt geschreven om vanaf je werkboek als formule aan te roepen (de zogenaamde public functions).quote:
Ik heb het geprobeerd stap voor stap. maar het lukt niet, als ik excel weer open is het qua macro niet terug te vinden
Oorzaak probleem
Wellicht had je al gezien dat door het maken van de invoegtoepassing er in je Visual Basic editor een extra project bij is gekomen in je Project editor. Dit extra project zorgt er ook voor dat je vanaf je workbook de functie wel kunt aanroepen. Het hele probleem is eigenlijk gewoon dat je routines in een ander bestand staan en de manier van aanroepen laat alleen het huidige bestand zien.
Voor beide oplossingen moet je eerst mijn vorige post doorlopen hebben!
Oplossing 1: Toevoegen van verwijzing naar je add-in
Deze oplossing is bedoeld om het mogelijk te maken de macro subroutines aan te roepen zoals je dat ook zou doen wanneer het in je huidige code zit.
- Ga in je visual basic editor naar menu Extra
- Verwijzigingen
- Klik op bladeren en voeg het bestand van je invoegtoepassing hier toe.
*Let op in je projectverkenner verschijnt nu een extra menutje met verwijzingen. Op dit moment kun je alle code aanroepen zoals je dat altijd kan, bijvoorbeeld een sub kan je aanroepen via: "Call mijnSub" en functies als x = myFunction(variabele)
** Verwijzingen moet je voor iedere excelfile opnieuw aanmaken.
Oplossing 2: Aanroepen van het andere bestand
Deze oplossing kan je altijd gebruiken zonder iedere keer de add-in toe te voegen en is geschikt voor het aanroepen van de macro codes vanaf je huidige project.
- In de projectverkenner zie je het extra project dat de naam heeft van je invoegtoepassing (bijvoorbeeld VBAproject(test.xlam) ). Klik met je rechter muistoets op dit project en kies voor Eigenschappen van VBAproject.
- Geef het een logische naam (zonder spaties is het makkelijkste, bijvoorbeeld test)
- In je code kun je nu een sub aanroepen via "Call test.Module1.mySub" en een functie als "x = test.Module1.myFunction(variabele)"
Mocht je wel spaties willen gebruiken dan wordt het: "Call [mijn code].Module1.mySub"
Tot slot
Ik weet geen goede manier om de subs in het start lijstje van ALT F8 te krijgen. Eigenlijk is hier de makkelijkste manier om gewoon het betreffende bestand te openen want standaard toont hij alle macro's van de geopende bestanden.
Succes!
[ Bericht 0% gewijzigd door snabbi op 31-08-2012 21:46:47 ]
St. Hubertusstraat 10 6531 LB Nijmegen
Dus één adres, postcode + plaats in één cel. Nu wil ik de straatnaam en het huisnummer loskoppelen, maar wat is hiervoor de slimste manier. Ik dacht zelf al via "tekst naar kollomen" (en spatie als nieuwe cel), maar dan moet ik alsnog heel veel werk achteraf gaan doen, aangezien je bij bovenstaande voorbeeld als een spatie na St. hebt. Hoe pak ik dit dus het beste aan?
Zoeken naar de eerste keer dat er 4 cijfers achter elkaar staan, dan daar voor splitsen. Dan bij het linker gedeelte de laatste spatie wissen, dan splitsen op de laatste spatie. Bij het rechter gedeelte splitsen op de tweede spatie.quote:
Ik heb cellen die er als volgt uitzien:
St. Hubertusstraat 10 6531 LB Nijmegen
Dus één adres, postcode + plaats in één cel. Nu wil ik de straatnaam en het huisnummer loskoppelen, maar wat is hiervoor de slimste manier. Ik dacht zelf al via "tekst naar kollomen" (en spatie als nieuwe cel), maar dan moet ik alsnog heel veel werk achteraf gaan doen, aangezien je bij bovenstaande voorbeeld als een spatie na St. hebt. Hoe pak ik dit dus het beste aan?
Briljant. Thnxquote:
[..]
Zoeken naar de eerste keer dat er 4 cijfers achter elkaar staan, dan daar voor splitsen. Dan bij het linker gedeelte de laatste spatie wissen, dan splitsen op de laatste spatie. Bij het rechter gedeelte splitsen op de tweede spatie.
Ik heb een vraag over Excel. Met Excel kun je tabellen invoeren met allemaal kolommen aan de bovenkant. Dit dus:
Werkt heel makkelijk en is zeer efficiënt. Alleen is het mij op de een of andere manier gelukt om de kolommen die je bovenaan de tabel ziet te verwijderen. Normaal gesproken kun je deze kolommen gebruiken om dingen te sorteren (je kunt naast kolom 1 op een pijltje klikken en dan aanvinken wat je wilt zien). Maar deze optie zie ik niet meer, ik zie alleen kolom 1 staan zonder de pijl ernaast.SPOILER
Weet iemand waar dit aan ligt en hoe ik dit kan oplossen?
Alvast Bedankt!
Ik neem aan dat dit een reactie is op mijn vraag?quote:
ctrl+shift+l wanneer je in de tabel staat.
Ik heb het geprobeerd, ik zie helaas geen verandering.
Filter weer aanzetten?quote:
Goedenavond,
Ik heb een vraag over Excel. Met Excel kun je tabellen invoeren met allemaal kolommen aan de bovenkant. Dit dus:Werkt heel makkelijk en is zeer efficiënt. Alleen is het mij op de een of andere manier gelukt om de kolommen die je bovenaan de tabel ziet te verwijderen. Normaal gesproken kun je deze kolommen gebruiken om dingen te sorteren (je kunt naast kolom 1 op een pijltje klikken en dan aanvinken wat je wilt zien). Maar deze optie zie ik niet meer, ik zie alleen kolom 1 staan zonder de pijl ernaast.SPOILER[ afbeelding ]
Weet iemand waar dit aan ligt en hoe ik dit kan oplossen?
Alvast Bedankt!
Ik heb het, bedankt.quote:
[ Bericht 4% gewijzigd door iFok. op 04-09-2012 20:25:39 ]
Ja. ctr+shift+L zet het filter weer aan (op office 2007 iig, neem aan dat dit niet veranderd in andere versies)quote:
[..]
Ik neem aan dat dit een reactie is op mijn vraag?
Ik heb het geprobeerd, ik zie helaas geen verandering.
Ik zit op dit moment op de Apple, en daar doet hij het niet. Morgen zal ik het nodig hebben, en dan zit ik op de PC en probeer ik het nog een keer.quote:
[..]
Ja. ctr+shift+L zet het filter weer aan (op office 2007 iig, neem aan dat dit niet veranderd in andere versies)
Vandaar dat ook in de OP staat dat je aan moet geven welke versie je hebt, dan zijn de tips beter te gebruikenquote:
[..]
Ik zit op dit moment op de Apple, en daar doet hij het niet. Morgen zal ik het nodig hebben, en dan zit ik op de PC en probeer ik het nog een keer.
Zal ik voor de volgende keer doen.quote:
[..]
Vandaar dat ook in de OP staat dat je aan moet geven welke versie je hebt, dan zijn de tips beter te gebruiken
Bedankt allemaal.No worries, deze keer viel t meequote:
[..]
Zal ik voor de volgende keer doen.
't zal wel command+ctrl+L ofzo t wordt pas echt vervelend als we met Excel2010-oplossingen een Excel2003-probleem op proberen te lossen..
Heb in excel eerst een algoritme getest (dat anderen al lang bedacht hebben maar ik wilde het ook kunnen) voor ik het in C++ in ging bouwen.
Random vakjes genereren, en dan alles wat connectie heeft aan een ander vakje (4 node) dezelfde kleur geven. Tadaa
[ Bericht 0% gewijzigd door Holy_Goat op 07-09-2012 17:22:57 (4 node, niet 8 node. schuin aanraken telt dus niet) ]
Ik ben nog steeds met dit bezig, nu een uitbreiding.quote:
Schatjes ik kom er echt niet uit.
Ik heb in Excel kolom A is startdatum, kolom B is einddatum en dan wil ik dat kolom C het totaal aantal maanden laat zien maar welke formule moet ik dan waar neerplempen?
Versie 2007 geloof ik en taal staat gewoon in het Nederlands
Bij een aantal rijen is de einddatum in de toekomst. Ik wil het aantal maanden van start tot aan vandaag graag zien.
De formule die ik voor de rijen waar de einddatum al is geweest gebruik is: =DATUMVERSCHIL(C2;D2;"m")
Is deze formule makkelijk aan te passen zodat de D kolom meteen als "vandaag" wordt gezien?
Als ik lastig ben dan hoor ik het wel he
=DATUMVERSCHIL(C2;VANDAAG();"m")quote:
[..]
Ik ben nog steeds met dit bezig, nu een uitbreiding.
Bij een aantal rijen is de einddatum in de toekomst. Ik wil het aantal maanden van start tot aan vandaag graag zien.
De formule die ik voor de rijen waar de einddatum al is geweest gebruik is: =DATUMVERSCHIL(C2;D2;"m")
Is deze formule makkelijk aan te passen zodat de D kolom meteen als "vandaag" wordt gezien?
Als ik lastig ben dan hoor ik het wel he
Zoiets?
Die gaf dus als melding #WAARDE of #NAAMquote:
[..]
=DATUMVERSCHIL(C2;VANDAAG();"m")
Zoiets?
Ik heb nu gewoon de datum van vandaag ingevuld maar dat werkt ook niet echt lekker want dan moet ik die elke keer aanpassen
quote:
Je zal maar eens tijd over hebben
Heb in excel eerst een algoritme getest (dat anderen al lang bedacht hebben maar ik wilde het ook kunnen) voor ik het in C++ in ging bouwen.
Random vakjes genereren, en dan alles wat connectie heeft aan een ander vakje (4 node) dezelfde kleur geven. Tadaa
[ afbeelding ]
Die formule zou gewoon moeten werken. Hier doet 'ie het in ieder geval gewoon (Excel 2007)quote:
[..]
Die gaf dus als melding #WAARDE of #NAAM
Ik heb nu gewoon de datum van vandaag ingevuld maar dat werkt ook niet echt lekker want dan moet ik die elke keer aanpassen
Had je ook de () na VANDAAG?quote:
[..]
Die gaf dus als melding #WAARDE of #NAAM
Ik heb nu gewoon de datum van vandaag ingevuld maar dat werkt ook niet echt lekker want dan moet ik die elke keer aanpassen
Nee!quote:
Nu wel!
Dat werkt!
Formules hebben altijd haakjes, ook al zet je er niets tussenquote:
Voorbeelden daarvan zijn dus VANDAAG(), NU() en RND()
Ik importeer data, waaronder een veld dat de datum bevat maar in een niet-excel format (bijvoorbeeld 20120914) Ik kan daar wel met een formule iets van maken dat beter leesbaar is maar is er een mogelijkheid om er een veld van te maken dat Excel als datum veld herkent? Daarmee zou ik dus van het voorbeeld 'Vrijdag 14 september 2012' willen maken.
De formule die ik nu gebruik:
| 1 | =RECHTS(A1;2)&"-"&DEEL(A1;4;2)&"-"&LINKS(A1;4) |
Je kan de cellen met bovenstaande formule ombouwen tot een veld waar Excel iets mee kan. Dan kan je bij 'opmaak' bepalen hoe je de datum wil laten zien.quote:Op vrijdag 14 september 2012 21:26 schreef Orealo het volgende:
Ik hoop dat jullie me kunnen helpen.
Ik importeer data, waaronder een veld dat de datum bevat maar in een niet-excel format (bijvoorbeeld 20120914) Ik kan daar wel met een formule iets van maken dat beter leesbaar is maar is er een mogelijkheid om er een veld van te maken dat Excel als datum veld herkent? Daarmee zou ik dus van het voorbeeld 'Vrijdag 14 september 2012' willen maken.
De formule die ik nu gebruik:
[ code verwijderd ]
Geen extra code dus, gewoon de opmaak van het veld aanpassen
Ik was al aan het klooien, ook met kopieeren naar notepad. Wat bleek nou. Ik had de datumquote:
[..]
Je kan de cellen met bovenstaande formule ombouwen tot een veld waar Excel iets mee kan. Dan kan je bij 'opmaak' bepalen hoe je de datum wil laten zien.
Geen extra code dus, gewoon de opmaak van het veld aanpassen
20111231. De formule bouwt dat niet goed om, werd 31-11-2011. Excel wilde het maar niet aanpassen maar november heeft natuurlijk geen 31 datum! Stom!
Ik kan verder. Bedankt.
Wat misschien nog wat beter werkt (en zulke fouten op kan vangen) is dit:quote:
[..]
Ik was al aan het klooien, ook met kopieeren naar notepad. Wat bleek nou. Ik had de datum
20111231. De formule bouwt dat niet goed om, werd 31-11-2011. Excel wilde het maar niet aanpassen maar november heeft natuurlijk geen 31 datum! Stom!
Ik kan verder. Bedankt.
=DATUM(LINKS(A1;4);DEEL(A1;5;2);RECHTS(A1;2))
Ik laat de DEEL()-code ook beginnen vanaf t 5e teken, en niet het 4e zoals jij deed. Vandaar dat je op 31 november uit kwam ipv 31 december
Dat is nog sneller. Bedankt nogmaals!quote:
[..]
Wat misschien nog wat beter werkt (en zulke fouten op kan vangen) is dit:
=DATUM(LINKS(A1;4);DEEL(A1;5;2);RECHTS(A1;2))
Ik laat de DEEL()-code ook beginnen vanaf t 5e teken, en niet het 4e zoals jij deed. Vandaar dat je op 31 november uit kwam ipv 31 december
Zo heb ik het nu:
| 1 2 3 4 5 6 7 8 9 10 11 12 | oWordFile = bestandsnaam CNT = 2 PGS = "2" Set oWord = CreateObject(Class:="Word.Application") With oWord.Documents.Open(oWordFile) .PrintOut Copies:=CNT, Pages:=PGS .Close False End With oWord.Quit False Set oWord = Nothing |
Iemand?
| 1 | .PrintOut Copies:=CNT, Range:=3, from:=PGSA, to:=PGSB |
range:=3 staat voor Range:=wdPrintFromTo
Het rare is dat copies nu niet werkt, maar dat los ik op met een for loopje...
[ Bericht 0% gewijzigd door Joooo-pi op 17-09-2012 12:20:44 ]
Ik zoek iets om een soort van automatische in te vullen in een bepaald veld waar de data uit een andere sheet komt.
Om even een situatie schets te geven.
Ik heb 3 sheets:
A) Rapportage
B) Bewerking
C) Data per week
Wat ik wil:
In sheet A een "week nummer" selecteren zodat hij bepaalde velden invuld met data uit sheet B & C.
Ik heb in sheet C verschillende process in de rijen staan en per week een kolom.
Nu wil ik graag simpel in Sheet A het weeknummer selecteren zodat ie in sheet B de data uit sheet C haalt en deze bewerkt (een gemiddelde berekend of een ratio omzet).
En dit wordt getoond in sheet A.
En dat voor verschillende velden.
Iemand een idee hoe dat kan want eigenlijk moet ik dus eerst een HLookUP naar het weeknummer maken en dan eigenlijk een VLookUp naar het process in sheet C.
Met een simpele selectie van het weeknummer.
Even een voorbeeld:
Als in Sheet Rapportage in cel A1 je weeknummer zet. Vervolgens krijg je in A3 de naam "PRODUCT A" en B3 het aantal verkochte items, in C3 de prijs en in D3 de omzet.
En in sheet Data in de A kolom je weeknummers, in kolom B je productnaam, in kolom C het aantal.
B3 =countifs(Data!A:A;Rapportage!$A$1;Data!B:B;Rapportage!$A3)
B3 = aantallen.als(Data!A:A;Rapportage!$A$1;Data!B:B;Rapportage!$A3)
C3 = vlookup op je prijstabel
C3 = vertikaal.zoeken op je prijstabel
D3 = sumifs(Data!C:C;Data!A:A;Rapportage!$A$1;Data!B:B;Rapportage!$A3)/B3
D3 = sommen.als(Data!C:C;Data!A:A;Rapportage!$A$1;Data!B:B;Rapportage!$A3)/B3
de formules countifs en sumifs zorgen dat je meerdere criteria mee kunt geven. In dit geval weeknummer en productnaam.
probeer eens CNT = "2"quote:Op maandag 17 september 2012 09:48 schreef Joooo-pi het volgende:
hmmm. Toch min of meer opgelost met:
[ code verwijderd ]
range:=3 staat voor Range:=wdPrintFromTo
Het rare is dat copies nu niet werkt, maar dat los ik op met een for loopje...
Mooi!! mag ik ook?quote:
Je zal maar eens tijd over hebben
Heb in excel eerst een algoritme getest (dat anderen al lang bedacht hebben maar ik wilde het ook kunnen) voor ik het in C++ in ging bouwen.
Random vakjes genereren, en dan alles wat connectie heeft aan een ander vakje (4 node) dezelfde kleur geven. Tadaa
alles klaargezet voor je, maar waar kan ik hosten?quote:
kun je niet gewoon mailen?quote:
[..]
alles klaargezet voor je, maar waar kan ik hosten?
Uiteraard, maar wil graag ook een linkje hier op Fok zettenquote:
Ik kan em wel hosten voor jequote:
Tuurli
[..]
Uiteraard, maar wil graag ook een linkje hier op Fok zetten
PB met mail is verstuurd Thanks, ga mailen als ik thuis benquote:
[..]
Ik kan em wel hosten voor je
het linkje hier dumpen?
In blad1 verwijs ik in sommige cellen naar een ander blad (al dan niet extern). Nu wil ik met voorwaardelijke opmaak die cel waarin ik verwijs naar een ander blad een ander kleurtje geven. Kan dat?
Office 2003 btw
[ Bericht 17% gewijzigd door flipsen op 21-09-2012 20:38:49 ]
. Excel versie is 2011, Engels. 
RATIO is de verhouding tussen UP en DOWN. Als UP en DOWN beide gelijk zouden zijn is RATIO 1. Nou is het zo dat de gegevens waar ik DOWN vandaan haal het aangeeft in bv. 1.2 en niet 1200. Dat maakt het onnauwkeurig dus ik wil aan de hand van de bekende RATIO de DOWN berekenen, en dat allemaal in 1 hokje dmv een formule maar daar kom ik juist niet uit
. Iemand die kan helpen?In B3 (naast Down dus) zet je =B2*B7. Dan die cel doortrekken naar rechts en je bent er. Of is dit niet wat je zoekt?quote:
Ik ben echt niet bekend met Excel buiten de standaard grafiekjes maken uit een tabelletje en kom er nu ook hier niet uit, voor jullie is het vast simpel, ik heb me er een ochtend over gebroken
[ afbeelding ]
RATIO is de verhouding tussen UP en DOWN. Als UP en DOWN beide gelijk zouden zijn is RATIO 1. Nou is het zo dat de gegevens waar ik DOWN vandaan haal het aangeeft in bv. 1.2 en niet 1200. Dat maakt het onnauwkeurig dus ik wil aan de hand van de bekende RATIO de DOWN berekenen, en dat allemaal in 1 hokje dmv een formule maar daar kom ik juist niet uit
Dan kom ik op een getal uit die lager is dan UP, terwijl DOWN op dit moment hoger ligt.quote:
[..]
In B3 (naast Down dus) zet je =B2*B7. Dan die cel doortrekken naar rechts en je bent er. Of is dit niet wat je zoekt?
Oh, dan moet het =B2/B7 zijnquote:
[..]
Dan kom ik op een getal uit die lager is dan UP, terwijl DOWN op dit moment hoger ligt.
Of als je em helemaal dynamisch wil maken:
=IF(B7<1,B2/B7,B2*B7)
Held!quote:
[..]
Oh, dan moet het =B2/B7 zijn
Of als je em helemaal dynamisch wil maken:
=IF(B7<1,B2/B7,B2*B7)
en eigenlijk schaam ik me ervoor dat ik hier zelf niet uit kwam
Graag gedaan, mede Carisma-rijderquote:
[..]
Held!
en eigenlijk schaam ik me ervoor dat ik hier zelf niet uit kwam
bijv de fooi voor een dag is -1,95 euro
er zijn 23,375 uur gewerkt die dag.
Dan zegt Excel als ik 23,375:-1,95 = -11,96
Nu heb ik zo snel geen grafische rekenmachine bij de hand. Maar dat kan niet kloppen ... dus wie o wie hoe kan ik een negatief getal delen met excel
Raar, het antwoord moet -11,987179487179487179487179487179 zijn...quote:
Is er een optie in Excel om door een negatief getal te delen.
bijv de fooi voor een dag is -1,95 euro
er zijn 23,375 uur gewerkt die dag.
Dan zegt Excel als ik 23,375:-1,95 = -11,96
Nu heb ik zo snel geen grafische rekenmachine bij de hand. Maar dat kan niet kloppen ... dus wie o wie hoe kan ik een negatief getal delen met excel
Het antwoord van Excel klopt dus gewoon.
http://www.mijnbestand.nl/Bestand-NZR86VFNZYVN.xlsmquote:
Leef je uit
Wat houden die parameters in eigenlijk? x en y snap ik nog wel (quote:
Zie er een bug in zitten trouwens. 8 node werkt niet als 8, maar ook als 4 node
), maar de rest?x en y is dus pixels, getal daarna het aantal vakjes dat ie random kiest. Meer vakjes is meer kans op aansluiting.quote:
[..]
Wat houden die parameters in eigenlijk? x en y snap ik nog wel (
Node 4 betekent dit:
| 1 2 3 4 | 00222200030 01000222030 01110022030 00010000030 |
Node 8 betekent dit:
| 1 2 3 4 | 00111100020 01000111020 01110011020 00010000020 |
zie jij waarom? (alleen 4 of 8 doet et hier niet denk ik)
De tabel loopt als volgt:
2011
2010
2009
Nu krijg ik in mijn grafiek de x as als volgt.
2011 2010 2009.
Hoe kan ik mijn tabel hetzelfde houden en mijn x as zo krijgen dat hij 2009 2010 2011 er neer zet?
Ik gebruik de nieuwste excel versie.
Gevonden. Bij asopties op datum selecteren.
Even een voorbeeld:
Onderdeel Hoeveelheid
MateriaalA 3
MateriaalA 2
MateriaalA 4
MateriaalB 1
MateriaalB 2
MateriaalC 3
MateriaalD 4
MateriaalD 2
Nu wil ik graag dit als uitkomst:
MateriaalA 9
MateriaalB 3
MateriaalC 3
MateriaalD 6
Nu is dit maar een korte lijst en zoals te zien is zit er geen patroon in.
Echter is de lijst ruim 3000 rijen met data dus zo 1 voor 1 gaan lopen optellen wordt 'm niet.
Iemand een tip?
Heb het met een pivot opgelost
[ Bericht 11% gewijzigd door nils7 op 25-09-2012 12:17:09 ]
som.als / sumif had ook gekund
Ik zie wel een verschil, maar snap niet waarom..quote:
[..]
x en y is dus pixels, getal daarna het aantal vakjes dat ie random kiest. Meer vakjes is meer kans op aansluiting.
Node 4 betekent dit:
[ code verwijderd ]
Node 8 betekent dit:
[ code verwijderd ]
zie jij waarom? (alleen 4 of 8 doet et hier niet denk ik)
Node 4 heeft een aanta; 2tjes ipv 1tjes en 3tjes ipv 2tjes, maar meer snap ik er niet van..
4 betekent: alleen horizontaal/vertikaal aangrenzende velden meenemen (daar zijn er 4 van)quote:
[..]
Ik zie wel een verschil, maar snap niet waarom..
Node 4 heeft een aanta; 2tjes ipv 1tjes en 3tjes ipv 2tjes, maar meer snap ik er niet van..
8 betekent: alle aangrenzende (ook schuin) meenemen
Ah, die uitleg snap ik wel jaquote:
[..]
4 betekent: alleen horizontaal/vertikaal aangrenzende velden meenemen (daar zijn er 4 van)
8 betekent: alle aangrenzende (ook schuin) meenemen
Thanks!Of hoe kan ik data comprimeren?
Daar is een pivot ook voorquote:
Hoe kan ik hoeveelheden per onderdeel als totaal optellen welke verticaal onder elkaar staan?
Even een voorbeeld:
Onderdeel Hoeveelheid
MateriaalA 3
MateriaalA 2
MateriaalA 4
MateriaalB 1
MateriaalB 2
MateriaalC 3
MateriaalD 4
MateriaalD 2
Nu wil ik graag dit als uitkomst:
MateriaalA 9
MateriaalB 3
MateriaalC 3
MateriaalD 6
Nu is dit maar een korte lijst en zoals te zien is zit er geen patroon in.
Echter is de lijst ruim 3000 rijen met data dus zo 1 voor 1 gaan lopen optellen wordt 'm niet.
Iemand een tip?
Heb het met een pivot opgelost
niet als iedereen er tegelijk in gaat lopen prutsen.quote:
Weet iemand of een shared file van 16MB in .xlsx met 15 man goed blijft gaan?
Of hoe kan ik data comprimeren?
Als er geen plaatjes ofzo in je excelfile staan maar wel heel veel gevulde cellen dan valt er weinig te comprimeren.
Nee helaas niks grafisch enkel gekoppelde data.quote:
[..]
niet als iedereen er tegelijk in gaat lopen prutsen.
Als er geen plaatjes ofzo in je excelfile staan maar wel heel veel gevulde cellen dan valt er weinig te comprimeren.
Ik ben een werklijst aan het maken: verschillende processen/rapportages hebben ieder een tab
en in 1 tab staat alles onder elkaar met enkel de relevante data zodat collega's een lijst hebben om af te werken.
Ik zit er aan te denken 1 bron data file te doen en dan gewoon een andere (shared file) te linken er aan die ene tab me consolideerde data.
Maar het nadeel is dat ie dan weer lastig kan bijhouden wat wel of niet gedaan is...
Daar heb ik helaas nog geen kaas van gegetenquote:
Dan zou ik dat maar eens gaan doenquote:
[..]
Daar heb ik helaas nog geen kaas van gegeten
Je gaat je nu in allerlei bochten wringen om een pakket wat er niet voor gemaakt is, naar je hand te zetten. Excel is gewoonweg niet geschikt om met meer dan 1 persoon tegelijk in te werken. En tevens allerlei koppelingen/shared files/links/consolideren...just no
Dit gebruik ik
| 1 | =VERSCHUIVING(_PO!$A$1;'Dashboard Main'!E$19-1;$F24-1) |
En ik wil iets als:
| 1 | =als(isfout(VERSCHUIVING(_PO!$A$1;'Dashboard Main'!E$19-1;$F24-1));"nap";VERSCHUIVING(_PO!$A$1;'Dashboard Main'!E$19-1;$F24-1)) |
Komt alleen nogal log over, die formule. Zou mooi wezen als het bv puur format technisch op te lossen is.
Bv conditional format op fouten (kan dat?) en evt een format melding zoals in "mm-dd-yyyy" maar dan anders natuurlijk.
Een idee?
Met conditional format lukt het je ook wel om te checken op fouten. Desnoods maak je dan de tekst en achtergrond rood (dan zie je de errormelding niet).
Een UDF die je eromheen wrapt kan ook maar dat is wel erg lelijk.
Nooit gedaan nog eigenlijk, UDF-en. Zit niets anders op denk ik te doen wat ik al opschreef, met als(isfout())quote:
Je zou met VBA natuurlijk bij Calculate event alle niet-lege cellen kunnen checken op errors. Maar als je sheet groot wordt, wordt dat wel pijnlijk.
Met conditional format lukt het je ook wel om te checken op fouten. Desnoods maak je dan de tekst en achtergrond rood (dan zie je de errormelding niet).
Een UDF die je eromheen wrapt kan ook maar dat is wel erg lelijk.
Sheet behoorlijk groot namelijk
voor biologie moeten we een natuurwetenschappelijk onderzoek maken over de invloed van zoutoplossing (verschillende sterktes) op de lengte van zelfgesneden patatjes. Hierbij moeten we ook een grafiek maken maar m'n vader zit tot vrijdag in Parijs en dan moet het ingeleverd zijn
Ook heb ik net een nieuwe pc met Office 2010 waar ik al helemaal geen zak van snap. De grafiek moet er als volgt uit komen te zien:
De lijnen hoeven niet verbonden te worden met de punten, dus er hoeven alleen puntjes getekend te worden welke ik zelf inteken. De y-as is dus de 'Sterkte concentratie NaClH2O oplossing''. De x-as is de lengte van de patatjes. (''Lengte in mm'' zal voldoende wezen) Deze gegevens zijn als volgt:
% oplossing --- Dag 1 -------- Dag 5
0% --- ----- 50mm --------- 52mm
.5% --- ------- 50mm --- ----- 53mm
1% --- ----- 50mm --- ----- 49mm
2% --- ----- 50mm --- ----- 48mm
4% --- ------ 50mm --- ----- 47mm
8% --- ------ 50mm --- ----- 45mm
De puntjes v/d lengte moeten dus precies boven de juiste concentratie en het liefst in 2 verschillende kleuren (zoals in dit paint voorbeeld)
Als iemand dit voor mij zou willen doen zou die mij echt een heel groot plezier doen! Alvast bedankt!
Heb hem overigens ook gepost in school topic maar denk dat ik hier meer kans maak..
Je hoeft uiteraard alleen te controleren op de cel die daadwerkelijk wijzigt. Die andere cellen zijn/blijven fout en hoef je niet opnieuw te beoordelen.quote:
Je zou met VBA natuurlijk bij Calculate event alle niet-lege cellen kunnen checken op errors. Maar als je sheet groot wordt, wordt dat wel pijnlijk.
Met conditional format lukt het je ook wel om te checken op fouten. Desnoods maak je dan de tekst en achtergrond rood (dan zie je de errormelding niet).
Een UDF die je eromheen wrapt kan ook maar dat is wel erg lelijk.
Pak hiervoor de event change en via Target kan je achterhalen welke cel gewijzigd is.
Zet de waarden in Excel. Kies voor invoegen en vervolgens spreiding.quote:
Hoi,
voor biologie moeten we een natuurwetenschappelijk onderzoek maken over de invloed van zoutoplossing (verschillende sterktes) op de lengte van zelfgesneden patatjes. Hierbij moeten we ook een grafiek maken maar m'n vader zit tot vrijdag in Parijs en dan moet het ingeleverd zijn
[ afbeelding ]
De lijnen hoeven niet verbonden te worden met de punten, dus er hoeven alleen puntjes getekend te worden welke ik zelf inteken. De y-as is dus de ''concentratie van de zoutoplossing''. De x-as is de lengte van de patatjes. (''Lengte in mm'' zal voldoende wezen) Deze gegevens zijn als volgt:
% oplossing --- Dag 1 -------- Dag 5
0% --- ----- 50mm --------- 52mm
.5% --- ------- 50mm --- ----- 53mm
1% --- ----- 50mm --- ----- 49mm
2% --- ----- 50mm --- ----- 48mm
4% --- ------ 50mm --- ----- 47mm
8% --- ------ 50mm --- ----- 45mm
De puntjes v/d lengte moeten dus precies boven de juiste concentratie en het liefst in 2 verschillende kleuren (zoals in dit paint voorbeeld)
Als iemand dit voor mij zou willen doen zou die mij echt een heel groot plezier doen! Alvast bedankt!
Heb hem overigens ook gepost in school topic maar denk dat ik hier meer kans maak..
Zorg dat het 2 lijnen worden en verander de as-opmaak. Klaar.
[ Bericht 7% gewijzigd door WebHawkjuh op 03-10-2012 00:07:34 ]
Je zou kunnen proberen om een afbeelding van 1 pixel hoog te strechten naar 10 pixels (10%) tot 100 pixels (100%)quote:
Hallo! Weet iemand hier toevallig of en hoe ik deze stijl van grafieken in excel (ik heb zowel '03, '07 als '10 beschikbaar) voor elkaar kan krijgen? Liefst met iets dikkere 'ringen' om de staafjes heen overigens
[ afbeelding ]
De standaardgrafieken van Excel kunnen het iig niet.
Als je een standaard kolom grafiek maakt kun je de tweede reeks op je secundaire as zetten.quote:
Hallo! Weet iemand hier toevallig of en hoe ik deze stijl van grafieken in excel (ik heb zowel '03, '07 als '10 beschikbaar) voor elkaar kan krijgen? Liefst met iets dikkere 'ringen' om de staafjes heen overigens
[ afbeelding ]
Vervolgens maak je van de "binnenste" kolom de gap breedte (ruimte tussen de kolommen) groter zodat de kolom zelf smaller wordt.
Vervolgens kun je de kolommen met een gradient inkleuren waarbij je de randkleur donkerder maakt dan de binnenkleur om een rondheid te suggereren. Van de binnenste kolom kies de kleuren een paar tinten lichter dan de buitenste kolom.
Jammer genoeg kun je geen 3D grafiek maken met een secundaire as want dan was het al een stuk makkelijker.
[ Bericht 52% gewijzigd door Deetch op 03-10-2012 10:42:03 ]
ik heb 2 verschillende data, die je in dezelfde diagram moet zien, maar de ene is zo klein dat je alleen maar een strakke lijn ziet. Hoe los ik dit op?
de dataserie:
foto van hoe het er nu uit ziet:SPOILER
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
37
38
39
40
41Temp rain(mm)
jaar 1911 9,94 640
1914 9,74 786,3
1921 9,99 387,3
1930 9,72 911,1
1934 10,25 716,8
1945 10,01 723,8
1948 9,89 740,1
1949 10,07 662,6
1951 9,81 808,9
1953 9,95 597,4
1957 9,74 927,7
1959 10 535,8
1961 9,74 925,4
1967 9,9 853,1
1975 9,85 635
1976 9,99 536,3
1977 9,87 813
1982 10,08 600,7
1983 10,15 827,9
1988 10,37 884,5
1989 10,79 661,3
1990 10,9 714,7
1992 10,55 917,8
1994 10,64 1025,2
1995 10,47 729,5
1997 10,29 743,5
1998 10,42 1239,6
1999 10,94 901,5
2000 10,9 932,4
2001 10,4 1038,9
2002 10,76 924
2003 10,38 612,7
2004 10,35 859,4
2005 10,68 872,9
2006 11,24 807,1
2007 11,23 951,1
2008 10,61 880,5
2009 10,53 776,9
2011 10,93 909
2012 11,28 588,3
de temperatuurverschillen moeten dus duidelijker worden.
[ Bericht 0% gewijzigd door gogosweden op 03-10-2012 10:33:14 ]
Dan Format Data Series en het vinkje bij secondary axis aanzetten.
quote:
Rechtsklikken op reeks met temperatuurverschillen.
Dan Format Data Series en het vinkje bij secondary axis aanzetten.
HELD
Je kunt ook met een stacked cylinder grafiek werken waarbij je je reeksen wel anders moet berekenen.quote:
Hallo! Weet iemand hier toevallig of en hoe ik deze stijl van grafieken in excel (ik heb zowel '03, '07 als '10 beschikbaar) voor elkaar kan krijgen? Liefst met iets dikkere 'ringen' om de staafjes heen overigens
[ afbeelding ]
stel A2 tm A5 zijn je partijen
B2 tm B5 je zetels 2010
C2 tm C5 je zetels 2012
je nieuwe reeksen zijn dan:
A10 tm A13 je partijen
B10 =MIN(B2:C2)
C10 =MAX(B2:C2)-B10
B10 en C10 doorkopieren naar beneden
Stacked cylinder grafiek maken en kleuren per punt naar smaak aanpassen
Ik heb ook een voorbeeldje maar dan heb ik je mail nodig (PM)
Achja natuurlijkquote:
[..]
Je hoeft uiteraard alleen te controleren op de cel die daadwerkelijk wijzigt. Die andere cellen zijn/blijven fout en hoef je niet opnieuw te beoordelen.
Pak hiervoor de event change en via Target kan je achterhalen welke cel gewijzigd is.
Ik wil een score van een vragenlijst automatisch uit laten rekenen.
Als twee cellen geen waarde hebben, dan moet de waarde 1 worden.
Ik heb nu dit: =ALS(ISLEEG(Blad1!c3)EN(ISLEEG(Blad1!d3);1)
Deze werkt niet. Deze wel: =ALS(ISLEEG(Blad1!D3);1)
Maar dan heb ik niet beide cellen.
Iemand ideeën?
[edit] Oh Jeej! Even googlen doet ook wonderen:
=ALS(EN(ISLEEG(Blad1!C3);(ISLEEG(Blad1!D3)));1)
[ Bericht 13% gewijzigd door Panthera1984 op 04-10-2012 11:59:46 ]
Je snapt ook waarom die wel werkt?quote:
Ok, ik werk met Excel 2010, NL versie.
Ik wil een score van een vragenlijst automatisch uit laten rekenen.
Als twee cellen geen waarde hebben, dan moet de waarde 1 worden.
Ik heb nu dit: =ALS(ISLEEG(Blad1!c3)EN(ISLEEG(Blad1!d3);1)
Deze werkt niet. Deze wel: =ALS(ISLEEG(Blad1!D3);1)
Maar dan heb ik niet beide cellen.
Iemand ideeën?
[edit] Oh Jeej! Even googlen doet ook wonderen:
=ALS(EN(ISLEEG(Blad1!C3);(ISLEEG(Blad1!D3)));1)
Half, het heeft iets te maken met de haakjes...quote:
Nu zit ik helaas met nog een issue, en ik heb al gegoogled maar toch is het me nog onduidelijk.
Ik moet in een cel een waarde weergeven die afhankelijk is van een uitkomst van een andere cel.
Voorbeeld: 1 tot en met 7 in A3 geeft waarde 1 terug. 8 tot en met 10 in A3 geeft waarde 2 terug. 11 tot en met 14 in A3 geeft waarde 3 terug. en zo door tot waarde 9.
Nu heb ik iets gelezen over 'nested IFS' en dat dat maar tot 7 variabelen kan gaan. Ik weet nu helemaal niet meer hoe en wat.
Er zijn 90 stellingen, er zijn 30 paren van 3. Van elk paar maak je een volgorde van belangrijkheid.
Deze antwoorden vul ik gewoon in tab 1 in.
in tab 2 geef ik per factor aan welke zinnen daarbij horen. (en tel die scores op)
dus ik krijg bijvoorbeel factor 1 = 5, factor 2 = 19
bij factor 1 is 1 tot 3 gelijk aan '1' (normscore) en 2 tot 8 gelijk aan '2' (normscore) enz, enz...
bij factor 2 is 1 tot 5 gelijk aan '1' ( " " ) en 6 tot 9 gelijk aan '2' ( " " ) enz, enz...
Hopelijk is je nu iets duidelijker wat ik wil bereiken. (de normscore automatisch laten berekenen)
Het heeft te maken met de EN()-functie. EN zelf bestaat niet. Als iets aan 2 of meer voorwaarden moet voldoen kan je EN() gebruiken EN(voorwaarde1;voorwaarde2) geeft alleen WAAR als antwoord. ALS(EN(voorwaarde1;voorwaarde2);actie als waar;actie als onwaar) zorgt er dus voor dat als aan beide voorwaardes uit EN() voldaan wordt er een actie uitgevoerd wordt. Als dat niet zo is, dan wordt de andere actie uitgevoerd.quote:
[..]
Half, het heeft iets te maken met de haakjes...
Die 7 variabelen is voor Excel 2003 en ouder als ik t goed heb.quote:Nu zit ik helaas met nog een issue, en ik heb al gegoogled maar toch is het me nog onduidelijk.
Ik moet in een cel een waarde weergeven die afhankelijk is van een uitkomst van een andere cel.
Voorbeeld: 1 tot en met 7 in A3 geeft waarde 1 terug. 8 tot en met 10 in A3 geeft waarde 2 terug. 11 tot en met 14 in A3 geeft waarde 3 terug. en zo door tot waarde 9.
Nu heb ik iets gelezen over 'nested IFS' en dat dat maar tot 7 variabelen kan gaan. Ik weet nu helemaal niet meer hoe en wat.
Je kan een hulptabel maken. In kolom C 1 t/m 14 en verder en daarnaast de waarden die je terug wil hebben (dus 1/tm 9). Dus in C1 1 en in D1 ook 1, in C2 2, in D2 1.
Je kan dan met vert.zoeken(A3;C1:D25;2) de juiste waarde ophalen.
Die hulptabel kan je ook kleiner maken door in C1 1 te zetten en in D1 1, in C2 8 en D2 2, in C3 11 en D3 3 etc.
-edit-
Dus in kolom C de laagste waarde uit je reeks (1 t/m 7 is dus 1, 8 t/m 10 is 8, etc).
In tab 3 heb ik een hulptabel gemaakt. In kolom B de normscore en in kolom C de laagste waarde.quote:
[..]
Je kan een hulptabel maken. In kolom C 1 t/m 14 en verder en daarnaast de waarden die je terug wil hebben (dus 1/tm 9). Dus in C1 1 en in D1 ook 1, in C2 2, in D2 1.
Je kan dan met vert.zoeken(A3;C1:D25;2) de juiste waarde ophalen.
Die hulptabel kan je ook kleiner maken door in C1 1 te zetten en in D1 1, in C2 8 en D2 2, in C3 11 en D3 3 etc.
-edit-
Dus in kolom C de laagste waarde uit je reeks (1 t/m 7 is dus 1, 8 t/m 10 is 8, etc).
Zoals ik uit je voorbeeld haal zou het er nu zo uit zien: =(A3;tab3!B2:tab3!C10;2) (waar staat die 2 hier eigenlijk voor?) Echter ik krijg een foutmelding van Excel terug.
Nee, je formule moet dit zijn: =VERT.ZOEKEN(A3;tab3!B2:C10;2).quote:
[..]
In tab 3 heb ik een hulptabel gemaakt. In kolom B de normscore en in kolom C de laagste waarde.
Zoals ik uit je voorbeeld haal zou het er nu zo uit zien: =(A3;tab3!B2:tab3!C10;2) (waar staat die 2 hier eigenlijk voor?) Echter ik krijg een foutmelding van Excel terug.
De 2e tab3! moet je dus weg laten.
Die 2 staat voor de 2e kolom waar in gezocht moet worden.
Hartstikke bedankt, ik heb het vanmorgen gebruikt en het werkt hartstikke goed!quote:
[..]
Nee, je formule moet dit zijn: =VERT.ZOEKEN(A3;tab3!B2:C10;2).
De 2e tab3! moet je dus weg laten.
Die 2 staat voor de 2e kolom waar in gezocht moet worden.
quote:
Zo te zien is het baggeruurtje begonnen?quote:
Op Het te downloaden "allinternalpassword.xls" file werkt tot en met voor Excel 2010
De eerste zin van de uitleg is prachtig:
Internal XL passwords are about as useful for security as tissue paper
Hier het linkje: http://www.mcgimpsey.com/excel/removepwords.html
Password kwijt?
Soms heb je een worksheeet beveiligd met een password maar ben je die kwijt. Gelukkig is dat geen groot probleem want de interne beveiliging van Excel stelt niet heel veel voor.
Hier vind je meer info en een downloadbare macro die alle interne passwords verwijdert.
Disclaimer: Denk erom dat je met het breken van de beveiliging van een excelsheet mogelijk wet- of regelgeving overtreedt. Als de spreadsheet van jezelf is zou het geen probleem moeten zijn.
In andere gevallen: vraag toestemming aan de originele schrijver.
Bij twijfelgevallen: NIET DOEN