Find the Last Day of any Month
Simple Microsoft Excel formula to find the last day of any given month. ‘ =DATE(YEAR(A1),MONTH(A1)+1,0) ‘
Simple Microsoft Excel formula to find the last day of any given month. ‘ =DATE(YEAR(A1),MONTH(A1)+1,0) ‘
There is a time when we must create a set of Excel Worksheets templates on a regular basis in our work. For example, a set of Excel Worksheet for each month of the year or may be based on the type of work we should done in certain time base. Here a simple example of [...]
This is the reason why the power of Excel when combined with VBA is almost limitless. When we can’t found any Excel function that suite our need, we can built it easily using Excel VBA. If Excel macro or SUB procedure is easily created using Record Macro button, and usually build to simplify a complex [...]
Ever needed to find out the full path of your current file? What I mean by full path here is the full location of the active file including the directory path and full file name. If you did, then what you need is this following code: Application.ActiveWorkbook.FullName The one line code will return the full [...]
Usually in the sequential database system, we can SUM only unique values in table column by adding all the values from SELECT DISTINCT query result only. Based on the same principle, we can also create a simple VBA function in Microsoft Excel by adding the values only available in a collection of unique values we [...]
Excel VBA/Macro example below will extract comment from every cells with comment, and put the summary in the cell selected by user using Excel input box (read more about how to get cell reference using input box here). Sub CreateCommentsSummary() Dim rgComments As Range, rgCell As Range, rgOutput As Range, iRow As Integer, iCol As [...]
The purpose of the following example of Excel VBA macro is to get the acronym or an abbreviation of each of the first letter of any given words. Function Acronym(Words As Variant) As String Dim aWord() As String, ix As Integer aWord = Split(Words.Value, ” “) For ix = 0 To UBound(aWord) Acronym = Acronym [...]