สอบถามเรื่องการบันทึกข้อมูลลง Sheet ในไฟล์ Excel แยกชุดข้อมูล

[jullathep]

Code: Select all

Sub NumOrderAcc1()
Dim ws As Worksheet
Application.EnableEvents = False
If Frm_InPut.ComboBox3.Text = "Acc1Sale" Then
    Frm_InPut.TextBox1.Text = "I " & ((Year(Now) + 543 - 2500) * 10000) + (Sheet2.Range("A" & Rows.Count).End(xlUp).Row) + 1
End If
If Frm_InPut.ComboBox3.Text = "" Then
     Frm_InPut.TextBox1.Text = ""
End If
Set ws = Worksheets("RecordDataI")
emptyrow = WorksheetFunction.CountA(ws.Range("A:A")) + 1
ws.Cells(emptyrow, 1).Value = Sheet3.Label5.Caption
ws.Cells(emptyrow, 2).Value = Sheet3.Label6.Caption
ws.Cells(emptyrow, 3).Value = Sheet3.Label1.Caption
ws.Cells(emptyrow, 4).Value = Sheet3.Label4.Caption
Application.EnableEvents = True
End Sub

ที่กล่าวในหัวข้อคือ ผม ต้องการ Save แยกชุดข้อมูล มี
I , O , II , B เป็นตัวหน้าองเลข รัน Order
ผมสร้าง Sheet ไว้รองรับ พอผมกดตก ข้อมูลที่กรอกมันดันไปบันทึกลง ทุก Sheet ผมจะต้องเขียน Code ปรับปรุงอย่างไรครับ
เลือกประเภท Order : Acc1Sale = I ,Order Acc2 = O ,Order Acc1Boss = II ,Order Package = B

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
Call SetDate
Select Case ComboBox3.Text
    Case "Acc1Sale"
        Call NumOrderAcc1
    Case "Acc2"
        Call NumOrderAcc2
    Case "Acc1Boss"
        Call NumOrderAcc1Boss
    Case "Package"
        Call NumOrderPackage
    Case ""
        Exit Sub
End Select
'Other code

[jullathep]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
Call SetDate
Select Case ComboBox3.Text
    Case "Acc1Sale"
        Call NumOrderAcc1
    Case "Acc2"
        Call NumOrderAcc2
    Case "Acc1Boss"
        Call NumOrderAcc1Boss
    Case "Package"
        Call NumOrderPackage
    Case ""
        Exit Sub
End Select
'Other code

ขอบคุณครับ