友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!
富士康小说网 返回本书目录 加入书签 我的书架 我的书签 TXT全本下载 『收藏到我的浏览器』

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

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


解答:Sheet2的C2格公式为:=VLOOKUP(A2;SHEET1!A:C;3;0)   

044。讨论一下取最后一个单词的方法  

例如现在在A1 中有一句“M。 Henry Jackey”,如何用函数将最后的一个单词取出来呢? 当然, 

我们现在是知道最后的单词是6个字符,可以用Right(A1;6)来计算,但如果最后一个单词的字 

符数是不定的呢,如果做呢? 请大家试下有几种方法。   

解答:方法1、用一列公式填充  



                                              CCXL  


…………………………………………………………Page 241……………………………………………………………

                                    Excel_word_ppt_使用技巧大全(完全版)  



=IF(LEFT(RIGHT(A1;ROW());1)=CHAR(32);RIGHT(A1;ROW()…1);“”)   

方 法 2 、 =MID(A1;FIND(〃   *〃;SUBSTITUTE(A1;〃   〃;〃   *〃;LEN(A1)…LEN(SUBSTITUTE(A1;〃  

〃;〃〃))))+1;LEN(A1)…FIND(〃 〃;A1))    

方法3、用自定义函数当然方便,而且简单。  

Function xx(n As String) As String    

n = Application。Trim(n)    

lastone = Right(n; Len(n) InStrRev(n; 〃 〃))    

xx = lastone    

End Function    

方法4 、=IF(ISERROR(SEARCH(〃〃;TRIM(LEFT(B1))));RIGHT(A1;ROW());〃〃)拖出来的第一 

个字符就行。  

方    法    5  、  {=RIGHT(A1;LEN(A1)…MAX((MID(A1;ROW(INDIRECT(〃1:〃&LEN(A1)));1)=〃  

〃)*ROW(INDIRECT(〃1:〃&LEN(A1)))))}    

嫌长就(假定最长100字符)   

{=RIGHT(A1;LEN(A1)…MAX((MID(A1;ROW(1:100);1)=〃 〃)*ROW(1:100)))}    

045。如何获取工作表中某一列有多少条记录?   

因为每一列的的记录都不一样多,所以我想获得每一列各有多少条记录,怎么做?   

解答:RecordNumbers=Application。COUNTA(A:A)    

或者:Private Sub UserForm_Activate()    

x = Sheet1。UsedRange。Rows。Count    

x1 = Sheet1。CountA(c4; cx)    

也可以:Sub aa()    

MsgBox (Application。CountA(Range(〃A:A〃)))    

End Sub    

还可以:Sub aa()    

x = Sheet1。UsedRange。Rows。Count    

MsgBox (Application。CountA(Range(〃c3:cx〃)))    

End Sub    

这样也行:用下面的方法可测出任一列使用的行数  

a=Sheet1。range(〃b1〃)。End(xlDown)。Row 。  

总结:   

1。Sub aa()   

MsgBox (Application。CountA(Range(〃C:C〃)))    

End Sub    

结果永远都是1或者3,可是实际上记录有600多条  

2。    

Sub aa()    

Worksheets(〃sheet1〃)。Activate    

Range(〃c2〃)。Select    

x1 = 〃=COUNTA(sheet1!C)〃    

MsgBox x1    

End Sub    

这个是看fhj  示例的文件录制成宏改的,不过运行结果永远是 =counta(sheet1!c)   

3。    



                                                CCXLI  


…………………………………………………………Page 242……………………………………………………………

                               Excel_word_ppt_使用技巧大全(完全版)  



Sub aa()    

x1 = 〃=COUNTA(sheet1!C)〃    

MsgBox x1    

end sub    

提示和前面的一样。  

4。其实已经试了几十种方法了。还是错的。作为公式时,是可以使用。但是却  

无法把获得的值赋值给一个变量。除非是先写到一个单元格里,再重新读出来。   

