|
- Sub 新建()
- Dim k As Long
- Dim n As Long
- With Sheets("sheet2")
- n = .[A65536].End(xlUp).Row
- If n = 1 Then
- k = 1
- Else
- k = Val(.Cells(n, 1)) + 1
- End If
- End With
- Cells(8, 4) = k
- Range("D9").ClearContents
- End Sub
- Sub 保存()
- Dim k1 As Long, k2
- Dim n As Long
- k1 = Cells(8, 4)
- k2 = Cells(9, 4)
- If k2 = "" Then
- MsgBox "名称为空" & Chr(10) & "请输入名称"
- Exit Sub
- End If
- With Sheets("sheet2")
- n = .[A65536].End(xlUp).Row
- .Cells(n + 1, 1) = k1
- .Cells(n + 1, 2) = k2
- End With
- End Sub
- Sub 查询()
- Dim k1 As Long, k2
- Dim n As Long, i As Long, arr
- k1 = InputBox("请输入正整数", "查询编号")
- With Sheets("sheet2")
- n = .[A65536].End(xlUp).Row
- arr = .Range(.Cells(2, 1), .Cells(n, 2))
- End With
- For i = 1 To UBound(arr)
- If arr(i, 1) = k1 Then
- k2 = arr(i, 2)
- Cells(8, 4) = k1
- Cells(9, 4) = k2
- MsgBox "查询完毕"
- Exit Sub
- End If
- Next i
- MsgBox "没有所查询编号存在"
- End Sub
复制代码 |
|