[Excel] Het grote Excel vragen topic #19

dinsdag 2 maart 2010 @ 15:06:39 #76

qu63

..de tijd drinkt..

quote:
Op maandag 1 maart 2010 10:36 schreef Deetch het volgende:

[..]

Helaas geen tijd om uitgebreid te coderen.

Echter een principe schetsje ziet er mi als volgt uit.
[ code verwijderd ]

Helaas is mijn kennis van VBA te klein (nihil namelijk) om dit zelf verder uit te werken

Kan iemand me op weg helpen?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 2 maart 2010 @ 15:43:14 #77

Deetch

WTF?

quote:
Op dinsdag 2 maart 2010 15:06 schreef qu63 het volgende:

[..]

Helaas is mijn kennis van VBA te klein (nihil namelijk) om dit zelf verder uit te werken

Kan iemand me op weg helpen?

goedverdoemme moet kabouter wesley u dan ook alles voorkauwen

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

dinsdag 2 maart 2010 @ 15:47:15 #78

qu63

..de tijd drinkt..

quote:
Op dinsdag 2 maart 2010 15:43 schreef Deetch het volgende:

[..]

goedverdoemme moet kabouter wesley u dan ook alles voorkauwen

Ja

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 2 maart 2010 @ 18:43:50 #79

Deetch

WTF?

quote:
Op dinsdag 2 maart 2010 15:47 schreef qu63 het volgende:

[..]

Ja

vlats

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

Sub random_x()

opnieuw:

Dim aantal As Integer
Dim lengte As Integer
Dim lowerbound As Integer
Dim upperbound As Integer
Set myRange = Range("A140:A867")

aantal = InputBox("Geef aantal x-en") '
lengte = myRange.Cells.Count - 1
lowerbound = 140
upperbound = lowerbound + lengte

ReDim myArray(aantal) As Integer

'LET OP:

betekent ( i ) zonder spaties
For i = 1 To aantal
myArray

= Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Next i

'x-jes neerzetten
For j = 1 To aantal
    ActiveSheet.Cells(myArray(j), 1).Value = "X"
Next j

'check op aantal ingevulde x-en ivm rnd functie
check = Application.WorksheetFunction.CountIf(myRange, "X")
vraag = MsgBox("Wil je opnieuw laten invullen?" & vbNewLine & "Gevraagde aantal x-en: " & aantal & vbNewLine & "Aantal ingevulde x-en: " & check, vbRetryCancel)

If vraag = vbRetry Then
    Range("A140:A867").Select
    Selection.ClearContents
    Range("A139").Select
    GoTo opnieuw
End If

End Sub

Probleem met random is dat je elke keer andere getallen krijgt en je dus nooit van te voren weet hoeveel x-jes je krijgt als je om 140 x-jes vraagt. Hiervoor is de msgbox aan het einde zodat je een andere waarde voor de gevraagde hoeveelheid x-jes kunt invoeren totdat je er wel precies 140 krijgt.
Het kan vast eleganter maar daar had ik geen tijd voor.

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

dinsdag 2 maart 2010 @ 18:45:54 #80

Deetch

WTF?

Misschienw erkt deze code wel beter: http://www.ozgrid.com/VBA/RandomNumbers.htm

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

dinsdag 2 maart 2010 @ 19:06:21 #81

Holy_Goat

mhèèhèhè

**wacht op clever antwoord van ralphie op vraag**

dinsdag 2 maart 2010 @ 21:22:28 #82

ralfie

!Yvan eht nioj

quote:
Op dinsdag 2 maart 2010 19:06 schreef Holy_Goat het volgende:
**wacht op clever antwoord van ralphie op vraag**

je kunt 8x een range inlezen of 1x alle kolommen en die in vba splitsen in meerdere arrays. Geen idee welke sneller is, maar ik denk dat bij vele waarden de eerste methode het beste is.
Indien je gebruik maakt van variant = range(xxx) zit je altijd met een multidimensionale array, dus als je dat niet wilt, zul je de hele reut in een keer in moeten laden en daarna in vba met een for each je arrays maken

1
2
3
4
5
6
7
8
9
10
11

dim alles = range("b3:G" & Range("B65536").End(xlup).Row) 'laatste rij opzoeken via lookup
dim a1() as string,a2() as string,a3() as string 'je arrays
redim a1(1 to ubound(alles))
redim a2(1 to ubound(alles))
redim a3(1 to ubound(alles))

for x=1 to UBound(alles)
    a1(x) = alles(x,1)
    a2(x) = alles(x,2)
    a3(x) = alles(x,3)
next x

ofzoiets

dinsdag 2 maart 2010 @ 21:39:08 #83

ralfie

!Yvan eht nioj

quote:
Op dinsdag 2 maart 2010 15:47 schreef qu63 het volgende:

[..]

