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

yangkodza · #1

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 สั้นง่ายได้ใจความทีครับ
เพราะเสียเวลาในการแสดงผลมากครับ

ช่วงคะแนน.xlsm: (72.71 KiB) Downloaded 6 times

snasui · #2

ตัวอย่าง 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 ด้านบนจึงกำหนดให้ลบของเดิมทิ้งไปก่อนแล้วค่อยกำหนดใหม่ครับ

yangkodza · #3

snasui wrote: ตัวอย่าง 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 ด้านบนจึงกำหนดให้ลบของเดิมทิ้งไปก่อนแล้วค่อยกำหนดใหม่ครับ

ขอบคุณมากครับ

Snasui Excel Forum

File Anatomy Add-in: แก้ปัญหาไฟล์ Excel ช้า แฮงก์ และไม่เสถียร อย่างมืออาชีพ

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

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

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

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