Discussion:
excel按enter後...
(时间太久无法回复)
kent1983
2005-10-02 12:59:01 UTC
Permalink
本人想在指定範圍內輸入一系列的值,每當按ENTER鍵後,
系統會判段該值是否超過指定數值,如否則到下一行,
如是則直接跳到另一個指定儲存格

請問該如何做?
chijanzen
2005-10-02 14:25:03 UTC
Permalink
你好:

你的問題只用 VBA 程式碼來做了

使用 Worksheet_Change 事件來取得使用者輸入的資料
再來判斷輸入的數值是否大於 指定數值

請參考範例:

A1:A10 儲存格輸入的數值大於 B1 儲存格時,直接跳到 B1 儲存格
如過小於 B1 則跳到下一行


Private Sub Worksheet_Change(ByVal Target As Range)
Set UserRange = Range("A1:A10")
If Not Application.Intersect(UserRange, Target) Is Nothing Then
If IsNumeric(Target) And Target > Range("B1") Then
Range("B1").Activate
End If
End If
End Sub


檔案下載:

http://vba.com.tw/file/9410021.rar
--
天行健君子以自強不息

http://www.vba.com.tw/plog/


"kent1983" 來函:
Post by kent1983
本人想在指定範圍內輸入一系列的值,每當按ENTER鍵後,
系統會判段該值是否超過指定數值,如否則到下一行,
如是則直接跳到另一個指定儲存格
請問該如何做?
Loading...