返回列表 上一主題 發帖

[原創] 以驗證紀錄您以前在此格輸入過什麼(歷史紀錄)

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-1 22:56 | 只看該作者

[原創] 以驗證紀錄您以前在此格輸入過什麼(歷史紀錄)

驗證
本帖最後由 HUNGCHILIN 於 2015-3-1 22:59 編輯

舊帖移轉

輸入儲存格後自動變為驗證清單.
在同一格輸多次會有多次驗證清單.有輸入紀錄
到別的儲存格.有自己的驗證清單
以驗證紀錄您以前在此格輸入過什麼(歷史紀錄)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target.Validation
If .formula1 = "" Then
.Add Type:=xlValidateList, formula1:=Target.Text
.InCellDropdown = True
.ShowInput = False
.ShowError = False
ElseIf InStr(.formula1, Target.Text) = 0 Then
.Modify , , , .formula1 & "," & Target.Text
End If
End With
End Sub
收藏 分享
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題