這個,可以用WorkSheet的事件處理
開啟VBA編輯器,把以下的程式碼放到對應的WorkSheet物件裡頭
<pre class="c" name="code">
Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Value = "OK" Then
Target.Cells(1, 1).Offset(1, 0).Select
ElseIf Trim(Target.Cells(1, 1).Value) = "" Then
Target.Cells(1, 1).Select
End If
End Sub