友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!
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 的透明功能也
不能让其现形。
提示:在“保护”标签下,请不要清除“锁定”前面复选框中的“∨”号,这样可以防止
别人删除你隐藏起来的数据。
八、让中、英文输入法智能化地出现
在编辑表格时,有的单元格中要输入英文,有的�
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!