ต้องการให้ enter เลื่อนไปทางขวา เขียนโค้ดอย่างไรคะ

[pmim]

เนื่องจากว่าต้องการ input ข้อมูลการรับสินค้าด้วยสแกนเนอร์บาร์โค้ดอยู่ 2 ค่าคือ
column A = รหัสสินค้า
column B = จำนวนสินค้า
ซึ่งความต้องการคือ สแกนรหัสสินค้าก่อน(column A) ตามด้วยจำนวน(column B)
แล้ววนกลับมาสแกนรหัสสินค้าและจำนวนของชิ้นถัดไปในบรรทัดใหม่แบบนี้เรื่อยๆ

ปัจจุบันเขียนโค้ดแค่ให้คลุมพื้นที่ของ 2 columnก่อน แล้วตั้งค่า file-->option-->advanced ของตัวโปรแกรม excel เอง
เพื่อเปลี่ยนทิศของ enter ไปทางขวา ก็ได้ผลอยู่ค่ะ แต่จริงๆไม่ต้องการให้เปลี่ยนจากตัว excel โดยตรง
เพราะมันจะเป็นตลอดทุกไฟล์ที่เปิดขึ้นมา อยากได้แค่ไฟล์ที่ทำ VB นี้เท่านั้นค่ะ
เลยไม่แน่ใจว่าพอจะเขียนโค้ดขึ้นเองได้ไหมคะ ต้องคลุมพื้นที่ก่อนไหม เพิ่งเริ่มต้นหัดใช้ VB ค่ะ

โค้ดเบื้องต้นที่ลองดูคือ

Code: Select all

Sub Enter_Right_Side()
ActiveCell.Offset(0, 1).Activate
End Sub

Private Sub Workbook_Open()
Application.OnKey "{ENTER}", "Enter_Right_Side"
End Sub

แต่ก็ยังไม่ได้อยู่ดีค่ะ รบกวนด้วยนะคะ ขอบคุณค่ะ

[snasui]

การเขียน Code ให้เลื่อนไปทางขวาสามารถใช้ Change Event ได้ ยกตัวอย่างเช่น ถ้ามีการเปลี่ยนแปลงค่าในคอลัมน์ A ให้เลื่อน Cursor ไปที่คอลัมน์ B ถ้าเปลี่ยนค่าในคอลัมน์ B ให้เลื่อนเซลล์ไปคอลัมน์ A และลงไปด้านล่าง 1 บรรทัดเช่นนี้เป็นต้น

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1).Activate
    Else
        Target.Offset(1, -1).Activate
    End If
End Sub

Code นี้ต้องวางใน Worksheet ที่ใช้สำหรับการทำงานเกี่ยวกับการยิง Barcode ไม่ใช่ใส่ใน Module ทั่วไป

[pmim]

ทำได้แล้วค่ะ ตรงตามที่ต้องการเลย ขอบคุณมากค่ะอาจารย์

[pmim]

การเขียน Code ให้เลื่อนไปทางขวาสามารถใช้ Change Event ได้ ยกตัวอย่างเช่น ถ้ามีการเปลี่ยนแปลงค่าในคอลัมน์ A ให้เลื่อน Cursor ไปที่คอลัมน์ B ถ้าเปลี่ยนค่าในคอลัมน์ B ให้เลื่อนเซลล์ไปคอลัมน์ A และลงไปด้านล่าง 1 บรรทัดเช่นนี้เป็นต้น

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1).Activate
    Else
        Target.Offset(1, -1).Activate
    End If
End Sub

Code นี้ต้องวางใน Worksheet ที่ใช้สำหรับการทำงานเกี่ยวกับการยิง Barcode ไม่ใช่ใส่ใน Module ทั่วไป

สอบถามเพิ่มเติมเพื่อเป็นความรู้ค่ะ
หนูลองรันดูในคอลัมน์อื่นที่ไม่ใช่ A กับ B แล้วเห็นว่า cell มันจะเลื่อนทะแยงลงมาเรื่อยๆ ไม่มีเลื่อนไปทางขวาจนกว่าจะสุดที่คอลัมน์ A
ถ้าเราต้องการทำกับคอลัมน์อื่นเช่น B กับ C และให้มีขอบเขตการบันทึกข้อมูลเพียง 2 คอลัมน์นี้ ต้องเขียนสูตรเพิ่มอย่างไรคะ

[snasui]

จาก Code นี้

Code: Select all

    Else
        Target.Offset(1, -1).Activate
    End If

ปรับเป็น

Code: Select all

    Elseif target.column = 2 then
        Target.Offset(1, -1).Activate
    End If

ในโอกาสหน้ากรุณาปรับมาเองก่อนเสมอ ปรับได้เท่าไรก็เท่านั้น ขอให้ได้ลองพยายามมาเองก่อนครับ