Snasui Excel Forum

จากข้อมูลพบว่า มีรถ 1 คัน รับสินค้าให้ 2 ร้าน Distinct Count จึงนับค่าซ้ำพอจะเข้าใจแล้ว ขอบคุณมากครับ.

สอบถามเพิ่มเติม สร้าง Pivot table คอลัมน์ A,B แล้ว copy มาวางคอลัมน์ D,E แล้วทำไม Grand Total ของ 2 ตารางไม่เท่ากัน ครับ.

ทำได้แล้ว ขอบคุณครับ

Pivot table (Distinct count) นับจำนวนค่าซ้ำที่คอลัมน์ G (Total Register place) นับจำนวนค่าซ้ำจากคอลัมน์ C (Register place) เงื่อนไขข้อมูลที่ซ้ำกันแต่คนละวันให้นับแยกกัน จากไฟล์ตัวอย่าง(ที่ไฮไลท์ คือข้อมูลซ้ำแต่คนละวัน) Total register place ต้องนับได้ 5 ครับ.

ขอบคุณครับสำหรับคำแนะนำและช่วยแก้ไข code จนสามารถนำไปใช้งานได้
สุดท้ายกระทู้นี้ขอให้อาจารย์มีสุขภาพแข็งแรงและปลอดภัยจากโรคโควิด-19 นะครับ

ทำได้แล้วครับ แต่เมื่อบันทึกข้อมูลลงใน Sheet1 ซึ่งผมได้ทำ conditional formatting ก็ไม่แจ้งเตือนที่เลยกำหนดฝากอุปกรณ์ (End date) และเมื่อคลิกแก้ไขเปลี่ยนค่าที่ J17 เป็น ค.ศ จึงแจ้งเตือน เป็นแบบนี้จะแก้ไขยังไงดีครับ

ที่ Userform2 ค้นหาข้อมูลจาก Item No. เพื่อแก้ไขแล้วกดคำสั่ง Update ให้ข้อมูลที่แก้ไขแล้วบันทึกลงไปในแถวเดิม ช่วยแก้ไข Code ให้ใช้งานได้ด้วยครับ


Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")

If Application.CountIf(Range("c:c ...

ยังทำไม่ได้ครับ

:D ได้แค่นี้ครับอาจารย์

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")

If Application.CountIf(Range("c:c"), ComboBox6.Text) > 0 Then
irow = Application.Match(ComboBox6.Text, Range("c:c"), 0)
Else
irow = ws.Cells(Rows.Count, 1).End(xlUp ...

ขอถามเพิ่ม คือเมื่อค้นหาข้อมูลมาจะทำการแก้ไขที่ ComboBox5,TextBox4,TextBox5,TextBox6 แล้วกดคำสั่ง Update บนฟอร์ม จะแก้ไข Code ยังไงรบกวนช่วยด้วยครับ.

Private Sub CommandButton1_Click()
Dim y As Long
Dim x As Integer
x = MsgBox("Do you want to update?", vbOKCancel, "Progam")
If x = vbOK Then
y ...

:thup: ค้นหาข้อมูลได้แล้วครับ

Private Sub ComboBox6_Change()
Dim q As Integer, p As Integer
Dim ra As Range, r As Range
With Worksheets("Sheet1")
Set ra = .Range("c3", .Range("c" & .Rows.Count).End(xlUp))
If Application.CountIfs(ra, Me.ComboBox6.Value) = 0 Then Exit Sub
q = Application.Match ...

เรียน ทุกท่าน
ผมทำฟอร์มสำหรับบันทึก รับ-คืน วัสดุอุปกรณ์,ฟอร์มบันทึก(UserForm1)ทำได้แล้ว(ศึกษาในInternet)แต่ฟอร์มค้นหาเพื่อแก้ไข(UserForm2)ยังทำไม่ได้โดยค้นหาข้อมูลจาก Item no.ให้ข้อมูลขึ้นมาบนฟอร์มทั้งหมดจึงอยากให้ช่วยปรับCodeให้ถูกต้องด้วยครับ
ขอบคุณครับ.

Private Sub ComboBox6_Change()
Dim q ...

ทำได้แล้ว ขอบคุณมากครับ. และผมจะศึกษา VBA ให้มากกว่านี้ครับ

ทดลองแล้วไม่ได้ครับ

ขอถามเพิ่มเรื่องรูปแบบวันที่ในวันที่ในฟอร์มคีย์ dd/mm/yy แต่พอเพิ่มข้อมูลลงในตารางกลับเป็น mm/dd/yy
จะแก้ไขยังไงครับ (ผมลองค้นหาในกระทู้แล้วแต่ยังทำไม่ได้ครับ)

ใช้งานได้แล้วขอบคุณครับ.

ที่ Sheet "Issue" เมื่อคลิกที่ปุุ่ม เพิ่มข้อมูล ที่ Formula (Combo box) ให้ค้นหาข้อมูล Formula จาก Sheet "Product" มา เมื่่อเลือก Formula แล้วให้ดึง Register มาโชว์ใน Textbox2 ซึ่งผมได้เขียน VBA แต่ทำไม่ได้ ช่วยแก้ไขหรือแนะนำด้วยครับ.