Excel Forum

Posted: **Tue May 13, 2014 2:01 pm**

ผมต้องการให้ใน Combobox1 ใน Userform6 มีรายการที่เป็นชื่อ ชีท ทั้งหมด

เพื่อที่จะได้สั่งปริ้นตามที่ได้เลือกไว้ครับ

Dim y As String
y = Worksheets.ComboBox1.Value
ActiveWindow.SelectedSheets.PrintPrevie

Posted: **Tue May 13, 2014 2:07 pm**

ตัวอย่าง Code ตามด้านล่างครับ

Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    For Each sh In Worksheets
        Me.ComboBox1.AddItem sh.Name
    Next sh
End Sub

Posted: **Tue May 13, 2014 2:17 pm**

ขอบคุณครับ

Posted: **Tue May 13, 2014 2:24 pm**

แล้วถ้าผมต้องการให้เมื่อกด Print แล้วมันจะไป Preview ตาม Combobox ที่เราเลือกได้ยังไงครับ

Posted: **Tue May 13, 2014 2:29 pm**

ให้เขียนมาก่อน ติดตรงไหนแล้วค่อยถามกันครับ

Posted: **Tue May 13, 2014 4:34 pm**

ได้แล้วครับ ขอบคุณครับ

ลองไปหาเองมา

อยากให้ Combobox มีชื่อของแต่ละชีท