Search found 71 matches

by inseption86
18 Jul 2018, 05:48
Forum: Ask For Help
Topic: Gui data input
Replies: 7
Views: 626

Re: Gui data input

Yes, i scaned qr-code, for example, start "" /min C:\Users\Desktop\1.bat , starts abobe reader, if bat file finish, then gui edit active and i scaned again qr code. But i want scaned qr code when abobe reader active - gui edit not working Until I click on his window explorer.exe - disable Sorry my e...
by inseption86
18 Jul 2018, 04:56
Forum: Ask For Help
Topic: Gui data input
Replies: 7
Views: 626

Re: Gui data input

I have QR scanner, how to nibble ControlSend in my code?
by inseption86
18 Jul 2018, 01:03
Forum: Ask For Help
Topic: Gui data input
Replies: 7
Views: 626

Gui data input

Guys, hello. Is it possible to send all commands from the keyboard to GUI Edit when it is even inactive? #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. SendMode Input ; Recommended for new scripts due to its superior speed and reliability. SetWorkingDir %A_Sc...
by inseption86
17 Jul 2018, 02:23
Forum: Ask For Help
Topic: Gui help
Replies: 5
Views: 643

Re: Gui help

Hi guys, sorry I have not answered so long, I'm using: q:: SendMessage, 0x50,, 0x4090409,, A ; English Gui, +AlwaysOnTop +Caption +LastFound +ToolWindow +Owner Gui, Add, Edit, x2 y9 w270 h20 vtest1 gui, add, button, Default,GO Gui, Show, w278 h36, InputBox WinSet, TransColor, %CustomColor% 50 return...
by inseption86
13 Jul 2018, 09:09
Forum: Ask For Help
Topic: Gui help
Replies: 5
Views: 643

Gui help

Hi guys, please help. I have:

Code: Select all

Inputbox test1, test
Run %test1% ,,hide
return
Esc::ExitApp
How to make gui instead of inputbox, but without a button? i have QR scaner, and when the barcode is scanned,

Code: Select all

Run %test1% ,,hide
was automatic
by inseption86
04 Jul 2018, 08:00
Forum: Ask For Help
Topic: Need help opening a file with a changing name... Topic is solved
Replies: 3
Views: 293

Need help opening a file with a changing name... Topic is solved

Hy people, please help. I have one .xlsx in folder, but i know count, the number is not constant (0-100) FormatTime, TimeString, , dd.MM.yyyy count := ??????? path = C:\Users\Admin\Desktop\%TimeString%\%TimeString%. Centr. Space. %count% чел..xlsx Xl := ComObjCreate("Excel.Application") Xl.Workbooks...
by inseption86
01 Jul 2018, 05:59
Forum: Ask For Help
Topic: FormatConditions.Delete with save color result
Replies: 1
Views: 175

FormatConditions.Delete with save color result

Hy guys, please help, How delete FormatConditions but i want save color result.

Code: Select all

path =* .xlsx
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path)
Xl.Visible := true

xl.Worksheets(1).Range("A1:A10").FormatConditions.Delete
by inseption86
23 Jun 2018, 05:00
Forum: Ask For Help
Topic: Gui calendar to excel Topic is solved
Replies: 3
Views: 379

Re: Gui calendar to excel Topic is solved

Gui, Add, Text, , First Date: Gui, Add, DateTime, vFirstDate Section, Gui, Add, Text, , Second Date: Gui, Add, DateTime, vSecondDate Section, Gui, Add, Button, Default, &OK Gui, Show, w190 h130, Data Return ButtonOK: Gui, submit, nohide FormatTime, FirstDate , %FirstDate% , dd.MM.yyyy FormatTime, Se...
by inseption86
23 Jun 2018, 02:05
Forum: Ask For Help
Topic: Gui calendar to excel Topic is solved
Replies: 3
Views: 379

Re: Gui calendar to excel Topic is solved

TLM wrote: there is a choice of today's date, and not the one that I choose on the calendar
by inseption86
22 Jun 2018, 15:04
Forum: Ask For Help
Topic: Gui calendar to excel Topic is solved
Replies: 3
Views: 379

Gui calendar to excel Topic is solved

Hi, please help, i have: path = .............................xlsx Xl := ComObjCreate("Excel.Application") Xl.Workbooks.Open(Path) Xl.Visible := true xl.Worksheets(1).activate If (xl.Worksheets(1).FilterMode) xl.Worksheets(1).ShowAllData Gui, Add, DateTime, w153 vMyDateTime, 'Date1:' dd.MM.yyyy Gui, ...
by inseption86
15 Jun 2018, 18:31
Forum: Ask For Help
Topic: FormatTime, day,, dd.MM.yyyy
Replies: 1
Views: 112

