“老天爷啊，我得救了！”他欣慰地喊道。

　　但是救援队并没有继续往前走，他们被那堆人骨头吓傻了——很明显，这个家伙把同伴们都吃了。那个幸存者羞愧地低下了头，说，“不要责备我，我也是为了活下去才吃了他们，这样做没什么不对的。”

　　救援队的队长稍稍向前迈了一步，摇摇头，一脸不可思议的神情，说，“人为了生存是不择手段的，我不怪你。可是老大，你们的飞机昨天才失事啊……”

免责声明：按照以上安装方法，有可能导致您计算机蓝屏，请谨慎使用。对此本博并不承担任何责任

原文地址：
http://comment2.news.sohu.com/viewdebate.action?id=125151287&topicId=264756496

作为一个非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))"

MSN 10年纪念

而五人者亦得以加其土封。——明·张溥《五人墓碑记》

Flickr, bing无法访问, 而verycd在检修中，这个夏天！

Scratch Card, I hope you like it.
We don’t or can’t know the truth twenty years ago.

1）在控制面板添加打印机，端口选择与Adobe关联的”Adobe PDF Port”，如果找不到这个端口，那您不用往下看了，只有重装一条路可言。
2）选择从磁盘安装，目录指向Acrobat文件夹下的Xtras子目录下的AdobePDF目录，找到AdobePDF.inf文件
X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF
3）选择安装
4）将重命名为“Adobe PDF”，否则右键菜单及Office中用转换指令的时候还是会有错误。
—————————————————————————

how-to-install-the-acrobat-pdf-virtual-printer
1) Open the control panel, add printer..
2) Add a local printer
3) choose a printer port about Acrobat PDF named “Adobe PDF Port”，If you can’t find this port, you have to uninstall the software ,and reinstall the acrobat pro.
4) Hard DISK install form such as “X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF”
5) rename the printer name as “Adobe PDF”