Excel Forum

ผมต้องการเรียงลำดับจากมากไปน้อยด้วย 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 ...

อยากรบกวนพี่ๆเรื่องการเขียนสูตรทีน่ะครับ

ปัญหาคือ ขอยกตัวอย่างนะครับ

ผมมีเงิน 18 บาท <----- โจทย์

อยากรู้ว่ามันจะได้เหรียญ 10 / 5 / 2 / 1 อย่างละกี่เหรียญ

อยากให้excel มันโชว์ว่า ได้เหรียญ 10 บาท จำนวน 1 เหรียญ -|
ได้เหรียญ 5 บาท จำนวน 1 เหรียญ |--------- โชว์เป้นคำตอบแบบแจกแจกอย่างนี้น่ะครับ ...