Here is a list of some of our VB functions that we are making available for people to download and use.

The functions linked to by this page remain the copyrighted material of Abbydale Systems. You are free to use the material but please honor the copyrights.

As always you are free to use this code but the usual disclaimers apply.

By downloading code from this page you agree to the terms of the disclaimer.

Name
Description
  
LongestColThis function will return a value that is the row number of the row with the most columns.

The only parameter needed is the name of the sheet. An optional parameter identifies the number of the columns in that row.

If several rows have the same number of columns, the first row with that number of columns is returned.

LongestRowThis function will return a value that is the column number of the column with the most rows.

The only parameter needed is the name of the sheet. An optional parameter identifies the number of the rows in that column.

If several columns have the same number of rows, the first column with that number of rows is returned.

MyTabColorThis function returns the integer value of the tab color of the Active Sheet.

The function is only one statement, so it could actually just be coded without it being a function.

RemoveExtraSpaceThis function will remove any excess spaces from a string passed to it as a parameter.

RightClickProcessThis function adds items to the Right Click menu.

As shipped it adds 4 items:Show All, Hide All, "Reset/Show All" and "Delete Hidden.

Link to information page click here.

A demonstration video is available on YouTube™ by clicking here.

Link to video demonstration click here.

SheetCountThis function will count the number of worksheets in the workbook.

It can count hidden, visible, very hidden or all sheets.

TableExtantThis Function can be called to test to see if a Table exists on a worksheet.

If the table name exists then TableExtant will be set to TRUE

If the table name does not exist then TableExtant will be set to FALSE

TextColorSelectThis VBA function will return the best contrast color for the text based on the ColorIndex number passed to it.

This function is required for IndexSheetNames(4)

VBZellerThis function will return the day of the week for a particular day by utilizing Zeller's congruence to calculate it.

The function can be called with by passing a date as a String. There is also an optional DateFormat with can specify the format of the date being passed. This can be either "DDMMYYYY" (this is the default) or "MMDDYYYY".

The output from this funstion is a string contain the name of the day of the week.

WordThis function will return the 'nth' word in a string. The if the string is blank, or if number of words is less than number requested then a blank string is returned.

Usage: Word(instring,position)

Example: Word("The quick brown fox",3) would return "brown"



Page #First  Previous  1  2  3  Next  Last  
 
 


If you need any support or assistance with any of the code on this site
or
if you would like to contact us, please click here

follow us on facebook
Follow us on Facebook

 


Warning: include(counter.php): failed to open stream: No such file or directory in /home/u894969250/domains/abbydalesystems.com/public_html/ShowVB.php on line 178

Warning: include(counter.php): failed to open stream: No such file or directory in /home/u894969250/domains/abbydalesystems.com/public_html/ShowVB.php on line 178

Warning: include(): Failed opening 'counter.php' for inclusion (include_path='.:/opt/alt/php72/usr/share/pear') in /home/u894969250/domains/abbydalesystems.com/public_html/ShowVB.php on line 178


Copyright © Abbydale Systems LLC 2015-2026

Abbydale Systems LLC Lic. 802696149. All rights reserved.

Last modified : Friday 21st of March 2025