阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
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
本文引用自: http://tw.knowledge.yahoo.com/question/question?qid=1613121指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯784
阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
以下文章來自: http://tw.knowledge.yahoo.com/question/question?qid=1613121101784阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發