Office中国论坛/Access中国论坛

标题: [求助]数据有效性数据源引用（公式）问题？ [打印本页]

作者: jsyzhui1226 时间: 2005-11-11 21:18
标题: [求助]数据有效性数据源引用（公式）问题？
想在sheet1 D列中，实现数据有效性，下拉单的数据源为：sheet2 A列中值等于 B2 值所对应的sheet2 B列中的值的结合。详细件附件！谢谢[attach]14087[/attach]

作者: george 时间: 2005-11-16 01:33
如果编程可能简单些

作者: jsyzhui1226 时间: 2005-11-16 17:06
可否给段代码？谢谢。

作者: kenkenluo 时间: 2005-11-23 04:35
不知道了，看看还有高手帮忙啊

作者: liangest 时间: 2006-6-28 00:27
顶

作者: gvntw 时间: 2007-8-21 16:55
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub

Dim strTemp As String
Dim rgs As Range
Dim rg As Range

strTemp = ""
Set rgs = Sheet2.Range(Sheet2.Cells(2, 1), Sheet2.Cells(65536, 1).End(xlUp))

For Each rg In rgs
      If rg = Target Then
         strTemp = strTemp & "," & rg.Offset(, 1)
      End If
Next

On Error Resume Next
With Target.Offset(, 1).Validation
      .Delete
      .Add Type:=xlValidateList, Formula1:=Mid(strTemp, 2)
End With

End Sub

作者: pureshadow 时间: 2007-8-21 19:27
二级有效性呀，不用编程也可以做到的

作者: gvntw 时间: 2007-8-28 14:28

原帖由 pureshadow 于 2007-8-21 19:27 发表
二级有效性呀，不用编程也可以做到的

是可以，，但由于有效性不支持直接使用内存数组，不用辅助列以我的水平做不出来，下面是添加辅助列的方法。

作者: feixiang7823 时间: 2009-1-23 01:50
顶顶顶

作者: lmj8260 时间: 2009-6-30 08:42
学学楼上的二级数据有效性,以前没接触过

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)