PANTIP.COM : X7196661 รบกวนถามเซียน VB ใน Excel หน่อยครับ [วิศวกรรมและเทคโนโลยี]

รบกวนถามเซียน VB ใน Excel หน่อยครับ

ผมพยายามที่จะเขียน VB มาจัดการกับข้อมูลนี้มาหลายวันแล้ว แต่ยังไม่สามารถหาวิธี แก้ได้ซะทีอ่ะครับ รบกวน พี่ ๆ น้อง ๆ ช่วยผมคิดซักนิดได้ไหมครับ -/\-

สมมุติว่าผมมีข้อมูลดังนี้นะครับ
A B
1 2 12
2 8 35
3 15 7
4 4 6

ผมต้องการให้ VB วิ่งไปหาค่าที่มากที่สุดใน Column A (ซึ่งก็คือ 15 ที่ range "A3") แล้ว ลบค่านั้นทิ้ง แล้ว วิ่งไปหาค่ามากที่สุดใน Column B ( 35 ที่ Range "B2") แล้วลบทิ้งเหมือนกัน ผมต้องเขียน VB ยังไงอ่ะครับ หมดความสามารถแล้วจริง ๆ -_-"

ขอบคุณล่วงหน้าครับ

จากคุณ : iamun - [ 11 พ.ย. 51 16:13:40 ]

ความคิดเห็นที่ 1

ใช้ array ทำได้ครับ ดังนี้

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 16:23:36 ]

ความคิดเห็นที่ 2

Sub MaxClear()

Dim ColA(1 To 1000) As Double
Dim ColB(1 To 1000) As Double
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Main").Select
kA = 0
Do
kA = kA + 1
Loop Until Cells(kA + 1, 1) = ""
For i = 1 To kA
ColA(i) = Cells(i, 1)
Temp = ColA(i)
If i = 1 Then
MaxTemp_A = ColA(1)
Else
If Temp > MaxTemp_A Then
MaxTemp_A = Temp
MaxRow_A = i
End If
End If
Next i

kB = 0
Do
kB = kB + 1
Loop Until Cells(kB + 1, 2) = ""
For i = 1 To kB
ColB(i) = Cells(i, 2)
Next i
For i = 1 To kB
ColB(i) = Cells(i, 2)
Temp = ColB(i)
If i = 1 Then
MaxTemp_B = ColB(1)
Else
If Temp > MaxTemp_B Then
MaxTemp_B = Temp
MaxRow_B = i
End If
End If
Next i

Sheets("BackUp").Select
For i = 1 To kA
Cells(i, 1) = ColA(i)
Next i
For i = 1 To kB
Cells(i, 2) = ColB(i)
Next i

Sheets("Main").Select
Cells(MaxRow_B, 2).ClearContents
Cells(MaxRow_A, 1).ClearContents
'MsgBox MaxRow_B & " " & MaxTemp_B
'MsgBox MaxRow_A & " " & MaxTemp_A

End Sub

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 16:41:53 ]

ความคิดเห็นที่ 3

ขอบคุณมากครับ คุณ Practical x 2 ^_^

จากคุณ : iamun - [ 11 พ.ย. 51 16:56:17 ]

ความคิดเห็นที่ 4

ยินดีช่วยเหลือครับ :D

ข้อมูลเพิ่มเติม
- ใช้เวลาออกแบบโปรแกรมหลังเห็นปัญหา 18.5 นาที
- โปรแกรมตอบห้องหว้ากอหมายเลข 44
- หากต้องการโปรแกรมพร้อมปุ่มโปรดติดต่อทางอีเมลล์ครับ

รูปที่ 1: ก่อนกดปุ่มเรียกใช้โปรแกรม
แก้ไขเมื่อ 11 พ.ย. 51 17:07:41
แก้ไขเมื่อ 11 พ.ย. 51 17:02:34

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 17:02:12 ]

ความคิดเห็นที่ 5

รูปที่ 2: หลังกดปุ่มเรียกใช้โปรแกรม

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 17:03:20 ]

ความคิดเห็นที่ 6

ตัวอย่างโปรแกรมที่ 43
http://www.pantip.com/cafe/wahkor/topic/X7190120/X7190120.html

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 17:07:13 ]

ความคิดเห็นที่ 7

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

จากคุณ : Practical x 2 - [ 11 พ.ย. 51 17:12:25 ]

ความคิดเห็นที่ 8

ได้คำตอบจาก "ตัวจริง" เรื่อง VB ใน Exel เลยล่ะครับคุณ จขกท

จากคุณ : ksk - [ 11 พ.ย. 51 17:21:49 ]

ความคิดเห็นที่ 9

อ่านดูแล้วเหมือนคุณ จขกท. จะทำการตัด outlier ออกรึเปล่าครับ

ถ้าใช่ ลองทำ scatter plot แล้วไป select outlier ออกในกราฟเลยจะแน่นอนที่สุดครับ

สะดวก ถูกต้อง และแม่นยำ

จากคุณ : Lanoz - [ 11 พ.ย. 51 18:00:28 ]

ความคิดเห็นที่ 10

เก่งครับ ปรบมือ

จากคุณ : harvardวิทยาคม - [ 11 พ.ย. 51 18:08:34 ]

ความคิดเห็นที่ 11

*0* มาดู เซียนฮะ

จากคุณ : vn, man - [ วันลอยกระทง 11:00:22 ]

ความคิดเห็นที่ 12

อ่านดูแล้วเหมือนคุณ จขกท. จะทำการตัด outlier ออกรึเปล่าครับ

ถ้าใช่ ลองทำ scatter plot แล้วไป select outlier ออกในกราฟเลยจะแน่นอนที่สุดครับ

สะดวก ถูกต้อง และแม่นยำ

reply ความเห็น 9

คือจริง ๆ ไม่ได้ต้องการตัด outlier ออกอ่ะครับ แต่ว่าต้องการหาตัวที่มากที่สุด mark ค่าไว้มาค่าที่ได้อยู่ในช่วงวันที่เท่าไหร่อ่ะครับ -_-" ขอบคุณสำหรับคำแนะนำครับ คุณ Lanoz

จากคุณ : iamun - [ วันลอยกระทง 11:49:51 ]

ความคิดเห็นที่ 13

ชุดคำสั่งที่มีความสามารถเพิ่มเติม

จากคุณ : Practical x 2 - [ วันลอยกระทง 12:10:10 ]

ความคิดเห็นที่ 14

man ... เข้ามาดู

จากคุณ : Mr. Fusion - [ วันลอยกระทง 12:24:11 ]

ข้อความหรือรูปภาพที่ปรากฏในกระทู้ที่ท่านเห็นอยู่นี้ เกิดจากการตั้งกระทู้และถูกส่งขึ้นกระดานข่าวโดยอัตโนมัติจากบุคคลทั่วไป ซึ่ง PANTIP.COM มิได้มีส่วนร่วมรู้เห็น ตรวจสอบ หรือพิสูจน์ข้อเท็จจริงใดๆ ทั้งสิ้น หากท่านพบเห็นข้อความ หรือรูปภาพในกระทู้ที่ไม่เหมาะสม กรุณาแจ้งทีมงานทราบ เพื่อดำเนินการต่อไป