標題: [原創] 以驗證紀錄您以前在此格輸入過什麼(歷史紀錄) [打印本頁]

---

作者: HUNGCHILIN    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)