คีย์ตัวเลข 2 หลัก โดยไม่ต้องกด Enter ใน VBA

[wisit]

ขอบคุณครับอาจารย์ เดี๋ยวผมจะลองทำแล้วเก็บค่า Character code มาแจ้งในฟอรัมครับ ต้องขอบพระคุณอาจารย์เป็นอย่างสูงครับ

[wisit]

อาจารย์ครับ เมื่อผมคีย์ค่าต่าง ๆ จะปรากฎ Message Box แสดงค่า Character code ดังนี้ครับ
เมื่อคีย์ตัวเลข 0 จะแสดงค่า Character code เป็นเลข 96 ครับ
เมื่อคีย์ตัวเลข 1 จะแสดงค่า Character code เป็นเลข 97 ครับ
เมื่อคีย์ตัวเลข 2 จะแสดงค่า Character code เป็นเลข 98 ครับ
เมื่อคีย์ตัวเลข 3 จะแสดงค่า Character code เป็นเลข 99 ครับ
เมื่อคีย์ตัวเลข 4 จะแสดงค่า Character code เป็นเลข 100 ครับ
เมื่อคีย์ตัวเลข 5 จะแสดงค่า Character code เป็นเลข 101 ครับ
เมื่อคีย์ตัวเลข 6 จะแสดงค่า Character code เป็นเลข 102 ครับ
เมื่อคีย์ตัวเลข 7 จะแสดงค่า Character code เป็นเลข 103 ครับ
เมื่อคีย์ตัวเลข 8 จะแสดงค่า Character code เป็นเลข 104 ครับ
เมื่อคีย์ตัวเลข 9 จะแสดงค่า Character code เป็นเลข 105 ครับ

[snasui]

ลองปรับ Code เฉพาะ KeyEventOn และ KeyEventOff เป็นตามด้านล่างแล้วทดสอบใช้งานดูครับ

Code: Select all

Option Explicit

Dim i As Long

