: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

เรียงลำดับอัตโนมัติ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

เรียงลำดับอัตโนมัติ

#1

Post by changphuak »

อยากจะจัดเรียงลำดับจากมากไปหาน้อยแบบอัตโนมัติแบบกรอกข้อมูลที่ colum d
ขอคุณมากครับ
You do not have the required permissions to view the files attached to this post.
tejasid
Member
Member
Posts: 53
Joined: Wed Feb 17, 2016 6:58 pm

Re: เรียงลำดับอัตโนมัติ

#2

Post by tejasid »

ตัวอย่างครับ
You do not have the required permissions to view the files attached to this post.
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#3

Post by changphuak »

เพิ่มเติมครับ
คือถ้ามีการเปลี่ยนแปลงตัวเลขแล้วขึ้นจัดอันดับแบบอัตโนมัตินะครับโดยที่ไม่กดจัดอันดับใหม่นะครับ
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1511
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: เรียงลำดับอัตโนมัติ

#4

Post by logic »

ถ้าเป็นการเรียงอัตโนมัติในที่เดิมก็ต้องใช้การเขียนโปรแกรมด้วย vba เข้ามาช่วย ต้องเขียนมาเองก่อนตามกฎด้านบนครับ :)
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#5

Post by changphuak »

ครับ
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#6

Post by changphuak »

ขอถามเพิ่มเติมครับ ที่ columF ,columG
เกิดช่องว่างที่ไม่มีค่าทำอย่างไรให้เรียงให้ต่อเนื่องและเกิดข้อผิดพลาดตามที่ปรากฎดังที่เห็นครับ
ขอบคุณมากครับ
You do not have the required permissions to view the files attached to this post.
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

Re: เรียงลำดับอัตโนมัติ

#7

Post by XDoll »

changphuak wrote:ขอถามเพิ่มเติมครับ ที่ columF ,columG
เกิดช่องว่างที่ไม่มีค่าทำอย่างไรให้เรียงให้ต่อเนื่องและเกิดข้อผิดพลาดตามที่ปรากฎดังที่เห็นครับ
ขอบคุณมากครับ
:D เท่าที่ดูพบข้อผิดพลาดดังนี้ครับ ที่ F5
1. =IF($A$5:$A$22="","",LARGE($A$5:$A$22,$E5)) ต้องเป็นสูตร Array ให้กด Ctrl+Shift ค้างไว้กด Enter จะปรากฎ{} ครอบสูตรไว้ครับ คอปปี้ลงล่าง
2. ช่วงข้อมูลไม่ถูกต้องครับ ให้แก้ตรง =IF($A$5:$A$22="","",LARGE($A$5:$A$22,$E5)) เป็น =IF($A$5:$A$34="","",LARGE($A$5:$A$34,$E5))
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

Re: เรียงลำดับอัตโนมัติ

#8

Post by XDoll »

:D ขอเพิ่มเติมส่วนของข้อผิดพลาดที่เกิดในสูตร
F5 =IFERROR(IF($A$5:$A$34="","",LARGE($A$5:$A$22,$E5)),"") Ctrl+Shift ค้างไว้กด Enter คอปปี้ลงมา
G5 =IFERROR(VLOOKUP($F5,$A$5:$D$34,4,FALSE),"") Ctrl+Shift ค้างไว้กด Enter คอปปี้ลงมา

สีแดงคือส่วนที่เพิ่มเข้าไปหากเกิด error ให้ใส่ค่าว่างครับ
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#9

Post by changphuak »

ขอบคุณครับ
User avatar
XDoll
Bronze
Bronze
Posts: 261
Joined: Sun Mar 03, 2013 9:23 pm

Re: เรียงลำดับอัตโนมัติ

#10

Post by XDoll »

