Snasui Excel Forum

คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/

อยากปรับ Code ให้กระชับขึ้น

https://snasui.com/viewtopic.php?t=12398

Page 1 of 1

อยากปรับ Code ให้กระชับขึ้น

Posted: Fri Oct 27, 2017 6:34 am
by yangkodza

Code: Select all

Sub กำหนดช่วงคะแนน()
    Application.ScreenUpdating = False
    Range("E8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$E$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$E$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("F8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$F$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$F$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("G8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$G$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$G$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("H8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$H$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$H$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("I8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$I$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$I$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("J8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$J$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$J$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("K8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$K$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$K$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("L8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$L$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$L$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("M8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$M$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$M$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("N8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$N$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$N$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("O8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$O$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$O$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("P8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$P$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$P$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("Q8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$Q$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$Q$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("R8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$R$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$R$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("S8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$S$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$S$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("T8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$T$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$T$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("U8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$U$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$U$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("V8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$V$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$V$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("W8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$W$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$W$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("X8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$X$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$X$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
'**********************************************
    Range("E7").Select
    Application.ScreenUpdating = True
End Sub
จาก code ดังกล่าว จะทำงานซ้ำ 20 ครั้ง
เพียงแค่เปลี่ยนคอลัมเพื่อตั่งค่าไปทีละคอลัม
รบกวนช่วยปรับให้ code สั้นง่ายได้ใจความทีครับ
เพราะเสียเวลาในการแสดงผลมากครับ :flw:
ช่วงคะแนน.xlsm
(72.71 KiB) Downloaded 5 times

Re: อยากปรับ Code ให้กระชับขึ้น

Posted: Fri Oct 27, 2017 7:34 am
by snasui
:D ตัวอย่าง Code ตามด้านล่างครับ

การปรับ Code ให้สั้นมักจะไม่ง่ายครับ

Code: Select all

Dim i As Integer, rAll As Range
With Sheets("C1T1")
    i = .Range("a" & .Rows.Count).End(xlUp).Row
    Set rAll = .Range("e8:x" & i)
    rAll.FormatConditions.Delete
    With rAll
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="=e$7/2"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .Font.Color = -16776961
            .StopIfTrue = True
        End With
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=e$7"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .Font.Color = -16711681
            .Interior.PatternColorIndex = xlAutomatic
            .Interior.Color = 255
            .StopIfTrue = True
        End With
    End With
End With
ปกติการกำหนด Conditional Formatting จะไม่ทำทุกครั้งที่ทำงาน แต่จะทำเพียงครั้งใดครึ้งหนึ่งแล้วใช้งาน หากมีการเปลี่ยนแปลงจึงจะกำหนดใหม่เป็นครั้ง ๆ ไปครับ

การกำหนด Conditional Formatting ด้วย Code ต้องคำนึงถึงการลบของเก่าทิ้งก่อนที่จะกำหนดใหม่ ไม่เช่นนั้นแล้วจะเกิดการสร้าง Conditional Formatting จำนวนมากดังเช่นไฟล์ที่แนบมานี้ ใน Code ด้านบนจึงกำหนดให้ลบของเดิมทิ้งไปก่อนแล้วค่อยกำหนดใหม่ครับ

Re: อยากปรับ Code ให้กระชับขึ้น

Posted: Sat Oct 28, 2017 9:46 pm
by yangkodza
snasui wrote::D ตัวอย่าง Code ตามด้านล่างครับ

การปรับ Code ให้สั้นมักจะไม่ง่ายครับ

Code: Select all

Dim i As Integer, rAll As Range
With Sheets("C1T1")
    i = .Range("a" & .Rows.Count).End(xlUp).Row
    Set rAll = .Range("e8:x" & i)
    rAll.FormatConditions.Delete
    With rAll
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="=e$7/2"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .Font.Color = -16776961
            .StopIfTrue = True
        End With
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=e$7"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .Font.Color = -16711681
            .Interior.PatternColorIndex = xlAutomatic
            .Interior.Color = 255
            .StopIfTrue = True
        End With
    End With
End With
ปกติการกำหนด Conditional Formatting จะไม่ทำทุกครั้งที่ทำงาน แต่จะทำเพียงครั้งใดครึ้งหนึ่งแล้วใช้งาน หากมีการเปลี่ยนแปลงจึงจะกำหนดใหม่เป็นครั้ง ๆ ไปครับ

การกำหนด Conditional Formatting ด้วย Code ต้องคำนึงถึงการลบของเก่าทิ้งก่อนที่จะกำหนดใหม่ ไม่เช่นนั้นแล้วจะเกิดการสร้าง Conditional Formatting จำนวนมากดังเช่นไฟล์ที่แนบมานี้ ใน Code ด้านบนจึงกำหนดให้ลบของเดิมทิ้งไปก่อนแล้วค่อยกำหนดใหม่ครับ
ขอบคุณมากครับ :thup:
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited