DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
In Word kan je zogenaamde bouwstenen toevoegen, in Excel is dat niet te vinden. Ik wil namelijk het aantal keer dat het document is opgeslagen laten zien. Hoe doe ik dat nu t makkelijkst? Is het uit te lezen met VBA? Met =CEL() lukt t iig niet..
-edit-
Dit dus
http://msdn.microsoft.com(...)8v=office.12%29.aspx
Even een UDF-je schrijven
-edit2-
Deze werkt niet.. Iemand een idee waarom niet?
[ Bericht 35% gewijzigd door qu63 op 26-11-2012 16:21:52 ]
-edit-
Dit dus
http://msdn.microsoft.com(...)8v=office.12%29.aspxEven een UDF-je schrijven
-edit2-
Deze werkt niet.. Iemand een idee waarom niet?
| 1 2 3 | Public Function RN() As Long value = ActiveWorkbook.BuiltinDocumentProperties(8) End Function |
[ Bericht 35% gewijzigd door qu63 op 26-11-2012 16:21:52 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
vervang value eens door RN?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Nope..quote:
Het staat in Module1, als ik em in thisworkbook gooi krijg ik een #NAAM-fout als ik =RN() doe..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm, met deze code
en =RN(1) in Excel krijg ik wel netjes de titel van m'n document te zien.
Blijkbaar werkt de 8e optie (volgens http://msdn.microsoft.com(...)8v=office.12%29.aspx ) dus niet
Iemand al lid van Excelforum.com? Daar schijnt wel een werkende functie te staan.. http://www.excelforum.com(...)erties-on-sheet.html
| 1 2 3 | Public Function RN(ByVal prop As Integer) RN = ActiveWorkbook.BuiltinDocumentProperties(prop) End Function |
Blijkbaar werkt de 8e optie (volgens http://msdn.microsoft.com(...)8v=office.12%29.aspx ) dus niet
Iemand al lid van Excelforum.com? Daar schijnt wel een werkende functie te staan.. http://www.excelforum.com(...)erties-on-sheet.html
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Uit de help van de functie:
If Microsoft Excel doesn't define a value for one of the built-in document properties, reading the Value property for that document property causes an error.
Misschien kun je een on error resume next toevoegen want onderstaande macro werkt wel:
If Microsoft Excel doesn't define a value for one of the built-in document properties, reading the Value property for that document property causes an error.
Misschien kun je een on error resume next toevoegen want onderstaande macro werkt wel:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub tst() On Error Resume Next rw = 1 Worksheets(1).Activate For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = p.Name Cells(rw, 2).Value = p.Value rw = rw + 1 Next End Sub |
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
optie 8 is je revision number, maar dan moet je dat wel aanzetten voor dit bestand.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Waar doe ik dat dan? Het is niet hetzelfde als 'wijzigingen bijhouden' iig..quote:Op maandag 26 november 2012 16:45 schreef Deetch het volgende:
optie 8 is je revision number, maar dan moet je dat wel aanzetten voor dit bestand.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
hmmz nope, wel van ozgrid, misschien staat ie ook daar?quote:Op maandag 26 november 2012 16:44 schreef qu63 het volgende:
Hmm, met deze code
[ code verwijderd ]
en =RN(1) in Excel krijg ik wel netjes de titel van m'n document te zien.
Blijkbaar werkt de 8e optie (volgens http://msdn.microsoft.com(...)8v=office.12%29.aspx ) dus niet
Iemand al lid van Excelforum.com? Daar schijnt wel een werkende functie te staan.. http://www.excelforum.com(...)erties-on-sheet.html
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
De property is er blijkbaar nog wel maar hij wordt niet automatisch bijgehouden voor exdcel bestanden. http://support.microsoft.com/kb/214393quote:
[..]
Waar doe ik dat dan? Het is niet hetzelfde als 'wijzigingen bijhouden' iig..
Aan dit document heb je misschien ook iets aan?
http://www.google.nl/url?(...)deWb1L9a1o-xr3CNcEnQ
Volgens mij moet je bij het opslaan het revisie nummer zelf updaten via vba en dan kun je hem uitlezen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Er staan wel werkende voorbeelden, althans volgens de reacties, maar hij blijft bij mij "0" als output geven..quote:
[..]
hmmz nope, wel van ozgrid, misschien staat ie ook daar?
Alternatieve opties zijn er zeker niet?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Heb de code uit dat document gecopy-pasted, maar helaas zonder resultaat..quote:
[..]
De property is er blijkbaar nog wel maar hij wordt niet automatisch bijgehouden voor exdcel bestanden. http://support.microsoft.com/kb/214393
Aan dit document heb je misschien ook iets aan?
http://www.google.nl/url?(...)deWb1L9a1o-xr3CNcEnQ
Volgens mij moet je bij het opslaan het revisie nummer zelf updaten via vba en dan kun je hem uitlezen.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Workaround gevonden:
A8 heb ik nu aangepast opgemaakt met "Versie: "#, nu doet t precies wat ik wilde
| 1 2 3 | Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range("A8") = Range("A8") + 1 End Sub |
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Weet iemand hoe ik een datum kan laten zien op de volgende manier
Za 6 juli
?
Za 6 juli
?
The people who lost my respect will never get a capital letter for their name again.
Like trump...
Like trump...
Custom format aanmaken "ddd dd mmm"quote:
Weet iemand hoe ik een datum kan laten zien op de volgende manier
Za 6 juli
?
Dus rechtsklikken op de cel die je wilt aanpassen, "format cells" kiezen, Custom (aangepast) format aanmaken.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Top! dat werkt inderdaad goed, is er ook nog een mogelijkheid om de v van vrijdag als hoofdletter te krijgen?
The people who lost my respect will never get a capital letter for their name again.
Like trump...
Like trump...
bij mij doet ie dat automatisch (engelse versie)quote:
Top! dat werkt inderdaad goed, is er ook nog een mogelijkheid om de v van vrijdag als hoofdletter te krijgen?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Hier niet 
NL versie 
NL versie
The people who lost my respect will never get a capital letter for their name again.
Like trump...
Like trump...
Onderstaande codes werken in excel 2010 ook (getest een Deetch approved ;-) ). In principe doet jouw workaround hetzelfde alleen hou je het getal bij in de verborgen gegevens van je spreadsheet in plaats van op cel A8.quote:
Workaround gevonden:
[ code verwijderd ]
A8 heb ik nu aangepast opgemaakt met "Versie: "#, nu doet t precies wat ik wilde
Als iemand cel A8 verwijderd en dan opslaat wordt het revisienummer gereset naar 1.
| 1 2 3 4 5 6 7 8 9 10 11 | Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'voor het opslaan de revision number met 1 ophogen ActiveWorkbook.BuiltinDocumentProperties(8).Value = ActiveWorkbook.BuiltinDocumentProperties(8).Value + 1 End Sub Private Sub Workbook_Open() 'zet revisie nummer op moment van openen in cel A1 ActiveSheet.Range("A1").Value = "Huidige versie: " & ActiveWorkbook.BuiltinDocumentProperties(8).Value End Sub |
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Dan zal hij dat bij een donderdag ook wel niet doen. Niets aan te doen tenzij je zelf een ingewikkelde functie wilt gaan schrijven in vba?quote:
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Nah, dan laat ik het lekker zo. Wel raar dat dat per land anders kan zijn 
The people who lost my respect will never get a capital letter for their name again.
Like trump...
Like trump...
Je kan het ook zonder VBA doen hoor, zelf een matrixje maken met dagnummers in kolom A en dagnamen in kolom Bquote:
[..]
Dan zal hij dat bij een donderdag ook wel niet doen. Niets aan te doen tenzij je zelf een ingewikkelde functie wilt gaan schrijven in vba?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm, grote kans dat het inderdaad niet werkte omdat ie geen versienummers bij aan het houden was. Jouw variatie doet dat idd wel.quote:
[..]
Onderstaande codes werken in excel 2010 ook (getest een Deetch approved ;-) ). In principe doet jouw workaround hetzelfde alleen hou je het getal bij in de verborgen gegevens van je spreadsheet in plaats van op cel A8.
Als iemand cel A8 verwijderd en dan opslaat wordt het revisienummer gereset naar 1.
[ code verwijderd ]
Ik ben de enige gebruiker van het document, dus beveiliging is niet nodig. Plus nu kan ik nog wat sjoemelen met de versienummers
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hier naartoe verwezen door Deetch... Dus kleine copy paste van mijn topic, zodat het oude gesloten kan worden.
De voorwaardelijke opmaak van Excel is voor mij nog een beetje een raadsel... Daarom probeer ik het hier dus ook.
http://img59.imageshack.us/img59/121/voorbeeldn.jpg (copy/paste deze link) (copy/paste deze link)
Iemand ideeën?
De voorwaardelijke opmaak van Excel is voor mij nog een beetje een raadsel... Daarom probeer ik het hier dus ook.
http://img59.imageshack.us/img59/121/voorbeeldn.jpg (copy/paste deze link) (copy/paste deze link)
Iemand ideeën?
Ik heb weer een mooie..
Ik heb een aantal getallen op rij staan als volgt:
Huidige getal: getal x getal y getal z
Bij de getallen horen personen (bv 1, 2 en 3) Ik wil nu een formule uitzetten waarbij hij het huidige getal vergelijkt met de nieuwe getallen. De kleinste daarvan neemt en daarvan aangeeft of het huidig, persoon 1, 2 of 3 is. De formule werkt, behalve dat wanneer persoon 1, 2 EN 3 geen aanbieding hebben (getal hebben) er alsnog persoon 1 uitkomt.
=ALS(L8<MAX($F8);INDEX($H$6:$K$6;VERGELIJKEN(L8;H8:K8;0));"Current") Dit is hem op het moment en ik ga dus ergens de fout in.
Ik heb een aantal getallen op rij staan als volgt:
Huidige getal: getal x getal y getal z
Bij de getallen horen personen (bv 1, 2 en 3) Ik wil nu een formule uitzetten waarbij hij het huidige getal vergelijkt met de nieuwe getallen. De kleinste daarvan neemt en daarvan aangeeft of het huidig, persoon 1, 2 of 3 is. De formule werkt, behalve dat wanneer persoon 1, 2 EN 3 geen aanbieding hebben (getal hebben) er alsnog persoon 1 uitkomt.
=ALS(L8<MAX($F8);INDEX($H$6:$K$6;VERGELIJKEN(L8;H8:K8;0));"Current") Dit is hem op het moment en ik ga dus ergens de fout in.
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
Als ik het goed begrijp wil je het volgende:quote:
Hier naartoe verwezen door Deetch... Dus kleine copy paste van mijn topic, zodat het oude gesloten kan worden.
De voorwaardelijke opmaak van Excel is voor mij nog een beetje een raadsel... Daarom probeer ik het hier dus ook.
http://img59.imageshack.us/img59/121/voorbeeldn.jpg (copy/paste deze link) (copy/paste deze link)
Iemand ideeën?
alle maanden kolommen muv eerste selecteren
Daarna, voorwaardelijke opmaak, 'celwaarde niet gelijk aan' en dan vul je als waarde in de verwijzing naar de eerste cel van de eerste maand.
c'est tout.
als je tabel er zo uitziet:quote:
Ik heb weer een mooie..
Ik heb een aantal getallen op rij staan als volgt:
Huidige getal: getal x getal y getal z
Bij de getallen horen personen (bv 1, 2 en 3) Ik wil nu een formule uitzetten waarbij hij het huidige getal vergelijkt met de nieuwe getallen. De kleinste daarvan neemt en daarvan aangeeft of het huidig, persoon 1, 2 of 3 is. De formule werkt, behalve dat wanneer persoon 1, 2 EN 3 geen aanbieding hebben (getal hebben) er alsnog persoon 1 uitkomt.
=ALS(L8<MAX($F8);INDEX($H$6:$K$6;VERGELIJKEN(L8;H8:K8;0));"Current") Dit is hem op het moment en ik ga dus ergens de fout in.
| 1 2 3 4 | A B C D 1 Current Pers1 Pers2 Pers3 2 5 4 6 8 3 9 13 4 6 |
| 1 | =INDEX($A$1:$D$1;1;VERGELIJKEN(MIN(A2:D2);A2:D2;0)) |
quote:
[..]
als je tabel er zo uitziet:
[ code verwijderd ]
Kun je de volgende formule gebruiken:
[ code verwijderd ]
Waar A2:D2 het bereik van je rij is.
| 1 2 3 | Huidige A B C D New price Persoon ¤ 20,00 ¤ 15 ¤ 10 ¤ 5 ¤ 8 ¤ 5 C ¤ 10,00 0 0 0 0 0 A |
Korte toelichting. Bij 10 euro huidig en A t.m D hebben geen prijs geeft hij alsnog A aan, en niet B. Formule is momenteel zo opgesteld: =ALS(L8<MAX($F8);INDEX($H$6:$K$6;VERGELIJKEN(L8;H8:L8;0));"Current")
[ Bericht 5% gewijzigd door draadstalig op 28-11-2012 17:02:23 ]
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
Ok nu ben ik al een heel eind. Ik wil echter dat het 'van toepassing op'-bereik zich aanpast aan de hand van de huidige maand. De vorige maanden(gerealiseerde cijfers dus) moeten dus niet opgemaakt worden. alleen vanaf de huidige maand en verderquote:
[..]
Als ik het goed begrijp wil je het volgende:
alle maanden kolommen muv eerste selecteren
Daarna, voorwaardelijke opmaak, 'celwaarde niet gelijk aan' en dan vul je als waarde in de verwijzing naar de eerste cel van de eerste maand.
c'est tout.
Of vraag ik nu te veel?
Zelf heb ik al geprobeerd te kloten met adres en index, maar dat wordt een beetje erg complex.
=ADRES(6;VERGELIJKEN(INDEX($A$13:$B$24;VERGELIJKEN($J$1;$B$13:$B$24;0);1);D5:H5;0)+3)
Resultaat = $G$6
Hier heb ik november gebruikt als huidige maand
Dit gaat het makkelijkste als je twee voorwaardelijke opmaak regels gebruikt.quote:
[..]
Ok nu ben ik al een heel eind. Ik wil echter dat het 'van toepassing op'-bereik zich aanpast aan de hand van de huidige maand. De vorige maanden(gerealiseerde cijfers dus) moeten dus niet opgemaakt worden. alleen vanaf de huidige maand en verder
Of vraag ik nu te veel?
Zelf heb ik al geprobeerd te kloten met adres en index, maar dat wordt een beetje erg complex.
=ADRES(6;VERGELIJKEN(INDEX($A$13:$B$24;VERGELIJKEN($J$1;$B$13:$B$24;0);1);D5:H5;0)+3)
Resultaat = $G$6
Hier heb ik november gebruikt als huidige maand
1) selecteer het hele gebied D6:H17
Nieuwe regel -> Celinhoud niet gelijk aan =C6
Nieuwe regel -> een formule gebruiken =C$5<>$E$1
2) ga nu onder voorwaardelijke opmaak, naar regels beheren.
Zorg (met de pijltjes) dat de tweede regel hierboven bovenaan staat in het lijstje, en selecteer de optie 'stoppen indien waar'.
Verklaring: zodra de naam boven de 'vorige' kolom niet overeenkomt met de eigenlijke vorige maand, treedt regel 1 in werking. Vanwege 'stoppen indien waar' zal regel 2 dus niet gaan lopen.
Edit: kan natuurlijk ook makkelijk in één regel:
=EN(D6<>C6;C$5=$E$1)
[ Bericht 1% gewijzigd door ralfie op 28-11-2012 18:16:17 ]
