Home Newsletter

Deze pagina in het NederlandsHome > Article index >

An MSForms (all VBA) treeview for Access, Excel And Word

Introduction

If you have ever used the Treeview control from the "Additional controls" section, then you know what a versatile control this is to show hierarchically organized data. There are a couple of problems with this Treeview control:

  1. Compile errors due to a difference in how the control libraries are registered in 32 bits Windows' System32 and 64 bit Windows' SysWOW64 folders. If you distribute a file that was saved in 64 bit Windows, containing one of the "Microsoft Windows Common Controls 6.0" (The Treeview control is one of them) and with the reference set to "mscomctl.ocx", people using 32 bit Windows will almost certainly have problems. At best it could entail removing both the control and the reference and replacing both, but at worst the user's Excel can crash when trying to load the file and run the app.
  2. The standard Treeview control, like all non built-in ActiveX controls, cannot be used in 64 bit versions of Office.

Especially the second point convinced me it is time to develop a custom-made Treeview "control", that only uses the native Office forms controls. I started building this a couple of weeks ago and after some time I tricked Peter Thornton into helping me with it

The screenshot below shows both our new Treeview (left) and the Windows one (right) side-by-side in their simplest display mode (read on, there are even prettier screenshots further down the page):

Treeview controls
Two treeviews, left: VBA tree, right: Common controls tree

In the following pages I'll show what our treeview can do and explain how to put it to use in your own VBA project.

MAC Office and 64 bit Office Compatible!

Our Treeview works in all versions of Excel, Access and Word; from Office 2007 to 2019 and 365, for Windows and Mac, 32bit and 64bit. It also works in some earlier versions though you would need to adapt the demos made for 2007 and later.

Windows screenshot:

Treeview demo on Windows Excel
Treeview demo on Windows Excel

Mac screenshot:

MAC screenshot of our treeview demo form
Screenshot of treeview on Mac Excel 2011

Acknowledgements

The basic plumbing and code structure of this treeview control was devised by me. However, without the help of my friend and fellow MVP Peter Thornton, lots of functionality would not have been available now. For that I sincerely thank Peter!

Furthermore, Access MVP Ben Clothier was kind enough to make the necessary adjustments to incorporate the treeview in an Access form

Also: Fellow Excel MVP Ron De Bruin ensured the treeview also works on MAC Office 2011, Thanks Ron!

Copyright and Licensing

All code in the treeview is (c) JKP Application Development Services and Peter Thornton (the Authors). It remains our sole intellectual property.

However, we're offering this treeview to you at no cost. You get an unrestricted license for use in any VBA project you like. You're free to modify any part of the code at will.

We do request that you:

And please mention the source of the treeview (including a link to this page) in your helpfile, manual and/or on your about screen.

We're always interested to see how people have implemented the VBA Treeview. So please feel free to send a screenshot with a brief description or relevant details.

Disclaimer

You use this control at your own risk: The authors accept no liability whatsoever for any damages which may arise due to the use of our treeview.

Donations

Many, many hours were spent developing this treeview. Although we developed it for use in our own projects, we are giving it away for free!

Nevertheless, we would really be pleased if you actually express your appreciation in a more "tangible" form. So here is a paypal donation button at your disposal:

Download

The Excel workbook contains most of the documentation (on the tabs of the workbook), so I recommend you to at least download the Excel version. The Access version has instructions on its main form (click the "How do I...?" button) on how to implement the treeview in your own projects.

Download the treeview sample Excel workbook (including documentation) (build 026.4, 28 May 2021, downloaded 42.403 times)

Download the treeview sample Word document (build 026.4, 31 May 2021, downloaded 13.550 times)

Download the treeview sample Access database (build 026.4, 28 May 2021, downloaded 34.448 times)

‘Pro’ Treeview and ListGrid VBA controls

The professional version of the treeview control has exceptional performance. Even with tens of thousands of nodes it will load quickly and remain highly responsive. It also has several new features including drag and drop. Timing experiments have shown that the pro version of our treeview outperforms the common controls treeview.

Our new ListGrid combines most of the functionality of the ActiveX Listview and Flexgrid controls with many extra useful features. It is the result of extensive beta testing by some of our treeview users, thanks guys!

The screenshot of the demo below gives an idea of just some of its capability.

Professional ListGrid control

The Pro Treeview and ListGrid are available for 32/64 bit Excel and Access. The Excel version will also work in Mac, one or two features are disabled for Mac but we’re working on it. Unlike our free treeview they are self contained in their own files and designed to work more like real controls.

For more details and if interested in a trial license to try either of these ‘controls’ please contact us:

Pro Treeview enquiry

Pro Listgrid enquiry

Please note that the pro versions are paid versions. Pricing available upon request by using the links above (The download files above contain a Word document which also gives more details about the pro controls).

Content

  1. Features
  2. How To Use
  3. Examples

 

Other controls

