Excel word ppt office使用技巧大全(DOC格式)-第18部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！



式‖窗口，将所有包含有身份证号码的单元格设置为文本格式。　4。将光标移至C3单元格中，然　

后输入　―=〃19〃&MID（B3；7；2）&〃　年　〃&MID（B3；9；2）&〃　月　〃&MID（B3；11；2）&〃　日〃‖　内容。其中　

MID（B3；7；2）就是从身份证号码的第7位开始取2位数，得出该员工的出生年份，MID（B3；9；2）　

就是得出该员工的出生月份，而MID（B3；11；2）则是该员工的出生日期，这些信息再加上年、月、　

日等文字就会组成该员工的准确出生年月日―1970年1月1日‖　。　5。　接下来我们应将光标移至D3　

单元格中，然后输入―=IF（MID（B3；15；1）/2=TRUNC（MID（B3；15；1）/2）；〃女〃；〃男〃）‖　。这就表示　

取身份证号码的第15位数，若　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXVI　　


…………………………………………………………Page　167……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



能被2整除，这表明该员工为女性，否则为男性。　6。　最后我们只需利用自动填充功能对其他　

各个员工的出生年月日、性别进行填充即可。　上面都是以15位身份证为例进行介绍的，18位　

身份证的操作方法与此类似，广大用户若使用的是18位身份证，只需对有关函数的取值位置进　

行适当调整即可（如将―=〃19〃&MID（B3；7；2）&〃年〃&MID（B3；9；2）&〃月〃&MID（B3；11；2）&〃日〃‖修　

改为―=MID（B3；7；4）&〃年〃&MID（B3；11；2）&〃月〃&MID（B3；13；2）&〃日〃‖　）。　这样就实现了由Excel　

自动填充员工出生年月日、性别的功能，从而极大地减轻了用户录入数据时的工作量，有兴趣　

的读者不妨一试。　在EXCEL中增加自动填充序列　中文ＥＸＣＥＬ９７作为一种功能强大、技　

术先进的电子表格软件，给我们的办公带来了极大方便。　在ＥＸＣＥＬ中提供了自动填充功　

能，我们在使用时，可以通过拖动―填充柄‖来完成数据的自动填充。例如要输入甲、乙、丙、　

丁〃〃，可以先在指定单元格输入甲，然后将鼠标移至单元格的右下角的小方块处，直至出现　

―　＋‖字，按住鼠标左键，向下（右）拖动至目的单元格，然后松开即完成了自动填充。可是有　

时我们会发现有一些数据序列不能自动填充，例如车间一、车间二、车间三等，填充方法有两　

种：　第一种：单击―菜单‖栏上的―工具‖，选―选项‖→―　自定义序列‖，这时就可以在―输入序列‖　

栏输入要定义的序列。需要注意的是每输入完成一项就要回车一次，表示一项已经输入完毕，　

全部输入完成以后单击―添加‖→―确定‖，这样我们自定义的序列就可以使用了。　第二种：首　

先把你要添加的序列输入到一片相临的单元格内，例如要定义一个序列：车间一、车间二、车　

间三，把这三项分别输入到单元Ｈ１：Ｈ３，单击―工具‖→―选项‖→―　自定义序列‖→―导入‖，　

在―导入序列所在的单元格‖所指的对话框中输入Ｈ１：Ｈ３，单击―导入‖→―添加‖→―确定‖，　

这样新序列就产生了。　定义的序列如果不再使用，还可删除，方法是：单击―工具‖→―选项‖　

→―　自定义序列‖，在―　自定义序列‖框中，单击要删除的序列，再单击―删除‖→―确定‖　。　发掘　

Execl　XP合并拆分技巧　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXVII　　


…………………………………………………………Page　168……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



本人在用Excel　XP管理教职工档案时，经常遇到合并或拆分单元格数据的情况，经过一段时间　

的使用后摸索出了一套自己的―合并与拆分‖理论，供同行们参考。　所谓合并数据是指将两列　

中的数据合并到一列中，拆分数据是指将一列中的数据拆分到两列中，图1为―毕业院校‖和―专　

业‖两列的拆分及合并的效果图。　合并数据　要将―毕业院校‖和―专业‖两列中数据合并为―毕业　

院校及专业‖，有―真‖、―假‖两种合并方法，所谓真合并就是将两列数据真正合并到一列中，　

而假合并表面上看是合并为一列了，实际数据还是存在于两列中，具体操作跟我一起来看看吧。　　

