Excel Forum

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

กด OK แล้วข้อมูลไม่บันทึกเข้าครับ อยากให้วันที่มันบันทึกเข้าอยู่ที่ช่อง B2 ครับ

ช่วยดูให้ทีครับว่าผิดตรงไหน

ใน Excel กด alt+F11 แล้วจะไป visual studio ใช่มั้ยครับ แล้วผมสร้างฟอร์มขึ้นมาต้องการที่จะ add toolbox ปฏิทิน เข้าไป แต่ปรากฎว่า ตรงtoolbox กดคลิกขวาแล้ว additional control มันกลับไม่มีอะไรขึ้นมาให้เพิ่มเลยครับ อยากรู้วิธีแก้ไข ให้มันเพิ่มเครื่องมือได้ครับ

ซึ่งผมมีตัว MSCAL.OCX แล้วครับ ใส่ใน ...

แก้ไปแก้มากลายเป็น error แบบนี้เลยครับ ทำให้เปิดไฟล์ไม่ได้เลยครับ

Error in Loading DLL

error แบบนี้เป็นเพราะอะไรครับ แล้วต้องแก้ไขที่ไหนครับ
เปิดไฟล์มาก็เด้งขึ้นมาแบบนี้เลย
มีรูปแนบมาให้ดูครับ
could not load an object because it is not available on this machine

ครับ เดี๋ยวผมขอลองทำดูก่อนครับ

อาจารย์ครับผมงงมากเลย ผมสั่งอาหารวันที่จะเป็น 5/8/2554 แต่พอไปดูในรายงานประจำเดือนทำไมมันกลายเป็น 8/5/2554 อ่ะครับ

แล้วก็โค้ดข้างล่าง ตามที่อาจารย์ให้มา ผมแก้ยังไงมันก็ไม่สามารถเรียกดูข้อมูลได้ครับ หรืออาจจะเกี่ยวกับวันที่ข้างบนรึเปล่า
Private Sub btnShow_Click()
Dim rt As Range, rs As Range ...

ขอบคุณมากครับ ผมจะลองทำดูครับ

Private Sub btnShow_Click()
Dim s As String
s = Application.Text(Date, "dดดดดbb")
With Workbooks("รายงานประจำเดือน.xlsx").Worksheets(s)
.lblShow.caption = VLOOKUP(txtTable.caption, lblDate , ob1.caption)

End Sub

ประมาณนี้รึเปล่าครับ เรียกดูจาก รายงานประจำเดือน โดยเมื่อกรอกข้อมูลในช่อง txtTable ...

อาจารย์ครับ จากไฟล์ข้างบนผมอัพใหม่ให้แล้ว ในไฟล์Form ปุ่มเรียกดูข้อมูล
ผมต้องการ ดึงข้อมูลมาจากไฟล์ รายงานประจำเดือน.xlsx ชีทวันที่เครื่อง โดยที่ดูข้อมูลจาก เบอร์โต๊ะ วันที่ แล้วก็สถานะ รอชำระเงิน โดยอ้างอิงจาก3ข้อนี้ แล้วกดปุ่ม เรียกดู ข้อมูลทั้งหมด ก็จะโชว์ใน lblShow ครับ

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

ขอบพระคุณมากครับ

zronous wrote:ถามหน่อยครับ โค้ดข้างล่างนี่เป็นโค้ดเรียกดูวันที่จากLabel แต่ต้องคลิกก่อนถึงจะโชว์วันที่ แต่ผมต้องการให้เปิดFormมาแล้วมันโชว์วันที่เลย ต้องแก้ตรงไหนครับ

Private Sub lblDate_Click()
FormMenu.lblDate = Date
End Sub

อีกข้อนึงครับ อยากจะให้Form ของเราเป็นแบบ Full scr เต็มจอ ต้องปรับที่ไหนครับ

ขอบคุณครับ

อาจารย์ครับ ผมขอความคิดเห็นหน่อยครับ ว่าเมื่อเราบันทึกข้อมูลทั้งหมดลงในชีทตามวันที่นั้นๆ หากเราต้องการออกReportหรือบิลให้ลูกค้า เราควรจะอ้างอิงจากไหนหรอครับ

ขอบคุณมากครับ สำหรับแนวคิด และตัวอย่าง

ขอบคุณครับ ผมจะลองทำดูครับ

์อาจารย์ครับ ในไฟล์Form สั่งรายการอาหาร ตรงปุ่มOKครับ ผมทำให้มันบันทึกเบอร์โต๊ะ วันที่ เวลา ชื่อ ได้แล้วเหลือแต่ ในMultipage อ่ะครับอยากให้มันบันทึกรายการอาหารและจำนวน ราคา เฉพาะรายการที่มีการสั่งเท่านั้น เก้บไว้ในไฟล์ฐานข้อมูลครับ

โค้ดข้างล่างนี้สามารถบันทึก วันที่ เวลา ชื่อ เบอร์โต๊ะ แต ...

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

ผมได้ลองเปลี่ยนขื่อ label46 เป็น ปลาทับทิมนึ่งมะนาว มันยังคงerror บรรทัดที่ไฮไลท์ให้ดูอ่ะครับ ต้องแก้ตรงไหนบ้างหรอครับ

Private Sub txtF1_Change()
Dim r As Range
Set r = Workbooks("°Ò¹¢éÍÁÙÅ.xlsx").Worksheets( _
"ÍÒËÒÃ").Range("B2:C8")
With FormMenu.MultiPage1.Pages("Page1")
If .txtF1 = "" Then ...