Doorgaan naar hoofdcontent


Posts uit juni, 2014 tonen

Crystal Reports: Group Chart Positioned Side By Side

Got a question from somebody. Charts showing products and revenues in a report grouped by category, can the different charts be shown two by two instead of one below the other? I tried to find a solution on the internet but could not find an answer to this question. I finally succeeded to create this: The example is based on the Northwind database, using the tables, Categories, Products, Orders and Oder_Details. To get the charts side by side instead of one below the other, I used one sub report. Main report and sub report are based on the same data and contain the same charts. I passed a shared variable from the main to the subreport: shared numbervar group; if groupnumber mod 2 = 1 then     group:=groupnumber ELSE     group:=0; group; In the main report I used a formula to suppress the groups alternately: groupnumber mod 2 = 0 In the sub reports I used the formula  to suppress the groups alternately: groupnumber <> {@group}+1 OR {@group}=0 I linked t

Excel: Circumplex Chart, Model Of Relations (Schwartz)

I could not make it as nice as the original but it looks OK to me. Circumplex - model of relations among different value groups (following Schwartz 1992) And the original from Here are the data: Inner Outer Benevolence 1 Intrinsic Values 3 Tradition 1 Conservation 2 Security 1 Extrinsic Values 2 Power 1 Openness to Change 2 Achievement 1 Hedonism 1 Simulation 1 Self-Direction 1 Universalism 1 You can download the file  ExcelCircumplex.xlsx  through

Crystal Reports: On SQL Expression Fields

This is based on an article from the SAP site: I tried to add some more examples to it. SQL Expression Field definition SQL Expression fields are similar to formula fields, but they are written in Structured Query Language (SQL). They are useful in optimizing report performance because the tasks they execute are performed on the database server. You can use SQL Expression fields to perform pre-defined functions on database fields. The list of available functions depends on the type of database in use. This list is available in the Function Tree of the SQL Expression Editor dialog box. NOTE : If Crystal Reports recognizes the function name it will turn blue in the SQL Expression Editor dialog box. Additional database functions may be available to you, depending on your database, but they will

Excel: Milestones Chart

Downloaden a milestones template from the Microsoft Office website: To my opinion it needed some improvement. This is what I created: Compared to their version: I used the same data as they did for their example, with the last column changed and one added: DATE MILESTONE POSITION BASELINE BELOW BASELINE ABOVE 23-jan Project Start 25 0 #N/B 14-feb Milestone 1 10 0 #N/B 24-feb Milestone 2 -10 #N/B 0 1-mrt Milestone 3 15 0 #N/B 15-mrt Milestone 4 -15 #N/B 0 15-mei Milestone 5 15 0 #N/B 15-jun Milestone 6 -15 #N/B 0 30-jun Milestone 7 15 0 #N/B 15-jul Milestone 8 -20 #N/B 0 30-jul Milestone 9 20 0 #N/B 23-okt Milestone 10 -15 #N/B 0 31-dec Project End 15

Excel: Bar Chart With Wingdings and Symbols

On the occasion of a request from  +Shane Devenshire  I created this Excel chart: My data: Patients Time Since Treatment Response ● Time to Response → Ongoing response Y 10 17 23 11 ● 9 19 7 13 4 ● 8 38 25 15 4 ● 7 48 0 36 ● 6 52 12 27 4 ● 5 59 10 20 4 ● 4 60 23 37 ● 3 89 5 25 4 ● 2 90 16 69 4 ● 1 98 25 24 ● The arrow is created using a label based op the column Ongoing Response, using the font Wingdings. The black circle is created using a label based on the Y column What the orginal version looked like: You can download the file  ExcelShane.xlsx  through

Friesland: geslacht Bangma, oude grafzerken, geboortelepels en zilveren ijssouvenirs

De Bangma's Afgelopen week is bij een kijkdag voor geboortelepels van het Fries Museum opnieuw een geboortelepel van de Bangma's opgedoken. In mijn database had ik al behoorlijk wat gegevens over deze familie. Oorspronkelijk lijken deze Bangma's te komen uit het verdwenen dorpje Engwier bij Makkum. Al lijkt het me ook goed mogelijk dat de achternaam komt van de Bangama State die volgens Waling Dijkstra bij Oosthem lag. Van daar uit verspreidt de familie zich over een groot deel van Friesland. In de kerken van Tjerkwerd, Wolsum en Oosthem vinden we oude grafzerken die herinneren aan de voorzaten van deze familie. Verder zijn ons ook de teksten van diverse geboortelepels en zilveren ijssouvenirs bekend. Het wapen op de lepel van Tetje Oenes Bangma (1585-1646). Nagenoeg hetzelfde wapen treffen we aan op een aantal latere geboortelepels, maar dan met klavers en eikels andersom. De lepel van Swopkje Eelkes Bangma (1766-1846) met wapen: In het onderstaande schema h


DE ELFSTEDENTOCHTEN EN HET ELFSTEDENBREVET DE VERSCHILLENDE VARIANTEN VAN DE ELFSTEDENTOCHT De elfstedentocht is of wordt behalve op de schaats op nog ten minste elf andere manieren uitgevoerd. Ik beperk me hier tot die manieren waarbij een flinke fysieke inspanning vereist is. Een totaal overzicht: Wijze Actief Onderdeel brevet Fietsen Ja (elk jaar) Ja Hardlopen (estafette en individueel) Ja (weer vanaf 2015) Nee Kano├źn Ja (elke drie jaar en nonstop elk jaar) Nee Mountainbiken Ja (elk jaar) Nee Roeien (estafette en individueel) Ja (elk jaar) Nee Schaatsen Ja (onbekend) Ja Skateboarden Nee Nee Skeeleren Ja (elke twee jaar) Nee Stand up paddling Ja (elk jaar) Nee Steppen Ja (elk jaar) Nee Surfen Nee (1983-1989) Nee Wandelen Ja (elk jaar) Ja Zeilen Ja (elk jaar) Nee Zwemmen Nee Nee AANTAL VOLTOOIERS VAN EEN ELFSTEDENTOCHT Naar mijn ruwe schatting hebben zeker hon

Excel: Keeping Track Of Changes in Your Data Using VBA

Today I created an Excel workbook that keeps track of changes in your data, on a hidden worksheet called history . This is the VBA script I used, the code must be placed in ThisWorkbook , Option Explicit Public oldValue As Variant Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)     Dim intRows As Integer     Dim rngCell As Range     intRows = Sheets("history").UsedRange.Rows.Count + 1          'MsgBox Target.Count     'to prevent changes on the history sheet are recorder as well     If Sh.Name <> "history" Then         intRows = Sheets("history").UsedRange.Rows.Count + 1         If Target.Count = 1 Then             Sheets("history").Cells(intRows, 1).Offset(0, 0).Value = Target.Address             Sheets("history").Cells(intRows, 1).Offset(0, 1).Value = oldValue             Sheets("history").Cells(intRows, 1).Offset(0, 2).Value = Target.Value             Sheets(&qu