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

[Leng]

Code: Select all

Dim rngCmpr As Range
  Dim rngBrcd As Range
  Dim rngTotal 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("e2", .Range("e" & .Rows.Count).End(xlUp))
      Set rngTotal = .Range("f2", .Range("f" & .Rows.Count).End(xlUp))
End With
If Me.TextBox5.Text = "" Then Exit Sub
With Application
If .SumIfs(rngTotal, rngBrcd, Me.TextBox5, rngCmpr, Me.TextBox2) > 2 Then
    MsgBox "Please Check Information", vbInformation
    Exit Sub
    End If
End With
'Other code
'With Workbooks("DataX.xlsx").Worksheets("Sheet1")
'Set rngvlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
'End With

อาจารย์ครับผมได้นำโค๊ดมาทำแล้วแต่ก็ยังไม่สามารถทำได้ครับ รบกวนอาจารย์ดูให้หน่อยครับ

[logic]

ที่ทำไม่ได้คุณกรอกค่าใดไปบ้างล่ะครับ แล้วถ้าทำได้มันจะเป็นยังไงไม่เห็นอธิบายอะไรเลย เพื่อนสมาชิกไม่รู้จะช่วยยังไงเหมือนกันครับ

[Leng]

ทำไม่ได้คือ เวลา scan ผลรวมของข้อมูลเกินกำหนดใน cloum F ในไฟล์ Datax ครับ แต่ไม่มีแจ้งเตือน
ทำได้คือ เวลา scan ผลรวมของข้อมูลต้องไม่เกินกำหนดใน cloum F ในไฟล์ Datax ครับ แล้วแจ้งเตือน

[snasui]

ค่าทดสอบคือค่าใด ผลรวมของข้อมูลดูจากไหนว่าเกินหรือไม่เกินคอลัมน์ F ครับ

[Leng]

ต้องดูผลรวมจาก ไฟล์ Needle - Copy ครับ ว่าหากผลรวมของ cloum A เกินข้อมูล ในไฟล์ datax ให้แจ้งเตือนครับ

[logic]

งงกับผลรวมของคอลัมน์ A ขอผ่านแล้วกันครับ

[Leng]

ต้องดูผลรวมจาก ไฟล์ Needle - Copy ครับ ว่าหากผลรวมของ cloum A เกินข้อมูล ในไฟล์ datax ให้แจ้งเตือนครับ
เช่น ถ้าทำในไฟล์ Needle - Copyแล้ว scan 8060168019001 แล้วถ้าหากผลรวมของ 8060168019001 เกินข้อมูลใน cloum f ให้แจ้งเตือนครับ

[snasui]

ต้องดูผลรวมจาก ไฟล์ Needle - Copy

ลองอธิบายมาให้เข้าใจว่าดูตรงไหนครับ

ที่อธิบายมาในโพสต์ก่อน ๆ ไม่ใช่แค่ดู Barcode แต่ดู Box ด้วย สรุปว่ายังดู 2 เงื่อนไขหรือไม่ อย่างไร

รหัส 8060168019001 ผลรวมในคอลัมน์ F คือเท่าใด ดูอย่างไรว่าค่าเท่านั้น ให้ระบุเซลล์ลงมาเลยว่าเป็นเซลล์ไหน เทียบกับค่าจากไหนว่ามากกว่าหรือไม่มากกว่าครับ

ก่อนที่จะถามต่อได้ปรับ Code แล้วหรือไม่ ปรับเป็นอย่างไร ช่วยโพสต์มาในช่องความเห็นนี้ด้วยจะได้ช่วยดูต่อไปจากนั้นได้อย่างรวดเร็วโดยไม่จำเป็นต้องเปิดไฟล์

Code ที่เขียนมาในไฟล์นี้เขียนมาเองหรือไม่ ถ้าไม่ได้เขียนเองให้ผู้ที่เขียนไฟล์นี้มาถามจะดีกว่าครับ

[Leng]

อธิบายมาในโพสต์ก่อน ๆ ไม่ใช่แค่ดู Barcode แต่ดู Box ด้วย สรุปว่ายังดู 2 เงื่อนไขหรือไม่ อย่างไร

ใช่ครับผมต้องการทำเป็นแบบ 2 เงื่อนไข คือ Barcode กับ Box ในไฟล์ Needle - Copy ต้องตรงกันถึง scan ผ่านครับ
และผลรวมต้องไม่เกิน cloum F ในไฟล์ Datax

