วิธีใส่ Code

[First1707]

คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code

[joo]

ไม่พบโค๊ดที่อ้างถึงครับ ลองแนบไฟล์ตัวอย่างมาดูกันหน่อยครับ

[First1707]

เช่นเมื่อคีย์ข้อมูลแล้วให้ย้ายข้อมูลไปแสดงผลต่อจากข้อมูลด้านบน

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    With Target
        If .Count > 1 Then
            Exit Sub
        ElseIf .Column = 2 And .Offset(1, 0) = "" _
            And .Offset(-1, 0) = "" Then
                .Offset(0, -1).Resize(, 2).Cut
                .End(xlUp).Offset(1, -1) _
                    .Resize(, 2).Insert shift:=xlDown
        End If
    End With
    Application.ScreenUpdating = True
End Sub

ที่มา http://snasui.blogspot.com/2011/07/blog-post_01.html

[joo]

คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code

ลองตามนี้ครับให้ทำการเปิดไฟล์งานขึ้นมาก่อน จากนั้นให้ทำการกดแป้น Alt+F11 ก็จะเข้าสู้หน้าต่างของ VBA ทำการคลิกขวาลงบนพื้นที่ว่างของ Project- VBA Project ที่อยู่ด้านซ้ายมือ เลือก Insert > Module จากนั้นก็นำโค๊ดไปวางได้เลย

[First1707]

คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code

ลองตามนี้ครับให้ทำการเปิดไฟล์งานขึ้นมาก่อน จากนั้นให้ทำการกดแป้น Alt+F11 ก็จะเข้าสู้หน้าต่างของ VBA ทำการคลิกขวาลงบนพื้นที่ว่างของ Project- VBA Project ที่อยู่ด้านซ้ายมือ เลือก Insert > Module จากนั้นก็นำโค๊ดไปวางได้เลย

ขอบคุณครับ