1、真合并　如果将一列中的数据通过再输入合并到另一列中，那不是我们希望看到的解决办法，　

快捷而准确的操作方法是：　　（1）将需要合并的―毕业院校‖和―专业‖两列数据通过―剪切‖、―粘　

贴‖移动到一个新工作表中，如命名为―合并‖工作表。　　（2）在―合并‖工作表中将XLS文件另存为　

TXT文件，单击―文件→另存为‖，保存类型选择―文本文件　（制表符分隔）‖，单击＇保存＇按钮后　

根据提示连续单击两次＇确定＇按钮即可。　　（3）在Execl中单击＇打开＇按钮，重新打开TXT文件，　

在―文本导入向导→步骤之1‖　中采用默认设置，单击＇下一步＇按钮，在―步骤之2‖分隔符号中，　

去掉―Tab键‖前复选框的选择，单击＇完成＇按钮，这时两列中数据合并到一列中。　　（4）将合并　

后的数据再通过―剪切‖、―粘贴‖操作移动到原工作表的原位置处，合并操作完成。　提示：合　

并后的数据在原来两列数据（如毕业院校和专业）之间会有一个空格，而有时根据实际需要去掉　

或加宽空格，可采取如下措施：　方法一：对TXT文件进行编辑　XLS文件中列与列之间数据转换　

为TXT文件后是以制表符分隔的，此时合并后的数据在原来两列数据之间会有一个空格，改变　

TXT文件中两列之间距离　（即改变空格的大小），对应的XLS文件中原两列数据之间的距离也会随　

之发生改变，若TXT文件中两列数据之间距离增大或减小为零，则合并的XLS文件中两列数据之　

间距离也会随之增大或减小为零。如果你要将两列数据无缝合并，建议应用下面两种方法。　方　

法二：利用函数ConcateName　ConcateName函数可以实现将几个文本字符串合并为一个文本字　

符串，语法为：ConcateName　（text1；text2；　〃〃），text1；　text2；　〃〃为1到30个将要合并　

成单个文本项的文本项，这些文本项可以为文本字符串、数字或对单个单元格的引用，如图2　

所示。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXVIII　　


…………………………………………………………Page　169……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



图2　方法三：利用―&‖运算符　利用―&‖运算符也可将几个文本字符串合并为一个文本字符串，　

―&‖运算方式同―＋‖、―…‖等运算方式一样，如图2所示。　2、假合并　我们也来一个―瞒天过海‖　

吧，呵呵，在对单元格设置边框时，利用工具栏中的―外部框线‖将两个单元格框在一起，这样　

两个单元格中数据就在一个表格中了，打印出来后保证不留一点―作假‖痕迹。此招对付较少单　

元格效果不错，要应付大量的单元格，奉劝你还是来点―真‖　的吧！否则够你忙的了。　拆分数　

据　合并方法掌握了，拆分也不难，拆分的方法与前面介绍的合并方法相似，先将XLS文件另存　

为TXT文件，再对TXT文件进行编辑，将需要拆分的数据用―Tab‖键或空格分开，然后再用Excel　

重新打开编辑后的TXT文件，这样原来在一起的数据就被拆分开了。　处理含有大量信息的表格　

时，以上合并与拆分的方法很有效，有兴趣的朋友可以试一试。＇＇　ExcelHome精华版整理　（2003　

年11月14日）　By　徒然客　从身份证号码中提取性别　Q：A1单元格中是15位的身份证号码，要　

在　B1　中　显　示　性　别　（　这　里　忽　略　15　位　和　18　位　身　份　证　号　码　的　判　别　）　　

B1=if（mod（right（A1；1）；2）》0；〃male〃；〃female〃）　请问这个公式有无问题，我试过没发现问　

题　　。　　但　　在　　某　　个　　网　　站　　看　　到　　作　　者　　所　　用　　的　　是　　如　　下　　公　　式　　：　　

B1=if（mid（A1；15；1）/2=trunc（mid（A1；15；1）/2）；〃female〃；〃male〃）　A：leaf　道理都是一样　

的　，　不　过　你　的　公　式　比　那　个　公　式　优　质　　　提　取　性　别　（　无　论　是　15　位　还　是　18　位　）　　

=IF（LEN（A1）=15；IF　（MOD（MID（A1；15；1）；2）=1；〃男　〃；〃　女　〃）；IF（MOD（MID（A1；17；1）；2）=1；〃　男　

