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

[zonewar123]

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

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

Code: Select all

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

[snasui]

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

Code: Select all

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

[zonewar123]

ขอบคุณครับ

[zonewar123]

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

[snasui]

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

[zonewar123]

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

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