รันID อัตโนมัติ

[nattanan]

ผม กฤษณ์ ครับ มีข้อคำถามครับ
คือว่า ผมสร้างForm ลูกค้าขึ้นมา ประกอบด้วย ID, Name, Address, Phone โดยข้อมูลทั้งหมดผมให้ไปเก็บไว้ที่ชีท CusData ครับ
1. ผมอยากให้ช่อง รหัสลูกค้า (ID) มันรันอัติโนมัติต่อจากที่มีอยุ่แล้ว เช่น C001, C002 เป็นต้น

[bank9597]

ลองตามนี้ครับ

[nattanan]

ขอบพระคุณมากครับ สำหรับวีดีโอแนะนำวิธีการ ครับ เป็นทั้งภาพ และก็เสียง พร้อมด้วยความเข้าใจ

[nattanan]

ผมมาอีกแล้วครับ
คราวนี้ผมมีคำถามอยู่ว่า หน้าต่าง Form (ข้อมูลลูกค้า) ผมได้สร้างปุ่ม พิมพ์ มาหนึ่งปุ่ม
1. ถ้าผมคลิกปุ่ม "พิมพ์" แล้ว อยากให้โชว์ข้อมูลที่จะพิมพ์ (อยู่ในชีท CusData ตั้งแต่ B2 ถึง E2) แต่ถ้าหากว่าข้อมูลมีมากกว่า นี้ ผมอยากให้โชว์ภาพก่อนพิพม์ เท่าจำนวนข้อมูลที่มีตามความเป็นจริง (แต่สูตรที่ผมเขียนมานี้ ผมกำหนดให้ B2 ถึง E5) มีวิธีไหนครับ ช่วยไขความกระจ่างให้ผมที
ขอบพระคุณครับ

[bank9597]

ลองดูตามนี้ครับ

[nattanan]

ลองดูตามนี้ครับ

ขอบคุณมากครับ กำลังศึกษาตามอย่างช้าๆครับ อิอิอิ กำลังสนุกเลยครับ
ปล. ตามตัวอย่างที่ท่านให้มานะครับ พอเราพิมพ์ข้อมูลเพิ่มเข้าไปแล้ว และลองสั่ง "พิมพ์" ดู ปรากฏว่า มันเพิ่มแค่ รหัสลูกค้าเข้ามาครับ งงเลยครับ

[bank9597]

ขออภัยครับ ผมลืม Test ดู

ปรับโค๊ดตามนี้ครับ

Code: Select all

Private Sub CmbPrint_Click()
    Unload Me
    Dim r As Range
    With Worksheets("CusData")
    Set r = .Range("B2", .Range("E" & Rows.Count))
    End With
    r.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Worksheets("CusData").Range("G2"), CopyToRange:=Worksheets("Print").Range( _
    "A1:D1"), Unique:=False
    Worksheets("Print").PrintPreview
End Sub