查看: 380|回复: 11|
在线时间58 小时经验28 威望0 性别保密最后登录注册时间阅读权限20UID953908积分28帖子精华0分享0
EH初级, 积分 28, 距离下一级还需 322 积分
积分排行3000+帖子精华0微积分0
& & 1、点击按钮，将“全部”工作表中的内容按学校进行分类，并按原(全部)工作表的列表名称顺序分别添加到相应工作表标签名的工作表中，并将“A中学、B中学、C中学、D中学”工作表中的数据分别添加到相同目录下的指定工作簿的指定工作表中？
& & 2、以后对相应数据进行再次添加时，不删除同工作簿及原来工作簿(A中学、B中学、C中学、D中学)中工作表的数据，工作簿中的所有工作表数据呈递增(累计)添加？
& & 跪求高手指教。。谢谢！
(30.16 KB, 下载次数: 5)
14:38 上传
下载次数: 5
在线时间3500 小时经验10737 威望6 性别男最后登录注册时间阅读权限95UID188110积分10837帖子精华0分享0
积分排行66帖子精华0微积分0
Sub test()
&&Dim d As Object
&&Dim d1 As Object
&&Dim r%, i%
&&Dim arr, brr
&&Dim ws As Worksheet
&&Dim rng As Range
&&Set d = CreateObject(&scripting.dictionary&)
&&Set d1 = CreateObject(&scripting.dictionary&)
&&With Worksheets(&全部&)
& & r = .Cells(.Rows.Count, 1).End(xlUp).Row
& & arr = .Range(&a1:g& & r)
& & Set rng = .Cells(1, 1).Resize(1, 7)
& & For i = 2 To UBound(arr)
& && &If Not d.Exists(arr(i, 3)) Then
& && &&&Set d(arr(i, 3)) = .Cells(i, 1).Resize(1, 7)
& && &Else
& && &&&Set d(arr(i, 3)) = Union(d(arr(i, 3)), .Cells(i, 1).Resize(1, 7))
& && &End If
& & Next
&&End With
&&For Each ws In Worksheets
& & d1(ws.Name) = &&
&&Next
&&For Each aa In d.Keys
& & If Not d1.Exists(aa) Then
& && &Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
& && &With ws
& && &&&.Name = aa
& && &&&rng.Copy .Range(&a1&)
& && &End With
& & End If
& & With Worksheets(aa)
& && &If .Cells(1, 1) && &准考证号& Then
& && &&&.Cells.Clear
& && &&&rng.Copy .Range(&a1&)
& && &End If
& && &r = .Cells(.Rows.Count, 1).End(xlUp).Row
& && &d(aa).Copy .Range(&a& & r + 1)
& & End With
&&Next
End Sub复制代码
在线时间3500 小时经验10737 威望6 性别男最后登录注册时间阅读权限95UID188110积分10837帖子精华0分享0
积分排行66帖子精华0微积分0
只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很容易出错。
15:22 上传
下载次数: 18
36.91 KB, 下载次数: 18
在线时间1819 小时经验1157 威望0 性别男最后登录注册时间阅读权限50UID34647积分1157帖子精华0分享0
EH高级, 积分 1157, 距离下一级还需 843 积分
积分排行936帖子精华0微积分0
chxw68 发表于
只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很 ...
能QQ吗，有时在网上太麻烦
在线时间58 小时经验28 威望0 性别保密最后登录注册时间阅读权限20UID953908积分28帖子精华0分享0
EH初级, 积分 28, 距离下一级还需 322 积分
积分排行3000+帖子精华0微积分0
谢谢 chxw68老师，我对VBA不懂，能不能在代码后面添加注释，
在线时间58 小时经验28 威望0 性别保密最后登录注册时间阅读权限20UID953908积分28帖子精华0分享0
EH初级, 积分 28, 距离下一级还需 322 积分
积分排行3000+帖子精华0微积分0
只做了第一问，即生成数据在本工作薄各工作表，但存在一个问题：如果误点击一次按钮就追加一次数据，这样很容易出错。
什么办法可以避免这种“重复点击”情况发生吗？
在线时间6 小时经验5 威望0 性别保密最后登录注册时间阅读权限10UID2965665积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
你好，chxw68老师，我想请教两个个问题，1.如果数据只有3列，代码怎么改？2.为什么数据超过20万就溢出？谢谢！
在线时间3500 小时经验10737 威望6 性别男最后登录注册时间阅读权限95UID188110积分10837帖子精华0分享0
积分排行66帖子精华0微积分0
nihaozaochen 发表于
你好，chxw68老师，我想请教两个个问题，1.如果数据只有3列，代码怎么改？2.为什么数据超过20万就溢出？谢谢 ...
第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。
在线时间6 小时经验5 威望0 性别保密最后登录注册时间阅读权限10UID2965665积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
chxw68 发表于
第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。
现将c列排序，将c列中是“A中学”的行全选中，代码怎样写？谢谢！
在线时间6 小时经验5 威望0 性别保密最后登录注册时间阅读权限10UID2965665积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
chxw68 发表于
第1个问题：把2楼代码中所有7改成3。
第2个问题：可能电脑内存不够。
老师，不是内存的问题，我将内存扩展到8G，情况还是这样，请老师看看有没有办法解决，谢谢！
&扩内存不一定能解决问题，可能需要另想办法。&
积分≥4700即可申请
最佳会员奖章No.1
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 7821|回复: 13|
在线时间174 小时经验157 威望0 性别男最后登录注册时间阅读权限20UID221795积分243帖子精华0分享0
EH初级, 积分 243, 距离下一级还需 107 积分
积分排行3000+帖子精华0微积分0
当按关闭按钮时，自动退出，禁止保存文件，VBA代码怎么写
猜你喜欢看
在线时间93 小时经验124 威望0 性别保密最后登录注册时间阅读权限20UID724257积分124帖子精华0分享0
EH初级, 积分 124, 距离下一级还需 226 积分
积分排行3000+帖子精华0微积分0
thisworkbook.close false
在线时间174 小时经验157 威望0 性别男最后登录注册时间阅读权限20UID221795积分243帖子精华0分享0
EH初级, 积分 243, 距离下一级还需 107 积分
积分排行3000+帖子精华0微积分0
具体怎么写
在线时间174 小时经验157 威望0 性别男最后登录注册时间阅读权限20UID221795积分243帖子精华0分享0
EH初级, 积分 243, 距离下一级还需 107 积分
积分排行3000+帖子精华0微积分0
这个只能退出文件，要关系EXCEL
在线时间422 小时经验891 威望0 性别保密最后登录注册时间阅读权限30UID682419积分891帖子精华0分享0
EH中级, 积分 891, 距离下一级还需 209 积分
积分排行1201帖子精华0微积分0
application.quit
在线时间93 小时经验124 威望0 性别保密最后登录注册时间阅读权限20UID724257积分124帖子精华0分享0
EH初级, 积分 124, 距离下一级还需 226 积分
积分排行3000+帖子精华0微积分0
excel自杀进程
LzmTW.uSystem.uDiagnostics.uProcess.ProcessServices.Kill(&EXCEL&,& &gBeforeProcessStartTime,& &gAfterProcessStartTime)
在线时间444 小时经验1199 威望0 性别男最后登录注册时间阅读权限50UID366656积分1249帖子精华0分享0
EH高级, 积分 1249, 距离下一级还需 751 积分
积分排行861帖子精华0微积分0
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
在线时间174 小时经验157 威望0 性别男最后登录注册时间阅读权限20UID221795积分243帖子精华0分享0
EH初级, 积分 243, 距离下一级还需 107 积分
积分排行3000+帖子精华0微积分0
可以了，谢谢
在线时间444 小时经验1199 威望0 性别男最后登录注册时间阅读权限50UID366656积分1249帖子精华0分享0
EH高级, 积分 1249, 距离下一级还需 751 积分
积分排行861帖子精华0微积分0
以上代码复制到 ThisWorkbook 里
在线时间174 小时经验157 威望0 性别男最后登录注册时间阅读权限20UID221795积分243帖子精华0分享0
EH初级, 积分 243, 距离下一级还需 107 积分
积分排行3000+帖子精华0微积分0
知道，谢了
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 2476|回复: 24|
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
我有一个设想：每次考试后，先在录入框的第一行中输入每个选择题的正确代码，然后在“编号”中输入学生编号，随即在“姓名”框中调出“数据”表中相应学生的姓名（不是录入），此时光标跳到第一个题号框，录入数据后跳到第二个题号框，如此下去到第二十二个题号框录入数据回车后光标返回“编号”框，此时在“数据”表中见到的是录入代码转换成的得分数据（每题5分）第13题后无须转换，重复进行至录完点退出即可。这样就可将每次学生考试的情况进行详细的分细了。
& & 录入框我到是做了（初学做的不好，行家们别笑话），可代码不会写，找了好久也没找到合适的。谁能帮我完成一下？先用用。等假期我想系统地学习VBA，再用于工作中。先谢谢了！
[ 本帖最后由 jhmzzj 于
09:27 编辑 ]
11:41 上传
下载次数: 40
13.94 KB, 下载次数: 40
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
再做个补充：之所以要做录入框，主要是学生人数多，年纪大了登分时找姓名眼睛花、速度慢，想提高点工作效率。
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
我会有希望吗？一定会有的！因为朋友推荐我来这发帖求助，说是一定会得到解决的！我相信。
在线时间4566 小时经验10715 威望8 最后登录注册时间阅读权限100UID322926积分11765帖子精华0分享0
管理以下版块
积分排行60帖子精华0微积分0
see if help you
14:38 上传
下载次数: 94
19.33 KB, 下载次数: 94
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
谢谢上面的行家出手帮助！就连我打算用公式求和的单元格都一次帮我解决了。只是还有一个建议：能不能把按钮“录入数据OK”用回车来操作？这样就免去了每个学生都要使用一次鼠标的不方便之处？（也就是不用换手操作）
在线时间4566 小时经验10715 威望8 最后登录注册时间阅读权限100UID322926积分11765帖子精华0分享0
管理以下版块
积分排行60帖子精华0微积分0
at the last green input box, press enter will 录入数据
17:28 上传
下载次数: 75
21.47 KB, 下载次数: 75
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
好快啊！问题解决了。可又有新发现：录入数据后，关闭录入窗口后显示的当前页不是“数据”表。又能在页面开个按钮连到录入框么？第一行的空能改用回车输入么？
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
不好意思我粗心了。按钮已经有了，用按钮就在当前页结束了。谢谢了！这个对我很有用的，相信对有志教育事业的老师们也会有用的。在此我代表他们（下载使用该软件的人）再次表示感谢！
如能在录入数据时有提示：1——12题代码只能在0——4之间取；13——16题只能在0——5之间取；17——22题只能在0——14之间取，超出以上范围提示录入出错就完美了。
我是不是有点要求过高了？
在线时间4566 小时经验10715 威望8 最后登录注册时间阅读权限100UID322926积分11765帖子精华0分享0
管理以下版块
积分排行60帖子精华0微积分0
输入选择题正确代码 in sheet 选择题正确代码
19:45 上传
下载次数: 121
26.46 KB, 下载次数: 121
在线时间104 小时经验189 威望0 性别保密最后登录注册时间阅读权限20UID1104159积分189帖子精华0分享0
EH初级, 积分 189, 距离下一级还需 161 积分
积分排行3000+帖子精华0微积分0
谢谢！！！这个网站的网友真好，朋友没介绍错。我会努力学习的，后续还想把这个表再扩展其功能，希望能继续得到帮助。
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&请教高手这几个EXCEL逻辑函数公式怎么写啊？_百度知道
请教高手这几个EXCEL逻辑函数公式怎么写啊？
若第2列第6行＞0、第4列为负数的行次，第10列第6行＝0。否则第11列同一行次填“0”1，第10列第6行＝第10列第1+2+3+4+5行且≤第2列第6行。
3；若第2列第6行＜0，第10列第1行至第5行＝0；若第2列第6行＜0。
2，第11列同一行次＝第4列该行的绝对值-第9列该行-第10列该行、若第2列第6行＞0，第10列第1至5行同一行次≤第4列1至5行同一行次的绝对值-第9列1至5行同一行次
提问者采纳
首先需要知道这么东西的运行原理。。。不管是Excel VBA还是Excel函数：我们经常能够用到的一个逻辑函数‘IF’：第10列……≤第4列……-第9列……（A&lt。;=B-C），你要先学会计算机语音。：当……那么……否则……若……且……那么……或者……但是这些因果关系式在你这里完全没有体现出来？,那么……？函数运用。就像你要学计算机一样。就是你在什么样的情况下，它所运行的逻辑必须是因果关系,否则……)如果你要用好Excel，说白一点就是=IF(当……，这是连小学生都会的造句用词，他的运算方式，要求出什么样的结果。再看数学运算式。，还要报复你的语文老师你这个不仅仅是要报复你的数学老师
里面的第几列第几行可以用字母ABC代替，我是想要通过这个逻辑函数来判断我表里面的公式设置对了没有，如果对了，就为OK,不对的话就为NO,我现在知道要用IF函数来做，但是具体要怎么写就有点不会了，能否赐教一下，太感谢了！！！！
IF函数用处可大了，具体你可以按F1在帮助里面查看他的基本用法和规则。另外他还可以和其他函数进行叠加，包括他自身，比如以下公式：=IF(AND(A1=0,B1+C1=2、D1=“你好&),E1,IF(OR(A1=0,B1+C1=2、D1=“你不好&),F1,“”))这个公式如果要白话解释，意思就是这样的：当单元格A1=0，B1+C1=2，D1内容=你好，这几个条件都正确的情况下，那么显示E1，否则再判断A1=0，B1+C1=2，D1内容=你不好，这几个条件有一个是正确的情况下，那么显示F1，否则什么都不显示。。这里的AND表示踏地参数都必须正确，OR表示他的参数只要有一个是正确。符号'''表示为引用文本。每一个函数后面都是以括号来装载他的参数，函数后面括号里面的所有内容就为这个函数的参数，每一个函数的用法和语法也都有不一样。。这个你要真正学会也还是需要一段时间的。。。
提问者评价
其他类似问题
按默认排序
其他2条回答
呵C1=if(mod((A1+B1),10)=B2;) 修改过了,&错&;对&quot,&quot
好长的公式
逻辑函数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教！请问怎么用VBA实现把其他EXCEL中的数据汇总到一个EXCEL表中？
[问题点数：80分，结帖人sunpuren]
请教！请问怎么用VBA实现把其他EXCEL中的数据汇总到一个EXCEL表中？
[问题点数：80分，结帖人sunpuren]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2006年3月 其他开发语言大版内专家分月排行榜第三
2006年3月 其他开发语言大版内专家分月排行榜第三
2006年3月 其他开发语言大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。