Another often used control is the calendar control. This control has the added problem that it has been deprecated with Office 2010 (where we're supposed to use the date picker control). Frankens Team created an all-vba alternative using very similar techniques to what we've done here.

Ron de Bruin created a Date Picker control for MAC Excel.


Comments

Showing last 8 comments of 830 in total (Show All Comments):

 


Comment by: Mas Watanabe (22-7-2021 19:56:00) deeplink to this comment

Hi, thank you for creating this great TreeView alternative which has been relieving a lot of headache.
This solution has been working flawlessly on my Access database until about two weeks ago. Not sure what happened two weeks ago (may be Windows update?), but it started causing the following error when the form containing this is about to open.

The expression Layout you entered as the event property setting produced the following error: User-defined type not defined.
*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluation the function, event, or macro.

It seemed that 64 bit Access does not cause this error, but 32 bit Access creates this error. Once this happened, even a 64 bit Access caused this error as if 32 bit Access corrupted the file.

Do you have any idea what is happening?


Comment by: Jan Karel Pieterse (23-7-2021 11:57:00) deeplink to this comment

Hi Mas,

I'm not sure, but perhaps you need to delete the userform from the project and use the code as available in the demo project to add it back. Also, maybe you need to do this separately for the 32 bit and 64 bit versions of Access, I'm not sure?


Comment by: Peter Thornton (23-7-2021 12:18:00) deeplink to this comment

Hi Mas,

Just to add, maybe you accidentally changed something in your 32bit file, then if this file is transferred to Access 64 the same error would occur. The first thing to try, if you haven't already, is Debug / Compile and fix any compile errors.

However this doesn't always find all issues. If you have a working backup try that.


Comment by: Raimund Bogner (3-8-2021 21:25:00) deeplink to this comment

Hi,
I'm using your great free treeview alternative with Access 2016 64bit.

I know, how to find and activate a node using

For Each cNode In mcTree.Nodes ...,

but how can I highlight a node without clicking on it?

Is mouse wheel support part of the pro version?

ty


Comment by: Peter Thornton (4-8-2021 10:10:00) deeplink to this comment

Hi Raimund,

If you mean set a node as the active node without clicking on it -

Set mcTree.ActiveNode = cNode

where cNode refers to the node you want to activate.

In the pro version you can also do simply -
cNode.Activate


With both versions you might also want to call mcTree.ScrollToView to ensure the new activenode is in view.

Yes, mouse wheel-scroll is included in the pro treeview although there is a caveat for a small number of x64 users. Contact us if you want to try it and mention which version, Excel or Access.


Comment by: Anthony Curtis (30-8-2021 22:03:00) deeplink to this comment

Hello,

Thank you so much for writing and actively supporting the users. I got the code to work outside of the demo but what I need to do is count the number of end-nodes selected.

For example (using the demo data), if I select 1.A, 4.0001, 4.0002, and 4.0003 the total selected should be 4. It's currently showing 5 with my code because 4.D +15 is being counted. I'd like to only have the last child counted.

Here's the code:


    For Each cRoot In mcTree.RootNodes
        GetData3 cRoot, 0, 0, 0, ws.Range("A1")
    Next

Sub GetData3(cParent As clsNode, lCt As Long, _
                    ByVal lLevel As Long, lCount As Long, rng As Range)
' PT, a recursively retrieve the node's decendent data
' whether visible or not

Dim cChild As clsNode
    lLevel = lLevel + 1
    lCt = lCt + 1
    rng(lCt, lLevel) = cParent.Caption
    If Not cParent.ChildNodes Is Nothing Then
        'If cParent.Expanded Then
            For Each cChild In cParent.ChildNodes
                If cChild.Checked Then
                    lCount = lCount + 1
                    GetData3 cChild, lCt, lLevel, lCount, rng
                End If
            Next
        'End If
    End If
    
    labInfo.Caption = lCount & " items selected"

End Sub


Stay safe!


Comment by: Peter Thornton (31-8-2021 11:06:00) deeplink to this comment

Hi Anthony,

If I follow you want to count all checked 'leaf' nodes in the entire tree(?). Try this -


'    For Each cRoot In mcTree.RootNodes
'        GetData3 cRoot, 0, 0, 0, ws.Range("A1")
'    Next

Sub GetData3(cNode As clsNode, lCt As Long, _
                    ByVal lLevel As Long, lCntChecked As Long, rng As Range)
Dim cChild As clsNode
    lLevel = lLevel + 1
    lCt = lCt + 1
    ' rng(lCt, lLevel) = cNode.Caption '' dump all nodes
    If Not cNode.ChildNodes Is Nothing Then
        ' a parent node, don't count if checked
         For Each cChild In cNode.ChildNodes
             GetData3 cChild, lCt, lLevel, lCntChecked, rng
         Next
    ElseIf cNode.Checked Then
         ' a 'leaf' node, count if checked
         lCntChecked = lCntChecked + 1
        '' dump checked leaf nodes only
        'rng(lCntChecked, 1) = cNode.ParentNode.Key
        'rng(lCntChecked, 2) = cNode.Key
        'rng(lCntChecked, 3) = cNode.Caption
    End If
    
    labInfo.Caption = lCntChecked & " leaf nodes selected"

End Sub

Not sure if you wanted to dump all nodes or only checked leaf nodes, code for either way included.


Comment by: Anthony Curtis (2-9-2021 15:42:00) deeplink to this comment

Hi Peter,

This is exactly what I was looking to do, thank you!

Anthony


Have a question, comment or suggestion? Then please use this form.

If your question is not directly related to this web page, but rather a more general "How do I do this" Excel question, then I advise you to ask your question here: www.eileenslounge.com.

Please enter your name (required):

Your e-mail address (optional, will only be used to inform you when your comment is published or to respond to your question directly):

Your request or comment (max 2000 characters):

To post VBA code in your comment, use [VB] tags, like this: [VB]Code goes here[/VB].

I give permission to process this data and display my name and my comment on this website according to our Privacy Policy.