Excel ToolBox

Patrice T

4.98/5 (13 votes)

Jul 17, 2023

CPOL

5 min read

22776

722

The Excel Tools I crafted to simplify my life as programmer

Download source code - 31.5 KB

Introduction
Scanning Macros
1. Scanning Whole Sheet
2. Starting From Active Cell
Macros
Functions
Points of Interest
History

Introduction

I work daily on huge Excel spreadsheets, 50K formulas in a WorkBook is common.

Over the years, I crafted functions and macros to simplify my Excel formulae and usage.

I am using VBA to be even compatible with Excel 2003 because I started Excel programming at that time, 20 years ago.

My Standard WS Settings

Only cells for user input are unlocked, all others are locked.
The WS is protected, so that user can't delete formulas by mistake.

This ensures minimum security in sheets. For more security, sheets are password protected.

Samples.xls

The file Samples.xls in Downloads file show sample usage of following pieces of code.

Formula()

This tiny function has no other purpose than to display the formula of another cell.

It is just a helper for screenshots on Excel.

' 20230717 Patrice_T
Function Formula(Adrs As Range) As String
    Formula = Adrs.Formula
End Function

Formula.bas in ExcelToolBox.zip.

Scanning Macros

Mainly for checking purposes, I created macros that scans WorkSheets. There are two kinds of macros, some are scanning whole WorkSheets, others start at active cell.

Scanning Whole Sheet

Sometimes, I want the macros to scan the whole WorkSheet because some problems need mandatory fixes.

Those macros use this skeleton.

For Each Cel In ActiveSheet.UsedRange
	' Do stuf or Checks
	' Set Condition
    If Condition Then
        Cel.Activate
        MsgBox "Error at Cell " & Replace(ActiveCell.Address, "$", "")
        Exit Sub
    End If
Next

Macros scan every Cell in Sheet checking for a condition and stop when encountered.

Starting From Active Cell

Sometimes, I want the macro to start scanning at active cell because some conditions are not always problems to fix.

Those macros use this skeleton.

Dim RowS As Long
Dim RO, CO
RowS = ActiveSheet.UsedRange.RowS.Count
RO = ActiveCell.Row
CO = ActiveCell.Column
Rupt = ActiveCell.Value

For Scan = RO To RowS
   	' Do stuf or Checks
   	' Set Condition
    If Condition Then
        ActiveSheet.Cells(Scan, CO).Activate
        Exit Sub
    End If
Next

This code scans in a column for a condition starting at Active Cell.

Macros

Macros are programs that are run from Menu or Ribbons (GUI).

Search for #REF! in Formulas

Any formula containing a #REF! is in error because the Cell initially referred to has been deleted. This happens sometimes when deleting parts of a Sheet. Any of such error must be corrected, so full Sheet scan.

Excel provides such a tool, but one has to select the offending cell to see if there is such problem in the cell. Not really pleasing when one has to check 50K cells. Otherwise, one has to use the Excel error locating feature, but in my case, I have added other checks specific to the sheet I am working on.

' 20220201 Patrice T
Sub ScanRef()
    ' TP recherche de #ref! dans la feuille
    For Each Cel In ActiveSheet.UsedRange
        If InStr(Cel.Formula, "#REF!") > 0 Then
            Cel.Activate
            MsgBox "Erreur Cellule " & Replace(ActiveCell.Address, "$", "") _
                    & vbLf & " Erreur #REF! dans formule (formule cassée)"
            Exit Sub
        End If
    Next

End Sub

ScanRef.bas in ExcelToolBox.zip.

Search for Orphans Formulas

Orphan Formulas are formulas referring to empty cells. It is potentially a problem, but not always. The macro scans from active cell.

This screenshot has the #REF! error and the formula is also orphan because it refers to C2 which is empty.

Excel can highlight such formulas, but my macro can also allow referring to empty cells if they are in specific ranges. Example: in a list of operations on bank account with deposit and withdraw columns, the continuous balance will refer to empty cells, and it is normal.

The RegEx

In this RegEx, I want to match only Cell references, Ranges and defined names. But as formulas are complicated, I have found it easier to match unwanted parts to prevent false matches. What is matched as unwanted match will not make a false match.

Unwanted: match strings
Wanted: match optional WS name and Cell adress of Range
Unwanted: match functions names
Wanted: match defined names

    Dim xRegEx As Object
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    '   The RegEx
    '   Match a string
    '   (""[^""]*"")
    '   match sheet name without space
    '   ([a-zA-Zé0-9_]+!)
    '   match sheet name with space
    '   ('[a-zA-Zé0-9\s_]+'!)
    '   match cell adress or range
    '   \$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?
    '   match a function name
    '   ([a-zA-Zé0-9\._]+\()
    '   match defined name
    '   ([a-zA-Zé_][a-zA-Zé0-9_]+)
    With xRegEx
        .Pattern = "(""[^""]*"")|(([a-zA-Zé0-9_]+!)|('[a-zA-Zé0-9\s_]+'!))_
        ?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?|_
        ([a-zA-Zé0-9\._]+\()|([a-zA-Zé_][a-zA-Zé0-9_]+)"
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
    End With

Orphan.bas in ExcelToolBox.zip.

Define Ranges where orphans are allowed

    '   List of ranges where orphans are allowed
    '    List = Array("F1:H20")
    List = Array()

Orphan.bas in ExcelToolBox.zip.

Code is sorting out what matches are.

            If Cel.HasFormula Then
                ' c'est bien une formule
                Set Tmp = xRegEx.Execute(Cel.Formula)
                For i = 0 To Tmp.Count - 1
                    If Left(Tmp.Item(i), 1) = """" Then
                        ' ne pas traiter les chaines de caractères
                    ElseIf InStr(Tmp.Item(i), "(") <> 0 Then
                        ' nom de fonction, sauter
                    ElseIf InStr(Tmp.Item(i), "TRUE") <> 0 Then
                        ' sauter
                    ElseIf InStr(Tmp.Item(i), "FALSE") <> 0 Then
                        ' sauter
                    Else
                        ' si Cel dans ranges de list, alors sauter la vérification
                        ' Vérifier la formule
                        Set Target = Range(Tmp.Item(i).Value)
                        Verif = True
                        If ActiveSheet.Name <> Target.Worksheet.Name Then
                            ' WS différent, sauter
                        Else
                            For Each Ligne In List
                                If Not Application.Intersect(Range(Ligne), Target) _
                                    Is Nothing Then
                                    Verif = False
                                End If
                            Next
                        End If
                        If Verif Then
                            If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
                                If Target.Formula = "" And Target.Locked Then
                                    Cel.Activate
                                    ' MsgBox "Cellule " & Replace(Cel.Address, _
                                    ' "$", "") & "fait référence à une cellule vide" & _
                                    ' vbLf & Replace(Ref.Address, "$", ""), vbYesNoCancel

                                    Exit Sub
                                End If
                            End If
                        End If
                    End If
                Next
            End If

Orphan.bas in ExcelToolBox.zip.

Automating Plan

Since the WS is huge, I use Plan to hide/fold parts to ease navigation. The macro manages the plan creation.

A column is reserved to indicate which rows are headers or details. (See Samples.xls.)