ขอถามเกี่ยวกับ VBA ครับ

[khrunu]

พอดีเขียนโปรแกรมการตรวจร้านค้าอ่ะครับ ขออธิบายคร่าวๆละกันนะครับ รายละเอียดดังนี้
- รายละเอียดที่ต้องตรวจมีทั้งหมด 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 แต่ก็ไม่ได้ผลครับ

คำถาม คือ ทำอย่างไรข้อมูลของสาขาถัดไป จะแอดลงไปในคอลัมภ์ถัดไปได้ครับ รบกวนช่วยแนะนำด้วยนะครับ

ขอบคุณครับ

[snasui]

สวัสดีครับ

ลองแนบไฟล์ตัวอย่างมาดูหน่อยครับ จะได้ทราบว่าข้อมูลมีลักษณะอย่างไร จะได้ทดสอบ Code ดูครับ

[khrunu]

ผมส่งไฟล์ให้ทางเมล์แล้วนะครับ รบกวนช่วยให้คำแนะนำด้วยนะครับ ขอบคุณครับ

[khrunu]

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

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

สวัสดีครับ

ลองแนบไฟล์ตัวอย่างมาดูหน่อยครับ จะได้ทราบว่าข้อมูลมีลักษณะอย่างไร จะได้ทดสอบ Code ดูครับ

[snasui]

ผมลองดาวน์โหลดไฟล์แล้ว ไม่พบข้อมูลครับ เหมือนว่าไฟล์จะไม่สมบูรณ์ ลองแนบไฟล์มาอีกรอบนะครับ

[khrunu]

ผมลองส่งมาให้อีกครั้งครับ

ขอบคุณครับ

ผมลองดาวน์โหลดไฟล์แล้ว ไม่พบข้อมูลครับ เหมือนว่าไฟล์จะไม่สมบูรณ์ ลองแนบไฟล์มาอีกรอบนะครับ

แบบฟอร์มตรวจตลาด_test1.xls

(120.5 KiB) Downloaded 24 times

[khrunu]

รอบนี้ผมทดลองแล้วได้แน่นอนครับ รบกวนด้วยนะครับ

[snasui]

ได้รับไฟล์แล้วครับ

หากจะทำ Database เป็น Sheet เดียวต่อลงไปข้างล่างเรื่อย ๆ ระบุสาขา วันที่ กำกับข้อมูลไว้ด้วยเพื่อให้ทราบว่าเป็นของสาขาใด แทนการแยกออกเป็น 4 Sheet แล้ววางแต่ละสาขาไปด้านขวาเรื่อย ๆ ไม่ทราบว่าจะติดปัญหาอะไรหรือไม่ครับ เพราะคิดว่าการทำเป็น Database น่าจะให้ความสะดวกในการดูข้อมูลมากกว่า สามารถสรุปข้อมูลด้วย PivotTable หรือสูตรเพื่อดูข้อมูลตามที่ต้องการได้ง่ายกว่ากันมาก

[snasui]

ผมแนบอีกแนวคิดมาเพื่อเป็นทางเลือกครับ

จากข้อมูลที่กรอกนำไปเรียงกันใน Sheet TempData ก่อนโดยการ Link แบบง่าย ๆ จากนั้นค่อยนำ TempData ไปวางใน Sheet Database หากมีการเปลี่ยนแปลงเพิ่มหรือลดข้อมูลที่กรอก จะได้ง่ายต่อการแก้ไข และการสรุปข้อมูลในลักษณะนี้จะง่ายต่อการนำไปใช้งานต่อด้วยสูตรหรือ PivotTable เพื่อสรุปข้อมูลตามต้องการ

[khrunu]

ขอบพระคุณมากเลยครับ แต่ผมมีคำถามเพิ่มเติมเล็กน้อย ดังนี้ครับ

1.หากต้องการตรวจสอบข้อมูลก่อน เช่น รหัสสาขา ต้องไม่ซ้ำกัน หรือ ในคอลัมภ์ on shelf จะให้ใส่ตัวเลขแค่ 2 ตัว คือ 0,1 (หากใส่ตัวเลขอื่นๆ หรือใส่เป็นตัวอักษร จะมีการแจ้งเตือน) ผมจะต้องเขียนสูตรอย่างไร และไปที่ตรงไหนครับ

2.ผมดูจากสูตรที่เขียนมาให้ค่อนข้าง advance มากเลยครับ มีคำแนะนำให้มือใหม่ๆแบบผมได้ค้นคว้าไหมครับ

ขอบคุณครับ

ผมแนบอีกแนวคิดมาเพื่อเป็นทางเลือกครับ

