ตัดตัวอักษร1ตัวด้านขวา

[sooksun2009]

รบกวนอาจารย์ ช่วยแนะนำเรื่องการตัดตัวอักษรด้านขวาสุด1ตัว ในcolume B คือ ผมใช้ปืนบาร์โค๊ดยิง แต่อักษรจะเพิ่มมา1ตัวทุกครั้ง ผมต้องการยิงเสร็จแล้วได้ตัวษรครบทุกตัว ตาม file แนบ ขอบคุณครับ

[DhitiBank]

งงนิดหน่อยครับ

ปกติแล้ว รหัสที่ได้จากการอ่านบาร์โค้ดจะมี 17 หลักหรือเปล่าครับ (เห็นข้อมูลบางแถวมี 17 อักขระ) หากต้องการแค่ 17 ตัวเท่านั้น ลองแบบนี้ครับ

C3
=IF(LEN(B3)<>17,LEFT(B3,17),B3)
Enter >> คัดลอกลงล่างครับ

[sooksun2009]

ขอบคุณครับ คุณ DhitiBank แต่ผมต้องการให้ตัดอักษรตรง colume B เรยครับ

[snasui]

ขอบคุณครับ คุณ DhitiBank แต่ผมต้องการให้ตัดอักษรตรง colume B เรยครับ

คำที่ผมระบายสีไว้ผิดกฎข้อ 1 ด้านบน ระมัดระวังด้วยครับ

กรุณาโพสต์ใหม่ให้เป็นไปตามกฎการใช้บอร์ดครับ

[sooksun2009]

ขอโทษครับ แต่ผมต้องการให้ตัดอักษรตรง colume B เลยครับ

[puriwutpokin]

คงต้องใช้ VBA ช่วยครับ ลองเขียนมาก่อนตาม กฏข้อ5 แล้วติดขัดอย่างไง เพื่อนๆ จะได้ช่วยแก้ไขให้ครับ

[puriwutpokin]

ลองดูตามลิงค์นี้ครับ http://www.mrexcel.com/forum/excel-ques ... ssage.html

[sooksun2009]

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    
Dim Reason As String

Reason = ActiveCell.Text


    If Not Intersect(Target, Range("b:b")) Is Nothing Then
         
          ActiveCell = Left(Reason, 17)

    
    End If

End Sub

รันแล้วเออเร่อเพราะต้องใช้คู่กับcode ลงเวลาด้วยครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
          Target = Left(Target, 17)
    End If
End Sub

[sooksun2009]

ติดปัญหากับ code ตัวเก่า

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
Application.EnableEvents = True
End Sub

ถ้าเพิ่ม code นี้ไป

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
          Target = Left(Target, 17)
    End If
End Sub

[puriwutpokin]

แนบไฟล์มาดูครับ ต้องตัด Private Sub Worksheet_Change(ByVal Target As Range) ออกอันหนี่งครับ แนบไฟล์มาดูครับ
ปรับเป็น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
    If Not Intersect(Target, Range("B3:B100")) Is Nothing Then
          Target = Left(Target, 17)
    End If
Application.EnableEvents = True
End Sub

[puriwutpokin]

ปรับอีกแบบครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 2 Then Range("F" & Target.Row) = Time()
If ActiveCell.Column = 4 Then Range("G" & Target.Row) = Time()
If ActiveCell.Column = 2 Then
          Target = Left(Target, 17)
    End If
Application.EnableEvents = True
End Sub

[menem]

ถ้ายืนยันว่า Barcode ถูกต้อง แต่เมื่อ Scan แล้วมีตัวอักษรติดเกินมา
วิธีที่อาจจะดีกว่าคือ หาวิธีการตั้งค่าตัว Scanner ให้ถูกต้องครับ
เพราะถ้าตั้งค่าผิด สิ่งที่ได้ก็จะไม่ตรงกับที่ต้องการ

ต้องขออภัยด้วยครับที่คำตอบนี้ไม่ได้เกี่ยวกับ Excel.

[sooksun2009]

ขอคุณครับ

[sooksun2009]

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