在飞机坠毁的地方，仅剩的那位幸存者倚靠在树旁，把刚刚啃光的骨头扔到旁边的骨头堆里，这时，他看到救援队到来了。
“老天爷啊，我得救了！”他欣慰地喊道。
但是救援队并没有继续往前走，他们被那堆人骨头吓傻了——很明显，这个家伙把同伴们都吃了。那个幸存者羞愧地低下了头，说，“不要责备我，我也是为了活下去才吃了他们，这样做没什么不对的。”
救援队的队长稍稍向前迈了一步，摇摇头，一脸不可思议的神情，说，“人为了生存是不择手段的，我不怪你。可是老大，你们的飞机昨天才失事啊……”
安装Intel 855 迅驰主板显卡驱动的方法：
1.下载正确的驱动 （intel_extremegra_13.6_2kxp_vbios.zip），解压缩到指定文件夹（如D:\DRIVERS)，同时将文件夹中的vbios852-855解压缩；
2.设备管理器-视频控制器-驱动更新，手动指向D:\DRIVERS，更新完后重新启动计算机。
3.重新启动后，会发现显卡的驱动并没有正确安装，显示黄感叹号，不要害怕，按照以下顺序操作：
3.1更新驱动-浏览计算机以查找驱动程序软件-从计算机的设备驱动列表中选择
3.2将显示兼容硬件的勾去掉
3.3厂商：INTEL CORPORATION
3.4型号：Mobile Inter(R) Express 945 chipset Family
3.5更新驱动后不要重启，将另外一个黄色叹号的驱动按照3.1-3.4更新，重启电脑
4.重新启动后，设备管理器中有两个黄色的945设备，再次更新驱动-浏览计算机以查找驱动程序软件-从计算机的设备驱动列表中选择-Intel(R) 82852/82855 GM/GME Graphics Controller
5.重新启动电脑，一切OK
免责声明：按照以上安装方法，有可能导致您计算机蓝屏，请谨慎使用。对此本博并不承担任何责任
最近几天，支付宝又一次的升级了，换来的结果是，无法通过支付宝第三方登陆京东。
解决方案如下：
1、找到通过支付宝登陆时的帐号，这是一串数字，只要电脑打开了cookie，打开京东网站就可以看到。如果找不到帐号，那您不用往下开了，因为我也不知道该咋办了。
2、点找回密码；
3、输入帐号（一串数字），以及支付宝帐号信箱；
4、登陆邮箱重设密码；
5、HAVE FUN!!
还能比这再丢人点吗？
点击看大图
原文地址：
http://comment2.news.sohu.com/viewdebate.action?id=125151287&topicId=264756496
页面已转至：http://blog.jjuv.com/excel-vba
作为一个非IT专业人士，VBA的代码在不停的Google中忘记，为了方便自己查询，特作此笔记用以详细记录在代码中碰到的问题。
如果以下内容侵犯了您的版权，请来信告知，我会立刻删除。如无特殊说明，本笔记遵循《署名-非商业性使用-相同方式共享 2.5 中国大陆》方式进行共享
更新时间：Jul 02, 2009@10:30
Q1.Excel 中命名过的名称在vba中怎么使用
A1. 若某单元格或区域被命名为”aa”，则VBA中引用这个区域，range("aa")
Q2.VBA定义名称
A1.Sheets("工作表名称").range("单元格区域").Name="定义的名称"
Q3.如何在可以运行窗体的同时可以操作EXCEL工作簿（如何在工作表和窗体间切换）
A3.userform1.show vbmodeless
增加一个vbmodeless即可。
来源：http://club.excelhome.net/thread-348925-1-1.html
作者：tonyibm
Q4.获取人名拼音首字母的excel函数
A4.http://blog.jjuv.com/2009/04/19/first-letter-of-the-chinese-names-excel-function.html
Q5.Excel工作簿中工作表分别保存为文件
A5.http://blog.jjuv.com/2009/03/13/excel-worksheet-saved-as-files-separately.html
Q6.如何将excel工作薄中的单列数据复制到不同的新工作簿中
A6.http://blog.jjuv.com/2009/03/10/how-to-excel-in-a-separate-job-thin-data-replication-to-a-different-new-workbook.html
Q7.VBA中获取文件名的方法
A7.http://blog.jjuv.com/2008/03/02/vba-in-the-way-of-access-to-documents.html
Q8.选择性粘贴数值
A8.
ar=ActiveWorkbook.Sheets(1).Columns("L:L")
ThisWorkbook.Sheets("汇总").Columns("E:E")=ar
Q9.如何修改单元格触发宏运行；
A9.例子如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mo As String
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$D$3" Then Exit Sub '(此处地址需用大写)
mo = Target.Value
If mo = 6 Or mo = 12 Then
MsgBox mo & "月需要填写相关资料"
Rows("29:56").Hidden = False
Else
Rows("29:56").Hidden = True
End If
End Sub
Q10.如何取消筛选
A10.AutoFilterMode = False
Q11.判断EXCEL表格中已使用的行数
A11.Sheets("sheet1").UsedRange.Rows.Count
Q12.向单元格中写入公式
A12.普通公式：range("a1")="=sum(a2:a4")"
数组公式：Range("g18").FormulaArray = "=SUM((fa_cat='28-AC1-5'!A18)*(RIGHT(fa_change,2)=""折旧"")*(fa_depr))"