Excel Forum

เข้าใจแล้วครับ ขอบคุณมากครับผม

ถามข้อสุดท้ายครับ เครื่องพี่เป็น License ของแท้หรือเปล่าครับ

เปิดใช้ปกติเลยครับ พอกดปุ่ม "ยืม" มันก็ขึ้น Error แบบโพสแรกครับ

Error ของเครื่องเพื่อนผมนั้นเหมือนกับของผมครับ (ในโพสแรก) แต่ที่ผมบอก listbox เป็นการคาดเดาของผมครับ จึงสงสัยว่าทำไมถึงเกิดปัญหาเหมือนกันในทั้งสองเครื่อง โดยเครื่องเพื่อนผมนั้นเป็นเครื่องของที่ทำงานซึ่งผมก็ทำไฟล์งานนี้ในเครื่องที่ทำงานเหมือนกัน จึงสงสัยว่าอาจจะไม่ได้เกิดจากเครื่องครับ เลยคาดว่าเป ...

ขอคำแนะนำเพิ่มครับ ตอนนี้ผมลองส่งไปให้เพื่อนทดลอง ปรากฏว่ามัน error ที่ Userform 2 กับ 33 ครับ ผมคาดว่าน่าจะเป็นที่ Listbox ใน Userform2 หรือ Calendar Control ใน Userform 33 ครับ ไม่ทราบพอจะมีวิธีแก้ไขหรือไม่ครับ ขอบคุณครับ

ผมมี 2 เครื่อง Run ไม่ผ่านทั้งสองเครื่องเลยครับ

พี่ครับ ผมลองเอามาใช้งานใน Office 2010 ครับ ตอนนี้มันเปลี่ยนเป็น Error ที่ code แทนแล้วครับ อยู่ในส่วนของ Userform2 Initialize ครับ

Error Massage : Can't find project or libraly

Password : 1150

ขอสอบถามเพิ่มเติมหน่อยครับ แล้วอย่างนี้ไฟล์ที่ผม Copy มาสามารถนำมาทำบน Version 2010 ได้หรือไม่ครับ ( พอดีตอนแรกลง 2010 ไว้อยู่แล้วมันใช้ไม่ได้ เลยเปลี่ยนเป็น 2007 นึกว่าจะหายครับ )

ขอบคุณครับ

ตอนนี้ผมพบปัญหาหลังจากย้ายไฟล์มาทำต่ออีกเครื่องหนึ่งครับ มันขึ้น Error ว่า "compile error in hidden module : Userform2 " ไม่ทราบว่ามีใครเคยเจอปัญหานี้มาบ้างหรือไม่ครับ ผมลองหาใน Google มาแล้วจะพบแต่วิธีแก้ที่มันขึ้นมาตอนเปิดไฟล์ครับ แต่ของผมมันเป็นในขณะที่เข้าไปใช้งานใน Sheet แล้วครับ ได้ทดลองเปล ...

ขอโทษครับ แก้ตัวครับ

ไฟล์ตัดเฉพาะส่วนครับ ช่วยดูให้หน่อยครับพี่

สอบถามเพิ่มเติมครับ ตอนนี้ผมต้องการที่จะนำค่าที่เลือกใน Combobox มาใช้ในการเปรียบเทียบกับข้อมูลในเซลล์ครับ ว่าถ้าเหมือนกันให้ Copy ไปยังอีกชีทแล้วลบข้อมูลแถวนั้น

แต่ผมลองเขียนมาแล้วไม่ทราบว่าผิดที่อะไรครับ ช่วยดูให้หน่อยครับ

With Worksheets("RENT")
Set rAll = .Range("A2", .Range("A" & Rows.count ...

ได้แล้วครับ ขอบคุณมากๆครับ

สอบถามเพิ่มเติมครับ ตอนนี้ผมต้องการที่จะเอาข้อมูลที่อยู่ในในชีทชื่อ NRENT ไปไว้ใน SHEET2 ครับ โดยการ Cut ข้อมูลตามที่เลือกไว้ใน Listbox2 ครับ

แต่ตอนนี้มัน Error อีกแล้วครับ :D ตัวอย่าง Code ด้าล่างครับ

With Worksheets("NRENT")
Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End ...

ขอบคุณมากครับ ขอลองดูก่อนนะครับ

อธิบายเพิ่มครับ

คือให้ Check จากคอลัมภ์ที่มีการเก็บค่าวันที่ไว้ครับ พอถึงวันที่กำหนด ถ้ามีการเปิดไฟล์ Excel นี้ขึ้นมา ก็ให้มีประมาณ MassageBox ขึ้นมาแจ้งเตือน ประมาณนี้ครับ

คือเป็นการแจ้งกำหนดการคืนของครับ คือมีการรับข้อมูลก่อน แล้วมีการกำหนดวันที่คืนไว้ เมื่อถึงวันที่คืนก็ให้แจ้งเตือนขึ้นมาครับ

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

สอบถามหน่อยครับ

ตอนนี้ผมอยากให้มันเช็คข้อมูลที่เลือกไว้ใน Listbox2 ให้ไปลบข้อมูลในชีทชื่อ NRENT ( ข้อมูลที่ตรงกันกับใน Listbox2 ครับ )

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

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