Ja

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

Sub randomx()
    Dim rng As Range, aantal As Integer, aantalcellen As Integer, value As Integer

    rng = "A1:A100" 'vul hier je range in
    aantal = InputBox("Hoeveel xjes ?", "seriously", 0)
    Dim x As Variant
    x = Range("A1:A100")
    aantalcellen = UBound(x)
    If UBound(x, 2) > 1 Then
        MsgBox "Bereik is ongeldig, slechts support voor 1 kolom!"
        Exit Sub
    ElseIf aantal < 1 Or aantal >= aantalcellen Then
        MsgBox "Invoer is ongeldig, teveel of te weinig"
        Exit Sub
    End If
    Randomize
    Do
        value = Int(Rnd * aantalcellen)
        If Not x(value, 1) = "x" Then
            x(value, 1) = "x"
            aantal = aantal - 1
        End If
    Loop While aantal > 0
    Range("A1:A100") = x
End Sub

daar deze code in een loopje door blijft gaan totdat er een x aantal xjes zijn gezet, kan het zijn dat ie oneindig lang door blijft gaan. Je zou een timer of iets dergelijke hiervoor in de do while loop moeten bouwen om dit te voorkomen

dinsdag 2 maart 2010 @ 22:09:48 #84

Holy_Goat

mhèèhèhè

quote:
Op dinsdag 2 maart 2010 21:22 schreef ralfie het volgende:

[..]

je kunt 8x een range inlezen of 1x alle kolommen en die in vba splitsen in meerdere arrays. Geen idee welke sneller is, maar ik denk dat bij vele waarden de eerste methode het beste is.
Indien je gebruik maakt van variant = range(xxx) zit je altijd met een multidimensionale array, dus als je dat niet wilt, zul je de hele reut in een keer in moeten laden en daarna in vba met een for each je arrays maken
[ code verwijderd ]

ofzoiets

dus dit is veel sneller als bijvoorbeeld:

1
2
3
4
5
6
7
8
9
10
11
12
13

i=2
do while cells(i,1) <>""
   redim preserve array1(i-1)
...
   redim preserve array8(i-1)

   array1(i-1)=cells(i,1)
...
   array8(i-1)=cells(i,8)

    i=i+1
loop

woensdag 3 maart 2010 @ 12:45:48 #85

EINZ

WHEEEH! HEHEH!

Welke fomule pas ik toe voor de inverse cosinus in excel?

Deze reply is uitsluitend bestemd voor geadresseerde(n). Dit bericht kan informatie bevatten die vertrouwelijk is. Indien u niet de geadresseerde bent, wordt u er hierbij op gewezen dat u geen recht hebt kennis te nemen van deze reply.

woensdag 3 maart 2010 @ 13:14:11 #86

DaFan

quote:
Op woensdag 3 maart 2010 12:45 schreef EINZ het volgende:
Welke fomule pas ik toe voor de inverse cosinus in excel?

http://office.microsoft.com/nl-nl/excel/HP052089811043.aspx

BOOGCOS() in NL.
ACOS() in EN.

woensdag 3 maart 2010 @ 15:15:39 #87

EINZ

WHEEEH! HEHEH!

quote:
Op woensdag 3 maart 2010 13:14 schreef DaFan het volgende:

[..]

http://office.microsoft.com/nl-nl/excel/HP052089811043.aspx

BOOGCOS() in NL.
ACOS() in EN.

Neah! Inverse cosinus van 0,43 is iets van 64 graden, en boogcos geeft me als antwoord 1,12 aan.

Deze reply is uitsluitend bestemd voor geadresseerde(n). Dit bericht kan informatie bevatten die vertrouwelijk is. Indien u niet de geadresseerde bent, wordt u er hierbij op gewezen dat u geen recht hebt kennis te nemen van deze reply.

woensdag 3 maart 2010 @ 15:28:28 #88

Twentsche_Ros

quote:
Op woensdag 3 maart 2010 15:15 schreef EINZ het volgende:

[..]

Neah! Inverse cosinus van 0,43 is iets van 64 graden, en boogcos geeft me als antwoord 1,12 aan.

Geometrie-noob aan Geometrie-expert:
Ik weet weinig van cos, sin en boogcos. Ik heb wel eens gemerkt dat je de uitkomst niet in graden krijgt:
Wie weet zegt je het iets als je weet dat voor Excel het volgende geldt::

BOOGCOS(-1) = PI
BOOGCOS(0) = 0,5*PI
BOOGCOS(1) = 0

Misschien moet je de uitslag wel vermenigvuldigen met 180/pi.

boogcos(0,43)= bij Excel: 1,12630355
1,12630355 x 180/pi = 64,53243986

Klopt 't zo?

[ Bericht 17% gewijzigd door Twentsche_Ros op 03-03-2010 15:33:55 ]

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

