ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

[snasui]

Code ที่เขียนมาไม่มี End Sub ช่วยเขียนให้ครบแล้วแนบมาใหม่หากยังติดปัญหา

กรณีต้องการจะเที่ยบค่ากับชีทอื่นให้อ้างชื่อชีทเข้าไปใน Code ด้วยครับ เช่น

Code: Select all

'Other code
ElseIf Sheets("Database").Range("A2") = 1 Then
        .Range("N204") = .Range("N204") + 1
'Other code

[suka]

ได้ตรงตามต้องการแล้วค่ะ ขอบคุณอาจารย์มากๆเลยค่ะ

ขอรบกวนถามเพิ่มนะคะ
ที่ชีท Sheet5 สูตรการนำข้อมูลจากหลาย Sheet มาต่อกันใน Sheet เดียว
หากเราต้องการนำข้อมูลจากไฟล์อื่นๆมาต่อด้วยจะได้ไหมค่ะ

[snasui]

สามารถนำข้อมูลจากไฟล์อื่นมาต่อกันได้แต่จะต้องเปิดไฟล์ต้นทางไว้ด้วยทุกครั้งครับ

[suka]

การนำข้อมูลจากไฟล์อื่นมาต่อกันโดยใช้สูตร Excel ตามลิงค์นี้ http://snasui.blogspot.com/2009/12/sheet-sheet.html มาปรับใช้

กับการใช้ VBA บันทึกข้ามชีท มีผลต่างกันไหมคะ

อยากขอความรู้เรื่องข้อควรระวังทั้งการใช้ สูตร Excel และ การใช้ VBA ค่ะ

[snasui]

ถ้าเขียน VBA ได้ก็ไม่จำเป็นที่จะต้องเขียนสูตรลักษณะนั้นครับ เพราะ VBA สามารถเขียนอย่างไรก็ได้

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

[suka]

ขอบคุณค่ะอาจารย์ จะพยายามศึกษาการใช้ VBA ให้เข้าใจมากขึ้นค่ะ