|
本帖最后由 EXCEL-YQ 于 2011-8-28 14:52 编辑
- Private Sub CommandButton1_Click()
- Dim myfind As String
- Dim myrng As Long
- Dim i%, EndRow As Long
- myfind = TextBox1
- If Trim(myfind) <> "" Then
- On Error Resume Next
- myrng = Sheet1.Range("A:A").Find(What:=myfind, LookAt:=xlWhole).Row
- If myrng = 0 Then
- MsgBox "没有找到该序号!"
- Else
- Sheet1.Cells(myrng, "B") = Sheet1.Cells(myrng, "B") + TextBox2 * 1
- '查找值所在行的B列等于原本数据加上TextBox2*1强制转换为数字格式
- EndRow = Sheet2.Range("A1048576").End(xlUp).Row + 1
- '求Sheet2工作表中A列向上查找到的最后一个非空单元格所在行 加 1
- Sheet2.Cells(EndRow, 1) = TextBox1 * 1
- Sheet2.Cells(EndRow, 2) = TextBox2 * 1
- End If
- Else
- MsgBox "序号不得为空"
- End If
- End Sub
复制代码 |
|