Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2842|回复: 8

[已解决]求用VBA查询学生信息-删除

[复制链接]
发表于 2013-8-27 04:24 | 显示全部楼层 |阅读模式
本帖最后由 龙送农 于 2013-8-27 07:30 编辑

求用VBA查询学生信息-删除
最佳答案
2013-8-27 08:19
本帖最后由 我心飞翔410 于 2013-8-27 08:24 编辑

我运行没错啊  你运行两次就不行了 因为你已经把那个记录删除了 在运行找不到那个记录所以提示错误
改哈 找不到 提示
Sub 删除指定记录()
On Error GoTo 100
Dim Y As Integer
With Sheets("学生基础信息")
   Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
   MsgBox Y
   .Rows(Y).Delete
End With
100:
MsgBox "没有找到"
End Sub

求用VBA查询学生信息-删除-保存新信息.rar

68.77 KB, 下载次数: 21

发表于 2013-8-27 07:30 | 显示全部楼层
以〖采集表〗的C13身份证号查询〖学生基础信息〗表,如果该人员信息存在,则将该人员所在的行信息删除,然后保存〖采集表〗的信息到〖学生基础信息〗表  
有这个 已经删除了 〖采集表〗的信息到〖学生基础信息〗表 直接保存就完了啊  还是说有这个 你要修改  重新录入
回复

使用道具 举报

 楼主| 发表于 2013-8-27 07:34 | 显示全部楼层
我心飞翔410 发表于 2013-8-27 07:30
以〖采集表〗的C13身份证号查询〖学生基础信息〗表,如果该人员信息存在,则将该人员所在的行信息删除,然后 ...

以〖采集表〗的C13身份证号查询〖学生基础信息〗表N列,如果该人员信息存在,则将〖学生基础信息〗表该人员所在的行信息删除,然后保存〖采集表〗的信息到〖学生基础信息〗表 。
回复

使用道具 举报

 楼主| 发表于 2013-8-27 07:35 | 显示全部楼层
我心飞翔410 发表于 2013-8-27 07:30
以〖采集表〗的C13身份证号查询〖学生基础信息〗表,如果该人员信息存在,则将该人员所在的行信息删除,然后 ...

要修改  重新录入
回复

使用道具 举报

发表于 2013-8-27 07:53 | 显示全部楼层
龙送农 发表于 2013-8-27 07:35
要修改  重新录入

Sub 删除指定记录()
Dim Y As Integer
With Sheets("学生基础信息")
   Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
   MsgBox Y
   .Rows(Y).Delete
End With
End Sub
你把那行删了 再把你录入的代码叫过来就可以了
回复

使用道具 举报

 楼主| 发表于 2013-8-27 08:14 | 显示全部楼层
我心飞翔410 发表于 2013-8-27 07:53
Sub 删除指定记录()
Dim Y As Integer
With Sheets("学生基础信息")

代码运行出现这个
Q8VB2DO%KO74)0IM$OM5G(U.jpg
回复

使用道具 举报

发表于 2013-8-27 08:19 | 显示全部楼层    本楼为最佳答案   
本帖最后由 我心飞翔410 于 2013-8-27 08:24 编辑

我运行没错啊  你运行两次就不行了 因为你已经把那个记录删除了 在运行找不到那个记录所以提示错误
改哈 找不到 提示
Sub 删除指定记录()
On Error GoTo 100
Dim Y As Integer
With Sheets("学生基础信息")
   Y = .[n:n].Find(Sheets("采集表").Range("c13"), Lookat:=xlWhole).Row
   MsgBox Y
   .Rows(Y).Delete
End With
100:
MsgBox "没有找到"
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-8-27 13:25 | 显示全部楼层
我心飞翔410 发表于 2013-8-27 08:19
我运行没错啊  你运行两次就不行了 因为你已经把那个记录删除了 在运行找不到那个记录所以提示错误
改哈 找 ...

谢谢老师,你说没错!!!!
回复

使用道具 举报

发表于 2014-8-6 20:08 | 显示全部楼层
留个脚印,明天察看
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-16 02:47 , Processed in 0.584502 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表