〃；〃女〃　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXIX　　


…………………………………………………………Page　170……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



如果身份证号的输入已是15或18位，用公式　=IF（MOD（LEFT（RIGHT（A1；（LEN（A1）=18）＋1））；2）；〃　

男〃；〃女〃　xls………》exe可以么？　A：Kevin　如果只是简单的转换成EXE，当然可以。　如果你指　

的是脱离Excel也可以运行，好像没听说过可以。　当然，通过DDE，是可以不运行Excel但调用　

它的所有功能的，但前提仍然是你的计算机上已经安装了Excel　列的跳跃求和　Q：若有20列（只　

有一行），需没间隔3列求和，该公式如何做？　前面行跳跃求和的公式不管用。　A：roof　假设　

a1　至　t1　为　数　据　（　共　有　20　列　）　，　在　任　意　单　元　格　中　输　入　公　式　：　

=SUM（IF（MOD（TRANSPOSE（ROW（1：20））；3）=0；（a1：t1））　按ctrl＋shift＋enter结束即可求出每　

隔　　三　　行　　之　　和　　。　　　　跳　　行　　设　　置　　：　　如　　有　　12　行　　，　　需　　每　　隔　　3　　行　　求　和　　

=SUM（IF（MOD（（ROW（1：12））；3）=0；（A1：A12）））　能否象打支票软件那样输入一串数字它自动给　

拆分成单个数字？　Q：如我输入123456。52它自动给拆成￥1　2　3　4　5　6　5　2　的形式并且随我　

输入的长度改变而改变？　A：Chiu　我所知函数不多，我是这样做的，如有更方便的方法，请　

指　　点　　　　　例　　如　　：　　　　　在　　A1　　输　　入　　小　　写　　金　　额　　，　　则　　：　　　　　千　　万　　：　

B1=IF（A1》=10000000；MID（RIGHTB（A1*100；10）；1；1）；IF（A1》=1000000；〃　￥　〃；0））　　百　万　：　

C1=IF（A1》=1000000；MID（RIGHTB（A1*100；9）；1；1）；IF（A1》=100000；〃　　￥　　〃；0））　　　十　　万　　：　

D1=IF（A1》=100000；MID（RIGHTB（A1*100；8）；1；1）；IF（A1》=10000；〃　　￥　　　〃；0））　　　　万　　　　：　

E1=IF（A1》=10000；MID（RIGHTB（A1*100；7）；1；1）；IF（A1》=1000；〃　　￥　　　　〃；0））　　　　　千　　　　：　

F1=IF（A1》=1000；MID（RIGHTB（A1*100；6）；1；1）；IF（A1》=100；〃　　　￥　　　　〃；0））　　　　　百　　　　　：　

G1=IF（A1》=100；MID（RIGHTB（A1*100；5）；1；1）；IF（A1》=10；〃　　　￥　　　　　〃；0））　　　　　　十　　　　　：　

H1=IF（A1》=10；MID（RIGHTB（A1*100；4）；1；1）；IF（A1》=1；〃　　　　￥　　　　　〃；0））　　　　　　元　　　　　　：　

I1=IF（A1》=1；MID（RIGHTB（A1*100；3）；1；1）；IF（A1》=0。1；〃　　　￥　　　　　　〃；0））　　　　　角　　　　　　：　

J1=IF（A1》=0。1；MID（RIGHTB（A1*100；2）；1；1）；IF（A1》=0。01；〃　　　￥　　　　〃；0））　　　　　分　　　　　：　

K1=IF（A1》=0。01；RIGHTB（A1*100；1）；0）　网客　公式中最后一个0改为〃〃　如何编这个公式　Q：我　

想编的公式是：　a/＇84　　（b×4）＇　其中a是一个数值，小于或等于84；b是包含字符C的单元　

格的个数；C是一个符号。　这个公式的关键是要统计出包含字符C的单元格的个数，可我不会。　　

A：dongmu　=a/（84…countif（b；〃=c〃）*4）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXX　　


…………………………………………………………Page　171……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



chwd　我试了一下，不能运行，我想是因为没有指定出现―c‖　的单元格的范围。比如说―c‖在　

D2…D30中随机出现，在上述公式中要先统计出出现―c‖　的单元格的个数。这个公式如何做？　再　

一次感谢！　受dongmu朋友公式的启发，我做出了需要的公式　=a/（84…COUNTIF（D3：D30；〃c〃）*4）　　

skysea575　：其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。　　

