สอบถามการเขียนโปรแกรม เรียงลำดับเลขจากมากไปน้อย น้อยไปมาก

[koke]

คือผมอยากสร้าง userform โดยกำหนดตัวเลขขึ้นมาและมีตัวเลือกว่าจะเลือกจากน้อยไปมาก หรือ มากไปน้อย
จะทำอย่างไรครับ
กรุณาตอบด้วยนะครับ
ขอบคุณครับ

[snasui]

การเขียน VBA จำเป็นต้องศึกษามาก่อนตามลำดับ และต้องเขียนสิ่งที่ต้องการมาเองให้ถามเฉพาะที่ติดปัญหาเท่านั้น อ่านกฎข้อ 5 ด้านบนประกอบครับ

[koke]

จากไฟล์ข้อมูล ผมเป็นมือใหม่พยายามหัดเขียน แต่ยังมีพื้นฐานไม่ดีเลยแสดงผลไม่ได้ อาจารย์กรุณาช่วยด้วยนะครับ อาจารย์เขียนหนังสือหรือมีแนะนำบ้างไหมครับ ผมต้องใช้ในการทำงานด้วย เลยอยากรบกวนหน่อยครับ
ขอบคุณครับ

[koke]

ถ้าเป็น visual basic สามารถใช้ array.sort(a) ได้ สำหรับ VBA สามารถทำได้ไหมครับ

[snasui]

ช่วยอธิบายมาอีกรอบครับว่าต้องการให้แสดงผลที่ไหนอย่างไร จะได้สะดวกในการทำความเข้าใจ

สำหรับ Array ใน VBA ไม่มี Function Sort เหมือน VB หากจะ Sort ต้องเขียน Sort เองครับ

[koke]

vba.xlsm

[snasui]

ตัวอย่าง Code จากมากไปหาน้อย หากเรียงจากน้อยไปหามากใช้ Small แทน Large ครับ

Code: Select all

Private Sub max_Click()
    Dim a(3) As Variant
    Dim i As Integer
    Dim t() As Variant
    a(0) = 1
    a(1) = 3
    a(2) = 8
    a(3) = 6
    For i = 0 To UBound(a)
       ReDim Preserve t(i)
       t(i) = Application.Large(a, i + 1)
    Next i
    TextBox1.Text = Join(t, ",")
End Su

อีกตัวอย่างการเรียงลำดับข้อมูลด้วย VBA ดูจาก Link นี้ครับ wordpress/character-order/

[koke]

กราบขอบพระคุณอาจารย์เป็นอย่างสูงครับ
บุญคุณนี้ต้องทดแทน
(ทำไมมันมี 0 ขึ้นมาครับ)

[snasui]

ไม่ทราบว่าขึ้น 0 ตรงไหน ลองแนบไฟล์ล่าสุด อธิบายปัญหาที่เป็นและอธิบายคำตอบที่ต้องการ จะได้เข้าถึงปัญหาโดยไวครับ

[koke]

Untitled1.png

vba.xlsm

[snasui]

เพราะกำหนดสมาชิก Array ไว้ 11 ตัว (จาก Dim a(1 To 10) As Integer) มันก็เลยแสดง 11 ตัว ใช้จริงเท่าไรก็ควรกำหนดไว้เท่านั้นครับ

[koke]

ขอบพระคุณมากครับ