สมมุติว่า
box 1
scan barcode
8060168019001
8060168019001
8060168019001
ตอนนี้เรา scan barcode 8060168019001 ไป 3 ครั้งแล้วถูกต้องไหมครับ?
ซึ่งผลรวมของ barcode 8060168019001 ก็จะเกิน ข้อมูลที่ลงไว้ในไฟล์ Datax ใน cloum F ที่ตั้งไว้ว่า
barcode 8060168019001 ต้องเป็น box 1 และมีผลรวมไม่เกิน cloum F ในไฟล์ Datax
ซึ่งใน ไฟล์ Datax cloum F ของ barcode 8060168019001 ได้กำหนดข้อมูลไว้แค่ 2

ผมได้ทำการปรับโค๊ดแล้วครับแต่ก็ยังไม่สามารถทำได้

Code: Select all

Dim rngCmpr01 As Range
  Dim rngBrcd01 As Range
  Dim rngTotal01 As Range
  With Workbooks("DataX.xlsx").Worksheets("Sheet1")
      Set rngvlp2 = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
      Set rngBrcd01 = rngvlp2.Resize(, 1)
      Set rngCmpr01 = .Range("e2", .Range("e" & .Rows.Count).End(xlUp))
      Set rngTotal01 = .Range("f2", .Range("f" & .Rows.Count).End(xlUp))
End With
If Me.TextBox5.Text = "" Then Exit Sub
With Application
If .SumIfs(rngTotal01, rngBrcd01, Me.TextBox5, rngCmpr01, Me.TextBox2) > 2 Then
    MsgBox "Please Check Information", vbInformation
    Exit Sub
    End If
End With

Code ที่เขียนมาในไฟล์นี้เขียนมาเองหรือไม่ ถ้าไม่ได้เขียนเองให้ผู้ที่เขียนไฟล์นี้มาถามจะดีกว่าครับ

code ที่เขียนมาผมเป็นคนทำเองครับต้องขอโทษอาจารย์ด้วยนะครับที่อาจอธิบายไม่รู้เรื่องแต่ผมก็ได้พยายามอธิบายและพยามปรับcodeเองตามที่อาจารย์บอกต้องขอโทษด้วยจริงๆคับ

[snasui]

เข้าใจว่าเมื่อ Scan แล้วจะมีการเก็บข้อมูลไว้ในชีต IN แล้วนำไปแสดงใน ListBox

สิ่งที่ต้องการจะตรวจสอบคือ หากว่า Barcode และ Box ในชีต IN มีจำนวนรายการมากกว่าที่กำหนดไว้ในไฟล์ DataX คอลัมน์ F แล้วจะ Scan ไม่ได้อีก

ตัวอย่างการปรับ Code จะเป็นตามด้านล่างครับ

Code: Select all

Dim cnt As Integer
Dim rngCmpr As Range
Dim rngBrcd As Range
Dim rngTotal 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("e2", .Range("e" & .Rows.Count).End(xlUp))
    Set rngTotal = .Range("f2", .Range("f" & .Rows.Count).End(xlUp))
End With
If Me.TextBox5.Text = "" Then Exit Sub

With Application
    cnt = .SumIfs(rngTotal, rngBrcd, Me.TextBox5, rngCmpr, Me.TextBox2)
End With

With ThisWorkbook.Sheets("IN")
    With Application
        If .CountIfs(.Range("b3:b1000"), Me.TextBox2.Text, .Range("d3:d1000"), _
            Me.TextBox5.Text) >= cnt Then
            MsgBox "<Your text>"
            Exit Sub
        End If
    End With
End With

[Leng]

ได้แล้วครับขอบคุณมากครับ จากที่ทำมาเกือบเดือนขอบคุณอาจารย์และเพื่อนๆมากครับ อาจารย์ผมขอสอบถามอีกนิดครับถ้า barcode เกิน 20 ตัว ต้อง แก้ CDbl เป็นอะไรหรอครับ

[snasui]

ปกติข้อมูลลักษณะนี้ควรกำหนดให้เป็น String (Text) ครับ จะยาวได้มาก ใน Worksheet ก็ต้องทำให้เป็น Text ด้วยจะได้ Match กันได้ครับ

[Leng]

ขอบพระคุณมากครับ