不过我觉得太麻烦了。而且写的时候会修改工作表。不是很恰当。   

解答:Application。CountA(Range(〃C:C〃))返回除去无值单元格的所有单元格的数量。  

Sheet1。range(〃C1〃)。End(xlDown)。Row返回第一次遇到空单元格前的单元格的数量。  

(注:当C列有空白单元格时用:   

myEndRow=sheets(〃sheet1〃)。range(〃C65536〃)。End(xlUp)。row)    

结论:Sub aa()    

x1 = Sheet1。Range(〃C3〃)。End(xlDown)。Row    

MsgBox x1    

end sub    

这就对了。谢谢各位!   

回应:推荐你用   

Columns(1)。SpecialCells(xlCellTypeConstants)。Count    

045。如何禁止输入空格  

在Excel中如何通过编辑“有效数据”来禁止录入空格?烦请大侠们费心解答。不胜感激。  

解答:有效性公式。=COUNTIF(A1;〃* *〃)=0   

(注:COUNTIF(A1;〃* *〃)  在单元格有空格时结果为1;没有空格时结果为0    

如希望第一位不能输入空格:countif(a1;〃 *〃)=0   

如希望最后一位不能输入空格:countif(a1;〃* 〃)=0)   

046。如何判断单元格中单词的数量?   

比如我在A1 中输入“you are a good boy”如何判断单词为5个?   

解答:=LEN(E12)…LEN(SUBSTITUTE(E12;〃 〃;〃〃))+1    

(注:方法很巧妙用trim把前后的空格去掉。如果有标点符号或者两个词之间的空格数大于1个 

就不好办了)    

047。如何取数  

表一有数据,要求表二中数据为取一行表一数据,空一行。   

解答:   

Sub test()    

On Error Resume Next    

Application。ScreenUpdating = False    

For i = 1 To Sheets(1)。UsedRange。Rows。Count    

Sheets(1)。Rows(VBA。Trim(VBA。Str(i)) + 〃:〃 + VBA。Trim(VBA。Str(i)))。Copy    

Sheets(2)。Activate    



                                         CCXLII  


…………………………………………………………Page 243……………………………………………………………

                                      Excel_word_ppt_使用技巧大全(完全版)  



Sheets(2)。Rows(VBA。Trim(VBA。Str(i * 2  1)) + 〃:〃 + VBA。Trim(VBA。Str(i * 2  1)))。Select   

ActiveSheet。Paste    

Next i    

Application。ScreenUpdating = True    

End Sub    

048。如何通过VBA编程将符合条件的数据库记录输入到EXCEL中  

现在有access格式的数据表 TEST    

货号 货名 规格 单价。。。。    

1…01  货品1 1M 250。00   

1…02  货品2 4Kg 100。00    

。。。。。。。。。。。。。。。。    

N…99  货品N 999 999。99    

现在我想在EXCEL的单元格中输入货号,通过VBA代码自动从数据表中查找出相应的记录,并 

在相邻的列分别自动录入货品、规格、单价等内容,从而实现EXCEL 自动数据录入。请问这VBA 

代码应如何写?谢谢!   

解答:Private Sub Worksheet_Change(ByVal Target As Range)    

Dim Rs As New ADODB。Recordset    

Dim Query As String    

Dim Cnn As String    

With Application    

。ScreenUpdating = False   

。EnableEvents = False   

End With    

Cnn = 〃Driver=Microsoft Access Driver (*。mdb);DBQ=C:*。mdb〃    

Query = 〃SELECT * FROM TEXT WHERE  货号='〃 & Target & 〃'〃    

With Rs    

。Open Query; Cnn; adOpenStatic; adLockReadOnly   

If 。RecordCount = 0 Then    

MsgBox 〃没有此货号!〃    

Target。ClearContents    

Else    

Target。CopyFromRecordset Rs    

End If    

。Close   

End With    

With Application    

。ScreenUpdating = True   



                                                   CCXLIII  


