Page 1 of 1
ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 1:39 pm
by tanaput
ขอรบกวนบอกวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard และ แมโครที่ทำใว้ มันทำงานเลยครับ หรือ ตั้งว่าให้ไปที่ช่องที่เรากำหนดเช่น ช่อง Cells (3,6) แล้ว แมโคร ทำงานเลยมีเปล่าครับ
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 1:49 pm
by bank9597
สามารถทำได้ครับ
ลองแนบตัวอย่างโค๊ดที่เขียนไว้มาดูก่อนครับ ติดตรงไหนจะช่วยดูให้ครับ
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 1:50 pm
by tanaput
Sub CountDown()
Dim i As Integer
For i = 10 To 0 Step -1
Cells(3, 6) = i
Application.Wait (Now + TimeValue("0:00:01"))
Next i
Cells(1, 5) = "KO"
Selection.End(xlToLeft).Select
Range("A1:A8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 1:58 pm
by tanaput
เป็นแมโครที่ตั้งเวลาแล้ว ลบ ผมอยากได้คำสั่งที่เริ่มการทำงานของแมโครตัวนี้ที่ไม่ต้องสร้างปุ่มกดแมโคร โดยการใช้คำสั่งว่า ถ้า กดปุ่มตรง Enter บน keyboard แล้วมันทำงานเลย หรือ กำหนด ช่องCells ที่กำหนด แล้ว แมโครก็ทำงานเลย
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 3:01 pm
by tanaput
แนบไฟล์แล้วครับ
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Thu Nov 19, 2015 5:24 pm
by bank9597
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$1" Then
Call CountDown
End If
End Sub
Re: ขอรบกวนวิธีที RUN แมโคร ที่กดปุ่น Enter บน keyboard ได้
Posted: Fri Nov 20, 2015 8:46 am
by tanaput
ขอบคุณมาเลยครับ bank9597