Snasui Excel Forum

ขอบคุณอาจารย์มากคะ Run และ เก็บข้อมูลได้แล้วคะ

ต้องขอโทษเรื่องเครื่องหมาย " ' " คะ เนื่องจากตอนกด F8 เพื่อตรวจสอบได้ใส่เครื่องหมายให้ผ่านตรงที่ Error ไปตรวจเช็คลำดับต่อไปคะ และตอน Copy มาไม่ได้เอาออกคะ ^^ ครั้งต่อไปจะทำตามที่อาจารย์ได้แนะนำคะ

อาจารย์คะ รบกวนอีกครั้งคะ

ได้เพิ่มสิ่งที่เก็บไว้ใน Sheet อื่นอีก 2 Sheets คะ แต่ขั้น Error ที่ Sheets 2, 3 & 4 คะ Error ขึ้นเหมือนกันว่า Run-time error '1004': Application or object-defined error คะ

Private Sub CommandButton3_Click()

Dim i As Integer
Application.Calculation = xlManual
For i ...

Run ได้แล้วคะ ขอบคุณมากคะ ^^

ขอบคุณสำหรับคำแนะนำคะ

สิ่งที่ต้องการให้โปรแกรมทำคือ เก็บค่าในช่อง cost และ profit&lost ไปรวมกันใน Column คะ เพราะต้องนำมาวิเคราะห์ต่อไปคะ โดยข้อมูลของ Cost และ Profit&Lost จะต้องมีอย่างละ 1210 ข้อมูลคะ

โปรแกรมทำงานดังนี้คะ
1. ลบข้อมูลใน Sheet1 เนื่องจากข้อมูลที่ Copy มานั้น มาจากเลขสุ่มคะ ถ้าไม ...

ขออธิบายคะ เมื่อครู่กำลังจะออกจากออฟฟิต จึงไม่ได้อธิบายคะ

สิ่งที่ต้องการให้โปรแกรมทำคือ Copy 2 Columns ไปไว้ Sheet ละ Column คะ โดยให้เรียงกันไปให้ได้ 1210 Columns คะ

ซึ่งตอนนี้ Copy ไปวางได้แล้วคะ แต่พอใส่การวน Loop เข้าไปก็มีปัญหาคะ ในปุ่มคำสั่งที่สร้างขึ้นมา 2 ปุ่ม ปัญหาต่างกันคะ

ปุ่ม Copy ...

รบกวน Check Loop คะ ที่ ปุ่ม Control ที่ Sheet "Cal"

ตามไฟล์แนบคะ

ทำได้แล้วคะ โพสต์เพื่อเป็นความรู้ให้ผู้ที่เข้ามาดูนะคะ ^^

ใช้ฟังก์ชัน =CRITBINOM(B2,$H$12,RAND()) คะ

ขอเทียบกับ Random No. Generator ดังนี้คะ
B2 คือ ค่าที่ต้องการใส่ใน Number of trial คะ
H12 คือ ค่า p-value คะ

ค่าที่ได้จะอยู่ในช่วงเดียวกันคะ ลองไปใช้ดูนะคะ ^^

ขอบคุณคะ อาจารย์พึ่งบอกว่าใช้ค่าซ้ำได้ และสูตรที่ให้ใช้ได้ดีคะ ^^

ขอบคุณคะ ฟังก์ชันที่ให้มาใช้ได้ดีคะ :cp:

แต่ดูเหมือนว่า การ random ไม่ให้ซ้ำที่เข้าไปนั้น ใช้ในกรณีนี้ไม่ได้คะ (เคยเข้าไปศึกษาอยู่หลายครั้ง :D ) เพราะเลขที่ Random นั้นเป็นการ Random ให้ค่าตรงกับ E2:E125 โดยไม่ให้ซ้ำคะ และลำดับที่ใน D2:D125 นั้น Fit กับค่าใน column: E คะ จึงไม่ต้องใช้ Rank หรือไม ...

จากไฟล์แนบ ได้ลองใช้ Vlookup เพื่อให้แสดงว่า ช่อง B2 ถึง B55 นั้น ตรงกับ D2 ถึง D125 ที่ ช่อง C เท่ากับเท่าไหร่ คะ แต่ค่าไม่ขึ้นไม่แน่ใจว่าส่วนใดผิดคะ

และในช่อง B2 ถึง B55 ถ้าจะทำให้ค่าไม่ซ้ำกัน ต้องแก้ไขอย่างไรคะ

