Page 1 of 1
รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 1:33 pm
by nattanan
ผม กฤษณ์ ครับ มีข้อคำถามครับ
คือว่า ผมสร้างForm ลูกค้าขึ้นมา ประกอบด้วย ID, Name, Address, Phone โดยข้อมูลทั้งหมดผมให้ไปเก็บไว้ที่ชีท CusData ครับ
1. ผมอยากให้ช่อง รหัสลูกค้า (ID) มันรันอัติโนมัติต่อจากที่มีอยุ่แล้ว เช่น C001, C002 เป็นต้น
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 2:43 pm
by bank9597
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 3:04 pm
by nattanan
ขอบพระคุณมากครับ สำหรับวีดีโอแนะนำวิธีการ ครับ เป็นทั้งภาพ และก็เสียง พร้อมด้วยความเข้าใจ
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 3:36 pm
by nattanan
ผมมาอีกแล้วครับ
คราวนี้ผมมีคำถามอยู่ว่า หน้าต่าง Form (ข้อมูลลูกค้า) ผมได้สร้างปุ่ม พิมพ์ มาหนึ่งปุ่ม
1. ถ้าผมคลิกปุ่ม "พิมพ์" แล้ว อยากให้โชว์ข้อมูลที่จะพิมพ์ (อยู่ในชีท CusData ตั้งแต่ B2 ถึง E2) แต่ถ้าหากว่าข้อมูลมีมากกว่า นี้ ผมอยากให้โชว์ภาพก่อนพิพม์ เท่าจำนวนข้อมูลที่มีตามความเป็นจริง (แต่สูตรที่ผมเขียนมานี้ ผมกำหนดให้ B2 ถึง E5) มีวิธีไหนครับ ช่วยไขความกระจ่างให้ผมที
ขอบพระคุณครับ
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 5:24 pm
by bank9597
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 8:02 pm
by nattanan
ขอบคุณมากครับ กำลังศึกษาตามอย่างช้าๆครับ อิอิอิ กำลังสนุกเลยครับ
ปล. ตามตัวอย่างที่ท่านให้มานะครับ พอเราพิมพ์ข้อมูลเพิ่มเข้าไปแล้ว และลองสั่ง "พิมพ์" ดู ปรากฏว่า มันเพิ่มแค่ รหัสลูกค้าเข้ามาครับ งงเลยครับ
Re: รันID อัตโนมัติ
Posted: Tue Nov 27, 2012 9:02 pm
by 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