〃包含字符C〃在这里的意思不清楚。你的公式中只可以计算仅含有―C‖字符的单元格数。　可能　

你的想法是计算字符中凡是含有这个字或字母的词。如―文章‖和―文字‖　中都有一个―文‖字，是　

否计算在内？　将文件保存为以某一单元格中的值为文件名的宏怎么写　A：lxxiu　假设你要以　

Sheet1　的A1　单元格中的值为文件名保存，则应用命令：　ActiveWorkbook。SaveCopyAs　　

Str（Range（〃Sheet1！A1〃））　＋　〃。xls〃　IE中实现链接EXCEL表　Q：我想在IE中实现链接EXCEL表并　

打开后可填写数据，而且可以实现数据的远程保存（在局域网内的数据共享更新），我的设想　

是在NT中上提供电子表格服务，　各位局域网内用户在IE浏览器中共享修改数据，请问我该如　

何操作才能实现这一功能。我是初学者，请尽量讲得详细一点。　A：老夏　　mm。xls　桌面　　　

**************************************************************　貼到計事本存為　

Home。htm敚ё烂嫔显O為共享區域網路其他電腦設捷徑連結Home。htm　懂這三行字的結構；　

即可寫出網頁資料庫系統　其中每個字都是　＇物件名稱＇　檔案多了改用這個元件　要設　

幾個框隨便您　　EXCEL　中求两陈列的对应元素乘积之和　　Q：　即有简结一点的公式求　

如：a1*b1＋a2*b2＋b3*b3。。。的和。应有一函数XXXX（A1：A3；B1：B3）或XXXX（A1：B3）　A：roof　在B4　

中　　输　　入　　公　　式　　〃=SUM（A1：A3*B1：B3）〃；　　按　　CTRL＋SHIFT＋ENTER　　结　　束　　。　　　dongmu　　

=SUMPRODUCT（A1：A10；B1：B10）　求助日期转换星期的问题　Q：工作中须将表格中大量的日期同　

时转换为中英文的星期几　　请问如何处理英文的星期转换，谢谢！　A：Rowen　1。　用公　

式：=text（weekday（xx）；〃ddd〃）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXI　　


…………………………………………………………Page　172……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



2。用VBA；weekday（）；然后自定义转换序列　3。用〃拼写检查〃；　自定义一级转换序列　4。。。。　　

dongmu　转成英文：　=TEXT（WEEKDAY（A1）；〃dddd〃）　转成中文：　=TEXT（WEEKDAY（A1）；〃aaaa〃）　研　

究彩票，从统计入手　Q：我有一个VBA编程的问题向你请教。麻烦你帮助编一个。我一定厚谢。　　

有一个数组列在EXCEL中如：　01　02　03　04　05　06　07　和01　04　12　19　25　26　32　02　08　15　16　18　　

24　28　01　02　07　09　12　15　22　09　15　17　20　22　29　32　比较，如果有相同的数就在第八位记一　

个数。如　01　04　12　19　25　26　32　2　02　08　15　16　18　24　28　1　01　02　07　09　12　15　22　2　09　15　　

17　20　22　29　32　0　这个数列有几千组，只要求比较出有几位相同就行。　我们主要研究彩票，　

从统计入手。如果你有兴趣我会告诉你最好的方法。急盼。　A：roof　把―01　02　03　04　05　06　07　‖　

放在表格的第一行，―01　04　12　19　25　26　32　2‖放第二行。　把以下公式贴到第二行第八个单　

元格―A9‖　中，按F2；再按CTRL＋SHIFT＋ENTER。　=COUNT（MATCH（A2：G2；A1：G1；0））　如何自动设　

置页尾线条？　Q：　各位大虾：菜鸟DD有一难题请教，　我的工作表通常都很长，偏偏我这人以　

特爱美，所以会将表格的外框线和框内线条设置为不同格式，但在打印时却无法将每一页的底　

部外框线自动设为和其他三条边线一致，每次都必须手工设置（那可是几十页哦！），而且如　

果换一台打印机的话就会前功尽弃，不知哪位大侠可指教一两招，好让DD我终生受用，不胜感　

激！　A：roof　打印文件前试试运行以下的代码。打印后关闭文件时不要存盘，否则下次要把　

格式改回来就痛苦了。（当然你也可以另写代码来恢复原来的格式）：　Sub　detectbreak（）　　

mycolumn　　　=　　　　Range（〃A1〃）。CurrentRegion。Columns。Count　　Set　　　　myrange　　　=　　

