到一个抛砖引玉的作用。 一、新建一个文件夹，该文件夹主要是用来装EXCEL工作簿、VB编译的可执行文件、图标文件及帮助文件
用的。 二、打开VB，新建一个标准EXE。 三、1、对form1的设置： Borderstyle=0-none 去掉form1的标题栏 Icon 设定图标 StartupPositio=2 将启动封面始终悬挂在屏幕中部 2、添加一个Tcomr控件，将其Interval设为1000，双击Tcomr控件出现代码窗口，输入如下代码： Private Sub Tcomr1_Tcomr() Dim Exl As Object Set Exl = CreateObject("Excel.Application") Exl.Workbooks.Open (App.Path & "\" & "DZB.xls") Exl.Visible = True Unload Me End Sub 3、点击文件－－生成EXE文件，将其保存到步骤一中的文件夹中去。 大功告成！ 推荐使用图标编辑工具AXIcons制作图标文件！ 16、邮件合并一步一步学 邮件合并一步一步学： 软件OFFICE2003，EXCEL2003 1、在excel2003中建一个数据表(联系表.xls)如：姓名，身份证号，其它编号，职业，联系方式，输入相应数据，保存； 如想在一张页面中打印多个人的信息，就在excel2003多排几列了！
2、打开一个空白word文档(联系表.doc)，点击工具-信函与邮件-邮件合并，这时在你的右面就会出现一个任务窗格； 3、在窗格中选择信函，然后点击下一步：正在启动文档； 4、选择使用当前文档，点击下一步：选取收件人； 5、选择使用现有列表，点击浏览，选取”联系表.xls”然后在弹出的窗口中选择你建表的工作薄（一 般都是sheet1$）。确定，再确定，点出下一步：撰写信函； 6、在你的word文件中建好你想把数据chā入后的格式； 想在一张页面中打印多个人的信息，就用文本框做好，一张页面多排几张文本框而已。 7、点击右面的项目的中其它项目（当然你也可选择chā入地址块、问候语），你就会看到姓名、姓名1、姓名2等等，把你想要的项目chā入到对应的位置即可。 8、在工具栏上点右键，点击邮件合并，在弹出的邮件合并工具栏中点击ABC，就会在域与你的实际项目中切换，工具栏上其它键自己试好了，懂中文一看就知！ 17、工具栏>>自定>>格式>>[浅底纹]搬出来用 矩形>>[浅底纹]>>透明>>yīn影 18、把Excel表格转换为图片 许多报纸和杂志都介绍过在Excel中，同时按住Shift键点击“文件”菜单，原来的“关闭”菜单项就会变成“全部关闭”。如果我们在按下Shift键的同时点击“编辑”菜单，原来的复制和粘贴就会变成“复制图片”和“粘贴图片”。利用这一功能，我们可以将一个数据表以图片的形式进行复制，从而将其转换为图片。方法如下： 首先选中需要复制成图片的单元格区域，然后按住Shift键依次选择“编辑→复制图片”命令，接着弹出“复制图片”窗口，选择“图片”单选项后点击“确定”按钮，这时就将选定的表格区域复制成图片了。最后复制到目标只需直接选择“粘贴”命令即可（或者按Shift键再选择“编辑→粘贴图片”命令）。我们还可以将其在Word中进行粘贴。 另外，在复制图片时如果选择了“如打印效果”单选项，在粘贴的时候如果表格没有边框，复制后的图片也不会出现边框。 19、=HYPERLINK("#表1！L2","轻客支撑")，不明白#号的意思 #加在表名前，是指当前工作簿，加在单元格前是指当前工作表
20、在B1中同步显示A列中最后一行的内容 最后一行为文本： =offset($b$1,MATCH(CHAR(65535),b:b)-1,) 最后一行为数字： =offset($b$1,MATCH(9.9999E+307,b:b)-1,) 或者：=lookup(2,1/(b1:b1000<>""),b1:b1000)
21、为Excel中的“中文”添加拼音 由于工作的需要，经常要为中文添加拼音，这样可以为某些生僻的汉字加上拼音注释。如果是在Word中就比较简单了，但在Excel中应该怎么添加呢？ 答：如果要在Excel中为“中文”添加拼音，可以执行如下的cāo作步骤（下面以Excel 2003为例进行介绍）： （1）选中需要输入拼音的单元格区域，执行菜单栏中的【格式】|【拼音指南】|【显示或隐藏】命令（如图1所示），这样就可以为该单元格区域激活拼音信息的显示模式，否则即使输入后也处于隐藏状态。 （2）输入正常的中文文字，然后执行菜单栏中的【格式】|【拼音指南】|【编辑】命令，此时就可以直接在单元格的上半部区域输入相应的拼音了，如图2所示。 （3）一般情况下，由于拼音缺省使用半角字符，而且又缺省使用左对齐模式，因此看起来不是那么美观。因此可以执行菜单栏中的【格式】|【拼音指南】|【设置】命令，在打开的“拼音属xìng”对话框中的“字体”选项卡中可以调整拼音的字体、字形、字号、下划线、颜色等格式（如图3所示）；在“设置”选项卡中重新设置拼音与文字的对齐状态，比如左对齐、居中、分散对齐等（如图4所示），建议选择“分散对齐”，这样拼音与文字就可以一一对应了。 22、怎样不修改单元格的公式，就可以不显示“#DIV/0!” 不能改公式就采用条件格式，选取该区域（如整个D列），格式－条件格式－公式－输入=ISERROR(D1)，下步选格式为字体－白色.。 23、评委打分中，如何去掉两个以上最高分，两个以上最底分，求剩余人员的平均分？同时显示出被去掉的分数。 看看tricoman()函数帮助。 被去掉的分数：
最大两个：=large(data,{1;2}) 最小两个：=small(data,{1;2}) 24、怎样很简单的判断最后一位是字母 right(a1)*1 出错的字母 =IF(ISNUMBER(--RIGHT(A1,1)),"数字","字母") =IF(ISERR(RIGHT(A1)*1),"字母","数字") 25、不知道--是什么意思？ VALUE(F1)，--F1以及其他的算术运算的办法如：0+F1，F1-0，F1*1，F1/1以及乘幂的办法等等…… 这几种方式都是一样的。只要是文本型数字都可以用这个办法变为数值以便运算；对于逻辑值（TRUE,FALSE)，除了VALUE函数外，其他几种都可以。 但据说，测试的结果，--F1速度最快 26、请问如何 设置单元格，令其不接受包含空格的字符 选定A列 数据——有效xìng——自定义——公式 =iserror(find(" ",a1)) 数据－－有效xìng－－自定义－－公式 =len(a1)=len(trim(a1)) 27、=VLOOKUP(B3,IF({1,0},G$3:G$5,F$3:F$5),2,0) 公式中的 IF({1,0},G$3:G$15,F$3:F$15)作何解释？ 我的理解:{1,0}的含义是1代表TRUE(即逻辑值为真),0代表FALSE(即逻辑值为假),公式为 =VLOOKUP(B3,IF({TRUE,FALSE},G3:G17,F3:F17),2,0)也同样正确,这样更好理解.通过执行IF({TRUE,FALSE},G3:G17,F3:F17)为真,得到G3:G17这列数,由于是数组,再执行FALSE得到F3:F17,因此