Hessel de Walle's Blog

De kerk van Driesum wordt momenteel (2016-2017) gerestaureerd. Ook de vloer wordt vervangen. De huidige vloer is verwijderd en daarmee zijn de eeuwenoude grafzerken weer tevoorschijn gekomen. Tijd voor de Grêfskfriftekommisje om een kijkje te nemen. Alle foto's zijn van Melle Koopmans . Grafzerk 1 Anno 1581 de 20 [marty] sterf de edele erentfeste heerschap Tjepke van Goslinga Anno 1582 den 5 ivly sterf de edele eerbare juffrou Anna van Liaukama sijn huisfrou De steen is sterk beschadigd. Alleen delen van de tekst zijn nog leesbaar. Wel zijn alle familiewapens nog goed zichtbaar. We tonen hier de wapens GOSLINGA - LIAUCKEMA Willem Hansma heeft uit een archiefstuk van de familie Liauckema een stuk betreffende de uitgaven voor deze steen boven water gehaald. Anna Liauckema's broer Jarich is kennelijk in maart 1604 met zijn zwager Adam van Paffenrode naar Leeuwarden gereisd. Hij doet verslag: Het duurde zo te zien vele jaren voordat de steen helemaal klaar w...

Gewogen percentage Een ogenschijnlijk simpele vraag leidt tot het nodige denkwerk. Een collega kwam met het volgende simpele tabelletje: Categorie # Items # Incidenten a 1 1 b 1 1 c 5 1 d 1 1 e 1 1 f 1 3 g 1 1 h 1 1 i 3 1 j 1 1 De vraag was hoe het gewogen percentage te berekenen per categorie. Het heeft enige hoofdbrekens gekost maar uiteindelijk hebben we de oplossing. In dit geval weegt het aantal incidenten zwaarder naarmate er minder items zijn. Zijn er minder items zijn, dan geldt het omgekeerde. Dit betekent dat we het aantal incidenten moeten delen op het aantal items . Dit leidt in kolom D tot een simpele formule: =C2/B2 Deze formule kunnen we dan doortrekken naar beneden. Om nu tot een gewogen percentage te komen moeten we de uitkomst delen door de som van alle delingen: =SOM($C$2:$C$11/$B$2:$B$11) Voor de ju...

De aanleiding voor dit script is de behoefte om geautomatiseerd een aantal rapporten van Reporting Services om te zetten naar PDF formaat. Het onderstaande VBA script is algemeen te gebruiken om een willekeurige internet pagina om te zetten naar PDF . Het kan aangeroepen worden vanuit elk Office pakket. Zelf heb ik het gemaakt in Access . Voor het omzetten van de internet pagina naar PDF heb ik gebruik gemaakt van de PDFCreator . Dit kan gratis worden gedownload:  http://www.pdfforge.org/ De PDFCreator kan als printer worden aangeroepen met VBA . Binnen dit programma kunnen we een aantal zaken instellen zoals de map waarin we de PDF's willen opslaan. Het VBA script: 'functie nodig om de standaard printer aan te passen Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Sub printURL()     Dim objExplorer As Object     Dim lngQuery As Long 'geef waarde QueryStatusWB...

Af en toe krijg ik een vraag om een wachtwoord van een Excel blad te halen. Doodsimpel met VBA. Hier een script dat ik gebruik: Sub WachtwoordCrack()     Dim a As Integer, b As Integer, c As Integer, d As Integer, _     e As Integer, f As Integer, g As Integer, h As Integer, _  I As Integer, j As Integer, k, m As Integer     Dim begin As Date, eind As Date     Dim duur As String     Dim objSheet As Worksheet     begin = TimeValue(Time)     On Error Resume Next     For Each objSheet In Application.Worksheets         For a = 65 To 66: For b = 65 To 66: For c = 65 To 66             For d = 65 To 66: For e = 65 To 66: For f = 65 To 66                 For g = 65 To 66: For h = 65 To 66: For I = 65 To 66                     For j = 65 To 66: For k = 65 To...

Laatste tijd een aantal keren mensen gezien die in Excel werken met een productenlijst met plaatjes. Die plaatjes plakken ze er dan zelf bij. Wat een werk! Met VBA is zoiets simpel te regelen. Plaatjes worden automatisch bij het artikelnummer gezocht en eventueel vernieuwd. Uiteraard moet er wel een map met plaatjes zijn en moeten de namen van de plaatjes gerelateerd zijn aan het artikelnummer. In het onderstaande voorbeeld heb ik dit uitgewerkt. Het Excel voorbeeld bestaat uit twee bladen. De eerste heet Plaatjes en bevat de artikelnummers en een knop. Bij een druk op deze knop zoekt het VBA script het juiste plaatje erbij. Wordt dit niet gevonden dan plaatst het een blauwe cirkel met een kruis. De regelhoogte en de grootte van het plaatje worden automatisch ingesteld aan de hand van variabelen uit het tweede blad.  Het tweede blad heet Constanten . Hierin worden een aantal instellingen gedefinieerd: Naam Inhoud Pad D:\walmar domino\images\ E...

The other day I ran in to a problem with Report Builder . I had a number of multi value parameters with a lot of values. And there was a single value parameter for selecting items too. The report rendered fine in design mode. But as soon as I published it, it was no longer rendering properly. The mutli value parameters also contained values which would not give any result at all given a certain item number. But then again, in design node no problem. The solution I finally came up with was to interrelate the multi value parameters to the single value parameter by using a SQL   subquery. Let's look at this example I created based on the NorthWind database. My main dataset: SELECT        Customers.CustomerID, Customers.CompanyName, [Order Details].OrderID, [Order Details].ProductID, [Order Details].UnitPrice, [Order Details].Quantity, [Order Details].Discount,                          ...

Er zijn in Excel een aantal manieren op een cel te valideren met een lijst. Ik loop ze hier langs. A. Met een gewoon bereik: Probleem: als er waarden worden toegevoegd, breidt het gekozen bereik zich niet automatisch uit. B. Met een formule Op de plek van Bron zetten we bijvoorbeeld: =VERSCHUIVING(lijsten!$C$2;0;0;AANTALARG(lijsten!$C:$C)-1;1) Dit heeft als voordeel dat het gekozen bereik zich automatisch uitbreidt. Komt er een element bij, dan wordt deze ook in de lijst getoond. Nadeel is dat de formule enigszins bewerkelijk is. C. Met een naam Op de plek van Bron zetten we dan bijvoorbeeld: =Lijst_met_functie_Index Een dergelijke naam verwijst dan naar een formule. In dit geval hebben we een aantal mogelijkheden: =VERSCHUIVING(lijsten!$C$2;0;0;AANTALARG(lijsten!$C:$C)-1;1) of bijvoorbeeld: =INDEX(lijsten!$C:$C;2;1):INDEX(lijsten!$C:$C;AANTALARG(lijsten!$C:$C);1) Namen met zulke formules hebben als voordeel dat het gekozen b...