Range（〃A1〃）。CurrentRegion　For　Each　mycell　In　myrange　Set　myrow　=　mycell。EntireRow　If　　

myrow。PageBreak　=　xlNone　Then　GoTo　Nex　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXII　　


…………………………………………………………Page　173……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Else　Set　arow　=　Range（Cells（myrow。Offset（…1）。Row；　1）；　Cells（myrow。Offset（…1）。Row；　　

mycolumn））　With　arow。Borders（xlEdgeBottom）　。LineStyle　=　xlDouble　'把这一行改成自己　

喜欢的表线　。Weight　=　xlThick　。ColorIndex　=　xlAutomatic　End　With　End　If　Nex：　Next　mycell　　

End　　Sub　　求　工　齡　　　A　：　老　夏　　　=DATEDIF（B2；TODAY（）；〃y〃）　　=DATEDIF（B2；TODAY（）；〃ym〃）　　

=DATEDIF（B2；TODAY（）；〃md〃）　　　　　　　　　　　　　　　　=DATEDIF（B2；TODAY（）；〃y〃）&〃　　　　　　　　　　　　　　　年　

〃&DATEDIF（B2；TODAY（）；〃ym〃）&〃　　　　　　月　　　　　　〃&DATEDIF（B2；TODAY（）；〃md〃）&〃　　　　　　　日　　　　　　〃　　

********************************************************　DATEDIF（）　Excel　2000　可以　

找到說明　Excel　97　洠в姓f明　是個暗槓函數　如何用excel求解联立方程：　Q：x…x（7/y）^z=68　　

x…x（20/y）^z=61　x…x（30/y）^z=38　到底有人会吗？不要只写四个字，规划求解，我想要具体的　

解法，　A：wenou　这是一个指数函数的联列方程。步骤如下　1、令X/Y=W　则有　X（7W）^z=68　　

X（20W）^Z=61　X（30W）^Z=38　2、消去X　（20^Z…7^Z）W^Z=7　（30^Z…20^Z）W^Z=23　3　、消去W　　

（30^Z…20^Z）/（20^Z…7^Z）=23/7　由此求得Z=3。542899　x=68。173955　y=781。81960　行高和列宽　

单位是什么？　如何换算到毫米？　A：markxg　在帮助中：　―　出现在―标准列宽‖框中的数字是单元　

格中　0…9　号标准字体的平均数。‖　单位应该不是毫米，可能和不同电脑的字体有关吧。　Q：　

Rowen　是这样：　行高/3=mm　列宽*2。97=mm　鱼之乐　实际上最终打印结果是以点阵为单位的；而　

且excel中还随着打印比例的变化而变化　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXIII　　


…………………………………………………………Page　174……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



如果想用宏写一个完全退出EXCEL的函数是什么？　Q：因为我想在关闭lock。frm窗口时就自动　

退出EXCEL，请问用宏写一个完全退出EXCEL的函数是什么？多谢！　A：Application。quit　请问　

如何编写加载宏？　把带有VBA工程的工作簿保存为XLA文件即可成为加载宏。　请问如何在点击　

一个复选框后在后面的一个单元格内自动显示当前日期？　如果是单元格用〃=TODAY（）〃就可以　

了　如果是文本框在默认属性中设置或在复选框的CLICK中设置文本框的内容　EXCEL2000中视　

面管理器如何具体运用呀？　请问高手EXCEL2000中视面管理器如何具体运用呀？最好有例子　

和详细说明。明确的功能。不然我还是不能深刻的理解他。　markxg　其实很简单呀，你把它想　

象成运动场上的一串照片（记录不同时点的场景），一张照片记录一个场景，选择一张照片就　

把运动―拖‖到照片上的时点。不同的是只是场景回复，而值和格式不回复。　用VBA在自定义菜　

单中如何仿EXCEL的菜单做白色横线？　Q：我在做自定义菜单时，欲仿EXCEL菜单用横线分隔各　

菜单项目，用VBA如何才能做到？　A：Rowen　那个东东也是一个部件；我想可以调用；不过没试　

过。　diyee　把它的显示内容中设置为〃…〃即可。　simen　1。此部件叫什么名字，在控件箱里有吗？　　

2。用―…‖　我也试过，用它时单击可以，但你要知道EXCEL　自己的横线是不可以单击下去的　　

kevin_168　　object。BeginGroup　　=　　True　　下　面　是　我　用