ไม่แน่ใจว่าอาจารย์ได้ลองแทนค่าหรือยังคะ เพราะค่าที่ได้ควรอยู่ในช่วงเดียวกันหรือใกล้กันเพราะเป็นการสุ่มเหมือนกัน ทั้ง 2 วิธีเป็นการ Random แบบ Binomial แต่ไม่แน่ใจว่าแทนค่าอย่างไรให้ได้คำตอบที่ควรจะเป็น

พอจะทราบว่า ตามฟังก์ชัน จะได้ค่า prob. ออกมา แล้วนำไปคูณค่าที่เราต้องการ แต่แบบ Random Number ...

ขอบคุณคะ

ขออธิบายเพิ่มคะ

คือ ใช้ =BINOMDIST แล้วจะได้ค่า prob. มาแต่ค่า prob. ที่ได้ไม่สามารถนำมาใช้ได้คะ ฟังก์ชันที่ใช้ คือ

=BINOMDIST(74,133,RAND(),TRUE)

เมื่อได้ค่า prob. แล้วได้นำไป คูณ ค่าที่ต้องการทดลองคะ เช่น 495 * prob. คะ

แต่ถ้านำไปใช้ใน Random Number Generator จะใส่ค่า prob. ช 0.5564 ...

ได้หาทั้ง 2 วิธี ตามไฟล์แนบคะ แต่เนื่องจากการแทนค่าต่างกัน และไม่ทราบว่าต้องแทนค่าอย่างไรให้ได้ผลเหมือนกัน

รบกวนด้วยคะ

น่าจะเป็นการตั้งหัวข้อผิด ดังนั้นขอปิดกระทู้นี้และเปิดกระทู้ใหม่คะ

รบกวนถามวิธีใช้ BINOMINV(probability, n, p) คะ

คือค่าที่มีเมื่อหาโดยใช้ Random number generator แล้วได้คะ แต่หาโดยใส่ฟังก์ชัน Binominv ไม่ได้คะ ค่าที่ได้ไม่เหมือนกับผลลัพธ์จาก Random number generator และมีตัวแปรที่ใส่ต่างกันด้วยคะ

รบกวนแนะนำคะ

ได้การสุ่มค่า Prob. แล้วคะ ตามไฟล์แนบ แต่ไม่ทราบว่าพอจะมีวิธีใดที่สามารถนำค่าตัวเลขที่มีไปใช้กับ Random No. Generator ได้อย่างรวดเร็วบ้างหรือไม่คะ และต้องทำอย่างไรคะ

คือหลังจากสุ่มได้ก็จะดึงตัวเลขที่ได้จาก Random No. Generator มาใช้คะ

รบกวนด้วยคะ

สวัสดีคะ อาจารย์

สิ่งต้องทำคือ
1. สุ่มค่า Prob. ที่มีจำนวน 123 ตัว
2. นำมาหาค่าสุ่มอีกครั้ง ด้วย Random Number Generation แบบ Binomial คะ โดยมีตัวอย่างพร้อมผลลัพธ์ ทำแบบ manual ตามไฟล์แนบคะ

รบกวนขอวิธีทำใน Excel ที่เร็วกว่า Manual คะ เพราะ ต้องทำ Number of trials ตั้งแต่ 391-500 คะ

ถ้าไม่ได้วิธ ...

ขอบคุณมากคะ

รู้สึกรบกวนอาจารย์มากเลยคะ :)

คือได้ลองนำสูตรไปใช้แต่มีข้อจำกัดอีกคะคือ

1. Row 2 เป็นจุดเริ่มต้น และ Row 11 เป็นจุดสิ้นสุดคะ
2. เมื่อนำไปใช้กับตารางที่มีค่าเต็มทุกช่องแล้ว จะติดปัญหาคือ
2.1 ผลลัพท์จะไปตรงช่องของตัวเองคือ จาก sheet 2 จุด 4C04 ไปยัง 4C04 คะ ซึ่งได้พยายามแก้ไขด้วยการใส่ค่าสูงๆ แต่ก ...

ขอบคุณคะ

แต่ทำ VBA ยังไม่เป็นคะ เมื่อกี้ลอง search ใน google แล้วคะ ^^

ถ้าทำ VBA ได้แล้วจะมารบกวนคะ แต่ตอนนี้คงทำแบบ Manual ไปก่อน เพราะ ทำ VBA น่าจะต้องใช้เวลาเรียนรู้อีกสักพักคะ ^^!