Snasui Excel Forum

puriwutpokin wrote: Tue Mar 19, 2019 12:19 pm ต้องใช้VBAครับ เบื้องต้น​บันทึก​macro​ ดูครับแล้วปรับแต่งโค้ดติดตรงไหนมาถามต่อครับ

snasui wrote: Tue Mar 19, 2019 9:19 pm การหาตัวอย่าง Code ให้ใกล้เคียงกับงานที่ทำอาจจะไม่ง่ายครับ

ถ้าไม่เคยใช้ VBA มาก่อนเลยควรให้หน่วยงาน IT ทำให้ดีกว่าครับ หากทำแล้วติดขัดตรงไหนอย่างไร สามารถนำมาถามกันต่อได้ที่นี่

และหากจะลองศึกษา Macro ดู ลองดูจาก Link นี้ครับ wordpress/professional-macro-recording/

puriwutpokin wrote: Thu Mar 21, 2019 5:21 pm ลองแนบไฟล์ตัวอย่างพร้อมโค้ดมาดูกันครับ

Sub demo()
    Dim rng As Range
    Set rng = Range("B:B")
    Dim i As Integer
    For i = A113 To A113
        rng(i).Value = i
    Next i
End Sub

snasui wrote: Thu Mar 21, 2019 8:54 pm เท่าที่ดูตามภาพเป็นการ Loop ผิดหลักการ

สิ่งที่จะ Loop ด้วย For...Next คือ ตัวเลข หากไป Loop ตัวอักษรดังตัวอย่างที่ถามมาจะเกิด Error ครับ

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

Sub demo()
    Dim rng As Range
    Set rng = Range("B:B")
    Dim i As Integer
    For i = A113 To A113
        rng(i).Value = i
    Next i       
End Sub

jwwam wrote: Sat Mar 23, 2019 6:41 pm สิ่งที่ต้องการทำคือ เวลาสแกนลงคอลัมน์ B อยากให้ข้อมูลวิ่งไปที่แถวที่มีเลขเดียวกัน เช่น เมื่อยิง A113 ก็จะวิ่งไปแถว 14 cell B14 จากนั้นวิ่งไป cell ข้างๆคือ cell C14 เพื่อยิงบาร์โค้ดสินค้าลงไปต่อ จากนั้นก็วนกลับไปที่คอลัมน์ B เพื่อยิง Location ของสินค้าและบาร์โค้ดสินค้าตัวถัดไปค่ะ
โดย loop ของมันจะอยู่ที่คอลัมน์ B และ C ค่ะ

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub

snasui wrote: Sat Mar 23, 2019 6:49 pm

jwwam wrote: Sat Mar 23, 2019 6:41 pm สิ่งที่ต้องการทำคือ เวลาสแกนลงคอลัมน์ B อยากให้ข้อมูลวิ่งไปที่แถวที่มีเลขเดียวกัน เช่น เมื่อยิง A113 ก็จะวิ่งไปแถว 14 cell B14 จากนั้นวิ่งไป cell ข้างๆคือ cell C14 เพื่อยิงบาร์โค้ดสินค้าลงไปต่อ จากนั้นก็วนกลับไปที่คอลัมน์ B เพื่อยิง Location ของสินค้าและบาร์โค้ดสินค้าตัวถัดไปค่ะ
โดย loop ของมันจะอยู่ที่คอลัมน์ B และ C ค่ะ

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

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub

ให้วาง Code ที่ Sheet1 (Barcode) ในหน้า VBE (หน้าที่ใช้เขียนโปรแกรม) ต้อง Double Click เข้าไปในชีตชื่อข้างต้นนี้ในหน้าต่าง Project Explorer (เปิดด้วยการกดแป้น Ctrl+R) แล้วค่อยวาง Code จากนั้นทดสอบการยิง Barcode ดูครับ

jwwam wrote: Mon Mar 25, 2019 9:33 am

snasui wrote: Sat Mar 23, 2019 6:49 pm

jwwam wrote: Sat Mar 23, 2019 6:41 pm สิ่งที่ต้องการทำคือ เวลาสแกนลงคอลัมน์ B อยากให้ข้อมูลวิ่งไปที่แถวที่มีเลขเดียวกัน เช่น เมื่อยิง A113 ก็จะวิ่งไปแถว 14 cell B14 จากนั้นวิ่งไป cell ข้างๆคือ cell C14 เพื่อยิงบาร์โค้ดสินค้าลงไปต่อ จากนั้นก็วนกลับไปที่คอลัมน์ B เพื่อยิง Location ของสินค้าและบาร์โค้ดสินค้าตัวถัดไปค่ะ
โดย loop ของมันจะอยู่ที่คอลัมน์ B และ C ค่ะ

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

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub

