code ไม่ insert ให้เพราะข้อมูลมีไม่ครบ

[yodpao.b]

code ไม่ insert ให้เพราะข้อมูลมีไม่ครบ

ขอเกริ่นก่อนครับ
น้องที่ทำงานเขาแก้ code เดิมใหม่ เขาไม่ใช้ .Select ผมเลยมองไม่เห็นเวลา run code เลย
ไฟล์นี้ได้นำไปใช้งานแล้วและคิดว่าจะเกิดปัญหาแน่ในสักวันหนึ่ง แต่เพราะแก้ไม่ได้จึงให้ใช้งานไปก่อน
นึกไม่ถีงจะทำให้ฐานข้อมูลเสียหายไปด้วย

เริ่มถามนะครับ
ไฟล์นี้ถ้าพิมพ์ข้อมูลตามลำดับขั้นตอนจะทำงานได้เป็นปกติ
ผมขอแสดงผลในรูปแบบปกติที่ code ทำงานได้ถูกต้องนะครับ

0.JPG (27.8 KiB) Viewed 54 times

จากรูปจะเห็นว่าใน sheet Log ในช่องผู้ปฏิบัติงาน มีครบทุกช่องตามจำนวนตรั้ง

1.JPG (28.76 KiB) Viewed 54 times

จากรูปจะเห็นว่าใน sheet information ในช่องครั้ง มีตรั้งที่ 1,2,3,4 ครบ ตาม sheet Log

ถ้าเป็นไปตามนี้การทำงานของ code จะถูกต้องครับ
____________________________________________________

มีต่อ add รูปไม่ได้

[yodpao.b]

ผมขอแสดงผลในรูปแบบผิดปกติที่ code ทำงานไม่ถูกต้อง

2.JPG (26.53 KiB) Viewed 53 times

จากรูปจะเห็นว่าใน sheet Log ในช่องผู้ปฏิบัติงาน มีตัวเลขจำนวนคนไม่มี

3.JPG (24.01 KiB) Viewed 53 times

จากรูปจะเห็นว่าใน sheet information ในช่องครั้ง มีตรั้งที่ 1,3,4 ไม่ครบ ตาม sheet Log
ครั้งที่ 2 หายไป

ถ้าเป็นไปตามนี้การทำงานของ code จะไม่ถูกต้องครับ

ผมมองว่าปัญหานี้ไม่น่าเกิดขึันได้เพราะไม่น่าเป็นไปได้ที่ไปทำงานแล้วจะไม่มีคนทำงานก็เลยปล่อยผ่าน
แต่ผู้ปฏิบัติงาน บอกว่ามีกรณีแบบนี้อาจเกิดขึ้นได้แต่ผมจำไม่ได้ว่าคืออะไรที่ทำให้เกิดกรณีแบบนี้แต่น่าจะเป็นเกีย่วกับการนำเครื่องมือไปติดไว้

__________________________________________________________________________
มีต่อ ขั้นตอนการทำงาน

[yodpao.b]

วิธีทำให้ค่าในช่องที่วงกลมหายไป
ใน sheet Log
1. ลบครั้งที่ 2 ออกก่อน
2.แล้วจึงมาลบจำนวนคนในช่องผู้ปฎิบัติงาน
3.พิมพ์เลข 2 เข้าไปใหม่ดังรูป

4.JPG (39.64 KiB) Viewed 52 times

ใน sheet information
1.ลบทั้งแถว

5.JPG (48.15 KiB) Viewed 52 times

มีต่อ ขั้นตอนการทำงาน

[yodpao.b]

ขั้นตอนการทำงานที่ผิดปกติ
1.คลิกเซล D5 ใน sheet Log
2.ฟอร์จะแสดงขึ้นมา เลือก พขร
3.พืมพ์ 100 ในช่องค่า taxi
4.คลิก update
5.คลืก SAVE

6.JPG (45.16 KiB) Viewed 51 times

ผลที่ได้

7.JPG (15.49 KiB) Viewed 51 times

จากรูปจะเห็นว่าข้อมูลที่แสดงไม่เรียงลำดับ และข้อมูลครั้งที่ 3 ถูก copy วางทับในบรรทัดที่ 1และ2
____________________________________________________

