[已解决]取得行号时错误

9910343

行号.rar (9.69 KB, 下载次数: 17)

2013-1-12 10:55 上传

点击文件名下载附件

谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-12 11:06

Private Sub CommandButton1_Click()    '查找用户在A列的
    With Sheets("客户资料")
        s = WorksheetFunction.Match(TextBox1.Text * 1, .[a:a], 0)
        .Cells(s, 5) = TextBox4.Text
    End With
End Sub

这样吗

跳转到最佳答案楼层

爱疯

Private Sub CommandButton1_Click()    '查找用户在A列的
    With Sheets("客户资料")
        s = WorksheetFunction.Match(TextBox1.Text * 1, .[a:a], 0)
        .Cells(s, 5) = TextBox4.Text
    End With
End Sub

这样吗

hwc2ycy

1. s = WorksheetFunction.Match(Val(ps), .[a:a], 0)

复制代码

hwc2ycy

还要考虑下，当输入的不在你表里的情况。还有TEXTBOX为空时，就不能再进行计算。