Snasui Excel Forum

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

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

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

[code]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[/code]

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

เนื่องจากลองสร้างเกม 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 ครับ