[已解决]如何用数据有效性，限制性填写数据。

生闷气

各位大侠好：
      我们工作中经常采购东西，一般情况下，相同的东西单价应该相同，请问，如何用数据有效性，限制性填写商品的单价。
  具体情况及要求，请看我上传的附件，谢谢指点。

最佳答案

月排行榜 / 总排行榜

kmcla

2017-1-11 15:00

    For Each wks In ActiveWorkbook.Worksheets
        If wks.Name <> "目录" Then
            With wks.Cells
                Set rCell = .Find(what:="*AC", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchByte:=True, MatchCase:=False, SearchFormat:=False)
                If Not rCell Is Nothing Then
                    szFirst = rCell.Address
                    Do
                        rCell.Offset(qh, ql) = "  数字  "   
                        Set rCell = .FindNext(rCell)
                        i = i + 1
                        Loop While Not rCell Is Nothing And rCell.Address <> szFirst
                    End If
                End With
            End If
        Next wks
这是我用的一段代码，你自己改一下

跳转到最佳答案楼层

生闷气

没人回答吗？

kmcla

查找，替换，即可，不用有效性

kmcla

    For Each wks In ActiveWorkbook.Worksheets
        If wks.Name <> "目录" Then
            With wks.Cells
                Set rCell = .Find(what:="*AC", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchByte:=True, MatchCase:=False, SearchFormat:=False)
                If Not rCell Is Nothing Then
                    szFirst = rCell.Address
                    Do
                        rCell.Offset(qh, ql) = "  数字  "   
                        Set rCell = .FindNext(rCell)
                        i = i + 1
                        Loop While Not rCell Is Nothing And rCell.Address <> szFirst
                    End If
                End With
            End If
        Next wks
这是我用的一段代码，你自己改一下

生闷气

谢谢，就是有点复杂。