Re: FormatTime, day,, dd.MM.yyyy

created a sheet with a calendar

FormatTime, TimeString, , dd.MM.yyyy
FindThis := TimeString
Data_Row := xl.workSheets("day").cells.(xl.workSheets("day").Rows.Count, "A").Find(FindThis).Row
xl.workSheets(1).Range("A1").value := xl.workSheets("day").Cells.(Data_Row, "B").value
by inseption86
15 Jun 2018, 16:47
Forum: Ask For Help
Topic: FormatTime, day,, dd.MM.yyyy
Replies: 1
Views: 112

FormatTime, day,, dd.MM.yyyy

hi guys, is it possible to do this? I have number 1 and 2 (this is schedule at work) inputbox, FirstEmpy, % Xl.ActiveWorkbook.Name, % "select number", , , , , , , , * xl.workSheets(1).Range("A1").value := FirstEmpy but I would like to do it automatically Xl := ComObjCreate("Excel.Application") Xl.Wo...
by inseption86
13 Jun 2018, 06:47
Forum: Ask For Help
Topic: Account and open file
Replies: 1
Views: 200

Account and open file

Hi, please help

How to find out who opened (user domain account) the file in a network folder

Code: Select all

file:= FileOpen("*****.xlsx", 0)
if !IsObject(file)
  MsgBox, QQQ
by inseption86
10 Jun 2018, 09:08
Forum: Ask For Help
Topic: path = \\\TimeString Topic is solved
Replies: 1
Views: 99

Re: path = \\\TimeString Topic is solved

FormatTime, TimeString, , dd.MM.yyyy

path = C:\Users\Admin\Desktop\1\%TimeString%
name := xl.ActiveWorkbook.name
Str := RegExReplace(name, ".xlsx")
file := path "\ " Str " чел." ".xlsx"
xl.ActiveWorkbook.SaveAs(file, 51)
by inseption86
10 Jun 2018, 07:19
Forum: Ask For Help
Topic: path = \\\TimeString Topic is solved
Replies: 1
Views: 99

path = \\\TimeString Topic is solved

hi, plese help, I have: FormatTime, TimeString, , dd.MM.yyyy path = C:\Users\Admin\Desktop\1\ name := xl.ActiveWorkbook.name Str := RegExReplace(name, ".xlsx") file := path "\ " Str " чел." ".xlsx" xl.ActiveWorkbook.SaveAs(file, 51) I want path = C:\Users\Admin\Desktop\1\TimeString but not working. ...
by inseption86
06 Jun 2018, 14:24
Forum: Ask For Help
Topic: Autofilter.Sort
Replies: 1
Views: 206

Autofilter.Sort

Hi, please help

how it will look for ahk ?:

ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range ("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= xlSortNormal
ActiveSheet.AutoFilter.Sort.Apply


[codexl.ActiveSheet.Range("A2:AA2").AutoFilter(2, .???)?????/
by inseption86
31 May 2018, 10:48
Forum: Ask For Help
Topic: Filtering a period by date from inputbox AHK Topic is solved
Replies: 2
Views: 291

Re: Filtering a period by date from inputbox AHK Topic is solved

Thanks, I wrote so, it is work, but ">=" and ">=" hinder me inputbox, AutoFilter1, % Xl.ActiveWorkbook.Name, % "Выбрать начальную дату", , , , , , , , >=01.12.2017 ; выбор даты inputbox, AutoFilter2, % Xl.ActiveWorkbook.Name, % "Выбрать конечную дату", , , , , , , , >=31.12.2017 ; выбор даты xl.Acti...
by inseption86
31 May 2018, 09:27
Forum: Ask For Help
Topic: Filtering a period by date from inputbox AHK Topic is solved
Replies: 2
Views: 291

Filtering a period by date from inputbox AHK Topic is solved

Hi, i need help. I want Filtering a period by date from inputbox, example 01.05.2017-20.05.2018 This is VBA Dim X As Double, Y As Double X = Application.InputBox(Message, Title, Type:=1) Y = Application.InputBox(Message, Title, Type:=1) Cells(1, d).Resize(n).AutoFilter 1, ">=" & X, xlAnd, "<=" & Y

Go to advanced search