[已解决]紧急求助输入内容控制的办法，谢谢

zhycl · 发表于 2014-2-24 09:39

本帖最后由 zhycl 于 2014-2-24 09:40 编辑

示例.rar (3.3 KB, 下载次数: 7)

冠军欧洲2010 · 发表于 2014-2-24 09:48

本帖最后由冠军欧洲2010 于 2014-2-24 10:20 编辑

...........

fffox · 发表于 2014-2-24 10:02

添加数据有效性

Sub 有效性()
Dim arr, d As Object, i%, dKeys, str$
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
arr = .Range("a2", .Cells(.Rows.Count, 1).End(3))
For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
d(arr(i, 1) * -1) = ""
Next
If d.Count > 1 Then
dKeys = d.keys
str = Join(dKeys, ",")
End If
With .Range("b2", Cells(Rows.Count, 2)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=str
End With
End With
End Sub

复制代码

zhycl · 发表于 2014-2-24 10:05

冠军欧洲2010 发表于 2014-2-24 09:48
...........

我想控制 B 列可以输入两种情况的数一个是A的正数，一个是A列的负数

冠军欧洲2010 · 发表于 2014-2-24 10:10

........

suye1010 · 发表于 2014-2-24 10:11

数据有效性设置一下就可以了，用公式Countif(A:A,ABS(B1))

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

[已解决]紧急求助 输入 内容控制的办法，谢谢