…………………………………………………………Page 244……………………………………………………………

                                      Excel_word_ppt_使用技巧大全(完全版)  



。EnableEvents = True    

End With    

End Sub    

049。如何统计一个单元格中的数字有几位数?   

解答1:=LEN  (单元格地址)   

又问:如果中间有汉字或者是字母、符号呢,或是数者都有呢?   

解答2:=SUM(LEN(A1)…LEN(SUBSTITUTE(A1;{〃0〃;〃1〃;〃2〃;〃3〃;〃4〃;〃5〃;〃6〃;〃7〃;〃8〃;〃9〃};〃〃)))    

解答3:=2*LEN(A1)…LENB(A1)    

(备注:對中文 +  數字是很好的做法,但有英文字 或 中文 +  數字 +  英文就出錯)    

050。如何選取列內不重眩Y料  

解答1:Sub ff()    

Dim aa As New Collection    

cc = 2    

On Error Resume Next    

Do Until Cells(3; cc) = 〃〃    

aa。Add Cells(3; cc)。value; Cells(3; cc)。Text    

cc = cc + 1    

Loop    

On Error GoTo 0    

cc = 2    

For Each itm In aa    

Cells(5; cc) = itm    

cc = cc + 1    

Next    

End Sub    

解答2:提供一個以陣列方法為思考模式的方法  

Sub ff()    

On Error Resume Next    

cc = 2    

Set NoDupes = CreateObject(〃Scripting。Dictionary〃)    

Do Until Cells(3; cc) = 〃〃    

NoDupes。Add Cells(3; cc)。value; Cells(3; cc)。value    

cc = cc + 1    

Loop    

Range(〃B6〃)。Resize(1; UBound(NoDupes。keys) + 1) = NoDupes。keys '陣列由0開始;所以+1    

End Sub  

  

  

                   Excel 表格的 35 招必学秘技  



     也许你已经在 Excel 中完成过上百张财务报表,也许你已利用Excel 函数实现过上千次的 



复杂运算,也许你认为 Excel 也不过如此,甚至了无新意。但我们平日里无数次重复的得心应 



手的使用方法只不过是 Excel 全部技巧的百分之一。本专题从 Excel 中的一些鲜为人知的技巧 



                                                  CCXLIV  


…………………………………………………………Page 245……………………………………………………………

                        Excel_word_ppt_使用技巧大全(完全版)  



入手,领略一下关于 Excel 的别样风情。    



一、让不同类型数据用不同颜色显示    



    在工资表中,如果想让大于等于 2000 元的工资总额以“红色”显示,大于等于 1500 元的 



工资总额以“蓝色”显示,低于 1000 元的工资总额以“棕色”显示,其它以“黑色”显示, 



我们可以这样设置。    



    1。打开“工资表”工作簿,选中“工资总额”所在列,执行“格式→条件格式”命令,打 



开“条件格式”对话框。单击第二个方框右侧的下拉按钮,选中“大于或等于”选项,在后面 



的方框中输入数值“2000 ”。单击“格式”按钮,打开“单元格格式”对话框,将“字体”的 



 “颜色”设置为“红色”。    



    2。按“添加”按钮,并仿照上面的操作设置好其它条件(大于等于 1500,字体设置为“蓝 



色”;小于 1000,字体设置为“棕色”) 。    



    3。设置完成后,按下“确定”按钮。    



    看看工资表吧,工资总额的数据是不是按你的要求以不同颜色显示出来了。    



  



二、建立分类下拉列表填充项    



    我们常常要将企业的名称输入到表格中,为了保持名称的一致性,利用“数据有效性”功 



能建了一个分类下拉列表填充项。    



    1。在 Sheet2 中,将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输 



入不同列中,建立一个企业名称数据库。    



    2。选中 A 列(  “工业企业”名称所在列) ,在“名称”栏内,输入“工业企业”字符后,按 



 “回车”键进行确认。    



    仿照上面的操作,将 B 、C〃〃列分别命名为“商业企业”、“个体企业”〃〃    



    3。切换到 Sheet1 中,选中需要输入“企业类别”的列(如 C 列) ,执行“数据→有效性”命 



