for VBA Enthusiasts

A while back ago I promised to produce my engine for the advancedfilter wrapper. Well, at the prodding of Hugo I finally put it together. I took the code from my VB.NET project and converted it to VBA. Man, that reminds of why I love .NET so much! If you ever get a chance to learn .NET of VBA definitely take the opportunity. At first it is difficult but then it gets to the point where you don’t want to go back. [Read More]

AdvancedFilter Class Just so everyone knows. I’m going to postpone the AdvancedFilter series until I start working on it in .NET, that way I’ll remember more about what I was doing before. I’ll start working on that when I finish up the Time Card application and the Chart Manipulator. Time Card I probably won’t be finishing up the beta version of the time card until early April. I’m currently debugging the UDF function “SumDate” which is pretty central to the time card. [Read More]

Creating the Sub Class

In order to get the nice drop down menu we’ll need a second class I’ll call “SearchTerms.” This class is also necessary to store each individual search term entered into the class. Included in this class will be:

1. Search Term
4. Match Type

' SearchTerms
' Description: This class contains the search information.
'
'
' Change Overview
' Date Comment
' --------------------------------------------------------------
' 03/02/2012 Initial version
'
Option Explicit
'---------------------------------------------------------------
'Class Variable Declarations
'---------------------------------------------------------------
Private msSearchTerm As String
Private meMatchType As MatchType

'---------------------------------------------------------------
'Class Property Procedures
'---------------------------------------------------------------

Property Get SearchTerm() As String
SearchTerm = msSearchTerm
End Property Property

Let SearchTerm(ByVal sItem As String)
msSearchTerm = sItem
End Property

End Property

End Property

End Property

End Property

Property Get Match_Type() As MatchType
Match_Type = meMatchType
End Property

Property Let Match_Type(ByVal eMatchType As MatchType)
meMatchType = eMatchType
End Property