EXCEL如何設定自動輸入與選單

Question

各位高手有人能幫我解決以下問題嗎?
我工作上有用到

1.設定一個儲存格可以讓我點一下就自動幫我打上一個字(例如OK)再點一下會自動消失

2.類似上一題....點一下儲存格就會自動幫我輸入現在的日期與時間

3.儲存格可以一點就出現清單讓我選擇我預先設定好的文字...(我用過驗證,但是有個問題,用驗證就不可以輸入設定中以外的文字)我希望的是可以選也可以自己輸入,不能自己輸入也沒關西,我想問問看有沒有驗證以外的方法

各位前輩~~麻煩了

首先感謝沙拉油的回答
再進一部請教
您給的程式
如果我要A列與B列都是一點就輸入時間日期
C列與D列都是一點就自動輸入字串(例OK)
要如何修改

還有如果自動輸入日期時間
可以改為僅輸入日期或是僅輸入時間嗎?

煩請解答~感激不盡

Answer 1

問題1、2
滑鼠右鍵點選工作表索引標籤上的工作表名稱 >> 選檢視程式碼
將底下的程式碼貼到VBE視窗右邊的程式碼區域後同時按下 Alt+Q 回到 Excel 後，點選A1會輸入日期及時間，點選B1會輸入字串 OK!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rngdate = "A1" '輸入時間的儲存格，欄名請用大寫
rngstr = "B1" '輸入字串的儲存格，欄名請用大寫
mystr = "OK!" '要輸入的字串

Application.EnableEvents = False
If Target.Address(0, 0) = rngdate Then
Range(rngdate) = IIf(Range(rngdate) = "", Now, "")
ElseIf Target.Address(0, 0) = rngstr Then
Range(rngstr) = IIf(Range(rngstr) = "", mystr, "")
End If
Application.EnableEvents = True
End Sub

問題3
在資料驗證對話方塊內有個「錯誤提醒」
將「輸入的資料不正確時顯示警訊」取消勾選後即可輸入設定中以外的文字。
若要用「驗證以外的方法」頂多也是寫個 VBA程式來達到目的。

2006-02-18 21:17:27 補充：
>>如果我要A列與B列都是一點就輸入時間日期 >>C列與D列都是一點就自動輸入字串(例OK) >>要如何修改 >>>>還有如果自動輸入日期時間 >>可以改為僅輸入日期或是僅輸入時間嗎?

2006-02-18 21:20:31 補充：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)mystr = "OK"mydate_time = Time '日期寫 date，時間寫 time，日期及時間寫 nowIf Target.Cells.Count > 1 Then Exit SubApplication.EnableEvents = False

2006-02-18 21:20:57 補充：
Select Case Target.ColumnCase 1 To 2: newstr = IIf(Target = "", mydate_time, "")Case 3 To 4: newstr = IIf(Target = "", mystr, "")End SelectTarget = newstrApplication.EnableEvents = TrueEnd Sub

2006-02-18 21:23:32 補充：
由於補充及意見都有字數限制無法一次發出，只好分段，所以程式碼請自行將上兩篇合併。

2006-02-18 21:26:24 補充：
Select Case 說明Case 1 To 2 指的是第1欄到第2欄，也就是A,B欄Case 3 To 4 指的是第3欄到第4欄，也就是C,D欄

Answer 2

[驗證]也是可以讓你輸入表單之外的文字，
把清單的部分改為用欄位或名稱的方式表示，只要清單中含有空白的儲存格，就可以輸入清單之外的文字。
以上