AutoHotkey Community

flyingDman

Try this:

xl := ComObjActive("Excel.Application") 
for sheet in xl.activeworkbook.Windows(1).SelectedSheets 
	lst .= sheet.name "`n"
msgbox % clipboard := lst

flyingDman

Offset(0) means no offset so you can just use

Code: Select all

xl.activecell.EntireRow.Insert

flyingDman

Was that January 6 or June 1 ? (it depends where you are....). Assuming you meant June 1: clipboard := "01.06.2019" var := strsplit(clipboard,".").3 . strsplit(clipboard,".").2 . strsplit(clipboard,".").1 if (a_now - var * 1000000 > 30000000000) msgbox older than 3 years else msgbox newer than 3 yea...

flyingDman

Try something like this:

Code: Select all

xl := ComObjActive("Excel.Application") 
xl.Range("A" xl.Rows.Count).End(-4162).select
while xl.activecell.row > 1
	{	
	if (xl.activecell.text = "TRUE")
		xl.activecell.offset(1).EntireRow.Insert
	xl.activecell.offset(-1).select
	}

flyingDman

Please show what the exact expected output should be. The following will search in column B on the items in the array and return a list containing the cell values in B and the associated PO numbers in column C matching the "needles" in the array: xl := ComObjActive("Excel.Application") myArray := [ ...

flyingDman

If ComObjActive("Excel.Application") throws an error when Excel is running it might because Excel is not properly registered.

flyingDman

or: var = ( test https://www.autohotkey.com/boards/viewtopic.php?f=76&t=76287 test2 https://www.google.com/ test 3 https://www.bing.com/ ) oWord := ComObjActive("Word.Application") for x,y in strsplit(var,"`n","`r") { for a,b in strsplit(y," ") If InStr(b, "//") oWord.ActiveDocument.Hyperlinks.Add(o...

flyingDman

The following will get the O and R values in pairs. You can then use these to "send" to your application. Xl := ComObjActive("Excel.Application") For cell In xl.ActiveSheet.range("o:o").Cells if cell.value msgbox % cell.value "`t" cell.offset(0,3).value return This loops through the values in column...

flyingDman

I think my test more accurately simulate the process of manually adding by clicking the button. I noticed the difference in speed when i was clicking myself. It felt sluggish. But to make it an apple to apple comparison: gui, add, edit, w200 h200 vtxt, gui, add, button, y+5 gadd, add some more gui, ...

flyingDman

Add: #\:: a := A_TickCount loop,100 ControlClick, Button1, A,,,1 MsgBox, % A_TickCount - a return to both scripts. teadrinker 's version will take about 12.5 seconds to complete adding 100 small strings of text. My simple script does it in 3.125 seconds. Bral , the 0.0001 second flash (btw it does n...

flyingDman

try this:

Code: Select all

var := "some text"

gui, add, edit, x0 y0 w200 h200 vtxt, % var
gui, add, button, x0 y+5 gadd, add some more
gui, show
return

add:
gui, submit, nohide
txt .= " and some more"
guicontrol,, txt, %txt% 
guicontrol,focus,txt
send, ^{end}
return

flyingDman

https://www.autohotkey.com/docs/commands/DriveGet.htm#List

flyingDman

For date math see here: https://www.autohotkey.com/docs/commands/EnvAdd.htm

flyingDman

Tell us what you want to achieve. Right now it is a toggle switch pressing ^p toggles the message between one and two.

flyingDman

1) if the image gui is too slow replace it with a msgbox. I have an 5 year old laptop and it's fine. Don't forget that it needs to save the screenshot before the gui is triggered. 2) there is a typo line 25 (also do not use the same hotkey). Works fine here. 3) you can either way. With ComObjActive ...

flyingDman

As OneNote accepts both the clips from FF and Chrome (i.e. in both cases it also inserts the URL), we know that the Chrome clip contains that information. Why Lexicos' script only detects the clips from IE and FF (and possibly other non Chromium browsers), I do not know. Let's see if someone else kn...

flyingDman

I wrote that it works also in Firefox. I meant to say that it works in FF. I subsequently tested it in IE, Chrome, and Edge. And It does not seem to work in these last 2. So, only in FF and IE.

flyingDman

Try this: (also works in FF and presumably other browsers) ^+v:: ; ctrl-shift v oWord := ComObjActive("Word.Application") oWord.selection.paste binClipData := ClipboardAll Bin2Hex(hexClipData, binClipData) ; Convert raw data to a string of HEX if (SubStr(hexClipData, 1, 8) <> "09C00000") ; Determine...

flyingDman

Try this: var = ( https://www.autohotkey.com/boards/viewtopic.php?f=76&t=76287 https://www.google.com/ https://www.bing.com/ ) oWord := ComObjActive("Word.Application") for x,y in strsplit(var,"`n","`r") { oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, y, , , y) oWord.Selection.TypeParag...

flyingDman

The screenshots get added to the active document, not to all open documents. You can easily find out what the currently active document is and make a specific other one active instead. Say I have several spreadsheets open; the following creates a list of the currently open files, then shows which on...

Search found 681 matches

Re: Excel: how to loop on selected sheets Topic is solved

Re: Adding new rows in excel Topic is solved

Re: If date in Clipboard is older than 3 years, how to know? Topic is solved

Re: Adding new rows in excel Topic is solved

Re: Saving all variables help Topic is solved

Re: Transferring data from excel to Tally Topic is solved

Re: Is there a script that would paste formatted/clickable list of URL links into MS Word?

Re: Copy alternating rows from Excel to web form

Re: Does Edit box can be append text?

Re: Does Edit box can be append text?

Re: Does Edit box can be append text?

Re: Create partition and mapped network share listing/log

Re: Yesterdays date from set date

Re: Are these if statements correct? (SIMPLE) Topic is solved

Re: How to automatically output timestamps and visual cues when hotkey is triggered?

Re: Enter source of text as footnote in Word

Re: Enter source of text as footnote in Word

Re: Enter source of text as footnote in Word

Re: Is there a script that would paste formatted/clickable list of URL links into MS Word?

Re: How to automatically output timestamps and visual cues when hotkey is triggered?