#1
by khrunu » Mon Apr 12, 2010 10:49 pm
พอดีเขียนโปรแกรมการตรวจร้านค้าอ่ะครับ ขออธิบายคร่าวๆละกันนะครับ รายละเอียดดังนี้
- รายละเอียดที่ต้องตรวจมีทั้งหมด 4 ส่วนได้แก่ สินค้าขาดหรือไม่,มีวางอยู่กี่ชิ้น,วางอยู่ชั้นไหน และมีสื่อโฆษณาหรือไม่
- ต่อวันตรวจประมาณ 20 ร้าน
- สินค้ามี 4 หมวด หมวดละเกือบ 10 รายการ
ผมลองเขียนโปรแกรมแล้วครับ รายละเอียดดังนี้
- worksheet แรก เป็นฟอร์มไว้ key ข้อมูล มีปุ่ม enter ไว้สำหรับเวลาที่คีย์ข้อมูลเรียบร้อยแล้ว
- หลังจากกด enter ข้อมูลจะถูก copy ไปยัง worksheet อื่นๆ แล้วเคลียร์ค่าใน form แรก
- การอ้างอิงข้อมูลใช้สูตรประมาณนี้ครับ
Worksheets("Form").Range("m10:m24, m26:m30, m32:m37, m39:m44").Copy
Worksheets("Location").Select
Worksheets("Location").Range("c38:c69").PasteSpecial (xlPasteAll)
- เวลาที่จะคีย์สาขาที่ 2 พอกด enter ข้อมูล worksheet อื่น แทนที่จะเพิ่มในคอลัมภ์ถัดไป แต่ดันทับคอลัมภ์แรกแทน
ผมทดลองคีย์
intcolumns = columns + 1 แต่ก็ไม่ได้ผลครับ
คำถาม คือ ทำอย่างไรข้อมูลของสาขาถัดไป จะแอดลงไปในคอลัมภ์ถัดไปได้ครับ รบกวนช่วยแนะนำด้วยนะครับ
ขอบคุณครับ
พอดีเขียนโปรแกรมการตรวจร้านค้าอ่ะครับ ขออธิบายคร่าวๆละกันนะครับ รายละเอียดดังนี้
- รายละเอียดที่ต้องตรวจมีทั้งหมด 4 ส่วนได้แก่ สินค้าขาดหรือไม่,มีวางอยู่กี่ชิ้น,วางอยู่ชั้นไหน และมีสื่อโฆษณาหรือไม่
- ต่อวันตรวจประมาณ 20 ร้าน
- สินค้ามี 4 หมวด หมวดละเกือบ 10 รายการ
ผมลองเขียนโปรแกรมแล้วครับ รายละเอียดดังนี้
- worksheet แรก เป็นฟอร์มไว้ key ข้อมูล มีปุ่ม enter ไว้สำหรับเวลาที่คีย์ข้อมูลเรียบร้อยแล้ว
- หลังจากกด enter ข้อมูลจะถูก copy ไปยัง worksheet อื่นๆ แล้วเคลียร์ค่าใน form แรก
- การอ้างอิงข้อมูลใช้สูตรประมาณนี้ครับ
Worksheets("Form").Range("m10:m24, m26:m30, m32:m37, m39:m44").Copy
Worksheets("Location").Select
Worksheets("Location").Range("c38:c69").PasteSpecial (xlPasteAll)
- เวลาที่จะคีย์สาขาที่ 2 พอกด enter ข้อมูล worksheet อื่น แทนที่จะเพิ่มในคอลัมภ์ถัดไป แต่ดันทับคอลัมภ์แรกแทน
ผมทดลองคีย์
intcolumns = columns + 1 แต่ก็ไม่ได้ผลครับ
คำถาม คือ ทำอย่างไรข้อมูลของสาขาถัดไป จะแอดลงไปในคอลัมภ์ถัดไปได้ครับ รบกวนช่วยแนะนำด้วยนะครับ
ขอบคุณครับ