woensdag 3 maart 2010 @ 15:37:40 #89

DaFan

Staat ook in de voorbeelden in de link die ik heb gegeven.

BOOGCOS(0,43)*(180/PI()) geeft wel 64,53 aan.
Ook GRADEN(BOOGCOS(0,43)) geeft dat antwoord.

quote:
Als u de boogcosinus wilt uitdrukken in graden, vermenigvuldigt u het resultaat met 180/PI() of gebruikt u de functie GRADEN.

woensdag 3 maart 2010 @ 15:58:57 #90

ThatsMeThatsRight

GLORY DAYS

Casus!

Ik heb een werkblad met drie kolommen, kolom 1 is gevuld met getal, kolom 2 met tekst en nu de crux kolom 3 ook met tekst, maar dit zijn telkens 3 woorden die met een tab gescheiden zijn.

Ik wil dus graag de cellen in kolom C splitsen naar drie cellen met één woord.

Kan dat?

I got soul, but I'm not a soldier

woensdag 3 maart 2010 @ 16:01:32 #91

Ratjepoepe

Volgende probleem.

Principe:

Opbrengsten periode 1 t/m 3 = 1.000

Opgebouwd uit een basisopbrengst plus extra opbrengst

Periode 1: basisopbrengst
Periode 2: basisopbrengst + 20
Periode 3: basisopbrengst + 50

Weet iemand met welke excel formule ik de basisopbrengst kan berekenen (als dit überhaupt mogelijk is)?

"Sometimes you eat the bear, and sometimes the bear eats you."

woensdag 3 maart 2010 @ 16:06:20 #92

Twentsche_Ros

quote:
Op woensdag 3 maart 2010 15:58 schreef ThatsMeThatsRight het volgende:
Casus!

Ik heb een werkblad met drie kolommen, kolom 1 is gevuld met getal, kolom 2 met tekst en nu de crux kolom 3 ook met tekst, maar dit zijn telkens 3 woorden die met een tab gescheiden zijn.

Ik wil dus graag de cellen in kolom C splitsen naar drie cellen met één woord.

Kan dat?

Je kunt 1 kolom verdelen over drie via "Data" en "Tekst naar kolommen". Dan moet je de bewuste kolom selecteren. Maar:
Is dit een eenmalige exercitie, of krijg je telkens een kolom met deze 3 woorden aangeleverd?

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

woensdag 3 maart 2010 @ 16:08:26 #93

DaFan

quote:
Op woensdag 3 maart 2010 16:01 schreef Ratjepoepe het volgende:
Volgende probleem.

Principe:

Opbrengsten periode 1 t/m 3 = 1.000

Opgebouwd uit een basisopbrengst plus extra opbrengst

Periode 1: basisopbrengst
Periode 2: basisopbrengst + 20
Periode 3: basisopbrengst + 50

Weet iemand met welke excel formule ik de basisopbrengst kan berekenen (als dit überhaupt mogelijk is)?

Is 20 en 50 altijd vast?
Dan is het simpel namelijk...

(Totaal - 70)/3

woensdag 3 maart 2010 @ 16:10:40 #94

Twentsche_Ros

quote:
Op woensdag 3 maart 2010 16:01 schreef Ratjepoepe het volgende:
Volgende probleem.

Principe:

Opbrengsten periode 1 t/m 3 = 1.000

Opgebouwd uit een basisopbrengst plus extra opbrengst

Periode 1: basisopbrengst
Periode 2: basisopbrengst + 20
Periode 3: basisopbrengst + 50

Weet iemand met welke excel formule ik de basisopbrengst kan berekenen (als dit überhaupt mogelijk is)?

3b+70=1000

3b = 930

b = 310

Of als "+ 20" eigenlijk is: "x 1,2"

b+1,2b+1,5b=1000
3,7b = 1000

b = 1000/3,7 = 270,27

Een stukje ouderwetse wiskunde-vergelijking volgens mij.

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

woensdag 3 maart 2010 @ 16:12:55 #95

Ratjepoepe

Ja, het was ook niet helemaal goed verwoord. Het gaat namelijk alleen om het principe, dit voorbeeld lukt me ook wel

Het gaat om heel veel factoren die veranderen en over heel veel perioden dus onmogelijk om het op deze manier te doen. Ben dus eigenlijk echt op zoek naar een formule

"Sometimes you eat the bear, and sometimes the bear eats you."

woensdag 3 maart 2010 @ 16:22:44 #96

Gitarist

Ondertitel?

Ik heb een Excel werkblad waarop ik gegevens wil tonen uit een ander blad. Dit doe ik d.m.v. een verwijzing.

Het zijn echter getallen per maand, dus ik wil bij januari de formule van de verwijzing erin zetten en die dan vervolgens de formule doortrekken naar december, zodat in elke cel een verwijzing komt te staan naar de corresponderende cel in het bronblad.

