按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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不再范围情况，这时候，如何