Snasui Excel Forum

ขอบคุณครับ ผมจะลองหาวิธีแก้ไขดูก่อนครับ

ผมได้สร้าง userform ที่จะเปิดวีดีโอ ผ่าน windowsmediaplayer ใน userform แต่เมื่อนำตัวโปรแกรมไปใช้งานในคอมพิวเตอร์เครื่องอื่น กลับพบว่าเกิด error ขึ้นและไม่สามารถเปิดวีดีได้ เนื่องจาก folder path ได้เปลี่ยนไปเมื่อไฟล์นั้นไปอยู่ในเครื่องคอมพิวเตอร์อื่น ผมอยากสอบถามว่ามีวิธีไหนที่จะสามารถใส่วีดีโอโดยไม ...

ขอบคุณครับ ยังไงเดี๋ยวผมลองหาทางโหลด visual studio มาก่อนครับ ขอบคุณมากๆนะครับ

เนื่องจากก่อนหน้านี้ผมได้ทำการเขียน code ใน excel ด้วย vba แต่ผมต้องการจะสร้างให้ code นี้ให้เป็นโปรแกรม หรือ application โดยตรง โดยไม่ต้องเข้าโปรแกรม microsoft excel ก่อน เท่าที่ผมได้พยายามค้นคว้าจากอินเตอร์เน็ต พบว่าส่วนใหญ่ เขาจะสร้างมาโครที่ใช้ใน excel เฉยๆ ไม่มีการ run ออกมาเป็นตัวโปรแกรม จ ...

มันขึ้นว่า "unable to get the average property of the worksheet function class " หมายความว่ายังไงหรอครับ??

สวัสดีครับ พอดีว่าผมต้องการจะหาค่าเฉลี่ยของค่าทุกค่าใน exel จากช่องปัจจุบันไปช่องด้านซ้ายสุดที่มีค่าอยู่ แต่มันกลับขึ้น error ว่า "VBA Runtime Error 1004 “Application-defined or Object-defined error" ผมสามารถแก้ทางยังไงได้บ้างครับ ขอบคุณนะครับ


Dim xbar(30000) As Double
xbar(i) = Application ...

ได้แล้วครับ ขอบคุณครับผม

ขอบคุณมากๆนะครับ ตอนนี้มันแสดงผลได้แล้วครับ แต่ดูเหมือนว่าไม่ใช้ได้กับทุกcolumn ได้แค่columnแรกอ่ะคับ ละก้ถ้าสมมุติว่าผมอยากให้เลขที่มันมากเกิน หรือน้อยเกินเป็นตัวสีแดงแทนมันจะสลับยังไงหรอครับ :D เดี๋ยวผมส่งไฟล์ให้ดูนะครับว่ามันเป็นลักษณะยังไง
แล้วก็ถ้สมมุติว่าผมใส่ตรง xlnotequal เป็น xlbetween จะต ...

ผมอยากสร้าง condition formating ใน vba ให้สามารถหาได้ว่าค่าตัวไหนที่มัน มีค่ามากหรือน้อยเกิน 70% ของค่าเฉลี่ยในแต่ละงานย่อย(cloumn) โดยเมื่อกดปุ่มคำนวณ โค้ดจะคำนวณค่าตามปกติ หลังจากนั้นอยากให้ตัวเลขแต่ละนั้นแสดงเป็นสีแดง หรือcells นั้นเป็นสีแดงก็ได้ เมื่อค่านั้นมีค่าตามเงื่อนไข(มีค่ามากหรือน้อยเกิน ...

ผมพยายามจะหาค่าเฉลี่ยของค่าที่มีจำนวนไม่แน่นอน จากในคอมลัมน์ที่มีจำนวนคอลัมน์ไม่แน่นอนเช่นกัน โดยเมื่อกดปุ่มโปรแกรมจะคำนวณว่าใน แถวที่ 2 นั้นมีเลขของงานย่อยหรือไม่ เริ่มที่แถบ F ไปทางขวาเรื่อยๆ จนกว่าจะว่าง เงื่อนไขคือ ถ้ามีเลขอยู่ในช่องในแถวที่ 2 จะต้องนำค่าที่อยู่ในคอมลัมน์นั้น เช่นคอมลัมน์ F ต ...

ทำได้แล้วครับ ขอบคุณอาจารย์มากนะครับ

ผมต้องที่จะสร้างปุ่มที่จะใช้เรียกเปิดไฟล์ที่ต้องการ โดย ไม่ต้องเลือก สามารถเปิดขึ้นมาได้เลยโดยอัตโนมัติ ผมอยากสอบถามว่าพอจะมีคำสั่งใด้บ้างครับที่สามารถทำงานนี้ได้ นอกจากคำสั่ง getopenfilename ขอความกรุณาด้วยครับ ขอบคุณครับ

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

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

โปรแกรมจะเป็นการเก็บค่าเลขมาทีละค่า มาเก็บไว้ในอาเรย์ จากนั้นจะนำค่า ในอาเรย์แต่ละตัวมาทำการหาค่า ztest แต่เมื่อกรอกค่าช่วงความเชื่อมันเป็นเปอร์เซน แล้วทำการคำนวณค่าออกมาและจะให้แสดงออกมาทาง label กลับขึ้นว่า run time error 13 type mismath
โดยในโปรแกรมจะใส่จำนวนของตัวเลขลงใน textbox ชื่อ txtnum ...

ตอนนี้สามารถรันโปรแกรมได้แล้วครับ ขอบคุณอาจารย์มากครับ

ขอบคุณครับ โค๊ดบรรทัดที่เกิดปัญหา ผมทำขึ้นเพื่อเป็นเงื่อนไข โดยเงื่อนไขคือให้ Textbox ทั้งหมดที่สุ่มเลขได้ใน S3test มีผลรมเท่ากับ ช่องล่างสุดใน S1test ครับ แต่ผมไม่ทราบว่าทำไมลูปถึงไม่หยุดตามเงื่อนไขนี้ ขอคามกรุณาช่วยตรวจสอบได้ไหมครับ

ไฟล์งานจะอยู่ใน form ที่ชื่อ S1test S2test และ S3test ครับผม ขอบคุณครับ

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

คือผมต้องการนำค่าในตัวแปร suminfo จาก sub cmbsave มาใช้ใน function ถัดมา โดยจะเริ่มทำงานด้วยการกดปุ่ม คำนวณ
นำค่า suminfo จากsub นี้
Option Explicit
Dim info(300) As Variant
Dim l As Long
Private Sub cmbsave_Click()
Dim suminfo As Double
Dim suminfosec As Double
Dim i As Integer
If l >= CLng ...