A compressed combination of the above answers, here’s what works for me. GetIE Function (No references required.) Function GetIE() As Object ‘return an object for the open Internet Explorer window, or create new one For Each GetIE In CreateObject(“Shell.Application”).Windows() ‘Loop to find If (Not GetIE Is Nothing) And GetIE.Name = “Internet Explorer” Then Exit For … Read more
Using: ActiveWorkbook.Sheets(“Sheet1”).ChartObjects(“Chart1”).Chart.SeriesCollection(1) Color of each point is .Points(PointNumber).Interior.Color The number of points you have to cycle though is .Points.Count The value of each point is .Points(PointNumber).Value colors of the markers themselves (Applies only to line, scatter, and radar charts): .Points(PointNumber).MarkerBackgroundColor = RGB(0,255,0) ‘ green .Points(PointNumber).MarkerForegroundColor = RGB(255,0,0) ‘ red .Points(PointNumber).MarkerStyle = xlMarkerStyleCircle ‘ change the … Read more
The technique to convert MAXFILE encumbered DOS path names to native OS path names is well established and documented. Summarizing: Prefix a path that uses a drive letter with \\?\, like \\?\C:\foo\bar\baz.txt Prefix a path that uses a file share with ‘\\?\UNC\, like \\?\UNC\server\share\baz.txt. Works well with FileSystemObject too, at least when I tested your … Read more
It works for me. for min: =MIN(IF(($A$1:$A$50=D1),($B$1:$B$50))) for max: =MAX(IF(($A$1:$A$50=D1),($B$1:$B$50))) Note, that it is an array formulas, so you need to press CTRL+SHIFT+ENTER
Sub MoveFiles() Dim FSO As Object Dim SourceFileName As String, DestinFileName As String Set FSO = CreateObject(“Scripting.Filesystemobject”) SourceFileName = “C:\Users\Jun.xlsx” DestinFileName = “C:\Users\Desktop\Jun.xlsx” FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName MsgBox (SourceFileName + ” Moved to ” + DestinFileName) End Sub
The long and short of it is you can’t implement IUnknown. The same goes for Collection. They’re both Com objects that are unavailable for extension in VBA. You can create custom collections and do other very cool iterable things though.
This is a long answer, but there’s a lot of ground to cover: it’s also a late reply, but things have changed since some of the replies to this (and similar questions) have been posted on the stack. That sucks like a vacuum cleaner on triple-phase AC, because they were good answers when they were … Read more
Although (unfortunately) such method is not available, we can create our own function to check this.. Hope the code below fits your needs. Edit1: Added also delete statement… Sub test() If CheckSheet(Sheets(3).Name) then Application.DisplayAlerts = False Sheets(Sheets(3).Name).Delete Application.DisplayAlerts = True End If End Sub The solution I’d go for… Function CheckSheet(ByVal sSheetName As String) As … Read more
As stated previously, there is no native function which can do what you want in a single cell. If you absolutely cannot use VBA, then you could use a helper column (can hide the column if preferred) and then have the cell where you want the result simply show the last cell of the helper … Read more
Another way Excel Formula =MONTH(1&A1) VBA Sub Sample() Dim MonthNm As String MonthNm = “September” Debug.Print Month(DateValue(“01 ” & MonthNm & ” 2012″)) End Sub or Sub Sample() Dim MonthNm As String MonthNm = “September” Debug.Print Application.Evaluate(“=MONTH(1&” & Chr(34) & MonthNm & Chr(34) & “)”) End Sub Replace