:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
ploynattharat
Member
Member
Posts: 26
Joined: Tue Mar 31, 2015 11:19 am

เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#1

Post by ploynattharat »

ขออนุญาตสอบถามผู้รู้คะ

คือดิฉันอยากให้ผู้รู้ช่วยเหลือหน่อยคะ ที่คอลัมน์ J วันกำหนดส่งงาน คือดิฉันอยากเรียงลำดับงานตามวันกำหนดส่งที่จะถึงเร็วที่สุดก่อนคะ เมื่อกดคลิกปุ่มเรียงลำดับงานแล้ว สูตรที่ดิฉันใส่สามารถเรียงลำดับงานได้คะ แต่ทีนี้ ทีช่อง J2 และ J3 มีวันกำหนดส่งงานวันเดียวกันคะ ถ้าเกิดกรณีวันกำหนดส่งเดียวกัน อยากให้ไปดูต่อที่คอลัมน์ K คะ ยกตัวอย่างเช่น งานลำดับที่2 ระดับความยาก/ง่ายที่ช่องK3 = 3จะให้ทำงานก่อน งานลำดับที่1 ที่มีวันกำหนดส่งเดียวกัน แต่ระดับความยาก/ง่ายที่ช่อง k2 =1คะ

ปัญหาของดิฉันคือ เมื่อกดปุ่มเรียงลำดับงานตามวันกำหนดส่งแล้ว ถ้าวันกำหนดส่งงานตรงกัน ให้ดูระดับความยาก/ง่ายของงานคะ โดย3ทำงานก่อน2ทำงานก่อน1คะ อย่างตัวอย่างที่ส่งให้นั้น งานที่2 ควรไปอยู่ลำดับที่1 งานที่1ควรอยู่ลำดับที่2 งานที่4ควรอยู่ลำดับที่3 และงานลำดับที่3 ควรอยู่ลำดับที่4คะ

ขอบคุณมากคะ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#2

Post by snasui »

:D ตัวอย่าง Code ครับ

Code: Select all

