Means I want to filter the months individually and display them in a GUI.
It should show the whole month
And also from today until a week from now...
I can currently display the months individually in MSG and where they are but only need the 1st and last value
This is the code I've made with the help of the forum so far:
Code: Select all
XL := ComObjActive("Excel.Application")
Today := A_now
Week += 7, d
Month += 30, d
FormatTime, Datum ,%Today%, dd.MM
FormatTime, 7Days ,%Week%, dd.MM
FormatTime, 30Days ,%Month%, dd.mm
;msgbox %Datum%
for cell in xlFindAll("05")
;MsgBox % cell.address
MsgBox % cell.Value
xlFindAll(needle, rng := "", xl := "")
{
If !IsObject(xl)
xl := ComObjActive("Excel.Application")
if !IsObject(rng)
if (rng = "")
rng := xl.ActiveSheet.UsedRange.Cells
else
rng := xl.Range(rng)
if (found := rng.Find(needle, rng.Cells(rng.Cells.Count)))
{
result := found, address := found.Address
Loop
{
found := rng.FindNext(found)
if (found.Address = address)
break
result := xl.Union(result, found)
}
}
return result
}]
[Mod edit: Fixed code tags.]