按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
*D1选择A1时，要求在G1 中自动跳出B1的内容， 选A2时，自动跳出B2的内容*余此类推。
解答：G1公式：=Vlookup（D1；A1：B9；2；0）
又问：假设，有C列中也有数据，我要在G1 中显示C列中的数据，该怎么算？
解答：G1公式：=Vlookup（D1；A1：B9；3；0）
026。 向上填充的快捷键是什么？我只会向下填充的快捷键，向上…向左…向右的都是什么呢？
解答：向上…Alt＋E；I；U 。向左…Alt＋E；I；L 。向右…CTRL＋R
027。下方单元格上移，包含该单元格的公式不要变化
哪位高手帮帮忙！我试验了很久也没找到解决的办法：
能不能做到删除单元格以后，下方单元格上移，包含该单元格的公式不要变化。或者是：按住
shift拖动单元格，使两个单元格互相交换位置以后，包含该单元格的公式不要发生变化。注意，
用加的办法是不能解决这个问题的，如公式改为：=SUM（A1：A9）；经上述操作后，结果
还是一样。
解答：=SUM（INDIRECT（〃A1：A10〃））
新问题：但是还有一个问题：我这一列有2000多个数据，似乎不能通过拖动的办法将公式复
制200遍，达到每10个1求和的结果。
解 答 ：
=IF（MOD（ROW（）；10）0；〃〃；SUM（OFFSET（INDIRECT（ADDRESS（ROW（）；COLUMN（）；））；；…1；…1
0；）））
028。一列中删除重复数据的方法
例如在C2：C500 中有重复数据。在D2中 =COUNTIF（C2：C100；C2） 计算出 C2在此列中的出
现次数；然后复制公式到整列；最后删除在D列中大于1的行即可。
029。哪为大侠来帮忙关于VBA 的问题
小弟想同时对excel工作簿下的几个工作表进行插入图表的操作！这几个工作表中已经在相同
的位置区域内输入了数据。 语言如下： 运行显示 〃下表越界〃 （下划线的地方）。请问高手
又什么办法解决，或者可以用其它的方法。
sub biaoge（）
for a = 1 to 3
sheets（〃sheet（a）〃）。select
CCXXXIII
…………………………………………………………Page 234……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
charts。add
activechart。applycustomtype charttype：=xlbuiltin； typename：=〃两轴线…柱图〃
activechart。setsourcedata source：=sheets（〃sheet （a）〃）。range（〃a1：j3〃）； plotby：=xlrows
activechart。location where：=xllocationasobject； name：=〃sheet（a）〃 activechart。hasdatatable
= true
activechart。datatable。showlegendkey = true
activechart。legend。select
selection。delete
next a
end sub
解答：sheets（〃sheet（a）〃）。select是错的。可以用sheets（〃Sheet_Name〃）。select 。
029。比较大小
例如512。03；我用函数取了这个数的最后两个数03用他与10比较；结果总是显示03》10；不知道
是什么原因；请高手指点；谢谢！！！
解答：取后两位数结果是文本型；对比可用right（a1；2）*1》10或者用：value（right（a1；2））》10也
可
030。讨论：用RANGE和CELLS选择单元格
EXCEL的基本元素就是单元格，第一步就是要学会操作单元格了，列举两种方式。
SUB RANGE（） 〃用RANGE选择B5单元格
RANGE（“B5”）。SELECT
END SUB
SUB CELLS（） 〃用CELLS选择B5单元格
CELLS（5；2）。SELECT
END SUB
RANGE编程时无法变化，CELLS可以通过变量选择单元格。
回应1：RANGE 一样方便； 甚至更方便。 实际使用中可以用一变量
srArea=〃B〃 & i
RANGE（srArea）。SELECT
srArea=〃金额〃 ' 一命名为金额 的单元格/ 区域
RANGE（srArea）。SELECT
回应2：我觉得各有长处，如果有变量需要循环判断，用Cells相对比较简单，但是有时候固定
区域的，命名后用Range更灵活。
回应3：没错。 帮助中也是推荐 CELL 的。
灵活性来讲； RANGE 要强多了； 而且使用时可以通过 。 提取符快速读取它的属性和方法。
另外； 对于可变更的工作表； 用 RANGE 来操作命名区域将增加程序的弹性。
比如工作中插入一行/列； VBA 中用 CELL 就可能导致运行操作错误； 而 RANGE（srArea） 作
为指定区域； 可适应单元格的这类变更。
031。关于FileSystemObject的引用
请问各路高手，有人可以为我指点一下filesystemobject引用的详细说明，特别是fileexists方法
的实例。
解答：Sub testing（）
'先判断文件是否存在，是则删除之
CCXXXIV
…………………………………………………………Page 235……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Dim strmyfile As String
strmyfile = 〃d：book1。xls〃
If filetoFind（strmyfile） Then
Kill strmyfile
End If
End Sub
Function filetoFind（fileName As String） As Boolean
Dim fsobj As Object
Set fsobj = CreateObject（〃Scripting。FileSystemObject〃）
If fsobj。fileexists（fileName） Then
filetoFind = True
End If
End Function
在帮助文件中是这样描述的：FileSystemObject 对象
描述：提供对计算机文件系统的访问。
语法：Scripting。FileSystemObject
说明：下面的代码举例说明了如何使用 FileSystemObject 返回一个 TextStream 对象，该对
象是可读并可写的：
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set a = fs。CreateTextFile（〃c：testfile。txt〃； True）
a。WriteLine（〃This is a test。〃）
a。Close
在上面列出的代码中，CreateObject 函数返回 FileSystemObject （fs） 。CreateTextFile 方法接
着创建文件作为一个 TextStream 对象（a），而 WriteLine 方法则向创建的文本文件中写入一
行文本。Close 方法刷新缓冲区并关闭文件。
FileExists 方法
描述：如果指定的文件存在，返回 True ，若不存在，则返回 False。
语法：object。FileExists（filespec）
FileExists 方法语法有如下几部分：
部分 描述：object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中，必须提供
一个完整的路径说明（绝对的或相对的）。
032。excel时间函数2（菜鸟教程）
这一贴说明时间函数，time；hour，minute；second的用法。
time 的计算过程：
time（hour；minute；second），time地返回值为0…0。99999999之间的数值，它的计算方法如下：
hour的范围：0…24
minute的范围：0…59
second的范围：0…59
在满足以上输入范围的时候：time（hour；minute；second）=hour/24＋minute/（24*60）＋second/
（24*60*60）。
CCXXXV
…………………………………………………………Page 236……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
如：tiem（05 ，34；29）=0。232280092592593。如何计算的呢？
5/24＋34/ （24*60）＋29/ （24*60*60）=0。208333333333333＋0。0236111111111111
＋0。000335648148148148=0。232280092592593。
在帮助文件里还有hour；minute；second不再范围情况，这时候，如何计算的呢？
1、second/60；除的整数为minute；mod（second；60）为second
2、minute/60，除的整数为hour；mod（minute；60）为minute
3、hour/24，mod（hour；24）为hour
最后再用hour/24＋minute/（24*60）＋second/ （24*60*60）计算。
帮助中的例子：time（0；0；2000）=0。023148如何算的呢？
2000/60=33 mod（2000；60）=20
time（0；0；2000）=time（0；33；20）=0/24＋33/（24*60）=20/（24*60*60）=0。023148
呵呵，其实没有什么用，会用这个函数就可以可，如何算的就不必在意了！！！
033。年月日的问题
EXCEL表格中年月有时候输入不对，（早已记录过大量数据，改写麻烦。）比如198001，意
思是1980年1月，可是设置单元格式日期只有年月日，没有年月。怎么做？
解 答 ： 插 入 一 辅 助 列 ， 假 设 198001 在 E1 ， F=IF（MID（E1；5；1）=〃0〃；LEFT（E1；4）&〃 年
〃&RIGHT（E1；1）&〃月〃；LEFT（E1；4）&〃年〃&RIGHT（E1；2）&〃月〃）
试一下。
又问：198001能否改为1980…1？或者1980年1月改为1980…1？
解答：f1=IF（MID（e1；5；1）=〃0〃；LEFT（e1；4）&〃…〃&RIGHT（e1；1）；LEFT（e1；4）&〃…〃&RIGHT（e1；2））
或者更简单一些：=LEFT（A6；4）&〃…〃&value（RIGHT（A6；2）） （数据在a6单元格）
也可以这样：=date（mid（e1；1；4）；mdi（e1；5；2）；1）这样会显示为1980…1…1，然后可以随意设置成
相应的日期格式。
034。请帮忙解释一个公式
=LEFT（A1；（SEARCHB（〃？〃；A1）…1）/2）这是我在站内过去的帖子里看到的一个公式，用于提取前
文后数中的文字部分，非常好用。请教这个公式中最后两步的意义是什么？另外，当A1是“ 1234
个”的格式时，当如何提取其中的文字呢？
解答：1、公式的含义是：查找第一个半角字符出现的位置＇SEARCHB（〃？〃；A1）＇，减去1后除以
2，就是文字的字符数目，将其提取出来。
2、=RIGHT（A1；LENB（A1）…LEN（A1））
035。关于宏和程序
我现在已经用excel编了一个较完整的程序，并且能够给源程序加密码，实现〃工程不可见〃，
但是我发现在vba编辑环境里还能看到我的大部分宏，虽然说不能编辑，但能运行，请问如何
隐藏起来。
解答：不用模块函数；重写成类或放到workbook 中；或在程序中直接将菜单宏隐藏。或者：新建
类，然后将模块中的程序拷贝到类，提示：找不到宏。
又问：我现在已经能做到屏蔽调alt＋F11键了，虽然不能看到我的宏程序，但是依然可以运行
我的宏，请高手做答，如何隐藏起我