XDoll wrote::D ขอเพิ่มเติมส่วนของข้อผิดพลาดที่เกิดในสูตร
G5 =IFERROR(VLOOKUP($F5,$A$5:$D$34,4,FALSE),"") Ctrl+Shift ค้างไว้กด Enter คอปปี้ลงมา
ขอแก้ไขส่วนที่ผมแจ้งผิดครับ
ส่วนที่ขีดเส้นใต้ไม่ต้อง Ctrl+Shift+Enter ครับ
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#11

Post by changphuak »

ขอถามเพิ่มเติมครับ คืออยากให้ชื่อร้านค้าที่มีค่าเป็นศูนย์หรือว่างมาแสดงที่COLUM Gด้วยครับ
จอบคุณมากครับ
You do not have the required permissions to view the files attached to this post.
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#12

Post by changphuak »

แก้คำผิดครับ
ขอบคุณครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 31158
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: เรียงลำดับอัตโนมัติ

#13

Post by snasui »

:D ตัวอย่างการปรับสูตรครับ
  1. F5 คีย์สูตร
    =IFERROR(LARGE(IF($A$5:$A$100="",0,$A$5:$A$100),$E5),"")
    Ctrl+Shift+Enter
  2. G5 คีย์สูตร
    =IF(F5<>"",INDEX($B$5:$B$100&"",SMALL(IF($A$5:$A$100=F5,ROW($A$5:$A$100)-ROW($A$5)+1),COUNTIF(F$5:F5,F5))),"")
    Ctrl+Shift+Enter
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#14

Post by changphuak »

ขอบคุณมากๆครับอาจารย์
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#15

Post by changphuak »

ขอถามเพิ่มเติมครับ
ที่ b4 คือค่าต่ำสุดของ 58 ที่ g4:g15 ให้แสดงชื่อที่ c4
ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 31158
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: เรียงลำดับอัตโนมัติ

#16

Post by snasui »

:D ตรวจสอบว่าแนบไฟล์มาถูกต้องหรือไม่ หากถูกต้องแล้วช่วยอธิบายว่าชีตใด ต้องการคำตอบเป็นเท่าใด ด้วยเงื่อนไขใด จะได้สะดวกต่อการทำความเข้าใจและเข้าถึงปัญหาได้โดยไวครับ
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#17

Post by changphuak »

ขอโทษครับแนบไฟล์ผิดครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 31158
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: เรียงลำดับอัตโนมัติ

#18

Post by snasui »

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

เซลล์ C4 คีย์

=INDEX($F$4:$F$15,MATCH(1,IF($G$4:$G$15=58,IF($H$4:$H$15=B4,1)),0))

Ctrl+Shift+Enter > Copy ลงด้านล่าง

สูตรนี้เป็นการ Match ตามเงื่อนไข โดยดูว่า G4:G15 มีค่าเท่ากับ 58 และ H4:H15 มีค่าเท่ากับ B4 ไม่เกี่ยวกับค่าต่ำสุดหรือไม่ต่ำสุด การอธิบายถึงค่าต่ำสุดจะทำให้เกิดการตีความโจทย์ไม่ถูกต้องแต่หากกล่าวถึงค่าตำสุดเป็นลำดับที่เท่านั้นเท่านี้จึงจะใชได้ครับ
changphuak
Bronze
Bronze
Posts: 338
Joined: Fri Mar 07, 2014 4:55 pm

Re: เรียงลำดับอัตโนมัติ

#19

Post by changphuak »

ขอบคุณมากครับ :cp: :cp: :cp: :cp: :cp:
ถามเพิ่มเติมครับ ที่ B4 ต้องการหาค่า SMALL ของ58 มาแสดงแบบอย่างที่ปรากฎครับ
ขอบคุณมากๆครับ :thup: :thup: :thup: :thup: :thup:
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 31158
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: เรียงลำดับอัตโนมัติ

#20

Post by snasui »

:D ตัวอย่างสูตรตามด้านล่างครับ

=SMALL(IF($G$4:$G$15=58,$H$4:$H$15),A4)

Ctrl+Shift+Enter > Copy ลงด้านล่าง
Post Reply