Nu is mijn probleem echter dat Excel er standaard een absolute verwijzing van maakt (dus met $ in de formule), maar ik wil dat hij standaard een relatieve verwijzing ervan maakt, zodat ik kan doorvoeren.
Ik kan wel telkens die $ gaan weghalen, maar dat is nogal bewerkelijk.

Ik kan er in de opties niks van vinden... iemand een idee?

Ik gebruik Office 2003 in de Nederlandse taal.

me·lo·maan\ (de ~ (m.), -manen)
1 iem. met een overdreven liefde voor muziek

woensdag 3 maart 2010 @ 16:26:06 #97

EINZ

WHEEEH! HEHEH!

quote:
Op woensdag 3 maart 2010 15:37 schreef DaFan het volgende:
Staat ook in de voorbeelden in de link die ik heb gegeven.

BOOGCOS(0,43)*(180/PI()) geeft wel 64,53 aan.
Ook GRADEN(BOOGCOS(0,43)) geeft dat antwoord.
[..]

Ah okee. De afdeling feestneuzen dankt u.

Deze reply is uitsluitend bestemd voor geadresseerde(n). Dit bericht kan informatie bevatten die vertrouwelijk is. Indien u niet de geadresseerde bent, wordt u er hierbij op gewezen dat u geen recht hebt kennis te nemen van deze reply.

woensdag 3 maart 2010 @ 16:32:29 #98

DaFan

quote:
Op woensdag 3 maart 2010 16:12 schreef Ratjepoepe het volgende:
Ja, het was ook niet helemaal goed verwoord. Het gaat namelijk alleen om het principe, dit voorbeeld lukt me ook wel

Het gaat om heel veel factoren die veranderen en over heel veel perioden dus onmogelijk om het op deze manier te doen. Ben dus eigenlijk echt op zoek naar een formule

Wederom wiskunde

Totaal = (3x) + y + z

Succes

Ben ik nooit een held in geweest met 3 variabelen.

woensdag 3 maart 2010 @ 16:57:10 #99

Twentsche_Ros

quote:
Op woensdag 3 maart 2010 16:22 schreef Gitarist het volgende:
Ik heb een Excel werkblad waarop ik gegevens wil tonen uit een ander blad. Dit doe ik d.m.v. een verwijzing.

Het zijn echter getallen per maand, dus ik wil bij januari de formule van de verwijzing erin zetten en die dan vervolgens de formule doortrekken naar december, zodat in elke cel een verwijzing komt te staan naar de corresponderende cel in het bronblad.

Nu is mijn probleem echter dat Excel er standaard een absolute verwijzing van maakt (dus met $ in de formule), maar ik wil dat hij standaard een relatieve verwijzing ervan maakt, zodat ik kan doorvoeren.
Ik kan wel telkens die $ gaan weghalen, maar dat is nogal bewerkelijk.

Ik kan er in de opties niks van vinden... iemand een idee?

Ik gebruik Office 2003 in de Nederlandse taal.

F2 (edit) en daarna F4 (die elimineert stap voor stap de $-tekens)
Je kunt ook doen Ctrl-H (vervangen): vervang $ door (niks)

Maar:
Als je over de hele linie een relatieve verwijzing wil, moet je alleen de bovenste ont-$-en.
En dan copieer je de bovenste naar beneden.
Dan krijg je juist die relatieve verwijzing.
Als je eerst een hele rij absolute verwijzingen hebt (voorzien van allerlei $-tekens), en je gaat de $-tekens deleten, schiet je nog geen … op.
Dan blijft ie verwijzen naar 1 cel.

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

woensdag 3 maart 2010 @ 17:08:42 #100

Gitarist

Ondertitel?

quote:
Op woensdag 3 maart 2010 16:57 schreef Twentsche_Ros het volgende:

[..]

F2 (edit) en daarna F4 (die elimineert stap voor stap de $-tekens)
Je kunt ook doen Ctrl-H (vervangen): vervang $ door (niks)

Maar:
Als je over de hele linie een relatieve verwijzing wil, moet je alleen de bovenste ont-$-en.
En dan copieer je de bovenste naar beneden.
Dan krijg je juist die relatieve verwijzing.
Als je eerst een hele rij absolute verwijzingen hebt (voorzien van allerlei $-tekens), en je gaat de $-tekens deleten, schiet je nog geen … op.
Dan blijft ie verwijzen naar 1 cel.

Top! Bedankt voor je antwoord!

Dat onderste begrijp ik, maar dat gaat helaas voor het document waar ik mee werk niet op. Maar toch bedankt voor het meedenken

me·lo·maan\ (de ~ (m.), -manen)
1 iem. met een overdreven liefde voor muziek

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software