การหาค่า Max และ Min จากการป้อนตัวเลขผ่าน Input Bo
กระทู้เก่าบอร์ด อ.Yeadram

 2,214   4
URL.หัวข้อ / URL การหาค่า Max และ Min จากการป้อนตัวเลขผ่าน Input Bo

คืออยากถามว่าถ้าเรามีการสร้าง button เข้ามา โดยที่ถ้าคลิกไปแล้วจะมี Inputbox มาเพื่อรับค่า จำนวน 5 ครั้ง หลังจากนั้นจะต้องใช้ statement เพื่อทำการหาค่า Max และ Min พร้อม ๆ กันยังไงดีคะ ทราบเพียงแต่ว่าจะต้องใ้ช้ For...Next เพื่อใช้ในการวน loop ให้ครบ 5 รอบ หลังจากนั้นจึงใช้ If...End if เพื่อหาค่าดังกล่าว แต่ยังทำการเก็บค่าจากการป้อนข้อมูลไม่ได้เลยค่ะ ทำไปทำมาชักงงเอง
โดย: Tongjung เมื่อ: 27 มี.ค. 2552 , 01:41

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01734
- เมื่อคลิ๊ก
- ประกาศตัวแปรอาเรย์ ที่มีสมาชิก 5 ตัว     Dim arr(4) as long

for i = 0 to 4
s= inputbox()
arr(i) = cLng(s)
next

- จัดเรียงอาเรย์ (ถ้าเป็น php มีฟังก์ชั่น sort แต่ VBA มีฟังก์ชั่นช่วยเรียงหรือเปล่า ไม่แน่ใจ ถ้าไม่มีก็เขียนเป็น ฟังก์ชั่นย่อยเอาก็ได้ครับ)

- เมื่อจัดเรียงได้แล้ว ไม่ตัวแรกก็ตัวสุดท้ายแหละครับ ที่คุณต้องการ
โดย: yeadram เมื่อ: 27 มี.ค. 2552 , 07:27
2 @R01742
สร้างตารางเปล่า ไว้รอรับค่าจาก inputbox
ตาราง tbInputNumber
- ID autonumber
- LngInput Long integer


การรับค่าจาก input
for i = 0 to 4
s = inputbox(...)
if s<>"" or not isnull(s) then
docmd.runsql "Insert into tbInputNumber(LngInput) Values(" & s & ")"
end if
next

เมื่อต้องการหาค่า Max และ Min ให้ใช้คิวรี่
Select Min(LngInput) as minInput, Max(LngInput) As MaxInput From tbInputbox;
โดย: yeadram เมื่อ: 27 มี.ค. 2552 , 11:33
3 @R01743
อาเรย์ไม่ได้
ถ้าตาราง+คิวรี่ยังไม่ได้อีก
ต่อไปจะเป็น คอลเลคชั่นละนะ

ถามอาจารย์ด้วยว่า "เพื่ออะไร!"
โดย: yeadram เมื่อ: 27 มี.ค. 2552 , 11:34
4 @R01744
ถ้าเขียนให้ มันก็ไม่เป็นงานที่ คุณใช้ฝีมือทำส่ง อ. เองสิครับ อัลกอรึธึมต้องฝึกคิดบ่อยๆนะครับ ถึงจะเก่ง ทางที่ดี คุณลองเขียนมาก่อนดีไหมว่าอัลกอรึธึมของคุณเป็นอย่างไร แล้วเดี๋ยว อ.ท่านอื่นๆ เขาจะมาแนะเอง

ตอนนี้ผมบอกใบ้ให้ก่อนว่า ต้องใช้ ตัวแปรสักตัวนึงเป็นที่เก็บชั่วคราวเพื่อเปรียบเทียบกับค่าอื่นๆครับ
โดย: สันติสุข เมื่อ: 27 มี.ค. 2552 , 11:37
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2811s