暱稱: 阿吉 頭銜: 不恥下問,不斷學習,才會進步
版主  
- 帖子
- 647
- 主題
- 190
- 精華
- 24
- 積分
- 1037
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- Office 2010 ; OOO3.0 ; Google
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 竹南
- 註冊時間
- 2010-5-2
- 最後登錄
- 2022-6-24
  
|
[原創] 以驗證紀錄您以前在此格輸入過什麼(歷史紀錄)
本帖最後由 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 |
|
發表於 2015-3-1 22:56
| 