มีต่อ

[yodpao.b]

การทำงานที่ถูกต้อง
1.โปรแกรมจะสั่งให้นำข้อมูลที่เลือกไว้ จาก sheet information มาเก็บใน sheet cal (code ถูก)
2.เมื่อทำการ แก้ไข Update และ Save แล้ว โปรแกรมจะสั่งให้นำข้อมูลไปเก็บไว้ใน sheet cal (code ถูก)
3.จากนั้นโปรแกรมก็จะสั่งต่อว่าให้ไปดูใน sheet information ว่ามีลำดับครั้งที่ 3 ไหม (code ถูก)
- เมื่อเจอครั้งที่ 3 ให้ทำการลบ บรรทัดที่มีครั้งที่ 3 ออกให้หมด (code ถูก)
- จากนั้นให้ insert ระหว่างครั้งที่ 2 และ 3 จำนวน 2 บรรทัดตามข้อมูลที่ save (code ไม่ทำงานตามนี้)
(ผมไม่แน่ใจในบรรทัดบนว่า code สั่งตามนั้น code อาจจะสั่งว่า ให้ insert บรรทัดแรกลงมา 2 บรรทัด แล้วนำข้อมูลจาก
sheet cal มาวางไว้กับบรรทัดที่ insert)
จากที่ดูน่าจะเป็น insert ระหว่างครั้งที่ 2 และ 3 ครับ
จบขั้นตอนการทำงานครับ
code ต้องสงสัย

Code: Select all

Sub macro_insert(psaverow)
    Dim numrowin, numrowcal, insertrow, numman, numop, i, j As Integer
    Dim shin, shcal, shlist As Worksheet
    Set shin = ThisWorkbook.Worksheets("information")
    Set shcal = ThisWorkbook.Worksheets("cal")
    Set shlist = ThisWorkbook.Worksheets("list_other")
    numrowin = 0
    numrowcal = 0
    numman = 0
    insertrow = 5
    
