|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test()
- Dim s$, i&
- For i = 2 To Worksheets.Count
- s = s & "," & Sheets(i).Name
- Next i
- With [d12].Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(s, 2)
- End With
- [d12].Select
- SendKeys "%{down}"
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target
- If .CountLarge > 1 Then Exit Sub
- If .Address <> [d12].Address Then Exit Sub
- If .Value = "" Then Exit Sub
- Sheets(.Value).Activate
- .ClearContents
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|