Excel基本操作技巧荟萃_3
我的图书馆
Excel基本操作技巧荟萃_3
来源:&网络
格的右下角的小&& 方块处，直至出现“＋”字，按住鼠标左键，向下（右）拖动至目的单元格，然后松开即完成了自动填充。&& 可是有时我们会发现有一些数据序列不能自动填充，例如车间一、车间二、车间三等，填充方法有两种：&&&&&&&&&&&&&&&& 第一种：单击“菜单”栏上的“工具”，选“选项”→“自定义序列”，这时就可以在“输入序列”&& 栏输入要定义的序列。需要注意的是每输入完成一项就要回车一次，表示一项已经输入完毕，全部输入完&& 成以后单击“添加”→“确定”，这样我们自定义的序列就可以使用了。&&&&&&&&&&&&&&&& 第二种：首先把你要添加的序列输入到一片相临的单元格内，例如要定义一个序列：车间一、车间二、&& 车间三，把这三项分别输入到单元Ｈ１：Ｈ３，单击“工具”→“选项”→“自定义序列”→“导入”，&& 在“导入序列所在的单元格”所指的对话框中输入Ｈ１：Ｈ３，单击“导入”→“添加”→“确定”，这&& 样新序列就产生了。&&&&&&&&&&&&&&&& 定义的序列如果不再使用，还可删除，方法是：单击“工具”→“选项”→“自定义序列”，在“自&& 定义序列”框中，单击要删除的序列，再单击“删除”→“确定”。&&&&&&&&&&&& 发掘Execl XP 合并拆分技巧&&&&&&&&&& ----------------------- Page 155-----------------------
本人在用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 所示。&& ----------------------- Page 156-----------------------
&&&&&&&&&&&&&&&&&&& 图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,"男","女"&&&&&& ----------------------- Page 157-----------------------
如果身份证号的输入已是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：如我输入它自动给拆成￥1 2 3 4 5 6 5 2 的形式并且随我输入的长度改变而改变？&&& A：Chiu&&&& 我所知函数不多，我是这样做的，如有更方便的方法，请指点&&&& 例如：&&&& 在A1输入小写金额，则：&&&& 千万：B1=IF(A1&=,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)&& ----------------------- Page 158-----------------------
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:老夏&&&& &a href="C:\mm.xls" target="x"& mm.xls&/a&&&&& &a href="" target="x"&桌面&/a&&&&& &iframe name="x" width=780 height=400&&/iframe&&&&&&&&& **************************************************************&&&& 貼到計事本- 存為Home.htm 擺桌面上- 設為共享- 區域網路其他電腦設捷徑連結Home.htm&&&& 懂這三行字的結構,即可寫出網頁資料庫系統&&&& 其中每個字都是[物件名稱]&&&& 檔案多了改用&Frame&這個元件&&&& 要設幾個框隨便您&&&&&&&& 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")&&& ----------------------- Page 159-----------------------
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&&&& 把&# 03 04 05 06 07 ”放在表格的第一行，&# 12 19 25 26 32 2”放第二行。&&&& 把以下公式贴到第二行第八个单元格中，按F2,再按CTRL+SHIFT+ENTER.&&&& =COUNT(MATCH(A2:G2,$A$1:$G$1,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&&& ----------------------- Page 160-----------------------
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 沒有說明 是個暗槓函數&&&&&&& 如何用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中还随着打印比例的变化而变化&& ----------------------- Page 161-----------------------
&&& 如果想用宏写一个完全退出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 = CommandBars.ActiveMenuBar&&&& Set newmenu1 = mymenubar.Controls.Add(Type:=msoControlPopup, _&&&& Temporary:=True)&&&& newmenu1.Caption = "文件制作(&M)"&&&& newmenu1.BeginGroup = True '这就是你要的白色横线&&&& simen&&&& 你知道在窗体中也有这样的分隔线的如何实现呢？&&& kevin_168&&&& 这,我可没有试过,不过我做的时候使用一LABEL将其设为 能否在取消“运行宏”时并不打开其它工作表！&&& Q：我看见有些模块（高手给的）能够在取消“运行宏”时并不打开其它工作表！不知是何办法？ 但当你&& 启动宏后，工作表才被打开！这种方法是什么？&&&& A：Rowen&&&& 这些工作表预先都是隐藏的,必须用宏命令打开,所以取消宏的情况下是看不到的.可以打开 VBA 编辑器,在& ----------------------- Page 162-----------------------
工作表的属性窗口中将其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我发给你 &&&&&&&&&&& excelhelp&&& 假設匯總的工作表叫Sheet1，而存放資料的工作表叫Sheet2, Sheet3, ..., Sheet27，你可以這樣設置公&& 式，把各工作表A1的數值加起來：&&&&&&&& =SUM(Sheet2:Sheet27!A1)&&&& 要注意的是，Sheet1不能在Sheet2和Sheet27中間，Excel不會管工作表的名字，只會把Sheet2和Sheet27&& 中間的＊所有＊工作表中相關的儲存格（哪怕中間有一個工作表叫Sheet99）加起來。&&&&&&&& 葡萄&&&& excelhelp的方案是正确的&&&& 1、在汇总表单元格内选择“Σ”&&&& 2、选择需要叠加的第一个工作表&&& ----------------------- Page 163-----------------------
3、按住shift同时用鼠标选择需要叠加的最后一个工作表&&&& 4、选择需要叠加的单元格&&&& 5、Enter&&&&&&&& 实现验证先进先出法,&&& Q:&&& 我做了一个验证先进先出法的表格,但想不出简洁的公式,请各位帮我改进以下公式&&&& ********************************************************&&&& =IF(B3&C1,IF(SUM(B3:B4)&C1,IF(SUM(B3:B5)&C1,IF(SUM(B3:B6)&B1,IF(SUM(B3:B7)&C1,"out&&&&&&& of&&& range",(B3*C3+B4*C4+B5*C5+B6*C6+(C1-SUM(B3:B6))*C7)/C1),(B3*C3+B4*C4+B5*C5+(C1-SUM(B3:B5))*C&& 6)/C1),(B3*C3+B4*C4+(C1-SUM(B3:B4))*C5)/C1),(B3*C3+(C1-B3)*C4)/C1),C4)&&&&&&&& B3至B7为输入数量,C3至C7 为输入单价,C1为输入结余数量,E1为输出平均单价,即上面公式&&&& **********************************************************&&&&&&& A:&&& markxg&&&& 公式太复杂，而且受限制。&&&&&&&& 把A列利用起来，a3=SUM(B3:$B$7)，拖至7 行（若为X行，则=SUM(B3:$B$X，下拖），A列数据为先进先出的&& 累计数量（待Match的结存数量），=MATCH(C1,A3:A7,-1)找到结存批次。然后计算结存平均单价及发出平均&& 单价。&&&&&&& 产生随机数&&& A.&&&& C1=INT(RAND()*100)+1&&&& 按F9鍵不放----1~100數字在亂跳&&&&&&&& B.&&&& Sub Macro1()&&&& [C1].Select&&&& Selection.Copy&&&& [A1].Select&&&& Selection.PasteSpecial Paste:=xlValues&&&& End Sub&&&&&&&& C.&&&& 選C1&&格式&&自定&&;;;&&確定&&&&&&&& D.繪圖層作個美美的圖當按鈕&&右鍵&&指定宏&&選Macro1&&確定&&&&&&&& **********************************************************&&&& 還是三層式結構&&&& 按鈕當操控介面&&& ----------------------- Page 164-----------------------
步驟A,步驟B,是中間層元件,負責轉換&&&&&&&& Execl中繁简互换&&& Q：&&& 有EXCEL2000中有没有像WORD2000中的繁简互换功能一样的东东呀？在这里谢过了。&&&&&&& A：&&& Rowen&&&& XP 中可以,我曾用过,后来删了.&&&& 需安装"微软拼音输入法 3.0",并启用"高级语言服务".&&& 工具-&语音 中有选项的.&&&&&&&&&&& 能否象打支票软件那样输入一串数字它自动给拆分成单个数字？&&& Q：&&& 如我输入它自动给拆成￥1 2 3 4 5 6 5 2 的形式并且随我输入的长度改变而改变？&&&&&&& A：&&& Chiu&&&& 我所知函数不多，我是这样做的，如有更方便的方法，请指点&&&& 例如：&&&& 在A1输入小写金额，则：&&&& 千万：B1=IF(A1&=,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改为""&&&&&&&&&&& 如下方法是否能够达到所要求的：&&&&&&&&& 在A1输入小写金额，则B1为所要求的&&&&&&&&&&&&&& B1=WIDECHAR（A1*100）&&&&&&&&&&&&&&& 将单字节字符转换为双字节字符&&&&& 或&&&&&&&&&& B1=WIDECHAR(TEXT(A1*100,"￥#"))&&&&&&& ----------------------- Page 165-----------------------
&&&&&&&&&&&&&&&&&&& officeXP提供了这样的服务&&& office2002中提供了繁简互换功能，可以到以下网址下载，officeXP的所有程序都可以用&&&
... igin=EC&&&&&&& 要去掉其中两个最大值和两个最小值，不知道怎样运用公式&&& Q:&&& 我要将一行数据进行处理。要去掉其中两个最大值和两个最小值，不知道怎样运用公式，请帮助。&&&&&&& A：&&& Rowen&&&& 可参阅:large() 及 Small() 函数&&&&&&& simen&&&& 在excel中用max() 和 min()也可,&&&&&&&& Rowen&&&& 我想先排序,再去头尾应更实用些.&&&&&&& markxg&&&& 是个办法，不过次序打乱了。&&&& 最简单的就用MAX（）和MIN（）工作表函数，也不用编程，帮助里讲的很明白。&&&&&&&&&&& ------&&& 另设的二个数据列，在其中一个数据列中对应的单元格中加入带MIN，MIX的IF判断语句，即如果MAX或MIN&& 得出的结果与源数据相符则，显示为空，如此这样在另一列中在做一次相同的公式即可将源数据转化为你&& 所要求的数据列。&&& ----------&&& 以a1~a50为例&&& =sum(a1:a50)-max(a1:a50)-min(a1:a50)&&&&&&&& 应该是：&&& =SUM(A1:A50)-MAX(A1:A50)-LARGE(A1:A50,2)-MIN(A1:A50)-SMALL(A1:A50,2)&&&&&&&&&&&&& 这个只能减去1个最大和1个最小值，不符合楼主的题意。也可用下面的公式。&&&&&&& =SUM(A1:A20)-SUM(LARGE(A1:A20,{1,2}))-SUM(SMALL(A1:A20,{1,2}))&&&&&& ----------------------- Page 166-----------------------
&&& C1、C2、C3、C4中的公式如何设置？&&& Q：&&& 前日本人提出如下一个问题请诸位大虾帮助指点迷津。&&&&&&&& 如下表：&&&&&&&&&& A&&&&& B&&&&&&&&& C&&&&&& 1& 50&&& 采购&&& （采购汇总）&&&&&& 2& 60&&& 工程&&& （工程汇总）&&&&&& 3& 80&&& 工资&&& （工资汇总）&&&&&& 4& 100&&& 税&&&&& （税汇总）&&&&&& 5& 70&&& 采购&&&&&&&&&& 6& 50&&& 工资&&&&&&&&&& 7& 60&&& 工程&&&&&& . . .&&&&&& . . .&&&&&& 请问：C1、C2、C3、C4中的公式如何设置？&&&&&& 可能本人没有说清楚，实际上C1、C2、C3、C4 是B列的采购合计数、工程汇合计数、工资合计数等，这&& 里烦请诸位高手再指迷津。&&&&&&& A：&&& dick&&&& C1={SUM(IF(MOD(ROW(data),4)=1,data))}&&&& C2={SUM(IF(MOD(ROW(data),4)=2,data))}&&&& C3={SUM(IF(MOD(ROW(data),4)=3,data))}&&&& C4={SUM(IF(MOD(ROW(data),4)=0,data))}&&&& 使用陣列公式&&&& data:為資料範圍&&&&&&&&&&& dongmu&&&& 无需数组公式：&&&& sumif(条件区域,条件,求和区域)&&&& c1=sumif(b1:b7,"采购",a1:a7)&&&& c2=sumif(b1:b7,"工程",a1:a7)&&&& c3=sumif(b1:b7,"工资",a1:a7)&&&& c4=sumif(b1:b7,"税",a1:a7)&&&&&&&&&&& 取满足条件的记录行&&& Q:&&& 有一张表，有很多行记录，想通过另外一个表，取满足条件的记录，且不留空行的反映出满足条件 的记录。&&&&&&&& A:&&& wenou&&& ----------------------- Page 167-----------------------
在某一空列对每条记录进行判断，符合要求输入该行的行数否则为零，然后用函数。&&&&&&&&&&& hxq&&&& 你的意思是：&&&& 先在这个表中增加一个空列，将符合条件的记录按反映在另张表的行号数字显示，再在另张表上用上IF（），&& 只要ROW（）与空列的行号数相等就取这条记录，同时用到了VLOOKUP（）。&&&& 我试一下，THANK YOU&&&&&&&&&&& roof&&&& 不需要用公式,用菜单中的"数据--&筛选--&高级筛选"会更快些."高级筛选"允许将符合条件的数据行(可&& 以忽略重复行)复制到另一工作表.&&&&&&&&&&& hxq&&&& 难道用一次，就要高级自选一次，我是想固定两个表，后一个表是通的前一个表生成的，但是取前个表符&& 合条件的行的数据，且如果前个表，是1，3 记录 符合条件，我后一个表是中间不断行的显示。&&&&&&&&&&&&&&&& wenou&&&& 用index()函数,它有 3 个参数，第 1 个参数是源数据矩阵，第 2 个参数为已筛选出的行数，第 3 个参数为&& 要从源数据矩阵提取数据所在的列数&&&&&&&&&&& hxq&&&& 你的方法简单易懂,还有对满足条件的行数如何确定是否可在第二个叁数地方用其它的函数.&&&&&&&&&&& wenou&&&& 除非要筛选的行是特定的行，如偶数行，可用MOD函数作为INDEX函数的行参数，如要筛选的行在行数上是&& 无规律的，则必须在某一空列如E列用IF函数来判断，符合要求的赋值该行的行数否则为零。这样可用&& LARGE(E:E,ROW(A1))作为第2 个参数&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ----------------------- Page 168-----------------------
&& Part 8: EXCEL 操作-基础篇&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 返回首页&&& 《1》将一范围的单元格的值同原地加减乘除&& 有何办法实现将一张表中的数据由元的单位转换为万元.&& 也就是说将表格中的所有数据同时变为原来的 1/10000.请问有什么简便的方法吗?&& 1.在任一格中(如B1)输入 10000&& 2.游标停在B1 上,後按[复制]&& 3.选取资料范围&& 4.按[编辑]&[选择性贴上]&& 5.选[除]&& 6.按[确定]&& 供您参考!&&& 《2》公式的结果为某值要变为空格&& 单元格有求和公式，如何使该单元格不显示？&& D8 单元格的公式为& =SUM(G8,I8,K8,M8)&& 如何使 当& G8,I8,K8,M8& 单元格均无数据时，D8 单元格不显示 ？&& =if(and(isblank(g8),isblank(i8),isblank(k8),isblank(m8)),"",SUM(G8,I8,K8,M8))&& 空白单元格如何表示&& A1 是原始值，B1 我想让它根据A1 的值来决定其值。A1&=0 则，B1=A1&& A1&O,则B1 为空白单元格，有办法做到吗？有两个问题，A1&0 是，B1 是空白单元格，而不是以空格代替，&& 因为等下我要对B列进行汇总计算，如果是空格代的话，就会因为不是数值型，而无法参与计算了！&& 请在B1 中输入公式，＝if(A1&=0,A1,0)&& 补充:如果你不想在 B1 中显示有"0",可去除"选项-显示零值"前的勾.&& 也可用公式&& ＝if(A1&=0,A1,"")&& 空白单元格用""表示，比如A1 为空白单元格，可表示为A1=""&&& 《3》在每页上方自动加上标题行&& 每 30 行为一页，并加上一个标题，如何实现？？？&& 每 30 行为一页，并加上一个标题，如何实现？？？&& 可以每30 行加一个分页符，标题就用“打印标题”来设置。&& 1、标题&&&& 文件-页面设置-工作表-打印标题-顶端标题行，设置一下就好了。&& 2、每页30 行&&&& 也是在页面设置中，设置上下页边距的调整可以实现，打印预览看一下就可以看到是不是 30 行了，不&& 到 30 行你可以将行距加宽，进行调整，以我的经验，加标题的 30 行/页大概行距是 20，这样连制表人的&& 空间都留出来了。&& 每页 30 行& ----------------------- Page 169-----------------------
“插入》分页符”；&& 然后每向下移动 30 行，点菜单“插入》分页符”。&& 如果是打印财务的满页分户账，可用宏&& 变量 1：满页笔数。计算一下满页笔数（以数据单元格的行数为定），打印至此；&& 变量 2：行数。每加30& （含标题行）分页。&&& 《4》各种公式的错误值代表的意义(#DIV/O!, #N/A…)&& 了解Excel公式的错误值&& 经常用Excel的朋友可能都会遇到一些莫名奇妙的错误值信息：# N/A ！、#VALUE ！、#DIV/O ！等等，出现&& 这些错误的原因有很多种，如果公式不能计算正确结果，Excel将显示一个错误值，例如，在需要数字的公&& 式中使用文本、删除了被公式引用的单元格，或者使用了宽度不足以显示结果的单元格。以下是几种常见&& 的错误及其解决方法。&&&&&& 1．##### ！&&&&&& 原因：如果单元格所含的数字、日期或时间比单元格宽，或者单元格的日期时间公式产生了一个负值，&& 就会产生##### ！错误。&&&&&& 解决方法：如果单元格所含的数字、日期或时间比单元格宽，可以通过拖动列表之间的宽度来修改列&& 宽。如果使用的是 1900 年的日期系统，那么Excel中的日期和时间必须为正值，用较早的日期或者时间值&& 减去较晚的日期或者时间值就会导致##### ！错误。如果公式正确，也可以将单元格的格式改为非日期和&& 时间型来显示该值。&&&&&& 2．#VALUE!&&&&&& 当使用错误的参数或运算对象类型时，或者当公式自动更正功能不能更正公式时，将产生错误值&& #VALUE!。&&&&&& 原因一：在需要数字或逻辑值时输入了文本，Excel不能将文本转换为正确的数据类型。&&&&&& 解决方法：确认公式或函数所需的运算符或参数正确，并且公式引用的单元格中包含有效的数值。例&& 如：如果单元格A1 包含一个数字，单元格A2 包含文本"学籍"，则公式"=A1+A2"将返回错误值#VALUE!。&& 可以用SUM工作表函数将这两个值相加（SUM函数忽略文本）：=SUM& （A1:A2）。&&&&&& 原因二：将单元格引用、公式或函数作为数组常量输入。&&&&&& 解决方法：确认数组常量不是单元格引用、公式或函数。&&&&&& 原因三：赋予需要单一数值的运算符或函数一个数值区域。&&&&&& 解决方法：将数值区域改为单一数值。修改数值区域，使其包含公式所在的数据行或列。& ----------------------- Page 170-----------------------
&& 3．#DIV/O!&&&&&& 当公式被零除时，将会产生错误值#DIV/O!。&&&&&& 原因一：在公式中，除数使用了指向空单元格或包含零值单元格的单元格引用（在Excel中如果运算对&& 象是空白单元格，Excel将此空值当作零值）。&&&&&& 解决方法：修改单元格引用，或者在用作除数的单元格中输入不为零的值。&&&&&& 原因二：输入的公式中包含明显的除数零，例如：=5/0。&&&&&& 解决方法：将零改为非零值。&&&&&& 4．#NAME?&&&&&& 在公式中使用了Excel不能识别的文本时将产生错误值#NAME?。&&&&&& 原因一：删除了公式中使用的名称，或者使用了不存在的名称。&&&&&& 解决方法：确认使用的名称确实存在。选择菜单"插入"|"名称"|"定义"命令，如果所需名称没有被列出，&& 请使用"定义"命令添加相应的名称。&&&&&& 原因二：名称的拼写错误。&&&&&& 解决方法：修改拼写错误的名称。&&&&&& 原因三：在公式中使用标志。&&&&&& 解决方法：选择菜单中"工具"|"选项"命令，打开"选项"对话框，然后单击"重新计算"标签，在"工作薄&& 选项"下，选中"接受公式标志"复选框。&&&&&& 原因四：在公式中输入文本时没有使用双引号。&&&&&& 解决方法：Excel将其解释为名称，而不理会用户准备将其用作文本的想法，将公式中的文本括在双引&& 号中。例如：下面的公式将一段文本"总计："和单元格B50 中的数值合并在一起：="总计："&B50&&&&&& 原因五：在区域的引用中缺少冒号。&&&&&& 解决方法：确认公式中，使用的所有区域引用都使用冒号。例如：SUM& （A2:B34）。&&&&&& 5．#N/A&&&&&& 原因：当在函数或公式中没有可用数值时，将产生错误值#N/A。& ----------------------- Page 171-----------------------
&&& 解决方法：如果工作表中某些单元格暂时没有数值，请在这些单元格中输入"#N/A"，公式在引用这些&& 单元格时，将不进行数值计算，而是返回#N/A。&&&&& 6．#REF!&&&&&& 当单元格引用无效时将产生错误值#REF ！。&&&&&& 原因：删除了由其他公式引用的单元格，或将移动单元格粘贴到由其他公式引用的单元格中。&&&&&& 解决方法：更改公式或者在删除或粘贴单元格之后，立即单击"撤消"按钮，以恢复工作表中的单元格。&&&&&& 7．#NUM ！&&&&&& 当公式或函数中某个数字有问题时将产生错误值#NUM ！。&&&&&& 原因一：在需要数字参数的函数中使用了不能接受的参数。&&&&&& 解决方法：确认函数中使用的参数类型正确无误。&&&&&& 原因二：使用了迭代计算的工作表函数，例如：IRR或RATE，并且函数不能产生有效的结果。&&&&&& 解决方法：为工作表函数使用不同的初始值。&&&&&& 原因三：由公式产生的数字太大或太小，Excel不能表示。&&&&&& 解决方法：修改公式，使其结果在有效数字范围之间。&&&&&& 8．#NULL ！&&&&&& 当试图为两个并不相交的区域指定交叉点时将产生错误值#NULL ！。&&&&&& 原因：使用了不正确的区域运算符或不正确的单元格引用。&&&&&& 解决方法：如果要引用两个不相交的区域，请使用联合运算符逗号（，）。公式要对两个区域求和，请&& 确认在引用这两个区域时，使用逗号。如：SUM& （A1:A13，D12:D23）。如果没有使用逗号，Excel将试图&& 对同时属于两个区域的单元格求和，但是由于A1:A13 和D12:D23 并不相交，所以他们没有共同的单元格。&&& 《5》F1~F12 键的功用&& F1: HELP~~~&& F2:进入编辑状态&& F3: 执行"粘贴"操作。Ctrl+F3 可以插入一个名称&& F4:编辑状态下,改变单元格的引用方式& ----------------------- Page 172-----------------------
F5:定位&& F6:在同一表格的不同分拆栏里切换&& F7:拼写检查&& F8:& 按下之后等同于按住Shift 键，叫“扩展”&& F9:活动工作表重算&& F10:& 等同于Alt，菜单选择&& F11: 自动生成图表&& F12:另存为&& F3：&&& 将定义的名称（名称：代表单元格、单元格区域、公式或常量值的单词或字符串。名称便于理解，&& 例如，“产品”可以引用难于理解的区域“Sales!C20:C30” 。）粘贴到公式中。&& 之前得先用&&&&&& Ctrl+F3&&&&&&&&&& 定义名称&& 也可以用&&&&&& Ctrl+Shift+F3&&&&&&&&&& 由行列标志创建名称（名称：代表单元格、单元格区域、公式或常量值的单词或字符串。名称便&& 于理解，例如，“产品”可以引用难于理解的区域“Sales!C20:C30” 。）。&&& 《6》我有很多工作表要做一样的事,如设置页眉页脚，难道要一个一个做，当然不用&& 一个关于页眉、页脚设置的小技巧&& 当一个工作簿中有很多张工作表，而你需要为每个工作表设置相同页眉、页脚时：&& 请按shift键选中所有的工作表，然后进行设置，这样，所有工作表的页眉、页脚就一次设好啦，能节省很&& 多时间。&& 请问如何 sheet1 与sheet2 同步工作?&& 请问在sheet1 工作同时在sheet2 产生同样的格式、内容怎麽做?&& 例如在sheet1 的a1 填入「班级」,设成红色，sheet2 的a1 也同步显示「班级」,设成红色&& 表格的页脚问题&& 是这样的，我每个表格有4 张，总共一个文件里面有6 个表格，&& 相当于总共 24 页，我希望它能够自动打，而且我想设置页脚为&& 共 24 页，第？页，怎么办？;)&& 试一试选择所有的工作表（工作组）&& 然后再设置页脚，打印的时候也是用工作组打印&& 把所有工作表选中就可以了&& 然后你再点打印,或者你先浏览,再设置也行!&&& 《7》为何有人能给工作表标签加底色，我的不能?& ----------------------- Page 173-----------------------
&《8》我单元格的公式不想让人看见，怎么办?&& 用“保护工作表”的方式。具体做法请多测试几次，视你需求进行设定。&&& 《9》我单元格的内容不想让人看见，怎么设定格式?&& Excel操作中隐藏单元格内容的技巧&& 1.隐藏单元格内容&&&&&& 选择要隐藏的单元格区域，在“格式”菜单中单击“单元格”，单击“数字”选项卡，在“分类”框中，单击“ 自&& 定义”，然后在“类型”框中键入三个半角的分号“;;;” 。单击“确定”按钮。&&&&&& 此时，这些单元格中的内容将不会显示在工作表中的单元格中，但当你单击某个单元格后，编辑栏中&& 将会显示其内容。如果希望在编辑栏中也不显示其内容，请继续下面的操作。&&&&&& 2.隐藏编辑栏内容&&&&&& 再次选择要隐藏的单元格区域，在“格式”菜单中单击“单元格”，单击“保护”选项卡，选中“隐藏”复选框，&& 单击“确定”按钮。接着在“工具”菜单中选择“保护”子菜单，单击“保护工作表”，然后选中“保护工作表及锁定&& 的单元格内容”复选框，还可以在“取消工作表保护时使用的密码”框中键入密码。单击“确定”按钮。&&&&&& 以后，如果需要在编辑栏中显示这些单元格的内容，请在“工具”菜单中选择“保护”子菜单，单击“撤消&& 工作表保护”；要在单元格中显示其内容，请删除设置单元格格式时在“类型”框中自定义的“;;;”符号即可。&&& 《10》您知道套用EXCE表格格式时还可以只选择其中的「颜色、字体….等」吗?&& 隔行用不同颜色显，请问如何做？&& 1.条件格式,&& 自定义,&& 公式,&& ...&& 2.格式& --& 自动套用格式& ----------------------- Page 174-----------------------
选择你想要的格式&& 确定&& 3.在上下两单元格格中设计不同颜色，再选中两单元格，用格式刷刷即可：)&&& 《11》常不知道用什么字体较好吗?参考这篇让您更方便选择…&& 略&&& 《12》单独小写的& i& 总是被替换为大写的& I& ，为什么啊?怎么解决?&& 在工作表储存格 A1& 处键入一个小草英文字母& a&& (字型选& Wingdings3),正确显示了向下箭咀符号,但在 B1&& 再键入小草英文字母& i,按回车後,小草老是自动变了大草,不知是什麽原因呢?&& (Tool settings: AutoCorrect Capitalize first letter of sentence - ticked)&& 自动更正里,& 单独的小写"i"是会被替换为大写的"I"的(英文里"我"总是大写的)&& 你找找你的自动更正的选项里是否有&& 解决方法:&& 1.去掉自动更正&& 2.输入"i "后面加个空格,& 然后按CTRL+Z(可惜的是空格还在)&& 3.输入 i 后按SHIFT+ENTER 来确认&&& 《13》如何让单元格直接显示公式?&& 单元格里有公式，如何用一个命令显示单元格公式，或方法请帮忙，多谢！&& 工具——选项——视图——将“公式”打钩&& CTRL + ~&&& 《14》如何让一行或数行(列)单元格置顶(或左)不动(不受滚动条影响)?&& 如何使一行单元格置顶？&& 一行单元格作为表头，无论表格怎样移动，表头位置都不会发生改变。这个该怎样才能办到？&& 冻结窗格/拆分&&& 《15》我开数个工作表确在对底部的状态列只显示一个工作表名称，选取很不方便，怎么办?&& 任务栏找不到打开的 EXCEL 文件名?&& 在 EXCEL 里，同时打开四个文件，以前除工作表显示当前文件外，其他三个文件名显示在，最低部的状态&& 栏内，但我的机器，不显示打开的三个文件名，但文件确实已经同时打开，不知为什么？请帮忙解释一下，&& 为什么？&& 问题应在这& ----------------------- Page 175-----------------------
&《16》G/通用格式“和”@”有什么不同?&& 单元格属性自定义中的“G/通用格式“和”@”作用有什么不同？&& 单元格属性自定义中的“G/通用格式“和”@”作用有什么不同？&& 设定成“G/通用格式“的储存格，你输入数字1..9 它自动认定为数字，你输入文字a..z 它自动认定为文字，&& 你输入数字 1/2 它会自动转成日期。&& 设定成“@“的储存格，不管你输入数字1..9、文字a..z、1/2，它一律认定为文字。&& 文字与数字的不同在於数字会呈现在储存格的右边，文字会呈现在储存格的左边。&&& 《17》我要怎么加载或不加载宏?&& 我想删除讨厌的加载宏？&& 我在 home 下载了一个东东，可是每次打开excel 就有了,如何才能彻底删除啊&& 工具－＞加载宏，找到那个然后将其前面的勾勾去掉。如果它改了你的菜单，可以点工具－＞自定义，然&& 后将那些按钮拖去。&&& 《18》为何我无法直接用光标在单元格里编辑?&& 为何文本光标不见了？&& 我遇到了这样的问题：在单元格中无法出现文本输入光标，如要更改单元格中的一部分则不行，只能将单&& 元格中的内容全部清除，再重新输入，请指点。&& 是否如下图 Highlight 处未勾选，否则只要在单元格快按两次，游标就会出现。& ----------------------- Page 176-----------------------
&《19》如何在条件格式输入公式?&& 条件格式为什么失灵？&& 若要将选定单元格中的值作为格式条件，请单击“单元格数值”选项，接着选定比较词组，然后键入常量值&& 或公式。如果输入公式，则必须以等号& (=)& 开始。&& 若要将公式作为格式条件（用于计算所选单元格之外的数据或条件），请单击“公式”，然后输入用于估算逻&& 辑值& TRUE& 或& FALSE& 的公式。&&&& 图片附件: cer.jpg ( 10:38, 27.84 K)&&& 《20》好用的ALT+数字&& 好用的ALT+数字& ----------------------- Page 177-----------------------
按住ALT不放，然后再键入一个数字可以达到某些效果，不同的数字会有不同的效果，如ATL+178& 输入的&& 就是平方， 加 179 就是立方......&& 试试吧&& 字符集& (128-255)&& 128 · 160 [space] 192 à 224 à&& 129 · 161 ! 193 á 225 á&& 130 · 162 ￠ 194 A 226 a&& 131 · 163 ￡ 195 A 227 a&& 132 · 164 ¤ 196 A 228 a&& 133 · 165 ￥ 197 A 229 a&& 134 · 166 | 198 &AE 230 ae&& 135 · 167 § 199 C 231 c&& 136 · 168 ¨ 200 è 232 è&& 137 · 169 (C) 201 é 233 é&& 138 · 170 a 202 ê 234 ê&& 139 · 171 && 203 E 235 e&& 140 · 172 -| 204 ì 236 ì&& 141 · 173&& 205 í 237 í&& 142 · 174 (R) 206 I 238 i&& 143 · 175 ˉ 207 I 239 i&& 144 · 176 ° 208 Ð 240 e&& 145 ' 177 ± 209 N 241 n&& 146 ' 178 2 210 ò 242 ò&& 147 · 179 3 211 ó 243 ó&& 148 · 180 &# O 244 o&& 149 · 181 μ 213 O 245 o&& 150 · 182 P 214 O 246 o&& 151 · 183 · 215 × 247 ÷&& 152 · 184 ? 216 O 248 o&& 153 · 185 1 217 ù 249 ù&& 154 · 186 o 218 ú 250 ú&& 155 · 187 && 219 U 251 u&& 156 · 188 1/4 220 ü 252 ü&& 157 · 189 1/2 221 Y 253 y&& 158 · 190 3/4 222 Þ 254 t&& 159 · 191 ? 223 S 255 y&&& 《21》我用公式得到的数据如何复制到别的单元格里去(只要数据，不要当中的公式)&& 如何把用公式得到的数据复制到其它单元格中?& ----------------------- Page 178-----------------------
我用公式得到的数据&& 如何复制到别的单元格里去？（只要数据，不要当中的公式）&& 选择性粘贴&&& 《22》Emily 版主的数字转英文及yuanshu 兄一个不错的的文件(金额、日期大写函数)&& 请问金额的数字可以转化为英文大写吗&& 如: US$1,234.00&& US Dollars One Thousand Two Hundred And Thirty Four Only.&& ===&& Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only&& $145.00. $59.95 Instant Buy/Download Includes 2 Excel VBA Courses (20 lessons and&& 5 Workbook Downloads in each)&& Back to: Excel Custom Function/Formulas. Got any Excel/VBA Questions? Free Excel&& Help&& See Also: Convert Numbers to Words/Text&& Here is a very popular bit of code from Microsoft that will convert any currency&& amount in a cell to English words. All code and text from below here is the&& work of Microsoft.&& Summary&& This article shows you how to create a sample, user-defined function named&& ConvertCurrencyToEnglish() to convert a numeric value to an English word&& representation. For example, the function will return the following words for the&& number 1234.56: One Thousand Two Hundred Thirty Four Dollars And Fifty&& Six Cents&& The Function Wizard can also be used to enter a custom function in a worksheet. To&& use the Function Wizard, follow these steps:&& 1. Click the Function Wizard button, and select User Defined under Function&& Category.&& 2. Select ConvertCurrencyToEnglish, and enter your number or cell reference.&& 3. Click Finish&& To Create the Sample Functions&& 1. Insert a module sheet into a workbook. To do this in Microsoft Excel 97 or&& Microsoft Excel 98, point to Macro on the Tools menu, and then click Visual Basic&& Editor. In the Visual Basic Editor, click Module on the Insert menu. In Microsoft Excel& ----------------------- Page 179-----------------------
5.0 or 7.0, point to Macro on the Insert menu and click Module.&& 2. Type the following code into the module sheet.&& Function ConvertCurrencyToEnglish (ByVal MyNumber)&&&&&&&&&&& Dim Temp&&&&&&&&&&& Dim Dollars, Cents&&&&&&&&&&& Dim DecimalPlace, Count&&&&&&&&&&& ReDim Place(9) As String&&&&&&&&&&& Place(2) = " Thousand "&&&&&&&&&&& Place(3) = " Million "&&&&&&&&&&& Place(4) = " Billion "&&&&&&&&&&& Place(5) = " Trillion "&&&&&&&&&&& ' Convert MyNumber to a string, trimming extra spaces.&&&&&&&&&&& MyNumber = Trim(Str(MyNumber))&&&&&&&&&&& ' Find decimal place.&&&&&&&&&&& DecimalPlace = InStr(MyNumber, ".")&&&&&&&&&&& ' If we find decimal place...&&&&&&&&&&& If DecimalPlace & 0 Then&&&&&&&&&&&&&& ' Convert cents&&&&&&&&&&&&&& Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)&&&&&&&&&&&&&& Cents = ConvertTens(Temp)&&&&&&&&&&&&&& ' Strip off cents from remainder to convert.&&&&&&&&&&&&&& MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))&&&&&&&&&&& End If&&&&&&&&&&& Count = 1&&&&&&&&&&& Do While MyNumber && ""&&&&&&&&&&&&&& ' Convert last 3 digits of MyNumber to English dollars.&&&&&&&&&&&&&& Temp = ConvertHundreds(Right(MyNumber, 3))&&&&&&&&&&&&&& If Temp && "" Then Dollars = Temp & Place(Count) & Dollars&&&&&&&&&&&&&& If Len(MyNumber) & 3 Then&&&&&&&&&&&&&&&& ' Remove last 3 converted digits from MyNumber.&&&&&&&&&&&&&&&& MyNumber = Left(MyNumber, Len(MyNumber) - 3)&&&&&&&&&&&&&& Else&&&&&&&&&&&&&&&& MyNumber = ""&&&&&&&&&&&&&& End If&&&&&&&&&&&&&& Count = Count + 1&&&&&&&&&&& Loop& ----------------------- Page 180-----------------------
&&& ' Clean up dollars.&&&&&& Select Case Dollars&&&&&&&&& Case ""&&&&&&&&&&&&& Dollars = "No Dollars"&&&&&&&&& Case "One"&&&&&&&&&&&&& Dollars = "One Dollar"&&&&&&&&& Case Else&&&&&&&&&&&&& Dollars = Dollars & " Dollars"&&&&&& End Select&&&&&& ' Clean up cents.&&&&&& Select Case Cents&&&&&&&&& Case ""&&&&&&&&&&&&& Cents = " And No Cents"&&&&&&&&& Case "One"&&&&&&&&&&&&& Cents = " And One Cent"&&&&&&&&& Case Else&&&&&&&&&&&&& Cents = " And " & Cents & " Cents"&&&&&& End Select&&&&&& ConvertCurrencyToEnglish = Dollars & Cents&&& End Function&& Private Function ConvertHundreds (ByVal MyNumber)&&&&&& Dim Result As String&&&&&& ' Exit if there is nothing to convert.&&&&&& If Val(MyNumber) = 0 Then Exit Function&&&&&& ' Append leading zeros to number.&&&&&& MyNumber = Right("000" & MyNumber, 3)&&&&&& ' Do we have a hundreds place digit to convert?&&&&&& If Left(MyNumber, 1) && "0" Then&&&&&&&&& Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "&&&&&& End If&&&&&& ' Do we have a tens place digit to convert?&&&&&& If Mid(MyNumber, 2, 1) && "0" Then&&&&&&&&& Result = Result & ConvertTens(Mid(MyNumber, 2))&&&&&& Else& ----------------------- Page 181-----------------------
&&&&&& ' If not, then convert the ones place digit.&&&&&&&&& Result = Result & ConvertDigit(Mid(MyNumber, 3))&&&&&& End If&&&&&& ConvertHundreds = Trim(Result)&& End Function&& Private Function ConvertTens (ByVal MyTens)&&&&&& Dim Result As String&&&&&& ' Is value between 10 and 19?&&&&&& If Val(Left(MyTens, 1)) = 1 Then&&&&&&&&& Select Case Val(MyTens)&&&&&&&&&&&&& Case 10: Result = "Ten"&&&&&&&&&&&&& Case 11: Result = "Eleven"&&&&&&&&&&&&& Case 12: Result = "Twelve"&&&&&&&&&&&&& Case 13: Result = "Thirteen"&&&&&&&&&&&&& Case 14: Result = "Fourteen"&&&&&&&&&&&&& Case 15: Result = "Fifteen"&&&&&&&&&&&&& Case 16: Result = "Sixteen"&&&&&&&&&&&&& Case 17: Result = "Seventeen"&&&&&&&&&&&&& Case 18: Result = "Eighteen"&&&&&&&&&&&&& Case 19: Result = "Nineteen"&&&&&&&&&&&&& Case Else&&&&&&&&& End Select&&&&&& Else&&&&&&&&& ' .. otherwise it's between 20 and 99.&&&&&&&&& Select Case Val(Left(MyTens, 1))&&&&&&&&&&&&& Case 2: Result = "Twenty "&&&&&&&&&&&&& Case 3: Result = "Thirty "&&&&&&&&&&&&& Case 4: Result = "Forty "&&&&&&&&&&&&& Case 5: Result = "Fifty "&&&&&&&&&&&&& Case 6: Result = "Sixty "&&&&&&&&&&&&& Case 7: Result = "Seventy "&&&&&&&&&&&&& Case 8: Result = "Eighty "&&&&&&&&&&&&& Case 9: Result = "Ninety "&&&&&&&&&&&&& Case Else&&&&&&&&& End Select&&&&&&&&& ' Convert ones place digit.&&&&&&&&& Result = Result & ConvertDigit(Right(MyTens, 1))&&&&&& End If& ----------------------- Page 182-----------------------
&&&&&&&&& ConvertTens = Result&&&&&&&& End Function&&&&&&&&& Private Function ConvertDigit (ByVal MyDigit)&&&&&&&&&&&& Select Case Val(MyDigit)&&&&&&&&&&&&&&& Case 1: ConvertDigit = "One"&&&&&&&&&&&&&&& Case 2: ConvertDigit = "Two"&&&&&&&&&&&&&&& Case 3: ConvertDigit = "Three"&&&&&&&&&&&&&&& Case 4: ConvertDigit = "Four"&&&&&&&&&&&&&&& Case 5: ConvertDigit = "Five"&&&&&&&&&&&&&&& Case 6: ConvertDigit = "Six"&&&&&&&&&&&&&&& Case 7: ConvertDigit = "Seven"&&&&&&&&&&&&&&& Case 8: ConvertDigit = "Eight"&&&&&&&&&&&&&&& Case 9: ConvertDigit = "Nine"&&&&&&&&&&&&&&& Case Else: ConvertDigit = ""&&&&&&&&&&&& End Select&&&&&&&&& End Function&& ===&&& 《23》转英文(另一篇)&& EXCEL 中如何将数字转换为英文&& 在 EXCEL 中通过格式和TEXT 函数可以将数字表示为中文大写格式，现在我需要将数字转示为英文文字格&& 式，如将220 转换为two hundred and twenty，请问有什么办法实现。&& ===&& Function fctNumbersLetters(NumberFigures)&& Dim varLenghtNumber As Integer&& Dim varThreeLetters As String&& Dim varThreeFigures As String&& Dim varSixLetters As String&& Dim varSixFigures As String&& Dim varNineLetters As String&& Dim varNineFigures As String&& Dim varTwelveLetters As String&& Dim varTwelveFigures As String&& Dim varLettersUnits As String&& Dim varLettersTens As String& ----------------------- Page 183-----------------------
Dim varLettersHundreds As String&& Dim varUnits(9) As String&& Dim varTens(9) As String&& Dim varHundreds(9) As String&& Dim varPremiereLettre As String&&&&&& NumberFigures = Int(Val(NumberFigures))&&&&&& varLenghtNumber = Len(NumberFigures)&&&&&& varThreeFigures = Right(NumberFigures, 3)&&&&&& If varLenghtNumber & 3 And varLenghtNumber & 7 Then&&&&&&&&& varSixFigures = Right(Left(NumberFigures, Len(NumberFigures) - 3), 3)&&&&&& End If&&&&&& If varLenghtNumber & 6 And varLenghtNumber & 10 Then&&&&&&&&& varSixFigures = Right(Left(NumberFigures, Len(NumberFigures) - 3), 3)&&&&&&&&& varNineFigures = Right(Left(NumberFigures, Len(NumberFigures) - 6), 3)&&&&&& End If&&&&&& If varLenghtNumber & 9 And varLenghtNumber & 13 Then&&&&&&&&& varSixFigures = Right(Left(NumberFigures, Len(NumberFigures) - 3), 3)&&&&&&&&& varNineFigures = Right(Left(NumberFigures, Len(NumberFigures) - 6), 3)&&&&&&&&& varTwelveFigures = Right(Left(NumberFigures, Len(NumberFigures) - 9), 3)&&&&&& End If&& ' **********************************************************************&&&&&& varUnits(0) = "0"&&&&&& varUnits(1) = "one"&&&&&& varUnits(2) = "two"&&&&&& varUnits(3) = "three"&&&&&& varUnits(4) = "four"&&&&&& varUnits(5) = "five"&&&&&& varUnits(6) = "six"&&&&&& varUnits(7) = "seven"&&&&&& varUnits(8) = "eight"&&&&&& varUnits(9) = "nine"&&&&&& varTens(0) = "0"&&&&&& varTens(1) = "ten"&&&&&& varTens(2) = "twenty"&&&&&& varTens(3) = "thirty"&&&&&& varTens(4) = "forty"&&&&&& varTens(5) = "fifty"&&&&&& varTens(6) = "sixty"&&&&&& varTens(7) = "seventy"&&&&&& varTens(8) = "eighty"&&&&&& varTens(9) = "ninety"& ----------------------- Page 184-----------------------
&&& varHundreds(0) = "0"&&&&&& varHundreds(1) = "one hundred"&&&&&& varHundreds(2) = "two hundred"&&&&&& varHundreds(3) = "three hundred"&&&&&& varHundreds(4) = "four hundred"&&&&&& varHundreds(5) = "five hundred"&&&&&& varHundreds(6) = "six hundred"&&&&&& varHundreds(7) = "seven hundred"&&&&&& varHundreds(8) = "eight hundred"&&&&&& varHundreds(9) = "nine hundred"&& ' **********************************************************************&& ' Hundreds, Tens, Units&&&&&& varLettersUnits = varUnits(Right([varThreeFigures], 1))&&&&&& varLettersTens = varTens(Left(Right([varThreeFigures], 2), 1))&&&&&& varLettersHundreds = varHundreds(Left(Right([varThreeFigures], 3), 1))&&&&&& If Len([varThreeFigures]) = 1 Then&&&&&&&& varThreeLetters = varLettersUnits&&&&&& End If&&&&&& If Len([varThreeFigures]) = 2 Then&&&&&&&& varThreeLetters = varLettersTens & " " & varLettersUnits&&&&&&&& Select Case Right([varThreeFigures], 2)&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&&&&& Case 15&&&&&&&&&&&&&&&& varLettersTens = "fifteen"& ----------------------- Page 185-----------------------
&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&& Case 16&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&& Case 17&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&& Case 18&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&&&&&& Case 19&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varThreeLetters = varLettersTens&&&&& End Select&&&&& If Right(varThreeFigures, 1) = 0 Then&&&&&&&&& varThreeLetters = varLettersTens&&&&& End If&& End If&& If Len([varThreeFigures]) = 3 Then&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits&&&&&&& Select Case Right([varThreeFigures], 2)&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens& ----------------------- Page 186-----------------------
&&&&&&&&&& Case 15&&&&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&&& Case 16&&&&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&&& Case 17&&&&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&&& Case 18&&&&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&&&&&& Case 19&&&&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varThreeLetters = varLettersHundreds & " " & varLettersTens&&&&&&&&& End Select&& End If&& If varThreeFigures = "000" Then&&&&&& varThreeLetters = ""&&&&&& GoTo jumpThousands&& End If&& If Right(varThreeFigures, 2) = "00" Then&&&&&& varThreeLetters = varLettersHundreds&&&&&& GoTo jumpThousands&& End If&& If Left(varThreeFigures, 2) = "00" Then&&&&&& varThreeLetters = "and " & varLettersUnits&&&&&& GoTo jumpThousands&& End If&& If Left(varThreeFigures, 1) = "0" Then&&&&&& varThreeLetters = "and " & varLettersTens & " " & varLettersUnits&& End If&& If Left(varThreeFigures, 1) = "0" And Right(varThreeFigures, 1) = "0" Then& ----------------------- Page 187-----------------------
&&&&&&&& varThreeLetters = "and " & varLettersTens&&&&&&&&&&& GoTo jumpThousands&&&&&& End If&& '''&& ************************************************************************************&& ***********&& ''Thousands&& jumpThousands:&&&&&&&&& If varLenghtNumber & 3 Then&&&&&& varLettersUnits = varUnits(Right([varSixFigures], 1))&&&&&& varLettersTens = varTens(Left(Right([varSixFigures], 2), 1))&&&&&& varLettersHundreds = varHundreds(Left(Right([varSixFigures], 3), 1))&&&&&& If Len([varSixFigures]) = 1 Then&&&&&&&&&& varSixLetters = varLettersUnits & " thousand"&&&&&& End If&&&&&& If Len([varSixFigures]) = 2 Then&&&&&&&&&& varSixLetters = varLettersTens & " " & varLettersUnits & " thousand"&&&&&&&&&& Select Case Right([varSixFigures], 2)&&&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&&&&&&& Case 15&&&&&&&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"& ----------------------- Page 188-----------------------
&&&&&& Case 16&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&& Case 17&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&& Case 18&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&&&&&& Case 19&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&& End Select&&&&& If Right(varSixFigures, 1) = 0 Then&&&&&&&&& varSixLetters = varLettersTens & " thousand"&&&&& End If&& End If&& If Len([varSixFigures]) = 3 Then&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits & " thousand"&&&&&&& Select Case Right([varSixFigures], 2)&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 15&&&&&&&&&&&&&&& varLettersTens = "fifteen"& ----------------------- Page 189-----------------------
&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 16&&&&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 17&&&&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 18&&&&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&&&&& Case 19&&&&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&&&&&& End Select&&&&& If Right(varSixFigures, 1) = 0 Then&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand"&&&&& End If&&&&& If Right(Left([varSixFigures], 2), 1) = 0 Then&&&&&&&&&& varSixLetters = varLettersHundreds & " " & varLettersUnits & " thousand"&&&&& End If&& End If&& If varSixFigures = "000" Then&&&&&& varSixLetters = ""&&&&&& GoTo jumpMillions&& End If&& If Right(varSixFigures, 2) = "00" Then&&&&&& varSixLetters = varLettersHundreds & " " & " thousands"&&&&&& GoTo jumpMillions&& End If&& If Left(varSixFigures, 2) = "00" Then&&&&&& varSixLetters = varLettersUnits & " " & " thousands"&&&&&& GoTo jumpMillions&& End If& ----------------------- Page 190-----------------------
&&&& If Left(varSixFigures, 1) = "0" Then&&&&&&&&&&&& varSixLetters = varLettersTens & " " & varLettersUnits & " " & " thousands"&&&&&&& End If&&&&&&& If Left(varSixFigures, 1) = "0" And Right(varSixFigures, 1) = "0" Then&&&&&&&&&&&& varSixLetters = varLettersTens & " " & " thousands"&&&&&&&&&&&& GoTo jumpMillions&&&&&&& End If&&&& End If&& '''&& ************************************************************************************&& ***********&& '''Million&& '&& jumpMillions:&& If varLenghtNumber & 6 Then&&&&&&& varLettersUnits = varUnits(Right([varNineFigures], 1))&&&&&&& varLettersTens = varTens(Left(Right([varNineFigures], 2), 1))&&&&&&& varLettersHundreds = varHundreds(Left(Right([varNineFigures], 3), 1))&&&&&&& If Len([varNineFigures]) = 1 Then&&&&&&&&&& varNineLetters = varLettersUnits & " million"&&&&&&& End If&&&&&&& If Len([varNineFigures]) = 2 Then&&&&&&&&&& varNineLetters = varLettersTens & " " & varLettersUnits & " million"&&&&&&&&&& Select Case Right([varNineFigures], 2)&&&&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&& varNineLetters = varLettersTens & " million"& ----------------------- Page 191-----------------------
&&&&&& Case 14&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&& Case 15&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&& Case 16&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&& Case 17&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&& Case 18&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&&&&&& Case 19&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&& End Select&&&&& If Right(varNineFigures, 1) = 0 Then&&&&&&&&& varNineLetters = varLettersTens & " million"&&&&& End If&& End If&& If Len([varNineFigures]) = 3 Then&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits & " million"&&&&&&& Select Case Right([varNineFigures], 2)&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&& varLettersTens = "thirteen"& ----------------------- Page 192-----------------------
&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 15&&&&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 16&&&&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 17&&&&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 18&&&&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&&&&& Case 19&&&&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varNineLetters = varLettersHundreds & " " & varLettersTens & " million"&&&&&&&&& End Select&&&&& End If&& If varNineFigures = "000" Then&&&&&& varNineLetters = ""&&&&&& GoTo jumpBillions&& End If&& If Right(varNineFigures, 2) = "00" Then&&&&&& varNineLetters = varLettersHundreds & " " & " millions"&&&&&& GoTo jumpBillions&& End If&& If Left(varNineFigures, 2) = "00" Then&&&&&& varNineLetters = varLettersUnits & " " & " millions"&&&&&& GoTo jumpBillions&& End If& ----------------------- Page 193-----------------------
&&&& If Left(varNineFigures, 1) = "0" Then&&&&&&&&&&&& varNineLetters = varLettersTens & " " & varLettersUnits & " " & " millions"&&&&&&& End If&&&&&&& If Left(varNineFigures, 1) = "0" And Right(varNineFigures, 1) = "0" Then&&&&&&&&&&&& varNineLetters = varLettersTens & " " & " millions"&&&&&&&&&&&& GoTo jumpBillions&&&&&&& End If&&&& End If&& ''&& ''''&& ************************************************************************************&& ***********&& ''''Billions&& ''&& jumpBillions:&& If varLenghtNumber & 9 Then&&&&&&& varLettersUnits = varUnits(Right([varTwelveFigures], 1))&&&&&&& varLettersTens = varTens(Left(Right([varTwelveFigures], 2), 1))&&&&&&& varLettersHundreds = varHundreds(Left(Right([varTwelveFigures], 3), 1))&&&&&&& If Len([varTwelveFigures]) = 1 Then&&&&&&&&&& varTwelveLetters = varLettersUnits & " billion"&&&&&&& End If&&&&&&& If Len([varTwelveFigures]) = 2 Then&&&&&&&&&& varTwelveLetters = varLettersTens & " " & varLettersUnits & " billion"&&&&&&&&&& Select Case Right([varTwelveFigures], 2)&&&&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&&&&&&&& Case 14& ----------------------- Page 194-----------------------
&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&& Case 15&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&& Case 16&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&& Case 17&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&& Case 18&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&&&&&& Case 19&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&& End Select&&&&& If Right(varTwelveFigures, 1) = 0 Then&&&&&&&&& varTwelveLetters = varLettersTens & " billion"&&&&& End If&& End If&& If Len([varTwelveFigures]) = 3 Then&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits & " billion"&&&&&&& Select Case Right([varTwelveFigures], 2)&&&&&&&&&&&& Case 11&&&&&&&&&&&&&&& varLettersTens = "eleven"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 12&&&&&&&&&&&&&&& varLettersTens = "twelve"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 13&&&&&&&&&&&&&&& varLettersTens = "thirteen"&&&&&&&&&&&&&&& varLettersUnits = ""& ----------------------- Page 195-----------------------
&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 14&&&&&&&&&&&&&&& varLettersTens = "fourteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 15&&&&&&&&&&&&&&& varLettersTens = "fifteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 16&&&&&&&&&&&&&&& varLettersTens = "sixteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 17&&&&&&&&&&&&&&& varLettersTens = "seventeen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 18&&&&&&&&&&&&&&& varLettersTens = "eighteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&&&&& Case 19&&&&&&&&&&&&&&& varLettersTens = "nineteen"&&&&&&&&&&&&&&& varLettersUnits = ""&&&&&&&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&&&&&& End Select&&&&& If Right(varTwelveFigures, 1) = 0 Then&&&&&&&&& varTwelveLetters = varLettersHundreds & " " & varLettersTens & " billion"&&&&& End If&&&&& If Right(Left([varTwelveFigures], 2), 1) = 0 Then&&&&&&&&&& varTwelveLette