'    Sheets("information").Select
    
    numop = UserForm5.TextBox35.Value
    numrowin = shin.Range("A6:A" & shin.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    numrowcal = shcal.Range("A3:A" & shcal.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    numman = shlist.Range("A2:A" & shlist.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    If Sheet8.Cells(3, 1) = "" Then
        numrowcal = 0
    End If
    '********************************************** ลบ row ครั้งนี้ (ของเดิม) ทั้งหมดออก ***********************************
    For i = numrowin To 1 Step -1
        If Sheet3.Cells(5 + i, 1) = UserForm5.TextBox35.Text Then
            Sheet3.Cells(5 + i, 1).EntireRow.Delete
        End If
    Next i
    '**********************************************************************************************************
    '**************************************** insert row ของครั้งนี้ (ของใหม่) เท่าจำนวนใหม่ **********************************
'    Sheet3.Select
    If Sheet3.Cells(6, 1).Value = 2 Or Sheet3.Cells(6, 1).Value = "" Then
        insertrow = 5
        If numrowcal > 0 And Sheet3.Cells(6, 1).Value <> "" Then
            For j = 1 To numrowcal
                Sheet3.Cells(5 + j, 1).EntireRow.Insert
            Next j
        End If
    Else
    For i = 1 To numrowin
        If (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = Sheet8.Cells(3, 1).Value + 1) _
        Or (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = "") Then
'            Sheet3.Rows(6 + i, 5 + i + numrowcal).Insert
'                If Sheet3.Cells(6, 1).Value = "" Then
'                    insertrow = 5
'                    For j = 1 To numrowcal
'                        Sheet3.Cells(5 + j, 1).EntireRow.Insert
'                    Next j
'                Else
                insertrow = 5 + i
                For j = 1 To numrowcal
                    Sheet3.Cells(5 + i + j, 1).EntireRow.Insert
                Next j
'                End If
            Exit For
        End If
    Next i
    End If
    
    '**********************************************************************************************************
    '************************************* กรอกค่า (แทนใช้สูตร) หลังคอลัมน์ 25 เป็นต้นไป ************************************
    For i = 1 To numrowcal
        shcal.Range(shcal.Cells(2 + i, 1), shcal.Cells(2 + i, 24)).Copy shin.Range(shin.Cells(insertrow + i, 1), shin.Cells(insertrow + i, 24))
        If shin.Cells(insertrow + i, 21).Value > 0 Then
            shin.Cells(insertrow + i, 25).Value = shin.Cells(insertrow + i, 21).Value * shin.Cells(insertrow + i, 22).Value                              '25 = ค่าน้ำมันไม่มีคำสั่งเดินทาง
        Else
            shin.Cells(insertrow + i, 25).Value = ""
        End If
        For j = 1 To numman
            If shin.Cells(insertrow + i, 2).Value = shlist.Cells(1 + j, 2).Value Then
                shin.Cells(insertrow + i, 26).Value = shlist.Cells(1 + j, 6).Value                                                                                             '26 = ระดับ
            End If
        Next j
        For j = 1 To 17
            If shin.Cells(insertrow + i, 26).Value = shlist.Cells(1 + j, 8).Value And shlist.Cells(1 + j, 8).Value <> "" Then
                shin.Cells(insertrow + i, 27).Value = shlist.Cells(1 + j, 18).Value                                                                                           '27 = จัดระดับกลุ่ม
                If shin.Cells(insertrow + i, 13).Value <> "" Then
                    shin.Cells(insertrow + i, 29).Value = shin.Cells(insertrow + i, 13).Value / shlist.Cells(1 + j, 9).Value                                    '29 = จำนวนวันค่าเบี้ยเลี้ยง
                Else
                    shin.Cells(insertrow + i, 29).Value = ""
                End If
                shin.Cells(insertrow + i, 30).Value = Int(shin.Cells(insertrow + i, 14) / shlist.Cells(1 + j, 12))                                                 '30 = จำนวนวันค่าเบี้ยเลี้ยง
                shin.Cells(insertrow + i, 31).Value = Int(shin.Cells(insertrow + i, 19) / 225)                                                                          '31 = จำนวนวันค่าเสี่ยงภัย
                shin.Cells(insertrow + i, 32).Value = shlist.Cells(1 + j, 13).Value * shin.Cells(insertrow + i, 6).Value                                       '32 = ค่าแรง
                shin.Cells(insertrow + i, 33).Value = shlist.Cells(1 + j, 15).Value * shin.Cells(insertrow + i, 23).Value                                     '33 = ค่า OT 1 เท่า
                shin.Cells(insertrow + i, 34).Value = shlist.Cells(1 + j, 14).Value * shin.Cells(insertrow + i, 24).Value                                      '34 = ค่า OT 1.5 เท่า
                If shin.Cells(insertrow + i, 26).Value = shlist.Cells(2, 8).Value Then shin.Cells(insertrow + i, 35).Value = shin.Cells(insertrow + i, 6).Value * shlist.Cells(2, 16).Value _
                    : shin.Cells(insertrow + i, 36).Value = shin.Cells(insertrow + i, 6).Value * shlist.Cells(2, 17).Value: shin.Cells(insertrow + i, 37).Value = shin.Cells(insertrow + i, 6).Value '35,36,37 (เกี่ยวกับรถ)
            End If
        Next j
        If shin.Cells(insertrow + i, 9).Value = shlist.Cells(2, 24).Value Then
            shin.Cells(insertrow + i, 28).Value = shlist.Cells(2, 24).Value                                                                                                    '28 = สถานที่ทำงาน
        Else
            shin.Cells(insertrow + i, 28).Value = shlist.Cells(1, 25).Value
        End If
        shin.Cells(insertrow + i, 38).Value = Sheet1.Cells(psaverow, 7).Value                        '38 = ระดับขั้นตอนการทำงาน
        shin.Cells(insertrow + i, 39).Value = shin.Cells(insertrow + i, 32).Value * Sheet5.Cells(2, 77).Value     '0.4152                                                                                '39 = สวัสดิการ
    Next i
End Sub

มีต่อ

[yodpao.b]

code ต้องสงสัยอยู่ใน โมดูล 2 ครับ

ไฟล์แนบครับ

อาจารย์จะสั่งให้ insert บรรทัดแรก แล้ววาง แล้ว เรียงลำดับใหม่
หรือ
ให้วางไว้บรรทัดสุดท้าย แล้ว เรียงลำดับใหม่
หรือ insert ระหว่างบรรทัด
ก็ได้นะครับ
แต่ผมว่า อย่างสุดท้ายน่าจะยากที่สุด และปัญหาคงเยอะด้วย

ผมทำไม่ได้จริง ๆ ครับ และ คนทำก็ย้ายไปทำงานที่อื่นแล้ว

เขาเขียน code แบบไม่ให้ขยับไปไหนเลย อยู่หน้าแรกทำงานจนเสร็จ
กด F8 ยังไม่เห็นการทำงานที่ละสเตปเลยครับ
ผมจะตัดจะต่อก็ไม่กล้ากลัวจะเสียไปกันใหญ่
จะเขียนใหม่ก็กลัวว่าไม่ดีเท่าของเขา

รบกวนอาจารย์ช่วยแก้ให้หน่อยยะครับ
และถ้าเพื่อนคนใดเข้าใจช่วยแก้ให้ด้วยนะครับ

ขอขอบคุณเป็นอย่างสูง

[snasui]

ผมอ่านแล้วพบว่ายังไม่ทราบวิธีการ Debug Code จึงทำให้หาสาเหตุไม่ได้

การเขียน Code ที่มีประสิทธิภาพจะไม่เลือกใช้ Select เพราะทำให้หน้าจอวูบวาบ ทำงานช้า วิธีการ Debug ให้ทำตามภาพ สามารถทำได้กับทุกงานครับ

เมื่อได้ Debug และลองผิดลองถูกเองแล้วพบปัญหาเช่นไร ค่อยนำมาถามกันต่อครับ

[yodpao.b]

คำถาม ที่อาจารย์สอนคือวิธี Run แบบสเตป ใช่ไหมครับ

คำอธิบาย ทำไมถึงไม่ Debug
ส่วนโปรแกรมจะ error หรือ Debug นั้นไม่เกิดขึ้นครับ
เพราะ code มันไม่ได้ผิดอะไร
แต่ผมเขียน code
จะอธิบายยังไงดี
สมมุติเขียน code ว่า copy 1 2 3 4 5 6 7 8 9 10
ถ้าเลขมีครบ 10 ตัว code ก็ run ได้ ผลก็ได้ตามต้องการ
แต่ถ้าตัวเลขมี 1 2 3 5 7 8 10 code ก็ run ได้เหมือนกัน และผลจากการคัดลอกวางควรจะเป็น 1 2 3 5 7 8 10 แต่ไม่เป็นเช่นนั้น กับเป็น 2 3 5 1
เป็นเช่นนี้ครับ ผมจึงใช้คำเรียกว่า code ผิดปกติ

[yodpao.b]

ขอบคุณมากครับ สำหรับการสั่งให้ ใช้ stop และ f8
ทำให้หาจุดที่เป็นปัญหาได้
แต่ไม่รู้จะแก้อย่างไร เพราะไม่รู้ความหมาย
ก็เลยลบตัว code ที่เป็นปัญหา
แล้วเขียนเพิ่มใหม่โดยใช้ มาโคร ในการเขียน
ลบช่วง code ด้านล่าง

Code: Select all

''    Sheet3.Select
'    If Sheet3.Cells(6, 1).Value = 2 Or Sheet3.Cells(6, 1).Value = "" Then
'        insertrow = 5
'        If numrowcal > 0 And Sheet3.Cells(6, 1).Value <> "" Then
'            For j = 1 To numrowcal
'                Sheet3.Cells(5 + j, 1).EntireRow.Insert
'            Next j
'        End If
'    Else
'    For i = 1 To numrowin
'        If (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = Sheet8.Cells(3, 1).Value + 1) _
'        Or (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = "") Then
''            Sheet3.Rows(6 + i, 5 + i + numrowcal).Insert
''                If Sheet3.Cells(6, 1).Value = "" Then
''                    insertrow = 5
''                    For j = 1 To numrowcal
''                        Sheet3.Cells(5 + j, 1).EntireRow.Insert
''                    Next j
''                Else
'                insertrow = 5 + i
'                For j = 1 To numrowcal
'                    Sheet3.Cells(5 + i + j, 1).EntireRow.Insert
'                Next j
''                End If
'            Exit For
'        End If
'    Next i
'    End If

code ใหม่ที่ผ่านการทดสอบแล้ว

Code: Select all

Sub macro_insert(psaverow)
    Dim numrowin, numrowcal, insertrow, numman, numop, i, j As Integer
    Dim shin, shcal, shlist As Worksheet
    Set shin = ThisWorkbook.Worksheets("information")
    Set shcal = ThisWorkbook.Worksheets("cal")
    Set shlist = ThisWorkbook.Worksheets("list_other")
    numrowin = 0
    numrowcal = 0
    numman = 0
    insertrow = 5
    
'    Sheets("information").Select
    
    numop = UserForm5.TextBox35.Value
    numrowin = shin.Range("A6:A" & shin.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    numrowcal = shcal.Range("A3:A" & shcal.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    numman = shlist.Range("A2:A" & shlist.Cells(Rows.count, "A").End(xlUp).Row).Rows.count
    If Sheet8.Cells(3, 1) = "" Then
        numrowcal = 0
    End If
    '********************************************** ลบ row ครั้งนี้ (ของเดิม) ทั้งหมดออก ***********************************
    For i = numrowin To 1 Step -1
        If Sheet3.Cells(5 + i, 1) = UserForm5.TextBox35.Text Then
            Sheet3.Cells(5 + i, 1).EntireRow.Delete
        End If
    Next i
    '**********************************************************************************************************
    '**************************************** insert row ของครั้งนี้ (ของใหม่) เท่าจำนวนใหม่ **********************************
''    Sheet3.Select
'    If Sheet3.Cells(6, 1).Value = 2 Or Sheet3.Cells(6, 1).Value = "" Then
'        insertrow = 5
'        If numrowcal > 0 And Sheet3.Cells(6, 1).Value <> "" Then
'            For j = 1 To numrowcal
'                Sheet3.Cells(5 + j, 1).EntireRow.Insert
'            Next j
'        End If
'    Else
'    For i = 1 To numrowin
'        If (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = Sheet8.Cells(3, 1).Value + 1) _
'        Or (Sheet3.Cells(5 + i, 1).Value = Sheet8.Cells(3, 1).Value - 1 And Sheet3.Cells(6 + i, 1).Value = "") Then
''            Sheet3.Rows(6 + i, 5 + i + numrowcal).Insert
''                If Sheet3.Cells(6, 1).Value = "" Then
''                    insertrow = 5
''                    For j = 1 To numrowcal
''                        Sheet3.Cells(5 + j, 1).EntireRow.Insert
''                    Next j
''                Else
'                insertrow = 5 + i
'                For j = 1 To numrowcal
'                    Sheet3.Cells(5 + i + j, 1).EntireRow.Insert
'                Next j
''                End If
'            Exit For
'        End If
'    Next i
'    End If
    
'' ใช้แทน  insert row  ไปพรางๆก่อน ยังทำไม่ได้
     Sheets("cal").Select
     Rows("3:3").Select
     If Range("A4").Value <> "" Then
         Range(Selection, Selection.End(xlDown)).Select
     End If
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("information").Select
     Rows("6:6").Select
     Selection.Insert Shift:=xlDown
    
    
    '**********************************************************************************************************
    '************************************* กรอกค่า (แทนใช้สูตร) หลังคอลัมน์ 25 เป็นต้นไป ************************************
    For i = 1 To numrowcal
        shcal.Range(shcal.Cells(2 + i, 1), shcal.Cells(2 + i, 24)).Copy shin.Range(shin.Cells(insertrow + i, 1), shin.Cells(insertrow + i, 24))
        If shin.Cells(insertrow + i, 21).Value > 0 Then
            shin.Cells(insertrow + i, 25).Value = shin.Cells(insertrow + i, 21).Value * shin.Cells(insertrow + i, 22).Value                              '25 = ค่าน้ำมันไม่มีคำสั่งเดินทาง
        Else
            shin.Cells(insertrow + i, 25).Value = ""
        End If
        For j = 1 To numman
            If shin.Cells(insertrow + i, 2).Value = shlist.Cells(1 + j, 2).Value Then
                shin.Cells(insertrow + i, 26).Value = shlist.Cells(1 + j, 6).Value                                                                                             '26 = ระดับ
            End If
        Next j
        For j = 1 To 17
            If shin.Cells(insertrow + i, 26).Value = shlist.Cells(1 + j, 8).Value And shlist.Cells(1 + j, 8).Value <> "" Then
                shin.Cells(insertrow + i, 27).Value = shlist.Cells(1 + j, 18).Value                                                                                           '27 = จัดระดับกลุ่ม
                If shin.Cells(insertrow + i, 13).Value <> "" Then
                    shin.Cells(insertrow + i, 29).Value = shin.Cells(insertrow + i, 13).Value / shlist.Cells(1 + j, 9).Value                                    '29 = จำนวนวันค่าเบี้ยเลี้ยง
                Else
                    shin.Cells(insertrow + i, 29).Value = ""
                End If
                shin.Cells(insertrow + i, 30).Value = Int(shin.Cells(insertrow + i, 14) / shlist.Cells(1 + j, 12))                                                 '30 = จำนวนวันค่าเบี้ยเลี้ยง
                shin.Cells(insertrow + i, 31).Value = Int(shin.Cells(insertrow + i, 19) / 225)                                                                          '31 = จำนวนวันค่าเสี่ยงภัย
                shin.Cells(insertrow + i, 32).Value = shlist.Cells(1 + j, 13).Value * shin.Cells(insertrow + i, 6).Value                                       '32 = ค่าแรง
                shin.Cells(insertrow + i, 33).Value = shlist.Cells(1 + j, 15).Value * shin.Cells(insertrow + i, 23).Value                                     '33 = ค่า OT 1 เท่า
                shin.Cells(insertrow + i, 34).Value = shlist.Cells(1 + j, 14).Value * shin.Cells(insertrow + i, 24).Value                                      '34 = ค่า OT 1.5 เท่า
                If shin.Cells(insertrow + i, 26).Value = shlist.Cells(2, 8).Value Then shin.Cells(insertrow + i, 35).Value = shin.Cells(insertrow + i, 6).Value * shlist.Cells(2, 16).Value _
                    : shin.Cells(insertrow + i, 36).Value = shin.Cells(insertrow + i, 6).Value * shlist.Cells(2, 17).Value: shin.Cells(insertrow + i, 37).Value = shin.Cells(insertrow + i, 6).Value '35,36,37 (เกี่ยวกับรถ)
            End If
        Next j
        If shin.Cells(insertrow + i, 9).Value = shlist.Cells(2, 24).Value Then
            shin.Cells(insertrow + i, 28).Value = shlist.Cells(2, 24).Value                                                                                                    '28 = สถานที่ทำงาน
        Else
            shin.Cells(insertrow + i, 28).Value = shlist.Cells(1, 25).Value
        End If
        shin.Cells(insertrow + i, 38).Value = Sheet1.Cells(psaverow, 7).Value                        '38 = ระดับขั้นตอนการทำงาน
        shin.Cells(insertrow + i, 39).Value = shin.Cells(insertrow + i, 32).Value * Sheet5.Cells(2, 77).Value     '0.4152                                                                                '39 = สวัสดิการ
    Next i
End Sub

    '**********************************************************************************************************
    '*************************************เรียงลำดับ ************************************
    
    ' รียงลำดับใช้แทน  insert row  ไปพรางๆก่อน ยังทำไม่ได้
    Sheets("information").Select
     Range("Table1[ครั้งที่]").Select
    ActiveWorkbook.Worksheets("information").ListObjects("Table1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("information").ListObjects("Table1").Sort.SortFields. _
        add Key:=Range("A6"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("information").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

[yodpao.b]

ขอบคุณครับ