|
|
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 |
| | |
| RemoveExtraSpace | This function will remove any excess spaces from a string passed to it as a parameter. |
|
| RightClickProcess | This 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. |
|
| SheetCount | This function will count the number of worksheets in the workbook.
It can count hidden, visible, very hidden or all sheets. |
|
| TableExtant | This 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 |
|
| TextColorSelect | This 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) |
|
| VBZeller | This 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.
Link to information page click here. |
|
| Word | This 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" |
|
| Words | This function will return a count of the number of words in a passed string.
Usage: Words(Inputstring)
Example: Words("The quick brown fox") would return 4. |
|
| WorksheetExtant | This function will return TRUE if a worksheet exists in a workbook and FALSE if it does not
You pass the name of a worksheet to this routine, and it will check that for the worksheet.
This function will only check the active workbook for the passed worksheet
If you want to check in a different workbook, please use WorkSheetExtant2 to accomplish this. |
|
| WorksheetExtant2 | This function will return TRUE if a worksheet exists in a workbook and FALSE if it does not
You can pass the name of a workbook to this routine, and it will check that for the worksheet.
By default, if you omit the workbook name it will use the workbook with this code in it. |
| Page # First Previous 1 2 | |
