palmerconniba的部落格

1. 程式功能:
在A-M範圍內，按數字直接輸入該數
輸入後自動右移，到M欄自動下移一列

2. 按 ESC 解除設定
 
3. 注意！無法執行時，請將輸入法請切換至英數模式

 

'下面程式碼放在一般模組，輸入法要切換至英文模式
'
'小鍵盤數字鍵 0-9 是{96}{97}{98}{99}{100}{指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯}{102}{103}{104}{105}
Sub 按數字輸入_設定()
    Application.StatusBar = "按0-9直接輸入...程式運行中 ...，按 ESC 結束程式"
    Application.OnKey "{ESC}", "按數字輸入_解除"
    For i = 0 To 9
        Application.OnKey "{" & 48 + i & "}", "'輸入(" & i & ")'"    '上方區數字鍵
        Application.OnKey "{" & 96 + i & "}", "'輸入(" & i & ")'"    '小鍵盤數字鍵
    Next i
End Sub
Sub 按數字輸入_解除()
    Application.StatusBar = False
    Application.OnKey "{ESC}"
    For i = 0 To 9
        Application.OnKey "{" & 48 + i & "}"   '上方區數字鍵
        Application.OnKey "{" & 96 + i & "}"    '小鍵盤數字鍵
    Next i
    MsgBox "按 ESC 程式結束"
End Sub
Sub 輸入(n)
    With ActiveCell
        .Value = n
        .Cells(1, 2).Activate '向右移一格
        If .Column >= [M1].Column Then Range("B" & .Row + 1).Activate '跳至下行
    End With
End Sub