令,打开“数据有效性”对话框。在“设置”标签中,单击“允许”右侧的下拉按钮,选中“序 



列”选项,在下面的“来源”方框中,输入“工业企业”,“商业企业”,“个体企业”〃〃序列 



(各元素之间用英文逗号隔开) ,确定退出。    



    再选中需要输入企业名称的列(如 D 列) ,再打开“数据有效性”对话框,选中“序列”选 



项后,在“来源”方框中输入公式:=INDIRECT(C1) ,确定退出。    



    4。选中 C 列任意单元格(如 C4),单击右侧下拉按钮,选择相应的“企业类别”填入单元格 



                                 CCXLV  


…………………………………………………………Page 246……………………………………………………………

                     Excel_word_ppt_使用技巧大全(完全版)  



中。然后选中该单元格对应的 D 列单元格(如 D4) ,单击下拉按钮,即可从相应类别的企业名 



称列表中选择需要的企业名称填入该单元格中。    



    提示:在以后打印报表时,如果不需要打印“企业类别”列,可以选中该列,右击鼠标, 



选“隐藏”选项,将该列隐藏起来即可。    



    三、建立“常用文档”新菜单    



    在菜单栏上新建一个“常用文档”菜单,将常用的工作簿文档添加到其中,方便随时调用。    



    1。在工具栏空白处右击鼠标,选“自定义”选项,打开“自定义”对话框。在“命令”标 



签中,选中“类别”下的“新菜单”项,再将“命令”下面的“新菜单”拖到菜单栏。    



    按“更改所选内容”按钮,在弹出菜单的“命名”框中输入一个名称(如“常用文档”) 。    



    2。再在“类别”下面任选一项(如“插入”选项) ,在右边“命令”下面任选一项(如“超链 



接”选项) ,将它拖到新菜单(常用文档) 中,并仿照上面的操作对它进行命名(如“工资表”等) , 



建立第一个工作簿文档列表名称。    



    重复上面的操作,多添加几个文档列表名称。    



    3。选中“常用文档”菜单中某个菜单项(如“工资表”等) ,右击鼠标,在弹出的快捷菜单 



中,选“分配超链接→打开”选项,打开“分配超链接”对话框。通过按“查找范围”右侧的 



下拉按钮,定位到相应的工作簿(如“工资。xls”等)文件夹,并选中该工作簿文档。    



    重复上面的操作,将菜单项和与它对应的工作簿文档超链接起来。    



    4。 以后需要打开“常用文档”菜单中的某个工作簿文档时,只要展开“常用文档”菜单, 



单击其中的相应选项即可。    



    提示:尽管我们将“超链接”选项拖到了“常用文档”菜单中,但并不影响“插入”菜单 



中“超链接”菜单项和“常用”工具栏上的“插入超链接”按钮的功能。    



    四、制作“专业符号”工具栏    



    在编辑专业表格时,常常需要输入一些特殊的专业符号,为了方便输入,我们可以制作一 



个属于自己的“专业符号”工具栏。    



    1。执行“工具→宏→录制新宏”命令,打开“录制新宏”对话框,输入宏名?如“fuhao1 ”? 



并将宏保存在“个人宏工作簿”中,然后“确定”开始录制。选中“录制宏”工具栏上的“相 



对引用”按钮,然后将需要的特殊符号输入到某个单元格中,再单击“录制宏”工具栏上的“停 



止”按钮,完成宏的录制。    



    仿照上面的操作,一一录制好其它特殊符号的输入“宏”。    



                            CCXLVI  


…………………………………………………………Page 247……………………………………………………………

                      Excel_word_ppt_使用技巧大全(完全版)  



    2。打开“自定义”对话框,在“工具栏”标签中,单击“新建”按钮,弹出“新建工具栏” 



