客户管理表整理

excel求知狂

请高手帮我看看修改这个按钮什么地方出了问题。有时不能很准确的修改，也就是说，出现相同内容时只修改第一个内容而后面的不管点什么地方都是只是修改第一个内容别的不变。
Private Sub CommandButton4_Click()
Dim x%, y%, mrg As Range, DZ1$, DZ2$, DM$
    With Sheets("客户表")
        If MsgBox("你确实要修改当前窗口中的这些数据吗？", 4 + 32, "提示：") = vbNo Then
            Exit Sub
        End If
        n = 电话.Text: y = .[f62233].End(xlUp).Row + 1
        Set mrg = .Range("f2:f" & y).Find(n, lookat:=xlWhole)
        x = mrg.Row:  DZ1 = mrg.Address
        If .Range("f" & x) = 电话.Text Then
            .Range("c" & x) = 公司名称.Text
            .Range("d" & x) = 联系人.Text
           .Range("f" & x) = 电话.Text
          .Range("e" & x) = 手机.Text
         .Range("i" & x) = 地址.Text
        .Range("b" & x) = 区域.Text
        .Range("g" & x) = 信息.Text
        .Range("h" & x) = 时间.Text
       Else
            Do
            Set mrg = .Range("f2:f" & y).FindNext(mrg)
            x = mrg.Row: DZ2 = mrg.Address: DM = .Range("f" & x)
            If .Range("f" & x) = 电话.Text And DZ2 <> DZ1 Then
                 Range("c" & x) = 公司名称.Text:
                 .Range("d" & x) = 联系人.Text
        .Range("f" & x) = 电话.Text:
        .Range("e" & x) = 手机.Text
        .Range("i" & x) = 地址.Text
        .Range("b" & x) = 区域.Text:
        .Range("g" & x) = 信息.Text
        .Range("h" & x) = 时间.Text
                Exit Sub
            End If
            Loop Until mrg.Address = DZ1
        End If
    End With
    公司名称.Text = "": 联系人.Text = "": 电话.Text = "": 手机.Text = "": 信息.Text = ""
    地址.Text = "": 区域.Text = "": 时间.Text = "":
End Sub
其他功能都已经实现，希望对大家有个帮助谢谢

liulang0808

由于加载错误，无法看到原来代码
个人感觉，你每次修改是不是都要从最上面开始找关键字，肯定找到的是最上面的，修改的也是最上面的吧？

liulang0808

要修改下面的，就需要考虑找到第一个如果不修改，还需不需要继续向下查找的问题。

excel求知狂

liulang0808 发表于 2013-2-17 16:41
由于加载错误，无法看到原来代码
个人感觉，你每次修改是不是都要从最上面开始找关键字，肯定找到的是最上 ...

加载错误啊？。这个基本没什么错误吧。我已经添加附件了。附件中有全部的代码。我现在的是通过LISTVIEW 点击然后出现相关行列，但是如果前面有相同内容就只是修改前面的而不是我选定的内容。

excel求知狂

liulang0808 发表于 2013-2-17 16:42
要修改下面的，就需要考虑找到第一个如果不修改，还需不需要继续向下查找的问题。

不是向下查找的问题。问题出在如何会优先考虑相同内容的比如电话.TEXT 相同的话就只是修改电话相同的内容第一条而后面则不修改。甚至有乱删除内容的BUG奇怪了。。

MONEY0809

求    看   帖~