原文地址：
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”

HYPY = GetPY
End Function


好吧，甜言蜜语时间结束了，来点实惠的，今天晚上我的时间由你来支配，你叫我往西，我不敢往东；你叫我吃饭，我不敢喝水；叫我拖地，我不敢擦桌子……

via：赵大小姐博客