ให้วาง Code ที่ Sheet1 (Barcode) ในหน้า VBE (หน้าที่ใช้เขียนโปรแกรม) ต้อง Double Click เข้าไปในชีตชื่อข้างต้นนี้ในหน้าต่าง Project Explorer (เปิดด้วยการกดแป้น Ctrl+R) แล้วค่อยวาง Code จากนั้นทดสอบการยิง Barcode ดูครับ

มันขึ้นแบบนี้ค่ะ

End If

    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then Target.Offset(0, 1).Select
End Sub

puriwutpokin wrote: Mon Mar 25, 2019 10:45 am

jwwam wrote: Mon Mar 25, 2019 9:33 am

snasui wrote: Sat Mar 23, 2019 6:49 pm

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

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub

ให้วาง Code ที่ Sheet1 (Barcode) ในหน้า VBE (หน้าที่ใช้เขียนโปรแกรม) ต้อง Double Click เข้าไปในชีตชื่อข้างต้นนี้ในหน้าต่าง Project Explorer (เปิดด้วยการกดแป้น Ctrl+R) แล้วค่อยวาง Code จากนั้นทดสอบการยิง Barcode ดูครับ

มันขึ้นแบบนี้ค่ะ

ว่างโค้ดให้เหมือนที่อาจารย์ ให้โค้ดไปครับ ตรงนี้ต้องเป็น 3 บรรทัดครับ หรือถ้าจะให้เป็น 2 บรรทัดก็ตัด

Code: Select all

End If

ตัวนี้ออกครับ

Code: Select all

    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then Target.Offset(0, 1).Select
End Sub

puriwutpokin wrote: Mon Mar 25, 2019 12:26 pm จุดประสงค์คือที่อ่านด้านบนจากนี้
สิ่งที่ต้องการทำคือ เวลาสแกนลงคอลัมน์ B อยากให้ข้อมูลวิ่งไปที่แถวที่มีเลขเดียวกัน เช่น เมื่อยิง A113 ก็จะวิ่งไปแถว 14 cell B14 จากนั้นวิ่งไป cell ข้างๆคือ cell C14 เพื่อยิงบาร์โค้ดสินค้าลงไปต่อ จากนั้นก็วนกลับไปที่คอลัมน์ B เพื่อยิง Location ของสินค้าและบาร์โค้ดสินค้าตัวถัดไปค่ะ
โดย loop ของมันจะอยู่ที่คอลัมน์ B และ C ค่ะ
คือยิงที่ Active cell ที่ B2 แล้วยิง แล้วขึ้นข้อมูล A113 ที่ B2 แล้ว ให้ ข้อมูลนั้นวิ่งไปหาตัว
ที่ตรงกับมันที่ cell B14 คือ A113 แล้ว ให้มันกลับไป Active cell ที่ B2 เหมือนเดิมใช่ไหมครับ
ถ้าผมเข้าใจถูก
ถ้าแบบนี้ ควร ทำเซลต่างหากไว้ยิง อาจไว้ยิงที่ M4 ก็ดีครับแล้วให้ตัวยิงนี้ไป Active cell ที่ตรง
กับ เซล M4 จะดีกว่าไหมครับ หรือไม่ใช่อย่างที่ผมพูด
ก็ลองวาด เป็นตัวชี้ ว่า 1 เริ่มที่เซล ไหน และ 2 ไปอะไรที่ไป แล้วกลับไปที่ไหน โยงเป็นขั้นตอน
มาดูครับ

puriwutpokin wrote: Mon Mar 25, 2019 2:00 pm ผมปรับโค้ดเป็นแบบทั่วๆไปนะครับ แบบที่ไปยิง B และไป C แล้ว ยิง C กลับไป B ถัดลงไป 1 บรรทัด แต่ ตามรูปไม่รู้ว่า ทำไมถึง มีเงื่อนไขอะไรถึงไปด้านบน ตำแหน่งนั้นต้องแจ้งเงื่อนไข
ว่าอะไรครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a2:b" & Rows.Count)) Is Nothing Then
    Target.Offset(0, 1).Select
    Else
    Target.Offset(1, -1).Select
    End If
End Sub