如何寫一個這樣的程式??

Question

如何寫一個這樣的程式??
在excel中,用鍵盤的右邊數字鍵,在儲存格中輸入1或者0時,會自動跳到下一個儲存格???

我是想建一個資料表,當一個儲存格內輸入 0 or 1 or 2 or 3 or 4 or 5 時,我不用按enter鍵,當按下1時則自動跳至下一個儲存格,或按下0時會自動跳至下一個儲存格,或按下2時會自動........等...

是鍵盤右邊的數字鍵,0,1,2,3,4,5哦....

Answer 1

Sub Macro1()
num = InputBox("請輸入上8,下2,左4,右6")
if num=8 then ActiveCell.Offset(-1, 0).Select '=往上一格
if num=2 then ActiveCell.Offset(1, 0).Select '=往下一格
if num=6 then ActiveCell.Offset(0, 1).Select '=往右一格
if num=4 then ActiveCell.Offset(0, -1).Select '=往左一格
End Sub
解說 ActiveCell.Offset(8, 1).Select '=往右 8 格
ActiveCell.Offset(-11, 0).Select '=往上 11格

2006-02-19 15:59:21 補充：
幫妳想一個另類輸入方式在a1 輸入數字(字數不限),輸完確認無誤,按下巨集按鈕幫妳排列輸入*輸入數字前先輸入 ' 再輸入文字,不然純數字限15個字,意識輸入文數字使用方式1在 a1 輸入文數字2將游標移到要輸入點3再按下巨集按鈕4挑選 1往下 或 3往右 排入*空白格鍵入[空白鍵]

2006-02-19 16:12:21 補充：
Sub Macro1() num = InputBox("往下排列=1,往右排列=3") i = 0 bb = Range("a1") cc = Len(bb) If cc = 0 Then End If num <> 1 AND num <> 3 Then End

2006-02-19 16:12:59 補充：
For i = 1 To cc aa = Mid(bb, i, 1) ActiveCell.FormulaR1C1 = aa If num = 1 Then ActiveCell.Offset(1, 0).Select ' = 往下一格 If num = 2 Then ActiveCell.Offset(0, 1).Select '= 往右一格 Next iEnd Sub

2006-02-19 16:13:57 補充：
If num = 2 Then ActiveCell.Offset(0, 1).Select '= 往右一格改成If num = 3 Then ActiveCell.Offset(0, 1).Select '= 往右一格

Answer 2

在輸入狀態,無法做任何判斷,例如按下Enter或離開儲存格後才有可能做判斷,所以你要不要更改需求??

Answer 3

向右...或一般的EXCEL工作表中也可設定,按下ENTER鍵,要往?(上、下、左、右) ~謝謝~

2006-02-16 08:21:40 補充：
謝謝您的意見..我知道可以...好像要寫個小程式.外掛程式之類的..但是重點是我不會...所以才會來這裏求救...

Answer 4

所謂“下一個儲存格”是指哪一個方向的儲存格呢?(上、下、左、右)