Hessel de Walle's Blog

Excel: plaatjes en bereiken Geen idee wie dit bedacht heeft. Ik vind op internet verschillende verwijzingen naar deze mogelijkheid. Wat is het geval? In Excel kun je een plaatje plaatsen in je werkblad. In het voorbeeld heb ik maar even een foto van mezelf gebruikt. Dit lijkt op het eerste gezicht een tamelijk nutteloze actie. Op een ander blad heb ik even een simpele grafiek gemaakt. In dit blad selecteer ik nu het bereik D2:K16 . De grafiek valt precies binnen dit bereik. Dit geselecteerde bereik geef ik de naam Grafiek . Nu keren we terug naar het blad met de foto van mij. En die selecteren we door deze aan te klikken. Dan tikken we in de formulebalk =Grafiek  Deze naam verwijst naar het bereik op het andere blad dat de grafiek bevat. We zien dan dat de foto van mij verdwenen is. Deze is nu vervangen door het bereik waarnaar de naam Grafiek verwijst. Naar mijn smaak een zeer speciale mogelijkheid. Je kunt nu allerlei trucs uithalen. Afhankelijk van de dat...

Automatische database koppeling via VBA en Microsoft Query  In Excel is een koppeling met een database via Microsoft Query handmatig te leggen. Het kan ook via VBA: Sub toevoegenMQ()     Application.DisplayAlerts = False     Application.ScreenUpdating = False          Dim strODBC As String, strBlad As String, strSQL As String     strODBC = "noordenwind" 'Deze DSN moet wel bestaan, voor database Noordenwind     strBlad = "klanten"          'wissen data en verwijderen ms query     Sheets(strBlad).Activate     Sheets(strBlad).Range("a:k").QueryTable.Delete     Sheets(strBlad).Range("a:k").ClearContents     ActiveWorkbook.Save     'strSQL bepalen     strSQL = " SELECT * FROM klanten WHERE land = 'Duitsland'"              With ActiveSheet.QueryTables.Add(Conn...

Access voor automatische import CSV; gekoppeld Excel voor de weergave Naar aanleiding van een vraag van een klant heb ik een Access database gemaakt dat automatisch een CSV bestand importeert. Voorwaarde was ook dat dit CSV bestand automatisch opnieuw geïmporteerd wordt als dit bestand vernieuwd wordt. Hoe ziet deze code er globaal uit? De timer Bij het laden van een formulier kunnen we instellen om de hoeveel tijd (in milliseconden) code moet worden uitgevoerd. Sub Form_Load()     Me.TimerInterval = 1000 'in milliseconden  End Sub Vervolgens kunnen we dan de code schrijven voor de Timer gebeurtenis van een formulier. Sub Form_Timer()      'hier komt de code  End Sub Deze code gaan we nu behandelen. Verzamelen namen CSV bestanden Met behulp van het FileSystemObject heb ik de namen en de datum van laatste wijziging van de CSV bestanden in een map opgeslagen in een Access tabel:     'tabel csv legen om steeds ...

De huidige kerk van Metslawier dateert van 1776. Er is een tekening uit 1722 van de vorige kerk. Mogelijk zijn tijdens de bouw van deze kerk een aantal grafzerken uit de kerk op het kerkhof terecht gekomen. De oude grafzerken op het kerkhof van Metslawier hebben jarenlang bedekt gelegen onder een laag schelpen. Onlangs is de oude kerk opgeknapt en nu is het kerkhof aan de beurt. De stichting die nu eigenaar van de kerk is, heeft besloten de laag schelpen te verwijderen zodat de oude grafzerken weer in beeld komen. Als voorschot daarop zijn een aantal grafzerken al weer in zicht gebracht. Op 12 augustus 2015 hebben we de gelegenheid gehad deze grafzerken te bekijken. De teksten van deze grafzerken waren eerder al genoteerd. Ons onderzoek maakte duidelijk dat deze teksten niet altijd correct waren genoteerd en vaak ook flink aangevuld konden worden. We willen hier de resultaten publiceren. Alle foto's zijn genomen door Melle Koopmans. 1. Antje Klases en haar drie echtgen...

Got a question from a person. She wanted a running total only  to show up when a certain limit or a multiple of that limit was crossed. In my example, this limit is 5000, Running Total is showing every time 5000 or a multiple of 5000 is crossed: The example is based on the table Order_Details from the NorthWind database. First, I created a formula field Revenue : {Order_Details.Quantity}*{Order_Details.UnitPrice} In only managed to create the Running Total by by creating a  Formula Field Running Total : currencyvar curTotal; currencyvar curSubtotal; numberVar numCounter; curTotal:=curTotal + {@Revenue}; //numCounter:= curTotal\{?RunningTotalLimit}; ( if {@Revenue} < {?RunningTotalLimit} then     (     if curTotal \ {?RunningTotalLimit} = numCounter + 1  and curSubtotal = 0 then         (         curSubtotal:= curTotal;         numCounter:=numCounter + 1    ...

Volop in het nieuws, de bootvluchtelingen. Veel gruwelijke verhalen. Veel van deze mensen komen uit landen met een uiterst onderdrukkend regime. Eritrea bijvoorbeeld. Een andere belangrijke factor waar we veel minder over horen is de toenemende bevolkingsdruk in Afrika. Nu weet ik ook wel dat niet alle bootvluchtelingen uit Afrika komen. Hier wil ik evenwel de ontwikkeling van de bevolking van dit continent cijfermatig toelichten. In onderstaande grafiek laat ik de ontwikkeling van de inwonersaantallen zien van 2003 tot en met 2023. BRON :  http://data.worldbank.org In het bijbehorende bestand kun je zelf simpel de jaartallen aanpassen en bekijken hoe dat het beeld verandert. In heel veel landen in Afrika laat de bevolking zeer hoge groeicijfers zien. In Eritrea bijvoorbeeld ligt dat op 3,3 procent per jaar. Dat betekent dat de bevolking daar zich binnen tweeëntwintig jaar zal verdubbelen. In Zuid Soedan gebeurt dat zelfs in zo'n zestien jaar. Beide politiek ze...

The report I created here contains no data from an external source. The numbers we see, all come from calculations based on the figures given via the input parameters. The expressions look like this: Max Deviation: =Code.BerekeningNorm(Parameters!parNormAfwijking.Value,Parameters!parProfielLengteNorm.Value) (based on the upper two paramaters) Requirement : =Code.Berekening(Parameters!parMaxAfwijkingNorm.Value,  Parameters!parProfielLengteNorm.Value)  (based on lower parameter and the right upper one) The function code behind the report: Function Berekening(MaxAfwijkingNorm as Integer,ProfielLengteNorm as Integer) as Double Berekening = MaxAfwijkingNorm ^2 Berekening = Berekening + (ProfielLengteNorm / 2)^2 Berekening = Berekening / (2 * MaxAfwijkingNorm) Berekening = Berekening - ((Berekening^2) -  250000)^(1/2) End Function Function BerekeningNorm(NormAfwijking as Double,ProfielLengteNorm as Integer) as Double BerekeningNorm=NormAfwijk...