Insert Date & Time At Mouse Insertion In TextBox

flee01 · Sep 27th 2007

I need to insert text at the curson position in a text box on a VBA form. I know how to make the button not take the focus; I just need to know how to pass the cursor a timestamp.

Mavyak · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

Do you mean at the end of what ever is cuurently in the textbox or at the position of the cursor within the textbox?

flee01 · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

I want to insert the time stamp it at whatever is the current cursor position.

Mavyak · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

To clarify, you will have a textbox with some text in it like "This is some text." and at some point the cursor could be between the o and the m in the word "some" and a timed macro will fire at which point you want the text in the textbox to read something like "This is so09/27/2007 2:48pmme text."?

flee01 · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

I figured it out. See below.

Code

Private Sub timeStamper_Click()
cBoard Format(timeStamp, "m-dd h:mm:ss am/pm")
Application.SendKeys ("^v")
End Sub


Function cBoard(myText)
Set mydata = New DataObject
mydata.SetText myText
mydata.PutInClipboard
End Function

Display More

[hr]*[/hr] Auto Merged Post;[dl]*[/dl]Oh yeah. This too.

Code

Function timeStamp()
    Dim serialDate As Long, serialTime As Double
    serialDate = Date
    serialTime = Time
    timeStamp = serialDate + serialTime
End Function

Mavyak · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

Cool. Thanks for sharing your solution!

shg · Sep 27th 2007

Re: Insert Text At Cursor On Vba Form

People don't cotton to using SendKeys for reliability reasons. Here's another way:

Code

With UserForm1.TextBox1
.Text = Left(.Text, .SelStart) & Format(timeStamp, "m-dd h:mm:ss am/pm") _
& Mid(.Text, .SelStart + 1)
End With

Dave Hawley · Sep 28th 2007

Re: Insert Text At Cursor On Vba Form

Quote

People don't cotton to using SendKeys for reliability reasons

Good sound advice for ANYONE.

Insert Date & Time At Mouse Insertion In TextBox

Participate now!

Share