Excel Forum

Sub SaveM1_Click() Dim x As Range Dim answer As VbMsgBoxResult answer = MsgBox("¤Ø³µéͧ¡Òúѹ·Ö¡¢éÍÁÙÅãªèËÃ×ÍäÁè", vbYesNo, "ºÑ¹·Ö¡¢éÍÁÙÅ") If answer = vbYes Then On Error Resume Next Set x = Range("f9:ab18", "c7").SpecialCells(xlCellTypeBlanks) On Error GoTo...

Sub SaveM1_Click() Dim x As Range Dim answer As VbMsgBoxResult answer = MsgBox("¤Ø³µéͧ¡Òúѹ·Ö¡¢éÍÁÙÅãªèËÃ×ÍäÁè", vbYesNo, "ºÑ¹·Ö¡¢éÍÁÙÅ") If answer = vbYes Then On Error Resume Next Set x = Range("f9:ab18", "c7").SpecialCells(xlCellTypeBlanks) On Error GoTo...

ลองเขียนมาเรียบร้อยแล้วค่ะอาจารย์ รบกวนอาจารย์ช่วยตรวจสอบความถูกต้องหรือว่าสามารถเขียนให้โค้ดมีความสั้นลง กระชับมากขึ้นได้ไหมคะ

ใส่ Code เข้าไปแล้วค่ะ ใน Module17

ถ้าต้องการให้ข้อมูลจาก Sheet M1 ช่อง K9:K18 copy ไปไว้ในช่อง O8 ของ Sheet ReportM1 เว้นทีละช่อง Sheet M1 ช่อง J9:J18 copy ไปไว้ในช่อง O9 ของ Sheet ReportM1 เว้นทีละช่อง Sheet M1 ช่อง M9:M18 copy ไปไว้ในช่อง P8 ของ Sheet ReportM1 เว้นทีละช่อง Sheet M1 ช่อง L9:L18 copy ไปไว้ในช่อง P9 ของ Sheet ReportM...

ใส่ข้อมูลลงใน Sheet M1 เรียบร้อยแล้วค่ะ

Module1 ค่ะ ชื่อ Macro คือ SaveM1_Click() โดยคำสั่งที่เขียนจะเป็นการเช็คช่องที่กรอกข้อมูลใน Sheet M1 ให้ครบถ้วน หากไม่ครบจะไม่ดำเนินการต่อค่ะ ให้แจ้ง ฟ้องกล่องข้อความออกมาค่ะ โดยข้อมูลหากกรอกครบถ้วนแล้วจะให้ไปบันทึกที่ Sheet Add&out+PCR+Mortalityinmating , Feed+VCP+Formalin+Salt ,Gravid+Spawning...

https://drive.google.com/file/d/1NbksmB ... sp=sharing

ขอนุญาติแนบเป็นลิงค์นะคะ พอดีไฟล์ใหญ่เกินแนบไฟล์ค่ะ ลอง Zip แล้วก็ยังแนบไฟล์ไม่ได้ค่ะ รบกวนอาจารย์ช่วยตรวจสอบ Code ทีนะคะ

คิดว่าข้อสันนิษฐานน่าจะเกิดจากสาเหตุอะไรคะ เพราะเป็นแค่บางครั้งค่ะ ประมาณ 20% ค่ะ ที่เหลือจะปกติทำงานตาม Code ที่เขียนเลยค่ะ

สวัสดีค่ะ มีปัญหาอยากปรึกษาเกี่ยวกับการใช้ Macro ใน Excel ค่ะ เป็นการเขียนสูตรเกี่ยวกับการส่งข้อมูลข้าม Sheet ก่อนหน้านี้มีการเขียนสูตรอีกแบบหนึ่งแล้วเกิดปัญหาว่า Copy มาไม่ครบบ้าง หายไปบางช่องบ้าง เลยปรับโค้ดให้สั้นลงแล้วแต่ยังไม่หายเลยค่ะ เลยอยากสอบถามว่าสเปคคอมมีผลต่อการใช้งาน Macro ไหมคะ

Sub SavehatchND3_Click() Dim answer As VbMsgBoxResult answer = MsgBox("¤Ø³µéͧ¡Òúѹ·Ö¡¢éÍÁÙÅãªèËÃ×ÍäÁè", vbYesNo, "ºÑ¹·Ö¡¢éÍÁÙÅ") If answer = vbYes Then If Range("E9") = "" Or Range("F9") = "" Or Range("G9") = "" Or Ra...

สวัสดีค่ะ อยากปรึกษาค่ะพอดีเขียนโค้ดขึ้นมาแล้ว เป็นการเขียนให้ส่งข้อมูลข้าม Sheet ค่ะ แต่ข้อมูลบางครั้งก็ส่งไปบางครั้งก็ส่งไม่ไปค่ะ ทำให้ข้อมูลมาไม่ครบค่ะ Sheet ใน excel มีอยู่ทั้งหมด 32 sheet ค่ะ

สวัสดีค่ะ พอดีเขียนโค้ดให้มีคำสั่งเป็น pop up เด้งขึ้นมาค่ะเป็นภาษาไทย แต่ว่าพอไปเปิดที่เครื่องอื่นกลายเป็นภาษาต่างดาวค่ะ พอจะมีแนวทางแก้ไขไหมคะ

ได้แล้วค่ะ ขอบคุณสำหรับคำแนะนำนะคะ

อันนี้ไฟล์ที่ใช้จริงเลยค่ะ

ปุ่มสำหรับเปิด sheet ที่ hide ไว้ค่ะ เมื่อเปิดเข้าไป sheet นั้นจะเป็นฟอร์มกรอกนู่นนี่นั่นแล้วจะมีปุ่มบันทึกข้อมูลค่ะ พอกดปุ่มบันทึกข้อมูลเสร็จก็อยากให้ hide ไว้เหมือนเดิมค่ะ

คือต้องการเปิดชีทที่ hide ไว้เพื่อเข้าไปบันทึกข้อมูลค่ะ หลังจากนั้นบันทึกเสร็จก็อยากให้ hide ไว้เหมือนเดิมค่ะ
ปัจจุบันสูตรที่ใช้อยู่ จะเป็นอันนี้ค่ะ อันนี้เวลากดแล้วจะไปเปิด sheet ที่นั้นได้ค่ะ ถ้าไม่ได้ hide sheet ปลายไว้ค่ะ

ไม่ได้เหมือนกันค่ะ

ต้องการสร้างปุ่ม macro ที่ไว้ใช้เปิด sheet ที่ต้องการค่ะ แต่ว่าต้องการ hide sheet ที่จะเปิดเอาไว้ด้วยค่ะ ปัจจุบันใช้เป็นสูตร
ค่ะ รบกวนช่วยดูโค้ดให้หน่อยนะคะพอดี hide sheet ที่จะเปิดไว้แล้ว macro ไม่ทำงานค่ะ

ขอบคุณมากๆเลยนะคะอาจารย์ แก้ไขแล้วนำมาปรับใช้เรียบร้อยแล้วค่ะ