รบกวนสอบถามเกี่ยวกับ Multipage บน UserForm ครับ

[niwat2811]

เรียน ท่านอาจารย์หรือผู้รู้ทุกท่าน รบกวนสอบถามเกี่ยวกับ Multipage บน UserForm ไม่ทราบว่าเราสามารถใส่สีพื้นและเปลี่ยน Font ที่ Tab แต่ละ Tab ของ Multipage ให้เป็นตัวหนาได้ไหมครับ

[snasui]

เปลี่ยนเป็นตัวหนาหรือเปลี่ยนขนาดตัวอักษรนั้นค่อนข้างง่าย แต่หากเปลี่ยนสีค่อนข้างยากครับ

ตัวอย่างการเปลี่ยนขนาด Font และปรับเป็นตัวหนา

Code: Select all

Private Sub MultiPage1_Click(ByVal Index As Long)
    UserForm1.MultiPage1.Font.Size = 12
    UserForm1.MultiPage1.Font.Bold = True
End Sub

สำหรับการเปลี่ยนสีลองดูที่นี่ครับ http://www.mrexcel.com/forum/showthread ... nged/page2

[niwat2811]

แจ้งผลครับ Code ที่อาจารย์ให้มานั้นใช้ได้ดีครับ ต้อง Click ที่ Tab ก่อนถึงจะแสดงผล ส่วนเรื่องการเปลี่ยนสีพื้นของ MultiPage นั้น ผมได้ลองตาม Link ที่อาจารย์ได้แนะนำไปแล้ว คิดว่าเกินกำลังสำหรับผมแน่เลย
แต่ว่าตอนนี้ได้แก้ปัญหาด้วยการนำ Frame มาวางซ้อนบน MultiPage อีกที แล้วจึงเปลี่ยนสี่พื้นที่ Frame แทนครับ ขณะนี้กำลังนำ Checkbox มาวางบน Frame ถ้าติดตรงไหนจะเข้ามารบกวนอีกครับ ขอบคุณมากครับ

[snasui]

Code ที่อาจารย์ให้มานั้นใช้ได้ดีครับ ต้อง Click ที่ Tab ก่อนถึงจะแสดงผล

ตามตัวอย่างผมใช้ Event Click เพื่อการแสดงผลตามที่กำหนดใน Code สังเกตจาก _Click กรณีต้องการให้เปลี่ยนตอนเปิด Form สามารถกำหนดใน Initialize Event ได้ครับ

[niwat2811]

อ้อ เข้าใจแล้วครับ ขอบคุณมากครับ

[niwat2811]

ขออนุญาตถามต่อที่กระทู้เดิมนะครับเนื่องจากเกี่ยวกับเรื่อง Multipage เดิม
คือผมมีปัญหาเกี่ยวกับเมื่อเรากดปุ่ม Open Form แล้ว จะปรากฎ User Form ขึ้นมา
เมื่อผมคลิ๊กเลือก Tab บน Multipage เพื่อเลือกข้อ ตัว Multipage มันจะเลื่อนขึ้นไปด้านบน
ไม่ทราบว่ามีวิธีไหนบ้างที่จะไม่ให้ Multipage เลื่อนขึ้นไปด้านบนครับ รบกวนท่านอาจารย์หรือผู้รู้ช่วยชี้แนะด้วยครับ

[snasui]

สำหรับกรณีได้แต่เดาว่าเกิดจากความสูงของ Control ใน Userform ครับ