关于单元格下拉菜单内容定位可选的问题

mineshine

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cs, R As String
    Cells(4, 4).Validation.Delete
    If Target.Row = 4 And Target.Column = 4 Then
        For Each sh In Sheets
            If sh.Name <> "首页" And sh.Name <> "工地工时" And sh.Name <> "工地工资" And _
                sh.Name <> "工作清单" And sh.Name <> "个人汇总" And sh.Name <> "下拉菜单" Then
                With Sheets(sh.Name).Range("C5:C" & Sheets(sh.Name).[C65536].End(xlUp).Row)
                    Set cs = .Find(Target, LookIn:=xlValues)
                    If Not cs Is Nothing Then
                        firstAddress = cs.Address
                        Do
                            R = R + "," + cs
                            Set cs = .FindNext(cs)
                        Loop While Not cs Is Nothing And cs.Address <> firstAddress
                            R = Right(R, Len(R) - 1)
                            Cells(4, 4).Validation.Add 3, 1, 1, R
                    End If
                End With
            End If
        Next sh
    End If
    Target.Select
End Sub

[ 本帖最后由 mineshine 于 2009-3-3 09:14 编辑 ]

小学童

我试了，怎么提示缺少模块啊！保存后再打开就好象没发现哪有功能上的变化，是不是我不会用呢！

[ 本帖最后由 小学童 于 2009-3-3 19:20 编辑 ]

ccf345

又学习了!!!

keya

看来这问题没有解决啊,真希望有人能解决

小学童

其实这个问题朋友们已帮忙做好了。请看附件！该表已能用了，只是我把数据删除了，如遇有朋友用的着的地方欢迎使用和多题意见，因为多一个人的想法该表就更能完整一些。谢谢！！

[ 本帖最后由 小学童 于 2009-5-18 11:45 编辑 ]

snaDOOM

~~~~~~~~~~~~~~~

lishijun1202

{:soso_e179:}