对话框,输入名称—— “专业符号”,确定后,即在工作区中出现一个工具条。    



    切换到“命令”标签中,选中“类别”下面的“宏”,将“命令”下面的“自定义按钮” 



项拖到“专业符号”栏上(有多少个特殊符号就拖多少个按钮) 。    



    3。选中其中一个“自定义按钮”,仿照第 2 个秘技的第 1 点对它们进行命名。    



    4。右击某个命名后的按钮,在随后弹出的快捷菜单中,选“指定宏”选项,打开“指定宏” 



对话框,选中相应的宏(如 fuhao1 等) ,确定退出。    



    重复此步操作,将按钮与相应的宏链接起来。    



    5。关闭“自定义”对话框,以后可以像使用普通工具栏一样,使用“专业符号”工具栏, 



向单元格中快速输入专业符号了。    



    五、用“视面管理器”保存多个打印页面    



    有的工作表,经常需要打印其中不同的区域,用“视面管理器”吧。    



    1。打开需要打印的工作表,用鼠标在不需要打印的行(或列)标上拖拉,选中它们再右击鼠 



标,在随后出现的快捷菜单中,选“隐藏”选项,将不需要打印的行(或列)隐藏起来。    



    2。执行“视图→视面管理器”命令,打开“视面管理器”对话框,单击“添加”按钮,弹 



出“添加视面”对话框,输入一个名称(如“上报表”)后,单击“确定”按钮。    



    3。将隐藏的行(或列)显示出来,并重复上述操作,“添加”好其它的打印视面。    



    4。 以后需要打印某种表格时,打开“视面管理器”,选中需要打印的表格名称,单击“显 



示”按钮,工作表即刻按事先设定好的界面显示出来,简单设置、排版一下,按下工具栏上的 



 “打印”按钮,一切就OK 了。    



    六、让数据按需排序    



    如果你要将员工按其所在的部门进行排序,这些部门名称既的有关信息不是按拼音顺序, 



也不是按笔画顺序,怎么办?可采用自定义序列来排序。    



    1。执行“格式→选项”命令,打开“选项”对话框,进入“自定义序列”标签中,在“输 



入序列”下面的方框中输入部门排序的序列(如“机关;车队;一车间;二车间;三车间”等) ,单击 



 “添加”和“确定”按钮退出。    



    2。选中“部门”列中任意一个单元格,执行“数据→排序”命令,打开“排序”对话框, 



单击“选项”按钮,弹出“排序选项”对话框,按其中的下拉按钮,选中刚才自定义的序列, 



按两次“确定”按钮返回,所有数据就按要求进行了排序。  



                             CCXLVII  


…………………………………………………………Page 248……………………………………………………………

                      Excel_word_ppt_使用技巧大全(完全版)  



七、把数据彻底隐藏起来    



    工作表部分单元格中的内容不想让浏览者查阅,只好将它隐藏起来了。    



    1。选中需要隐藏内容的单元格(区域) ,执行“格式→单元格”命令,打开“单元格格式” 



对话框,在“数字”标签的“分类”下面选中“自定义”选项,然后在右边“类型”下面的方 



框中输入“;;;”(三个英文状态下的分号) 。    



    2。再切换到“保护”标签下,选中其中的“隐藏”选项,按“确定”按钮退出。    



    3。执行“工具→保护→保护工作表”命令,打开“保护工作表”对话框,设置好密码后, 



 “确定”返回。    



    经过这样的设置以后,上述单元格中的内容不再显示出来,就是使用 Excel 的透明功能也 



不能让其现形。    



    提示:在“保护”标签下,请不要清除“锁定”前面复选框中的“∨”号,这样可以防止 



别人删除你隐藏起来的数据。    



    八、让中、英文输入法智能化地出现    



    在编辑表格时,有的单元格中要输入英文,有的�
返回目录 上一页 下一页 回到顶部 赞(9) 踩(9)
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!