If you mean VBA, then you can use FullName, for example: strFileFullName = ThisWorkbook.FullName (updated as considered by the comments: the former used ActiveWorkbook.FullName could more likely be wrong, if other office files may be open(ed) and active. But in case you stored the macro in another file, as mentioned by user @user7296559 here, and …
You only need a single line of code to set the border around every cell in the range: Range(“A1:F20”).Borders.LineStyle = xlContinuous It’s also easy to apply multiple effects to the border around each cell. For example: Sub RedOutlineCells() Dim rng As Range Set rng = Range(“A1:F20”) With rng.Borders .LineStyle = xlContinuous .Color = vbRed .Weight …
The sample file (added at the end of the post) has a Userform, Module and a Class Module. To incorporate this into your project, simply export the Userform, Module and the Class Module from the sample file and import it into your project. Class Module Code In the Class Module (Let’s call it CalendarClass) paste …
The only short circuiting (of a sort) is within Case expression evaluation, so the following ungainly statement does what I think you’re asking; Select Case True Case (myObject Is Nothing), Not myObject.test() MsgBox “no instance or test == false” Case Else MsgBox “got instance & test == true” End Select End Sub
1. Create a normal class containing the public method(s) you need to be ‘static’ 2. Include a public method [in this ‘static’ class] that initialises the [private] ‘static fields’ within the class (it can take parameters if you wish) 3. Create a module acts as a factory Public Function CreateStaticClass(parameters for ‘constructor’) As StaticClass Dim …
I figured it out! @Jaime’s solution to freezing the top row worked perfectly. And the following is my solution to applying the filter: Thanks, KBP // Fix first row workSheet.Activate(); workSheet.Application.ActiveWindow.SplitRow = 1; workSheet.Application.ActiveWindow.FreezePanes = true; // Now apply autofilter Excel.Range firstRow = (Excel.Range)workSheet.Rows[1]; firstRow.AutoFilter(1, Type.Missing, Excel.XlAutoFilterOperator.xlAnd, Type.Missing, true);
I don’t believe there are any explicit PADLEFT or PADRIGHT functions, but you can use a combination of SPACE and LEFT or RIGHT to prepend spaces to your string, and then grab the right X number of characters. PADLEFT strOrdNo = RIGHT(Space(8) & strOrdNo, 8) If you want a character instead of spaces, you can …
You can use the Windows API function ShellExecute to do so: Option Explicit Private Declare Function ShellExecute _ Lib “shell32.dll” Alias “ShellExecuteA” ( _ ByVal hWnd As Long, _ ByVal Operation As String, _ ByVal Filename As String, _ Optional ByVal Parameters As String, _ Optional ByVal Directory As String, _ Optional ByVal WindowStyle As …
There’s not a whole lot that has changed between VBA6 and VBA7. VBA7 was introduced to support 64-bit versions of both Office and Windows (see below on what those differences are). Here are the key changes: 64-bit support, primarily for API calls. This is both used to make your code work with your OS/Office version …
The .Cells range isn’t limited to ones that are being used, so your code is clearing the content of 1,048,576 rows and 16,384 columns – 17,179,869,184 total cells. That’s going to take a while. Just clear the UsedRange instead: Sheets(“Zeros”).UsedRange.ClearContents Alternately, you can delete the sheet and re-add it: Application.DisplayAlerts = False Sheets(“Zeros”).Delete Application.DisplayAlerts = …