[VBA]ต้องการให้กด Tab Auto เมื่อพิมพ์คียบอร์ด

[parakorn]

เรียนทุกท่านครับ

เนื่องจากลองสร้างเกม Wordle(ทายคำศัพท์) ใน Excel
แล้วอยากให้ใน โซนที่ User ใส่อักษรเพื่อทายคำศัพท์(Sheet1 Cell H6 ถึง L11) active macro alway
โดยทุกครั้งที่ User กดใส่ตัวอักษร อยากให้ Application Auto Tab เพื่อขยับไป Cell
ทางขวาเพื่อจะได้ใส่ตัวอักษรต่อไปทันทีครับ ถ้าเป็นไปได้อยากให้ Auto Capslock / Auto US Keyboard ด้วย
และ เมื่อจบ Column สุดท้าย(Column L) อยากให้ Auto Run Macro ของแต่ล่ะ Line ครับ

[snasui]

ตัวอย่างการย้าย Corsor ไปขวามือเมื่อเซลล์มีการเปลี่ยนแปลง ลองนำไปประยุกต์ใช้ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("h6:l11")) Is Nothing Then
        Target.Value = UCase(Target.Value)
        If Asc(Target.Value) > 122 Then
            MsgBox "Please change keyboard language"
            Target.Activate
            Target.ClearContents
            Application.EnableEvents = True
            Exit Sub
        End If
        If Target.Address(0, 0) = "L11" Then
            Me.Range("h6").Activate
        ElseIf Target.Column = 12 Then
            Target.Offset(1, -4).Activate
        Else
            Target.Offset(0, 1).Activate
        End If
    Else
        MsgBox "Out of the box", vbInformation
        Target.ClearContents
    End If
    Application.EnableEvents = True
End Sub

[parakorn]

ขอบคุณมากครับอาจารย์