Excellent turven

Home
Login

Welkom op het developersblog van 4DotNet
Op dit developersblog zullen onze eigen ontwikkelaars hun praktijkervaringen en andere inseressante onderwerpen plaatsen.

0

woensdag, 15 april 2009 | Just for fun, Programmeren | Rene Kapitein | 594 x gelezen

De lezers die me wat beter kennen, weten dat ik actief ben als secretaris binnen de Rank, de Nederlands Gereformeerde kerk in Emmeloord. Ook binnen deze functie is er volop de gelegenheid om je met automatisering bezig te houden. Naast een eigen programma voor ledenadministratie zijn er soms kleine programmaatjes die tijd besparen en daarbij ook gewoon aardig zijn om te mee te werken. In dit artikel een eenvoudig voorbeeld van een turflijst.Binnenkort zit mijn bestuurstermijn er op. We vroegen aan de gemeenteleden of ze een briefje wilden invullen met daarop de namen van geschikte kandidaten. Vanuit de ledenadministratie had ik snel een lijst gemaakt met alle potentiële opvolgers en een lijst van leden met actief kiesrecht. Deze lijst heb ik gebruikt om in MS Word met behulp van de Wizard Afdrukken samenvoegen een gepersonifieerde brief te maken. Ik denk Dat Neckermann en Wehkamp de eersten in Nederland waren die hiermee kwamen: Beste mevrouw Kapitein …. En deze aanbieding is speciaal voor u, mevrouw Kapitein …

Voor wie dit soort brieven ook eens wil maken, zijn er op Internet uitgebreide beschrijvingen te vinden. Bijvoorbeeld: http://office.microsoft.com/nl-nl/excel/HP052037601043.aspx

Let er daarbij wel even op dat je de goede Office versie selecteert.

Wij maakten voor ieder lid met actief kiesrecht een briefje waar zijn naam op stond, een lijst met de vrijkomende functies met daarachter een stippellijn om een naam in te vullen.

We kregen meer dan 100 ingevulde briefjes terug. Aan mij de taak om te ‘turven’ welke namen voor een bepaalde functie het meest genoemd werden. Ik heb dit gedaan in een MS Excel spreadsheet. Het begin was eenvoudig: in de eerste kolom alle namen, daarnaast vier kolommen voor de verschillende bestuursfuncties (voorzitter, secretaris etc.)

Met Alt + F11 kom je in de Visual Basic Editor. Mensen die vroeger met Wordperfect 5.1 hebben gewerkt, noemen dit liefkozend het onder water scherm. Dit is de plek waar ook je macro’s worden opgeslagen. Ik koos voor blad1 het BeforeDoubleClick event.

Voor kolom 2 t/m 5 wilde ik dat wanneer je dubbelklikt op een cel de waarde van die cel met één verhoogd wordt: alsof je een turfje extra zet. Om tijdens het invoer al een beetje te kunnen zien welke personen vaak genoemd worden, heb ik er voor de aardigheid een functie aan toegevoegd om de achtergrond van de cel te kleuren, afhankelijk van de waarde. De kleuren liepen van lichtgeel via geel, oranje en rood naar donkerrood. Hieronder de paar regels code die je hiervoor nodig hebt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column < 2 Then Exit Sub

If Target.Column > 5 Then Exit Sub

Target(1, 1) = Target(1, 1).Value + 1

If Target(1, 1) > 5 Then

With Target(1, 1).Interior

.ColorIndex = 6 ‘ geel

.Pattern = xlSolid

End With

End If

If Target(1, 1) > 10 Then

With Target(1, 1).Interior

.ColorIndex = 44 ‘ donkergeel

.Pattern = xlSolid

End With

End If

.

If Target(1, 1) > 25 Then

With Target(1, 1).Interior

.ColorIndex = 3 ‘rood

.Pattern = xlSolid

End With

End If

End Sub

Voor de achtergrondkleuren gebruik je onderstaande tabel:

ColorIndex – 56 Excel kleuren

[Color 0]	[Color 0]	[Color 15]	[Color 15]	[Color 30]	[Color 30]	[Color 45]	[Color 45]
[Color 1]	[Color 1]	[Color 16]	[Color 16]	[Color 31]	[Color 31]	[Color 46]	[Color 46]
[Color 2]	[Color 2]	[Color 17]	[Color 17]	[Color 32]	[Color 32]	[Color 47]	[Color 47]
[Color 3]	[Color 3]	[Color 18]	[Color 18]	[Color 33]	[Color 33]	[Color 48]	[Color 48]
[Color 4]	[Color 4]	[Color 19]	[Color 19]	[Color 34]	[Color 34]	[Color 49]	[Color 49]
[Color 5]	[Color 5]	[Color 20]	[Color 20]	[Color 35]	[Color 35]	[Color 50]	[Color 50]
[Color 6]	[Color 6]	[Color 21]	[Color 21]	[Color 36]	[Color 36]	[Color 51]	[Color 51]
[Color 7]	[Color 7]	[Color 22]	[Color 22]	[Color 37]	[Color 37]	[Color 52]	[Color 52]
[Color 8]	[Color 8]	[Color 23]	[Color 23]	[Color 38]	[Color 38]	[Color 53]	[Color 53]
[Color 9]	[Color 9]	[Color 24]	[Color 24]	[Color 39]	[Color 39]	[Color 54]	[Color 54]
[Color 10]	[Color 10]	[Color 25]	[Color 25]	[Color 40]	[Color 40]	[Color 55]	[Color 55]
[Color 11]	[Color 11]	[Color 26]	[Color 26]	[Color 41]	[Color 41]	[Color 56]	[Color 56]
[Color 12]	[Color 12]	[Color 27]	[Color 27]	[Color 42]	[Color 42]
[Color 13]	[Color 13]	[Color 28]	[Color 28]	[Color 43]	[Color 43]
[Color 14]	[Color 14]	[Color 29]	[Color 29]	[Color 44]	[Color 44]

Door de lijsten op deze manier in te vullen en vervolgens op een bepaalde bestuursfunctie te filteren, konden we de groslijst voor de verkiezingen samenstellen. De werkmap met het resultaat bewaar ik, samen met een aantal andere stukken, op een CD die ik wil overdragen aan mijn opvolger.