Snasui Excel Forum

Code: Select all

Sub เก่ง()
    Range("A6:BA6").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort.SortFields.Add Key:=Range( _
        "BA6:BA45"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort
        .SetRange Range("A6:BA45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-48
    Range("BB6").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-36
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Range("BC6").Select
End Sub

Code: Select all

Sub เรียงปกติ()
    ActiveWindow.SmallScroll Down:=-6
    Range("A6:BA6").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort.SortFields.Add Key:=Range( _
        "A6:A45"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("อันดับคนเก่ง").Sort
        .SetRange Range("A6:BA45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-27
    Range("BB6").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-36
    Range("BC6").Select
End Sub

Code: Select all

Sub Test0()
   if [a1].value = "" then [a1] = true
   if [a1].value = True
      Call เก่ง
      [a1].value = false
   else
      Call เรียงปกติ
      [a1].value = true	    
   end if
End Sub