[已解决]求助！简单的宏功能，急用，在线等！

zeng1412 · 发表于 2012-1-29 19:18

本帖最后由 zeng1412 于 2012-1-29 21:09 编辑

现在有2个表，在第一个表上面有3个按钮，分别是新建，保存，查询。
我要实现这3个简单的功能。具体数据和要求见附件。
很简单的，希望高手能帮忙解决，在线等！！

感谢：无聊的疯子、sunjing-zxl、windimi007 帮我解决这个问题

最佳答案

月排行榜 / 总排行榜

windimi007

2012-1-29 21:04

zeng1412 发表于 2012-1-29 21:00
不是这个意思
比如说：0001 ABC
0002 CCC

应该是这样吧！{:912:}

跳转到最佳答案楼层

无聊的疯子 · 发表于 2012-1-29 19:30

注意：现在我编号到0010，然后查询0004，我再新建时，编号按之前保存的编号继续加，则为0011
如果你一直新建,从1一直新建到10,中间并未保存(或者跳位保存),这时候你要查询是不是就不一定能查到呢??

按保存时，编号和名称自动保存在SHEET2对应地方

这个对应的地方是那里??A列?B列?IV列?还是 XDF列??
保存时,名称为空是否允许保存??

如果你是如下操作
建一个编号>添加上名称>保存>再建一个编号>循环

那是否可以直接改用
添加上名称>保存(同时增加编号,清空名称)

zeng1412 · 发表于 2012-1-29 19:33

无聊的疯子发表于 2012-1-29 19:30
注意：现在我编号到0010，然后查询0004，我再新建时，编号按之前保存的编号继续加，则为0011
如果你一直新 ...

保存到对应的地方，就是在SHEET，编号和名称对应的列

有些地方没考虑完全，请高手指导!
关键是这些代码怎么写！

无聊的疯子 · 发表于 2012-1-29 19:55

zeng1412 发表于 2012-1-29 19:33
保存到对应的地方，就是在SHEET，编号和名称对应的列

有些地方没考虑完全，请高手指导!

看看这样行不??
要从1开始,只需要将 F9 中的值修改成1就行了

新建 Microsoft Excel 工作表.zip (20.6 KB, 下载次数: 3)

windimi007 · 发表于 2012-1-29 19:56

zeng1412 发表于 2012-1-29 19:33
保存到对应的地方，就是在SHEET，编号和名称对应的列

有些地方没考虑完全，请高手指导!

做了一个，就是有一点：如果没有单击保存，点击新建，编号数值是不会增加的。不知道是否符合要求呢？{:3912:}

zeng1412 · 发表于 2012-1-29 20:18

windimi007 发表于 2012-1-29 19:56
做了一个，就是有一点：如果没有单击保存，点击新建，编号数值是不会增加的。不知道是否符合要求呢？{:39 ...

有3个小问题
1、我不小心多按了几次保存，在Sheet2中，出现了重复保存。能否唯一编号，只能保存一行
2、查询功能和新建功能一样
3、如果利用查询功能修改已经保存的数据，能否覆盖掉原来对应的数据，保存在sheet2的行不变

zeng1412 · 发表于 2012-1-29 20:21

无聊的疯子发表于 2012-1-29 19:55
看看这样行不??
要从1开始,只需要将 F9 中的值修改成1就行了

如果我保存的数据，错了，能否利用查询功能进行修改，
比如我首先输入了编号：0001，名称：ABC
我保存好了，后面检查时，我输错了，我能否在利用查询功能
查询0001，把名称改为BBC，然后点击保存，新数据覆盖掉原来的数据，且保存位置不变

sunjing-zxl · 发表于 2012-1-29 20:26

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

复制代码

无聊的疯子 · 发表于 2012-1-29 20:26

zeng1412 发表于 2012-1-29 20:21
如果我保存的数据，错了，能否利用查询功能进行修改，
比如我首先输入了编号：0001，名称：ABC
我保存好 ...

已经修改

新建 Microsoft Excel 工作表.zip (20.77 KB, 下载次数: 2)

windimi007 · 发表于 2012-1-29 20:30

zeng1412 发表于 2012-1-29 20:18
有3个小问题
1、我不小心多按了几次保存，在Sheet2中，出现了重复保存。能否唯一编号，只能保存一行
2、 ...

没在查询上改动，在保存上改动了一下，请测试！{:1712:}

		自动登录	找回密码
密码			注册

[已解决]求助！简单的宏功能，急用，在线等！

浏览过的版块