查看: 81|回复: 4
求大佬看看VBA代码，为什么会在2007EXCEL里发生卡死~
阅读权限30
在线时间 小时
本帖最后由 jkl 于
10:53 编辑
1、在EXCEL2007版本中，清除单元格内容和复制黏贴 操作的时候，会发生卡死的情况，在EXCEL2010里面是正常的，是不是代码需要优化一下啊，详见附件！！！
10:53 上传
点击文件名下载附件
15.91 KB, 下载次数: 3
阅读权限100
在线时间 小时
楼主的附件中无代码的啊。。。
阅读权限30
在线时间 小时
楼主的附件中无代码的啊。。。
不好意思搞错了，XLXS 格式没能保存的了代码，重新更新了附件，帮我看看，为什么代码会在EXCEL2007发生卡死现象（清除内容和复制黏贴的时候）& & 而在EXCEL2010里是正常的，是不是代码有什么需要优化的地方啊，谢谢！
阅读权限100
在线时间 小时
& & & & & & & &
楼主设置断点看看
If CopyCut Then
& && && && &Application.EnableEvents = False
& && &&&End If
看看CopyCut 是true 还是 false吧
楼主放这么一个参数，没有去赋值啊，有意义吗
阅读权限30
在线时间 小时
帖子不要沉啊
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师拒绝访问 | www.bzfxw.com | 百度云加速
请打开cookies.
此网站 (www.bzfxw.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(43bcd1b085ce437c-ua98).
重新安装浏览器，或使用别的浏览器&>&ExcelVBA代码大全
ExcelVBA代码大全
上传大小：335KB
Office Study 即办公软件学习网,域名:OfficeStudy.cn
　║于日正式开通(2008北京奥运会开幕日）。
║是一家专门针对Microsoft Office办公软件应用技术、研究与推广║
║的非盈利专业性网站。
目前网站拥有大量Office原创技术文章、Office行业应用案例 ║
　║加载宏、模版、以及Office实用技巧等，我们力争为大家创作与
║收录更多的Office办公软件学习资源，为大家提供一个方便的学
║习互动交流平台。
科技新时代，掌握办公软件技术决定了每个人的前途命运，终 ║
║身学习已经成为每个人的基本需求。
渴求熟练操作Office、成为Office高手，但由于无法及时获取 ║
║教育信息，使很多人失去了学习深造机会。
综合评分：4
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有2条
不大好，PDF版本， 如果是chm就好点了，代码更易阅读和使用
刚刚粗略的看了一下，应该有参考价值，谢谢！
综合评分：
积分/C币：3
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
ExcelVBA代码大全
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名：
*投诉人联系方式：
*版权证明：
*详细原因：
ExcelVBA代码大全(oh sugar)
(JYchan??)
第三方登录：打开Excel的时候提示visual basic项目错误导致VBA模块代码丢失 Excel教程
作者：Excel教程
浏览：2344次
　　有的时候，每当我们打开有VBA代码的Excel文件时，会看到提示，大概意思就是说“丢失了visual basic项目错误”的提示。结果，只能有只读的方式打开Excel。最后，Excel里面的VBA代码就找不到了、完全消失了，遇到这样的问题，如何解决呢？　　以下是几种常见的针对不同版本的Excel的解决办法，也许对您有所帮助。　　①宏安全性和警告疑难解答　　适用于: Microsoft Office Word 2003　　如果某些项目（如模板 、向导或自定义命令）无法按预期的方式工作，那么您可能正在运行 Microsoft Office 程序，且 Microsoft Visual Basic for Applications (VBA)
共享功能处于禁用状态。Office 中的许多功能是在 VBA 中创建的，或要依赖于 VBA 支持才能正确工作。如果您选择不安装 VBA 功能，将禁用或不安装这些从属应用程序和功能。　　若要重新启用VBA，请执行这些步骤：　　再次运行“Office 安装”程序。 　　操作方法　　退出所有程序。 　　单击“开始”，单击“控制面板”，再单击“添加或删除程序”。 在“当前安装的程序”框中，单击“Microsoft Office 2003”或“Microsoft Office Word 2003”（取决于您将 Word 安装为 Office 组件的一部分还是单独程序），再单击“更改”。 　　在“维护模式选项”屏幕中，单击“添加或删除功能”，再单击“下一步”。　　在“自定义安装”屏幕中，选中“选择应用程序的高级自定义”复选框，再单击“下一步”。　　在“高级自定义”屏幕中，单击“Office 共享功能”旁的展开指示器。 　　单击“Visual Basic for Applications”旁的箭头，再单击“从本机运行”。 　　如果已经有人为您设置了 Office 安装，请与您的系统管理员或“信息技术”(IT) 专业人员联系，以了解在您运行 Office 时是否已禁用 VBA。　　②Office XP Service Pack 3 修复的 Excel 2002 中的问题　　当您对工作簿应用数字签名时，VBA 模块丢失。　　当您通过使用 Excel 2002 对 Excel 2000 或 Excel 97 工作簿应用数字签名时，在您保存该工作簿之后，属于该工作簿的 VBA 模块可能会丢失。当您打开工作簿时，可能会收到以下 Microsoft Visual Basic 错误信息：Error accessing file.Network connection may have been lost.　　如果您单击“确定”，然后单击“启用宏”，可能会收到以下错误信息：　　Errors were detected in 'file_name.xls,' but Microsoft Excel was able to open the file by making repairs listed below.Save the file to make these repairs permanent.　　Lost Visual Basic project.　　Lost ActiveX controls.
打开Excel的时候提示visual basic项目错误导致VBA模块代码丢失 Excel教程的发表时间是： 05:30:02&来源：
爱盲网提供盲人无障碍浏览《打开Excel的时候提示visual basic项目错误导致VBA模块代码丢失 Excel教程》，感谢作者：Excel教程撰稿！
<div class="number" id="DiggNum_