Sub EDD()
    Range("B2:J100").Select
    Range("J3").Activate
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Add Key:=Range( _
        "J2:J100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Add Key:=Range( _
        "K2:K100"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("OrderData").Sort
        .SetRange Range("B2:K100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("J2").Select
End Sub
Top
ploynattharat
Member
Member
Posts: 26
Joined: Tue Mar 31, 2015 11:19 am

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#3

Post by ploynattharat »

snasui wrote::D ตัวอย่าง Code ครับ

Code: Select all

Sub EDD()
    Range("B2:J100").Select
    Range("J3").Activate
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Add Key:=Range( _
        "J2:J100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("OrderData").Sort.SortFields.Add Key:=Range( _
        "K2:K100"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("OrderData").Sort
        .SetRange Range("B2:K100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("J2").Select
End Sub


ลองใส่สูตรแล้วยังไม่ได้คะ

ที่ไฟล์ใหม่ที่แนบให้คะ หลังจากใส่สูตรแล้ว

ดิฉันลองใส่งานใหม่ วันกำหนดส่งคือ 7/8/2015 หลังจากกดเรียงงานแล้ว งานขึ้นไปอยู่ที่ลำดับที่2คะ โดยงานที่ลำดับที่ 1 วันกำหนดส่ง 10/8/2015 ที่จริงแล้ว งานลำดับที่2วันกำหนดส่งงานเร็วกว่างานลำดับที่1 งานควรจะขึ้นไปอยู่ลำดับที่1 งานลำดับที่ 3 กำหนดส่ง 9/8/2015 ควรขึ้นไปอยู่ลำดับที่2 และงานลำดับที่4 วันกำหนดส่งวันที่ 10/8/2015 มีวันกำหนดส่งตรงกับงานลำดับที่1 แต่ลำดับความยากง่าย ระดับที่3 ควรได้อยู่ลำดับงานก่อนงานที่1 ซึ่งลำดับความยาก/ง่ายอยู่ที่ระดับ1คะ เพราะฉะนั้นงานลำดับที่4 ควรอยู่ลำดับที่3 และงานลำดับที่1 ควรอยู่ลำดับที่4คะ

รบกวนช่วยดูให้อีกทีนะคะ

ขอบคุณคะ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#4

Post by snasui »

:D Macro หรือ VBA เรียกว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100")เป็น .SetRange Range("B1:K100") ครับ
Top
ploynattharat
Member
Member
Posts: 26
Joined: Tue Mar 31, 2015 11:19 am

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#5

Post by ploynattharat »

snasui wrote::D Macro หรือ VBA เรียนว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100")เป็น .SetRange Range("B1:K100") ครับ
ทำได้และคะ

ขอโทษที่ดิฉันใช้คำผิดนะคะ

ขอบคุณมากคะ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#6

Post by snasui »

ploynattharat wrote:
snasui wrote: :D Macro หรือ VBA เรียนว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100")เป็น .SetRange Range("B1:K100") ครับ
ทำได้และคะ

ขอโทษที่ดิฉันใช้คำผิดนะคะ

ขอบคุณมากคะ
:D การใช้คำผิดตามข้างตนยังพอสื่อสารเข้าใจได้ ผมแจ้งไปเพื่อเพื่อน ๆ ที่เข้ามาอ่านจะได้ทราบไปด้วยกันว่าสิ่งใดเรียก Code, สูตร หรืออื่น ๆ เพื่อจะได้สื่อสารตรงกันครับ

ที่ฟอรัมถามตอบไม่อนุญาตให้ใช้ภาษาแชท หากทราบว่าเขียนผิดสามารถ Edit ได้ภายในเวลา 60 นาที

อ่านกฎด้านบนทุกข้อเพื่อทราบอีกรอบครับ :roll:
Top
ploynattharat
Member
Member
Posts: 26
Joined: Tue Mar 31, 2015 11:19 am

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#7

Post by ploynattharat »

snasui wrote:
ploynattharat wrote:
snasui wrote: :D Macro หรือ VBA เรียนว่า Code ไม่เรียกว่า สูตร ครับ

ให้ปรับ Code .SetRange Range("B2:K100")เป็น .SetRange Range("B1:K100") ครับ
ทำได้แล้วคะ

ขอโทษที่ดิฉันใช้คำผิดนะคะ

ขอบคุณมากคะ
:D การใช้คำผิดตามข้างตนยังพอสื่อสารเข้าใจได้ ผมแจ้งไปเพื่อเพื่อน ๆ ที่เข้ามาอ่านจะได้ทราบไปด้วยกันว่าสิ่งใดเรียก Code, สูตร หรืออื่น ๆ เพื่อจะได้สื่อสารตรงกันครับ

ที่ฟอรัมถามตอบไม่อนุญาตให้ใช้ภาษาแชท หากทราบว่าเขียนผิดสามารถ Edit ได้ภายในเวลา 60 นาที

อ่านกฎด้านบนทุกข้อเพื่อทราบอีกรอบครับ :roll:
Top
ploynattharat
Member
Member
Posts: 26
Joined: Tue Mar 31, 2015 11:19 am

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#8

Post by ploynattharat »

อาจารย์คะ ขออนุญาตรบกวนหน่อยคะ

ที่worksheet ชื่อ dataorderdetail ที่ปุ่มกดเรียงลำดับที่ด้านขวาคะ

คือปุ่มนี้จะเรียงลำดับงานที่วันกำหนดส่งเร็วที่สุดก่อน(คอลัมน์ J) แต่ถ้าวันกำหนดส่งเดียวกัน จะไปเรียงลำดับความยาก/ง่ายต่อ ที่คอลัมน์K โดยลำดับ3 จะทำงานก่อนลำดับ2 และลำดับ ตามลำดับ แล้วถ้าวันกำหนดส่งและลำดับความยาก/ง่าย ตรงกันอีก จะไปเรียงลำดับ จำนวน(คอลัมน์ F) โดยจะนำจำนวนที่มากกว่าทำก่อน

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

พอดิฉันเปลี่ยนชื่อ worksheetแล้ว แล้วไปแก้ไขcode ตรงชื่อworksheet ที่ปุ่มกดเรียงลำดับแล้วเกิด debug คะ

รบกวนอาจารย์ช่วยเหลือด้วยนะคะ

ขอบคุณมากคะ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: เรียงลำดับงานตามวันกำหนดส่งงานเร็วที่สุดอย่างมีเงื่อนไข

#9

Post by snasui »

:D กลับไปตอบกรกระทู้นี้ก่อนครับ viewtopic.php?f=3&t=8674#p54305
Top
Post Reply

Return to “Excel Formulas & Functions”