Snasui Excel Forum

โปรแกรมจะเป็นการเก็บค่าเลขมาทีละค่า มาเก็บไว้ในอาเรย์ จากนั้นจะนำค่า ในอาเรย์แต่ละตัวมาทำการหาค่า ztest แต่เมื่อกรอกค่าช่วงความเชื่อมันเป็นเปอร์เซน แล้วทำการคำนวณค่าออกมาและจะให้แสดงออกมาทาง label กลับขึ้นว่า run time error 13 type mismath
โดยในโปรแกรมจะใส่จำนวนของตัวเลขลงใน textbox ชื่อ txtnum และใส่แต่ละค่าลงในช่อง txtinfo แล้วกดบันทึกไปทีละค่า เมื่อบันทึกครบ จึงเติม ช่วงความเชื่อมั่นลงไปเช่นค่า 99 ,95 แล้วจึงกด calculate เพื่อแสดงค่าออกมาทาง label9
จึงขอความกรุณาอาจารย์ช่วยตรวจสอบโค้ด และแนะนำด้วยครับ ขอบคุณครับ
**ผมแนบไฟล์ไว้เพราะคิดว่าโค้ดอาจจะมากเกินไป งานจะอยู่ใน form ที่ชื่อ direct ครับ

ผมต้องกรอกอะไรอะไร ตรงไหน + คลิกตรงไหนก่อนหลังให้เกิด error แบบนั้นครับ

ต้องเติมจำนวนข้อมูลที่จะบันทึกลงในช่องแรก จากนั้นก้ใส่ค่าที่ต้องการจะคำนวนไปตามจำนวนที่ได้ระบุไว้ในช่องตรงกลาง แล้วกดบันทึก จะต้องบันทึกทีละค่า จบครบ จากนั้นจึงกดคำนวณ แล้วใส่ค่า ช่วงความเชื่อมั่น ลงไปคือ 95 หรือ 90 หรือ 99 แล้วกด calculate จะทำให้แสดงค่าออกมาที่ช่องด้านขวาครับ

เปลี่ยนการประกาศตัวแปรใหม่จาก Dim info(300) As Variant เป็น Dim info(300) As Double

ในส่วนของการหาค่า Ztest เขียนใหม่เป็น propz = Application.ZTest(info, alpha2) ครับ

แสดงค่าแล้วครับ ขอบคุณครับอาจารย์ และคุณ logic