ขอคำปรึกษา เเละคำเเนะนำครับ

[liveday]

ขอบคุณอาจารย์มากครับ จะลองศึกษาดูอีกทีนะครับ

[liveday]

รบกวนอาจารย์ อีกครับ
ผมใด้ลองศึกษาเเละ Coppy ดัดเเปลง Code บางส่วนซึ่งลองเทสดูเเล้วบางฟอร์มก็ผ่าน บางฟอร์มก็ไม่ผ่าน
อาจจะเกิดหลายๆอย่างที่ไม่ตรงกันในตัวโค้ด VBA เเต่ก็พยายามทำใด้ในบางส่วนใด้บ้างเเล้ว
เช่น ฟอร์มนี้ผมลองไล่ Code ดู มันก็ไปบันทึกใน database เเค่ 2 บรรทัดเอง
สิ่งที่จะทำในฟอร์มนี้ คือการบันทึก Database เพื่อรวบรวมรายชื่อสินค้าทั้งหมดเป็นรายวันเเละรวบรวมส่งรายงานเป็นรายเดือน
จะถามอาจารย์ ดังนี้ครับ
1.Code VBA ผมจะบันทึก 10 บรรทัดเเต่ Codeบันทึกใด้เเค่ 2 บรรทัดครับ ต้องเเก้ส่วนไหนเพิ่มเติมครับ
2.จากรายการสินค้าที่ Database จะเเยกสินค้าออกมาเป็น 2 ที่ใด้หรือเปล่าครับ
3.ผมใด้ทำ COUNTIF ใว้เป็นการรวบรวมเพื่อจะส่งรายงานครับ เเต่ยัง Error อยู่
รบกวนอาจารย์ด้วยครับ

[snasui]

1.Code VBA ผมจะบันทึก 10 บรรทัดเเต่ Codeบันทึกใด้เเค่ 2 บรรทัดครับ ต้องเเก้ส่วนไหนเพิ่มเติมครับ

ที่ชีท Template เซลล์ K1 เขียนสูตร

=COUNTIF(J:J,"*?")

Enter

จากนั้นเปลี่ยน Code ใหม่เป็นตามด้านล่างครับ

Code: Select all

Sub PasteData()
Dim rs As Range
Dim rt As Range
With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With
    Set rt = Worksheets("Database").Range("B65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

2.จากรายการสินค้าที่ Database จะเเยกสินค้าออกมาเป็น 2 ที่ใด้หรือเปล่าครับ
3.ผมใด้ทำ COUNTIF ใว้เป็นการรวบรวมเพื่อจะส่งรายงานครับ เเต่ยัง Error อยู่

ไม่เข้าใจครับ ช่วยอธิบายเพิ่มเติมด้วยครับ แยกเป็นสองที่แยกอย่างไร ไปไว้ที่ไหน ส่วน Countif ที่ว่านั้นอยู่ที่ชีทไหน เซลล์ไหน

[liveday]

เรียนอาจารย์
1.สินค้าผมเเบ่งเป็น 2 ประเภท เป็นสินค้าทาง GP เเละ GS
ผมเลยต้องการเเยกสินค้าใน Database ออกมาโดยเเบ่งออกไปตาม สินค้าของ GP เเละ GS เพื่อต้องการคำนวนว่าในเเต่ละเดือน เเต่ละที่ว่าขายสินค้าเเต่ละอย่างไปเท่าไหร่
ส่วน Countif คีย์ใว้ที่ B3
2.(ที่ชีท Template เซลล์ K1 เขียนสูตร =COUNTIF(J:J,"*?")) เกี่ยวโยงอะไรกับสูตร VBA หรือเปล่าครับ บางทีผมจะเอาโค้ดของอาจารย์ ไปทำเเบบฟอร์มตัวอื่นดูครับ
ขอคำเเนะนำด้วยนะครับ
ขอบคุณครับ

[snasui]

1.สินค้าผมเเบ่งเป็น 2 ประเภท เป็นสินค้าทาง GP เเละ GS
ผมเลยต้องการเเยกสินค้าใน Database ออกมาโดยเเบ่งออกไปตาม สินค้าของ GP เเละ GS เพื่อต้องการคำนวนว่าในเเต่ละเดือน เเต่ละที่ว่าขายสินค้าเเต่ละอย่างไปเท่าไหร่
ส่วน Countif คีย์ใว้ที่ B3

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

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

2.(ที่ชีท Template เซลล์ K1 เขียนสูตร =COUNTIF(J:J,"*?")) เกี่ยวโยงอะไรกับสูตร VBA หรือเปล่าครับ บางทีผมจะเอาโค้ดของอาจารย์ ไปทำเเบบฟอร์มตัวอื่นดูครับ ขอคำเเนะนำด้วยนะครับ

เกี่ยวกับ VBA ครับ ผมใช้นับว่าปัจจุบันมีค่าที่ต้องการนำไปวางใน Database กี่รายการ สูตรดังกล่าวเป็นการนับเฉพาะเซลล์ที่มีค่าอักขระใด ๆ ไม่รวมอักขระที่แสดงค่าว่าง ซึ่งจะนำไปใช้ใน Code ด้านล่างครับ

Code: Select all

With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With