- 帖子
- 38
- 主題
- 4
- 精華
- 0
- 積分
- 65
- 點名
- 0
- 作業系統
- Window7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-12-16
- 最後登錄
- 2013-12-13
|
回復 1# brabus
我無法下載樓主的附件, 不過您可以嘗試用下列程式碼試試看
With Range("F4").Validation
If Range("E4") = "" Then
.Delete
Else
.Delete
.Add xlValidateList, , , "=" & [E4]
End If
End With |
|