Excel - Highlighting (underlining) the active row

[haichen]

glad you like it

[daywalker]

Hi Haichen,

to click through the splashimage (needed in very rare situations, eg. you select cell beyond screen) replace

Code: Select all

			Splashimage,, B W%Width% H%line% Y%y1% X%x% CW%color% ; create line only on change

with

Code: Select all

			Splashimage,, B W%Width% H%line% Y%y1% X%x% CW%color%, , , HLSplashImage ; create line only on change
			WinSet, ExStyle, 0x20, HLSplashImage
			WinSet, Transparent, 255, HLSplashImage

[Xeo786]

I am using following code for the same purpose, as I do not care about undo and redo

Code: Select all

#Persistent 
onexit, exitting

^a::
oExcel := ComObjActive("Excel.Application")
Sheet := oExcel.ActiveSheet
ComObjConnect(Sheet, Worksheet_Events)
return

esc::
exitapp

exitting:
oExcel.activecell.EntireColumn.Interior.ColorIndex := 0
oExcel.activecell.EntireRow.Interior.ColorIndex := 0
exitapp

class Worksheet_Events {
	SelectionChange(cell) {
		static Lastcell
		lastcell.EntireColumn.Interior.ColorIndex := 0
		lastcell.EntireRow.Interior.ColorIndex := 0
		cell.EntireColumn.Interior.ColorIndex := 35
		cell.EntireRow.Interior.ColorIndex := 36
		Lastcell := cell
	}
}

I have changed above code used transparent colored GUI to hightlight rows
you can highlight multiple rows with different sizes as far as your selection is one part
what I mean with one part is when you press ctrl and select multiple ranges

Code: Select all

#Persistent 

^a::
global oExcel := ComObjActive("Excel.Application")
Sheet := oExcel.ActiveSheet
ComObjConnect(Sheet, Worksheet_Events)
settimer, checkwindiwactive, 900
return

~^WheelUp::
~^WheelDown::
~WheelUp::
~WheelDown::
gui, Destroy
return

esc::
exitapp

checkwindiwactive:
IfWinNotActive, ahk_class XLMAIN
	gui, Destroy
Return


class Worksheet_Events {
	SelectionChange(cell) {
		static Lastcell
		WinGetPos, x, Cy, Width, Height, ahk_class XLMAIN
		xdif := oExcel.ActiveWindow.zoom * 25 / 75
		x := x + xdif
		; x := oExcel.ActiveWindow.ActivePane.PointsToScreenPixelsX(cell.EntireRow.Left)  
		y := oExcel.ActiveWindow.ActivePane.PointsToScreenPixelsY(cell.EntireRow.top)
		w := (oExcel.ActiveWindow.Width / 75 * 100) - (xdif*1.76)
		h := cell.Height * oExcel.ActiveWindow.zoom / 75 ; hight works perfectly even for differnet sizes of rows
		ToolTip % "top " x  "`nleft " y "`nwidth" w "`n height" h
		highlight(x,y,h, w,"Yellow",120)
		Lastcell := cell
	}	
}

highlight(x,y,h,w,color,transparancy)
{
	gui, Destroy
	Gui, Color, % color
	Gui, +LastFound -Caption +AlwaysOnTop +ToolWindow -Border
	Winset, Transparent, % transparancy
	Gui, Show, x%x% y%y% h%h% w%w% NoActivate
}

[haichen]

Nice. I'm sure there are users for it.

For me, undo and redo are prerequisites.

[Xeo786]

For me, undo and redo are prerequisites.

with second example you have the ability to redo and undo

[haichen]

Hi Xeo786,
that you can use a Class with ComObjConnect was new to me. Thank you.
It would be great if your script could switch to other Excel windows and the highlighting could move with the scrolling, as it does with my script.

[dagonet]

Hi and thanks for the amazing script! I'm using it daily since installed.
I can confirm that I had to use burque505's amendments to make it work in Excel 16 under Windows 10, but now it works perfectly.

Wondering whether the script could be easily changed to keep the line visible also when Excel is no longer the active window?
(I tinkered a little, trying to comment out the IF-statement checking for if hwnd:=WinActive("ahk_class XLMAIN") but that just broke the script.)