[分享]无拘无束的数据有效性

groovcoverage · 发表于 2013-1-8 14:11

很不错，先收藏。谢谢！

zhaoxiaomei · 发表于 2013-1-20 11:32

太好了学习

qqqf · 发表于 2013-2-17 14:28

求助多级有效性，不明白，求指教

wanglury871205 · 发表于 2013-2-17 14:47

收藏学习！

godshit · 发表于 2013-2-17 22:25

占座留名，有空再看，有空再来

suichunxin · 发表于 2013-3-27 12:47

谢谢分享！

2677598003 · 发表于 2013-4-7 19:18

太好了，学习。

947625587 · 发表于 2013-4-12 14:26

谢谢版主分享！

联系谁 · 发表于 2013-4-19 09:05

请问何解读以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 Then Exit Sub
Sheet1.Cells(2, 5 + Target.Column) = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R%
If Target.Count > 1 Then Target.Cells(1).Select: Exit Sub
If Target.Column > 1 Then
If Target.Offset(0, -1) = "" Then
Target.Offset(0, -1).Select
Exit Sub
End If
End If
R = Target.Row
With Sheet1
.Range("f2") = Range("a" & R)
.Range("g2") = Range("b" & R)
.Range("h2") = Range("c" & R)
End With
End Sub

包大仁无敌希哥 · 发表于 2013-5-20 10:10

好好学习~!!

		自动登录	找回密码
密码			免费注册