ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   SendKeys + Dialog (https://www.excelbanter.com/excel-programming/389522-sendkeys-dialog.html)

undrline via OfficeKB.com

SendKeys + Dialog
 
Here is my (broken) attempt at using SendKeys, if you could please help me
fix:

Selection.NumberFormat = "m/d/yyyy"
' not enough if Windows Regional Settings and cell values are both mm/dd/yyyy
before starting, so SendKeys
SendKeys "%o", True ' Format
SendKeys "e", True ' Cells...
' have to hope that the "Numbers" tab is the one showing
SendKeys "{TAB}", True ' focus on datatype
SendKeys "c", True ' already in date format from previous line; only one
C needs to be pressed
SendKeys "{TAB}", True ' focus to textbox
SendKeys "m/d/yyyy", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True ' focus to OK
SendKeys "{ENTER}", True

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200705/1


undrline via OfficeKB.com

SendKeys + Dialog
 
Nevermind, I found a better solution than SendKeys:
Selection.NumberFormat = "m\/d\/yyyy"

I still would like to know what I was doing wrong, though.


undrline wrote:
Here is my (broken) attempt at using SendKeys, if you could please help me
fix:

Selection.NumberFormat = "m/d/yyyy"
' not enough if Windows Regional Settings and cell values are both mm/dd/yyyy
before starting, so SendKeys
SendKeys "%o", True ' Format
SendKeys "e", True ' Cells...
' have to hope that the "Numbers" tab is the one showing
SendKeys "{TAB}", True ' focus on datatype
SendKeys "c", True ' already in date format from previous line; only one
C needs to be pressed
SendKeys "{TAB}", True ' focus to textbox
SendKeys "m/d/yyyy", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True ' focus to OK
SendKeys "{ENTER}", True


--
Message posted via http://www.officekb.com



All times are GMT +1. The time now is 11:22 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com