Excel 問題....急..

若要輸入公式，又要輸入數字，那是沒辦法的。
可以：

１‧用驗證方法。
highlight A(或你指定的那行)
資料／驗證／設定
整數，少於，11

２‧用巨集
工具／巨集／巨集／
巨集名稱：validate
[建立]
內容：
Sub validate()
Set myinput = Range("A1:A1000")
For i = 1 To 1000
If myinput(i).Value > 10 Then
myinput(i).Value = "10"
End If
Next
End Sub


關閉編輯器。
檢查按 Alt-F8 , 執行validate()。

2009-02-03 18:00:25 補充：
如果資料超過1000筆，上面巨集須要修改。

可以改用下面這個巨集，最多可去到六萬幾筆。

Sub validate()
Dim myrow As Integer
myrow = Range("a65536").End(xlUp).Row
For i = 1 To myrow
If Cells(i, 1) > 10 Then
Cells(i, 1) = "10"
End If
Next
End Sub

你可以考慮一下...

1) 在儲存格 E1:E10 每格輸入1至10
2) 選取A1
3) 資料 > 驗證 > 清單(中央拉下選單)
4) 輸入來源 =E1:E10
5) ok

這方法會強制使用者只能選擇A1清單的內容. 如要做到你想要的效果, 你就必須vba吧.

Calvin Lee, [email protected]