จากข้อมูลที่กรอกนำไปเรียงกันใน Sheet TempData ก่อนโดยการ Link แบบง่าย ๆ จากนั้นค่อยนำ TempData ไปวางใน Sheet Database หากมีการเปลี่ยนแปลงเพิ่มหรือลดข้อมูลที่กรอก จะได้ง่ายต่อการแก้ไข และการสรุปข้อมูลในลักษณะนี้จะง่ายต่อการนำไปใช้งานต่อด้วยสูตรหรือ PivotTable เพื่อสรุปข้อมูลตามต้องการ

[snasui]

ขอบพระคุณมากเลยครับ แต่ผมมีคำถามเพิ่มเติมเล็กน้อย ดังนี้ครับ

1.หากต้องการตรวจสอบข้อมูลก่อน เช่น รหัสสาขา ต้องไม่ซ้ำกัน หรือ ในคอลัมภ์ on shelf จะให้ใส่ตัวเลขแค่ 2 ตัว คือ 0,1 (หากใส่ตัวเลขอื่นๆ หรือใส่เป็นตัวอักษร จะมีการแจ้งเตือน) ผมจะต้องเขียนสูตรอย่างไร และไปที่ตรงไหนครับ

2.ผมดูจากสูตรที่เขียนมาให้ค่อนข้าง advance มากเลยครับ มีคำแนะนำให้มือใหม่ๆแบบผมได้ค้นคว้าไหมครับ

ขอบคุณครับ

1. การป้องกันการซ้ำของข้อมูลสามารถใ้ช้สูตรมาช่วยได้ครับ แล้วนำผลลัพธ์ของสูตรไปเขียน Code เพื่อป้องกันการบันทึกซ้ำ ซึ่งผมจะยกตัวอย่างว่าใช้ 2 เงื่อนไข คือ รหัสสาขาและวันที่ จะต้องไม่ซ้ำ ดูตามไฟล์แนบครับ
2. การป้องกันการกรอกข้อมูลอื่นใดนอกเหนือจากที่กำหนดสามารถใช้ Validation ได้ตามภาพที่แนบมาครับ
3. คำแนะนำสำหรับการฝึกเขียน Code VBA ให้ลองหาตำราสักเล่มครับ ผมเองศึกษาจากตำราต่างประเทศ เวบต่างประเทศ ลองหาจาก Google ก็จะพบจำนวนมากครับ เช่น http://www.google.co.th/search?q=vba+fo ... =firefox-a

หรือหากเป็นตำราก็ลองอ่านของ John Walkenbach ดูครับ

[khrunu]

ขอบคุณมากครับ ผมจะนำไปต่อยอดเพื่อให้สมบูรณ์มากยิ่งขึ้นครับ

ขอบพระคุณมากเลยครับ แต่ผมมีคำถามเพิ่มเติมเล็กน้อย ดังนี้ครับ

1.หากต้องการตรวจสอบข้อมูลก่อน เช่น รหัสสาขา ต้องไม่ซ้ำกัน หรือ ในคอลัมภ์ on shelf จะให้ใส่ตัวเลขแค่ 2 ตัว คือ 0,1 (หากใส่ตัวเลขอื่นๆ หรือใส่เป็นตัวอักษร จะมีการแจ้งเตือน) ผมจะต้องเขียนสูตรอย่างไร และไปที่ตรงไหนครับ

2.ผมดูจากสูตรที่เขียนมาให้ค่อนข้าง advance มากเลยครับ มีคำแนะนำให้มือใหม่ๆแบบผมได้ค้นคว้าไหมครับ

ขอบคุณครับ

1. การป้องกันการซ้ำของข้อมูลสามารถใ้ช้สูตรมาช่วยได้ครับ แล้วนำผลลัพธ์ของสูตรไปเขียน Code เพื่อป้องกันการบันทึกซ้ำ ซึ่งผมจะยกตัวอย่างว่าใช้ 2 เงื่อนไข คือ รหัสสาขาและวันที่ จะต้องไม่ซ้ำ ดูตามไฟล์แนบครับ
2. การป้องกันการกรอกข้อมูลอื่นใดนอกเหนือจากที่กำหนดสามารถใช้ Validation ได้ตามภาพที่แนบมาครับ
3. คำแนะนำสำหรับการฝึกเขียน Code VBA ให้ลองหาตำราสักเล่มครับ ผมเองศึกษาจากตำราต่างประเทศ เวบต่างประเทศ ลองหาจาก Google ก็จะพบจำนวนมากครับ เช่น http://www.google.co.th/search?q=vba+fo ... =firefox-a

หรือหากเป็นตำราก็ลองอ่านของ John Walkenbach ดูครับ