สอบถามครับ การกำหนดค่าหลายตัวแปร

[Leng]

รบกวนอาจารย์ช่วยหน่อยครับ

[snasui]

คอลัมน์ F คืออะไร เงื่อนไขปัจจุบันคืออะไรช่วยอธิบายมาใหม่อย่างละเอียดให้เข้าใจปัญหาตรงกันก่อน ตัวอย่างไฟล์ควรจะเหมือนกับไฟล์ที่ได้รับ Code คำตอบ เพราะผมตอบตามไฟล์นั้น ทำให้ได้คำตอบตามนั้นก่อนครับ

[Leng]

cloum f คือผลรวมแต่ละบาร์โค๊ดในการ scan ครับคือผมอยากกำหนดว่า ถ้าผลรวมเกินข้อมูลที่กำหนดใน cloum f ให้แจ้งเตือนครับ โดยให้ได้ผลลัพ ตาม #41 ครับ

[snasui]

Barcode หมายเลข 8060168019001 ซึ่งในคอลัมน์ A มีหมายเลขนี้อยู่ 3000 รายการ คอลัมน์ F มีเลข 2 อยู่ทุกบรรทัด

อยากทราบว่าสามารถ Scan Barcode หมายเลขนี้ไปอีกครั้งได้อีกหรือไม่ ถ้าได้เพราะเหตุใด ถ้าไม่ได้ เพราะเหตุใดครับ

[Leng]

เหตุผลครับ สิ่งที่ผมต้องการคือ ต้องการให้ Barcode ที่อยู่ ใน cloum A สามารถ scan ได้ไม่เกิน ข้อมูลใน cloum f เพราะว่า ผมต้องการกำหนดว่าถ้า cloum G กล่อง เบอร์ 0001 ต้องมีผมรวมใน cloumH แต่ว่าในกล่องเบอร์ 0001ต้องมี Barcode ใน cloum A ไม่เกินข้อมูลใน cloum f เช่น
ถ้ากล่อง 0001 มี 10 จำนวน ใน 10 จำนวน จะมีบาร์โค๊ด
8060168019001 จำนวน 2 ตัว
8060168019002 จำนวน 2 ตัว
8060168019003 จำนวน 2 ตัว
8060168019004 จำนวน 2 ตัว
8060168019005 จำนวน 2 ตัว
เพื่อผลรวมเท่ากับ 10 ครับ

[snasui]

กรุณาว่าตอบว่าได้หรือไม่ได้ตามที่ผมถามครับ

ตามที่พยายามทำความเข้าใจ ไม่ใช่ดูแค่ Barcode แต่ดูกล่องร่วมด้วย เช่น Barcode 8060168019001, Box 0001 จะต้องมี 2 ตัวเท่านั้น ผมเข้าใจถูกต้องหรือไม่ครับ

[Leng]

ใช่ครับ

[snasui]

ใช่ครับ

ปัญหาคืออธิบายมาไม่ชัดเจน หากเป็นเช่นนั้นให้ใช้ Countifs เข้ามานับว่ามี Barcode และ Box นั้นเกินว่า 2 รายการแล้วหรือไม่ โดยดูจากตัวอย่าง Countif ที่ผมเขียนไป ลองปรับมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

[Leng]

ผมได้ปรับแล้วครับแต่ยังไม่ได้ ในข้อ #43 ครับ รบกวนอาจารย์ช่วยดูให้หน่อยครับ

[snasui]

บรรทัดที่มีการปรับว่าให้ตรวจสอบ Barcode และ Box พร้อมกันลองยกมาแสดงอีกครั้งครับ

[Leng]

ผมได้ลองปรับแล้วครับ

Code: Select all

  Dim rngCmpr As Range
    Dim rngBrcd As Range
    With Workbooks("DataX.xlsx").Worksheets("Sheet1")
        Set rngvlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
        Set rngBrcd = rngvlp.Resize(, 1)
        Set rngCmpr = .Range("f2", .Range("f" & .Rows.Count).End(xlUp))
    End With
    With Application
        If .CountIf(rngCmpr, Me.TextBox5.Text) < 0 And _
            .CountIf(rngBrcd, Me.TextBox5.Text) < 2 Then
            MsgBox "<Your message>", vbInformation
            Exit Sub
        End If
    End With
'Other code

[snasui]

อันนั้นไม่ใช่ Countifs ครับ

สำหรับการใช้ Countifs มีอยู่ใน Code นั้นแล้วเช่นกัน กรุณาทำความเข้าใจและลองปรับมาเองดูก่อนครับ

[Leng]

ผมไม่รู้จะเขียนยังไงครับรบกวนอาจารย์แนะนำให้หน่อยครับ

[snasui]

ผมไม่รู้จะเขียนยังไงครับรบกวนอาจารย์แนะนำให้หน่อยครับ