Sub KeyEventOn()
    For i = 96 To 105
        Application.OnKey "{" & i & "}", "'EnterToNextCell """ & i & """'"
    Next
End Sub

Sub KeyEventOff()
    For i = 95 To 105
        Application.OnKey "{" & i & "}"
    Next
End Sub

[wisit]

อาจารย์ครับเมื่อปรับโค้ดตามที่อาจารย์บอกก็คีย์ตัวเลขใน Keypad ได้ แต่เมื่อเราคีย์ตัวเลขต่าง ๆ มันจะขึ้นค่าดังนี้ครับ
เมื่อคีย์ตัวเลข 0 มันจะขึ้นเป็นเครื่องหมาย `
เมื่อคีย์ตัวเลข 1 มันจะขึ้นเป็นตัวอักษร a (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 2 มันจะขึ้นเป็นตัวอักษร b (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 3 มันจะขึ้นเป็นตัวอักษร c (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 4 มันจะขึ้นเป็นตัวอักษร d (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 5 มันจะขึ้นเป็นตัวอักษร e (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 6 มันจะขึ้นเป็นตัวอักษร f (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 7 มันจะขึ้นเป็นตัวอักษร g (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 8 มันจะขึ้นเป็นตัวอักษร h (ตัวพิมพ์เล็ก)
เมื่อคีย์ตัวเลข 9 มันจะขึ้นเป็นตัวอักษร i (ตัวพิมพ์เล็ก)

ซึ่งโค้ดดังกล่าวมันตรงกับรหัส ASCII เลยครับ ซึ่งผมไม่รู้จะเขียนโค้ดยังไงให้เปลี่ยนเป็นตัวเลข เพราะถ้าเป็นตัวเลข ก็จะไม่สามารถคีย์ในKeypad ได้ ซึ่งวัตถุประสงค์ต้องการคีย์ใน Keypad รบกวนอาจารย์ช่วยแนะนำด้วยครับ

[snasui]

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

Code: Select all

Option Explicit

Dim i As Long

Sub KeyEventOn()
    For i = 96 To 105
        Application.OnKey "{" & i & "}", "'EnterToNextCell """ & i & """'"
    Next i
End Sub

Sub KeyEventOff()
    For i = 95 To 105
        Application.OnKey "{" & i & "}"
    Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
    Dim strText As String
    Dim s As String
    If Not TypeOf Selection Is Range Then Exit Sub
    s = Chr(KeyCode)
    Select Case s
        Case "`": s = 0
        Case "a": s = 1
        Case "b": s = 2
        Case "c": s = 3
        Case "d": s = 4
        Case "e": s = 5
        Case "f": s = 6
        Case "g": s = 7
        Case "h": s = 8
        Case "i": s = 9
    End Select
    strText = Selection.Value & s
    Selection.Value = strText
    Select Case Selection.Column
        Case 3
            'MsgBox "2"
             If Len(Selection) >= 2 Then
                Application.SendKeys "{ENTER}"
            End If
        Case 6
            'MsgBox "5"
             If Len(Selection) >= 3 Then
                Application.SendKeys "{ENTER}"
            End If
     End Select
End Sub

[wisit]

ขอบคุณครับอาจารย์เดี๋ยวผมจะลองปรับโค้ดดูครับ ขอบพระคุณอาจารย์มากครับ

[wisit]

อาจารย์ครับ ผมได้นำโค้ดของอาจารย์ไปใช้ ซึ่่งได้ผลตรงตามที่ต้องการเลยครับ ต้องขอบพระคุณอาจารย์มากครับ ที่แนะนำและแก้ไขโค้ดต่าง ๆ ให้แก่ผม ขอบพระคุณอาจารย์เป็นอย่างสูงครับ

[wisit]

การให้แทนค่าจุด (.) ตรง Keypad ให้เป็นค่าศูนย์ แต่เมื่อผมเขียนโค้ดแล้ว รันดูก็ไม่ได้ โดยโค้ดมีดังนี้

Code: Select all

Option Explicit

Dim i As Long

Sub KeyEventOn()
For i = 96 To 105
Application.OnKey "{" & i & "}", "'EnterToNextCell """ & i & """'"
Next i
If (i = 46) Then
Application.OnKey "{" & i & "}", "'EnterToNextCell """ & i & """'"
End If
End Sub

Sub KeyEventOff()
For i = 95 To 105
Application.OnKey "{" & i & "}"
Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
Dim strText As String
Dim s As String
If Not TypeOf Selection Is Range Then Exit Sub
s = Chr(KeyCode)
Select Case s
Case "`": s = 0
Case "a": s = 1
Case "b": s = 2
Case "c": s = 3
Case "d": s = 4
Case "e": s = 5
Case "f": s = 6
Case "g": s = 7
Case "h": s = 8
Case "i": s = 9
End Select
strText = Selection.Value & s
Selection.Value = strText
Select Case Selection.Column
Case 3, 12
'MsgBox "2"
If Len(Selection) >= 2 Then
Application.SendKeys "{ENTER}"
End If
Case 6, 9, 15
'MsgBox "5"
If Len(Selection) >= 3 Then
Application.SendKeys "{ENTER}"
End If
End Select
End Subล

ส่วนที่เพิ่มคือโค้ด 
If (i = 46) Then
Application.OnKey "{" & i & "}", "'EnterToNextCell """ & i & """'"
End If

รบกวนอาจารย์ช่วยแนะนำด้วยครับ

[snasui]

เมื่อคีย์จุดแล้วได้ตัวอักษรใดครับ

[wisit]

อาจารย์ครับ เมื่อคีย์จุดแล้วได้จุดครับ แต่ผมอยากให้จุดมันเปลี่ยนเป็นศูนย์ครับ

[snasui]

ลองดูตาม Code ด้านล่าง

ผมไม่ได้ใช้ PC จึงไม่สามารถทดสอบให้ได้ครับ

Code: Select all

Option Explicit
Option Base 1
Dim i As Long

Sub KeyEventOn()
    Dim a As Variant
    a = Array(46, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}", "'EnterToNextCell """ & a(i) & """'"
    Next i
End Sub

Sub KeyEventOff()
    Dim a As Variant
    a = Array(46, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}"
    Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
    Dim strText As String
    Dim s As String
    If Not TypeOf Selection Is Range Then Exit Sub
    s = Chr(KeyCode)
    Select Case s
        Case ".", "`": s = 0
        Case "a": s = 1
        Case "b": s = 2
        Case "c": s = 3
        Case "d": s = 4
        Case "e": s = 5
        Case "f": s = 6
        Case "g": s = 7
        Case "h": s = 8
        Case "i": s = 9
    End Select
    strText = Selection.Value & s
    Selection.Value = strText
    Select Case Selection.Column
        Case 3, 12
        'MsgBox "2"
            If Len(Selection) >= 2 Then
                Application.SendKeys "{ENTER}"
            End If
        Case 6, 9, 15
        'MsgBox "5"
            If Len(Selection) >= 3 Then
                Application.SendKeys "{ENTER}"
            End If
    End Select
End Sub

[wisit]

อาจารย์ครับผมต้องขอโทษด้วยครับที่บอกอักษรที่พิมพ์ผิดครับ คือ เมื่อคีย์จุดจะได้อักษร n ครับ โค้ดที่อาจารย์ให้มาใช้ได้ครับ แต่ต้องปรับเปลี่ยนตามอักษรที่พิมพ์ได้ ซึ่งผมได้เปลี่ยนโค้ดใหม่ดังนี้

Code: Select all

Option Explicit
Option Base 1
Dim i As Long

Sub KeyEventOn()
    Dim a As Variant
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 110)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}", "'EnterToNextCell """ & a(i) & """'"
    Next i
End Sub

Sub KeyEventOff()
    Dim a As Variant
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 110)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}"
    Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
    Dim strText As String
    Dim s As String
    If Not TypeOf Selection Is Range Then Exit Sub
    s = Chr(KeyCode)
    Select Case s
        Case "n", "`": s = 0
        Case "a": s = 1
        Case "b": s = 2
        Case "c": s = 3
        Case "d": s = 4
        Case "e": s = 5
        Case "f": s = 6
        Case "g": s = 7
        Case "h": s = 8
        Case "i": s = 9
    End Select
    strText = Selection.Value & s
    Selection.Value = strText
    Select Case Selection.Column
        Case 3, 12
        'MsgBox "2"
            If Len(Selection) >= 2 Then
                Application.SendKeys "{ENTER}"
            End If
        Case 6, 9, 15
        'MsgBox "5"
            If Len(Selection) >= 3 Then
                Application.SendKeys "{ENTER}"
            End If
    End Select
End Sub

อาจารย์ครับ อันนี้ถามเพื่อให้คลายสงสัยว่าถ้า Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 110) จำเป็นต้องเรียงลำดับจากมากไปน้อยหรือเปล่าครับ ผมสามารถเขียนโดยเรียงดังนี้ได้หรือเปล่าครับ Array(110, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105) จะมีผลต่อการรันหรือเปล่าครับอาจารย์

[snasui]

การสลับตัวเลขไว้ก่อนหรือหลังไม่มีผลครับ

[wisit]

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

[wisit]

อาจารย์ครับ ขอรบกวนอาจารย์อีกนิดครับ พอดีผมต้องการให้คีย์ / แล้วให้ค่าเท่ากับ 8 เมื่อผมลองใส่โค้ด แล้วคีย์ / กลับไม่ได้ตัวเลข 8 แต่จะไปขึ้นค่าตรงแท็บตรง ไฟล์ ในโปรแกรม Excel แทน ส่วนค่าอื่น ๆ ไม่มีปัญหาครับ (เมื่อคีย์ค่า / จะได้อักษร o ครับ)

Code: Select all

Option Explicit
Option Base 1
Dim i As Long

Sub KeyEventOn()
    Dim a As Variant
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 109, 110, 111)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}", "'EnterToNextCell """ & a(i) & """'"
    Next i
End Sub

Sub KeyEventOff()
    Dim a As Variant
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 109, 110, 111)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}"
    Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
    Dim strText As String
    Dim s As String
    If Not TypeOf Selection Is Range Then Exit Sub
    s = Chr(KeyCode)
    Select Case s
        Case "n", "`": s = 0
        Case "a": s = 1
        Case "b": s = 2
        Case "c": s = 3
        Case "d": s = 4
        Case "e": s = 5
        Case "f": s = 6
        Case "g": s = 7
        Case "h", "o": s = 8
        Case "j", "i", "m": s = 9
    End Select
    strText = Selection.Value & s
    Selection.Value = strText
    Select Case Selection.Column
        Case 3, 12
        'MsgBox "2"
            If Len(Selection) >= 2 Then
                Application.SendKeys "{ENTER}"
            End If
        Case 6, 9, 15
        'MsgBox "5"
            If Len(Selection) >= 3 Then
                Application.SendKeys "{ENTER}"
            End If
    End Select
End Sub

[snasui]

ลองตามนี้ครับ

ที่ KeyEventOn ใต้บรรทัด Dim a As Variant แทรก Code

Code: Select all

Application.TransitionMenuKey = "\"

ที่ KeyEventOff ตำแหน่งเดียวกับด้านบน แทรก Code

Code: Select all

Application.TransitionMenuKey = "/"

[wisit]

ได้แล้วครับอาจารย์ ขอบคุณมากครับอาจารย์

[wisit]

อาจารย์ครับเวลารัน VBA แล้วหน้าจอมันวูบวาบ และในคอลัมน์ D เมื่อคีย์ตัวเลข เช่น คีย์ 100 ในคอลัมน์ D5 เมื่อกด Enter แต่เมื่่อเราแก้ค่าในคอลัมน์ D5 จาก 100 เป็น 50 เมื่อเราคลิ๊กที่คอลัมน์ D5 แล้วคีย์ค่า 50 มันจะขึ้นเป็น 10050 แทนที่จะขึ้น 50 นอกจากเราจะกด delete แล้วค่อยพิมพ์ถึงจะได้ ซึ่งผมลองเขียนโค้ดดู แต่มันไม่เห็นรันให้ ยังคงได้ค่าคงเดิม ซึ่งโค้ดที่ผมเพิ่มเติมคือ

Code: Select all

Option Explicit
Option Base 1
Dim i As Long

Sub KeyEventOn()
    Dim a As Variant
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.TransitionMenuKey = "\"
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 109, 110, 111)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}", "'EnterToNextCell """ & a(i) & """'"
    Next i
End Sub

Sub KeyEventOff()
    Dim a As Variant
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.TransitionMenuKey = "/"
    a = Array(95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 109, 110, 111)
    For i = 1 To UBound(a)
        Application.OnKey "{" & a(i) & "}"
    Next i
End Sub

Sub EnterToNextCell(ByVal KeyCode As Long)
    Dim strText As String
    Dim s As String
    If Not TypeOf Selection Is Range Then Exit Sub
    s = Chr(KeyCode)
    Select Case s
        Case "n", "`": s = 0
        Case "a": s = 1
        Case "b": s = 2
        Case "c": s = 3
        Case "d": s = 4
        Case "e": s = 5
        Case "f": s = 6
        Case "g": s = 7
        Case "h", "o": s = 8
        Case "j", "i", "k", "m": s = 9
    End Select
    strText = Selection.Value & s
    Selection.Value = strText
    Select Case Selection.Column
        Case 3, 12
        'MsgBox "2"
            If Len(Selection) >= 2 Then
                Application.SendKeys "{ENTER}"
            End If
        Case 6, 9, 15
        'MsgBox "5"
            If Len(Selection) >= 3 Then
                Application.SendKeys "{ENTER}"
            End If
    End Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[snasui]

มันก็ควรจะเป็นเช่นนั้นครับ เนื่องจากไม่ได้ใช้ตามปกติของโปรแกรม สิ่งที่พบถือว่าเป็นปกติครับ หากจะใช้ก็ต้องปรับตัวผู้ใช้ให้ยอมรับด้วยครับ

[yodpao.b]

ลองอ่านดูแล้วสนใจเก็บเป็นตัวอย่าง
คำถาม การคีย์ตัวเลขด้วย Keypad คืออะไรครับ