รบกวนช่วยดู VBA ให้ทีครับ
Posted: Tue Nov 20, 2018 1:13 pm
ผมต้องการเรียงลำดับจากมากไปน้อยด้วย Code นี้
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
ผลออกมาคือ ค่ามากสุดไปอยู่บรรทัดสุดท้าย แล้ว ค่อยๆเรียงขึ้นมาตามลำดับ
ผมอยากจะให้ ออกมา เรียงจากมากไปน้อย จากบนลงล่างน่ะครับ รบกวนทีครับ
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
ผลออกมาคือ ค่ามากสุดไปอยู่บรรทัดสุดท้าย แล้ว ค่อยๆเรียงขึ้นมาตามลำดับ
ผมอยากจะให้ ออกมา เรียงจากมากไปน้อย จากบนลงล่างน่ะครับ รบกวนทีครับ