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

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


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　　下　面　是　我　用　到　的　代　码　：　　　Set　　mymenubar　　=　　

mandBars。ActiveMenuBar　　　　　　　Set　　　　　　　　　　　　newmenu1　　　　　　　　　　=　　

mymenubar。Controls。Add（Type：=msoControlPopup；　_　Temporary：=True）　newmenu1。Caption　=　　

〃文件制作　（&M）〃　newmenu1。BeginGroup　=　True　'这就是你要的白色横线　simen　你知道在窗体　

中也有这样的分隔线的如何实现呢？　kevin_168　这；我可没有试过；不过我做的时候使用一　

LABEL将其设为　能否在取消―运行宏‖时并不打开其它工作表！　Q：我看见有些模块（高手给的）　

能够在取消―运行宏‖时并不打开其它工作表！不知是何办法？　但当你启动宏后，工作表才被　

打开！这种方法是什么？　A：Rowen　这些工作表预先都是隐藏的；必须用宏命令打开；所以取消　

宏的情况下是看不到的。可以打开VBA编辑器；在　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXIV　　


…………………………………………………………Page　175……………………………………………………………

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



工作表的属性窗口中将其Visible　设为xlSheetVisible　立体；看起来也够美观的；不妨一试。　

象版主所说的多查帮助文件；对你有帮助。　如何去掉单元格中间两个以上的空格？　Q：单元格　

A1中有―　中　心　是‖，如果用TRIM则变成―　中　心　是‖，我想将空格全去掉，用什么办法，请指教！！　　

A　：用SUBSTITUDE　函数，多少空格都能去掉。如A1　中有：中　心　是　　则在B1　中使用　

=SUBSTITUTE（A1；〃　〃；〃〃）就可以了。注意：公式中的第一个―　‖　中间要有一个空格，而第二个―‖　

中是无空格的。　打印表头？　Q：在Excel中如何实现一个表头打印在多页上？　打印表尾？　A：　

BY　dongmu　请选择文件…页面设置…工作表…打印标题…顶端标题行，然后选择你要打印的行。　打　

印表尾？　通过Excel直接提供的功能应该是无法实现的，需要用vba编制才行。　　　

提取性别（无论是15位还是18位）　=IF（LEN（A1）=15；IF（MOD（MID（A1；15；1）；2）=1；〃男〃；〃女　

〃）；IF（MOD（MID（A1；17；1）；2）=1；〃男〃；〃女〃））　如果身份证号的输入已是15或18位，用公式　　

=IF（MOD（LEFT（RIGHT（A1；（LEN（A1）=18）＋1））；2）；〃男〃；〃女〃）　如何把这26个表格汇总求和成一　

个汇总表　A：　ACCESS　数据……合并计算///来解决。　鱼之乐　看来有很多朋友有这个方面的需　

求，说明这是个共性问题，于是我利用access＋excel做了一个汇总查询模板，如果您需要可来　

mail我发给你　0710@963　excelhelp　假設匯總的工作表叫Sheet1，而存放資料的工作表叫　

Sheet2；　Sheet3；　。。。；　Sheet27，你可以這樣設置公式，把各工作表A1　的數值加起來：　　

=SUM（Sheet2：Sheet27！A1）　要注意的是，Sheet1不能在Sheet2和Sheet27中間，Excel不會管工　

作表的名字，只會把Sheet2和Sheet27中間的＊所有＊工作表中相關的儲存格（哪怕中間有一　

個工作表叫Sheet99）加起來。　葡萄　excelhelp的方案是正确的　1、在汇总表单元格内选择―　Σ‖　　

2、选择需要叠加的第一个工作表　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXV　　


…………………………………………………………Page　176……………………………………………………………

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



3、按住shift同时用鼠标选择需要叠加的最后一个工作表　4、选择需要叠加的单元格　5、Enter　　

实现验证先进先出法；　Q：　我做了一个验证先进先出法的表格；但想不出简洁的公式；请各位帮　

我　改　进　以　下　公　式　　　********************************************************　　

=IF（B3》；；；》》確定　D。　

繪　圖　層　作　個　美　美　的　圖　當　按　鈕　》》　右　鍵　》》　指　定　宏　》》　選　Macro1》》　確　定　　

**********************************************************　還是三層式結構　按鈕當　

操控介面　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CLXXVI　　


…………………………………………………………Page　177……………………………………………………………

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



步驟A；步驟B；是中間層元件；負責轉換　Execl　中繁简互换　Q　：　有EXCEL2000　中有没有像　

WORD2000中的繁简互换功能一样的东东呀？在这里谢过了。　A：　Rowen　XP　中可以；我曾用过；　

后来删了。　需安装〃微软拼音输入法　3。0〃；并启用〃高级语言服务〃。　工具…》语音　中有选项的。　　

能否象打支票软件那样输入一串数字它自动给拆分成单个数字？　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》=100