สอบถามเรื่อง userform ค่ะ

[tantanz]

จากที่แนบไฟล์ ติดตรงการใช้ userform ค่ะ ที่ form Newmachine
ตรง RefEdit1 เมื่อเข้าไปแก้ไข code คือต้องการให้เมื่อคลิกคำสั่งนี้จะให้ไปที่หน้าชีท Layout

แต่ลองใส่ code

Code: Select all

Worksheets("Layout").Activate

ไปแล้ว ไม่เกิดอะไรขึ้นค่ะ

ลองตรวจสอบให้หน่อยนะคะ

[snasui]

ลองเปลี่ยนเป็น MouseUp แทนตาม Code ด้านล่างครับ

Code: Select all

Private Sub RefEdit1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER)
   Sheets("Layout").Select
End Sub

[tantanz]

ได้แล้วค่ะ ขอบคุณค่ะ