Your technology certification is waiting. Enroll in Cloud Class ®
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function Explode(InputString As String, Optional MaxLevels As Long = 10, Optional LevelDigits As Long = 6)
Dim arr As Variant
Dim ArrResult() As String
Dim Counter As Long
arr = Split(InputString, ".")
ReDim ArrResult(0 To MaxLevels - 1) As String
For Counter = 0 To UBound(ArrResult)
If Counter <= UBound(arr) Then
ArrResult(Counter) = Format(arr(Counter), String(LevelDigits, "0"))
ArrResult(Counter) = Format(0, String(LevelDigits, "0"))
Explode = Join(ArrResult, ".")
Open in new window
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.[a:a]) Is Nothing Then
Application.EnableEvents = False
Me.[a1].Sort Key1:=Me.[c1], Order1:=xlAscending, Header:=xlYes
Application.EnableEvents = True
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.