Snasui Excel Forum

Code: Select all

Sub worksheet_change(ByVal target As Range)
Set target = Range("C1")        'เซลล์ที่มีการเปลี่ยนแปลงค่า(ทำเป็น drop down list)
If target.Value = "ตะกั่ว/ลูกแห/ยางทุ่น/ลูกลอย" Then        'ถ้าค่าตัวแปรเท่ากับ...
 Call ตะกั่วลูกแหยางทุ่นลูกลอย          'ให้รันมาโครชื่อ ...
End If
If target.Value = "ด้ายรุ่นหลอด" Then
 Call ด้ายหลอด
End If
If target.Value = "ด้ายรุ่นไจ(อวนใน)" Then
 Call ด้ายไจอวนใน
End If
If target.Value = "ด้ายรุ่นไจ(อวนนอก)" Then
 Call ด้ายไจอวนนอก
End If
If target.Value = "Dead Stock" Then
 Call deadstock
End If
If target.Value = "ดูทั้งหมด" Then
 Call รวมวัสดุทั้งหมด
End If
End Sub

Code: Select all

Private Sub Workbook_Open()                  'ส่วนนี้อยู่ใน Workbook
    With Worksheets("ตัดสรุป").ComboBox1
        .Clear
        .AddItem "ตัดสรุปอวนข่ายรุมใน"
        .AddItem "ตัดสรุปอวนข่ายรุมนอก"
        .AddItem "ตัดสรุปอวนมองปิว"
        .AddItem "ตัดสรุปอวนผ้าส่อน"
        .AddItem "ตัดสรุปอวนติดตะกั่ว"
    End With
End Sub

Code: Select all

Private Sub ComboBox1_Change()                'ส่วนนี้อยู่ใน Worksheets(ตัดสรุป)
    Application.Run Worksheets("ตัดสรุป").ComboBox1.Value
End Sub