code สั่งให้แสดง user form และ sheet1

[ANUSARA]

อยากทราบ code vba ค่ะ ลองทำดูแล้วแต่ยังไม่สำเร็จ รบกวนช่วยดู code คำสั่งที่ user form ค่ะ ว่าต้องปรับตรงไหนค่ะ

ต้องการสร้าง user form 2 อันค่ะ อันแรกจะเปิดแสดงขึ้นมาเลยเมื่อเปิด Excel และมี commandbutton 2 อันให้คลิกเลือก
button ที่ 1 เลือกเพื่อไป user form ที่ 2 ที่เป็น Introduction และ
button ที่ 2 เลือกเพื่อเข้าสู่ Sheet 1 ค่ะ

และใน user form ที่ 2 ที่เป็น Introduction มี button คลิกเพื่อเลือกเข้าสู่ Sheet1 ด้วยค่ะ

และคำสั่งให้ user form ที่ 1 ปิดไปพร้อมๆ กับเมื่อเลือก button ที่เข้าสู่ user form 2 หรือ button ที่เข้าสู่ sheet1 ค่ะ

# code ที่ทำได้แล้ว :
- code ที่ลองทำเป็นคำสั่งที่ให้แสดง user form 1 เลยเมื่อเปิด Excel และ code ที่สั่งเมื่อเลือก button ที่ ไปuser form 2

# code ที่ยังทำไม่ได้ :
- code ที่สั่งให้ไป Sheet1
- code ที่สั่งให้ user form1 ปิดไปเมื่อเลือก button ค่ะ

รบกวนด้วยค่ะ
อนุสรา

[snasui]

ลองเพิ่ม Code Unload Me ตามภาพด้านล่างครับ

UnloadMe.png (24.58 KiB) Viewed 289 times

[ANUSARA]

ถ้าหากต้องการกำหนดให้เมื่อเปิดไฟล์มาแล้วเมื่อคลิกเปิดหน้า INPUT แล้ว ให้activate ที่หน้า INPUT Cell A1 ทุกครั้งค่ะ ไม่ว่าจะ save หรือไม่ save
ลองใช้ code ด้านล่าง แต่ยังไม่ได้ค่ะ ต้องปรับเปลี่ยนอย่างไรคะ

Private Sub CommandButton2_Click()
Const StartUpSheet = "Input"
Const StartUpCell = "A1"
Unload Me
End Sub

[snasui]

ที่ชีท INPUT ให้เพิ่ม Code นี้เข้าไปครับ

Code: Select all

Private Sub Worksheet_Activate()
   Range("A1").Activate
End Sub

[ANUSARA]

รบกวนถามค่ะ

เมื่อเปิด file แล้วแสดง user form 1 แล้วคลิกเลือก Introduction เพื่อเปิด user form2 ซึ่งเป็น multipage มี 2 หน้าค่ะ
เมื่อเปิดมาจะแสดงหน้า scope ซึ่งเป็นหน้าที่ 2 ต้องการให้แสดงหน้า Introduction เป็นหน้าแรกทุกครั้งค่ะ
ลอง move เพื่อเรียง page order แล้วก็ยังไม่ได้ค่ะ
ต้องแก้ไขอย่างไรคะ

ขอบคุณค่ะ

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
With UserForm2
    .MultiPage1.Value = 0
    .Show
End With
Unload Me
End Sub

ถ้าเปลี่ยน .MultiPage1.Value = 1 คือการเลือก Page 2 ครับ

[ANUSARA]

ได้ผลค่ะ ขอบคุณค่ะั