มีตัวอย่าง Countifs อยู่แล้วใน Code นั้นแค่อ่าน ทำความเข้าใจ ทดลองเขียน ติดแล้วนำมาถาม กรณีไม่ปรับปรุงเองมาก่อนจะไม่ได้รับคำตอบครับ

[Leng]

ผมรบกวนอาจารย์ช่วยดูหน่อยครับ

Code: Select all

Private Sub TextBox5_AfterUpdate()
    Dim rngCmpr As Range
    Dim rngBrcd As Range
    With Workbooks("Needle - Copy.xlsm").Worksheets("IN")
        Set rngvlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
        Set rngBrcd = rngvlp.Resize(, 1)
        Set rngCmpr = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
    End With
    With Application
        If .CountIf(rngCmpr, Me.TextBox5.Text) < 0 And _
           .CountIf(rngBrcd, Me.TextBox5.Text) > Workbooks("DataX.xlsm").Worksheets("sheet1").Range("F2:F1048576") Then
            MsgBox "<Your message>", vbInformation
            Exit Sub
        End If
    End With
'Other code

[snasui]

ที่โพสต์มาไม่ใช่ Countifs ครับ

ใน Excel มี Countif, Countifs, Sumif, Sumifs เป็นฟังก์ชั่นพื้นฐาน ควรทำความเข้าใจและใช้ให้เป็นเพราะใช้บ่อยครั้งมาก

ตัวอย่าง Code ครับ

Code: Select all

Private Sub TextBox5_AfterUpdate()
    Dim rngBrcd As Range
    Dim rngBox As Range
    With Workbooks("DataX.xlsx").Worksheets("Sheet1")
        Set rngvlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
        Set rngBrcd = rngvlp.Resize(, 1)
        Set rngBox = .Range("e2", .Range("e" & .Rows.Count).End(xlUp))
    End With
    With Application
        If .CountIfs(rngBrcd, Me.TextBox5.Text, rngBox, Me.TextBox2.Text) > 1 Then
            MsgBox "<Your message countifs>", vbInformation
            Exit Sub
        End If
    End With

'With Workbooks("DataX.xlsx").Worksheets("Sheet1")
'Set rngvlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
'End With
'Other code

Code นี้เป็นการนับว่า Barcode และ Box เดียวกันจะมีในฐานข้อมูลได้แค่ 1 รายการ หากในฐานข้อมูล (DataX.xlsx) มี Barcode และ Box เดียวกันซ้ำอีกจะแสดงข้อความเตือน

[Leng]

อาจารย์ครับผมได้ลองนำโค๊ดที่อาจารย์ให้มาลองใช้แล้วครับแต่ก็ยังไม่สามรถทำได้ครับ (code ไม่มีปัญหาครับสามารถ run ได้ แต่ยังไม่สามารถแจ้งเตือนครับ)

[snasui]

ช่วยแจ้งมาว่า Barcode ใด Box ใด และแจ้งเหตุผลมาว่าทำไมต้องแจ้งเตือน ตอบให้ครบทั้ง 3 ข้อจะได้ช่วยตรวจสอบได้ครับ

[Leng]

ผมต้องการให้โค๊ดใน dataX cloum A และตรงกับกล่องใน Cloum E ครับ แต่สิ่งที่ผมต้องการคือ ต้องการให้ Barcode ที่อยู่ ใน cloum A สามารถ scan ได้ไม่เกิน ข้อมูลใน cloum f เพราะว่า ผมต้องการกำหนดว่าถ้า cloum G กล่อง เบอร์ 0001 ต้องมีผมรวมใน cloumH แต่ว่าในกล่องเบอร์ 0001ต้องมี Barcode ใน cloum A ไม่เกินข้อมูลใน cloum f เช่น
ถ้ากล่อง 0001 มี 10 จำนวน ใน 10 จำนวน จะมีบาร์โค๊ด
8060168019001 จำนวน 2 ตัว
8060168019002 จำนวน 2 ตัว
8060168019003 จำนวน 2 ตัว
8060168019004 จำนวน 2 ตัว
8060168019005 จำนวน 2 ตัว
หาก barcode ตัวไหนมีข้อมูลเกิน ผลรวมของ barcode ที่ตั้งไว้ใน cloum f ให้แจ้งเตือนครับ
เพื่อผลรวมเท่ากับ 10 ครับ

[snasui]

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

1. ตัดไฟล์ DataX.xlsx มาเฉพาะข้อมูลบางส่วนเพียงไม่เกิน 10 รายการวัตถุประสงค์เพื่อข้อ 2 และ 3 เท่านั้น
2. จากข้อมูลในข้อ 1 ยกตัวอย่างว่าหาก Scan Barcode ใด ด้วย Box ใดแล้วผ่าน อธิบายมาว่าเพราะเหตุใดจึงผ่าน
3. จากข้อมูลในข้อ 1 ยกตัวอย่างว่าหาก Scan Barcode ใด ด้วย Box ใดแล้วไม่ผ่าน อธิบายมาว่าเพราะเหตุใดจึงไม่ผ่าน