按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
F2 为例）：
=IF （B2＞0，SUM （B2：E2），〃〃 ）
当 IF 函数的参数 1 中含有两个或两个以上的检测条件时，就要在参数中嵌套另外两个逻辑
函数AND 和 OR 了。
例四
430
…………………………………………………………Page 431……………………………………………………………
设单元格 A4 的数值只能严格为正小数，当A4 符合此条件时，则在 B4 中显示该数值，否则
提示错误信息。从 A4 的条件看它应同时满足＞0 且＜1 的要求，因而应结合运用AND 函数，在
B4 中建立函数如下：
=IF （AND （0＜A4，A4＜1），A4，〃数值超出范围〃 ）
例五
设单元格 A4 的数值应该是绝对值大于 10 的任何数值，当A4 符合此条件时，则在 B4 中显
示该数值，否则提示错误信息。这里 A4 的条件既可＞10 又可＜－10，两个条件只要满足一个
即可，因而应结合 OR 函数，在B4 中建立函数如下：
=IF （OR （10＜A4，A4＜－10），A4，〃数值超出范围〃 ）
从以上例子可以看出，IF 函数是一个十分有用的函数，要用 Excel，不可不学 IF 函数。本
文所举例子并不能包括它的所有用法，相信大家一定能发现 IF 函数的更多功能。
如何计算表达式
比如，我在一个单元格（a1）内输入 “ 15＋1＋6 ”，然后在另一个单元格（a2）内输入 “ =函数（a
1）”
让 Excel 自动计算出 a1 的结果 22 并显示在 a2 中？请问 Excel 有这样的函数吗？
解答：将鼠标定位在 B1，插入→名称→定义：x=EVALUATE（A1） ，在B1 输入“＝X ”往下拖
即可。这样，A 列为表达式，B 列为运算结果。
如何求得某行或列不重复数字的个数
解答： B5：Z5 行中不重复数字的个数：输入=SUM（1/COUNTIF（B5：Z5；B5：Z5））…1 后按
CTRL＋SHIFT＋Enter
Excel 中 “摄影”的妙用
1、 准备“照相机”
1） 打开 Excel 的“工具”菜单，选择“ 自定义”对话框。
2） 单击“命令”选项卡，在“类别”中选择“工具”，在右边“命令”列表中找到“摄影”，并
且将其拖到工具栏的任意位置。
2、给目标“拍照”
假设我们要让 Sheet2 中的部分内容自动出现在Sheet1 中。
1） 拖动鼠标并且选择 Sheet2 中需要“拍照”的内容。
2） 用鼠标单击工具栏上准备好的“照相机”按钮，于是这个选定的区域就被“拍”了下
来。
3、粘贴“照片”
1） 打开 Sheet1 工作表。
2） 在需要显示“照片”的位置上单击鼠标左键，被“拍摄”的“照片”就立即粘贴过来了。
在 Sheet2 中调整“照片”的各种格式，粘贴到 Sheet1 中的内容同步发生变化，而且因
为插入的的确是一幅自动更新的图像文件，所以，“ 图片”工具栏对这个照片也是有效的
作者在此提供另一种方法：先复制要实现同步链接的图片，然后选中要另存的区域，按住
SHIFT 键的同时选中编辑菜单中的粘贴链接图片，这样达到的效果是同样的，也会即时更新。
431
…………………………………………………………Page 432……………………………………………………………
放大 USERFORM 幕相同大小
这样可以
Private Sub UserForm_Initialize（）
Application。WindowState = xlMaximized
With Me
。Top = Application。Top
。Left = Application。Left
。Height = Application。Height
。Width = Application。Width
End With
End Sub
如何用 excel 做双对数坐标图
你可以先按一般刻度坐标作图；然后右击图表区的网格线；在右键菜单中选择〃网格线格式〃；然
后选择对数刻度即可。
使用 excel 拨接连上网
以下宏可以实现拨号连接上网：
Declare Function RasEnumEntries Lib 〃RasApi32。DLL〃 Alias 〃RasEnumEntriesA〃 （ByVal
reserved As String； ByVal lpszPhonebook As String； lprasentryname As Any； lpcb As Long；
lpcEntries As Long） As Long
Const RAS_MAXENTRYNAME = 256
Type RASENTRYNAME
dwSize As Long
szEntryName（RAS_MAXENTRYNAME） As Byte
End Type
Sub 连线项目（）
Dim s As Long； l As Long； ln As Long； ab As String
Dim R（255） As RASENTRYNAME
R（0）。dwSize = LenB（R（0））
s = RAS_MAXENTRYNAME * R（0）。dwSize
Call RasEnumEntries（vbNullString； vbNullString； R（0）； s； ln）
If ln = 0 Then
MsgBox 〃无拨接网路帐号！〃
Else
MsgBox 〃已找到拨接网路帐号！〃
For l = 0 To ln 1
ab = StrConv（R（l）。szEntryName（）； vbUnicode）
MsgBox 〃拨接网路名称 ： 〃 & Left（ab； InStr（ab； Chr（0）） 1）
Next
End If
End Sub
432
…………………………………………………………Page 433……………………………………………………………
获取硬盘的序列号
Sub xiaogang（） '获取硬盘的序列号
Dim drive
drive = 〃d：〃
MsgBox UCase（Replace（drive； 〃：〃； 〃〃）） ＋ 〃 盘 的 序 列 号 是 〃 ＋
Format（CreateObject（〃Scripting。FileSystemObject〃）。GetDrive（drive）。SerialNumber）
End Sub
返回用户名
Public Declare Function GetUserName Lib 〃advapi32。dll〃 _
Alias 〃GetUserNameA〃 （ByVal lpBuffer As String； nSize As Long） As Long
Function ReturnUserName（） As String
' returns the NT Domain User Name
Dim rString As String * 255； sLen As Long； tString As String
tString = 〃〃
On Error Resume Next
sLen = GetUserName（rString； 255）
sLen = InStr（1； rString； Chr（0））
If sLen 》 0 Then
tString = Left（rString； sLen 1）
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase（Trim（tString））
End Function
将 UserForm 与 Excel 分开
Option Explicit
Private Declare Function SetWindowPos Lib 〃user32〃 （ByVal hwnd As Long； ByVal
hWndInsertAfter As Long； ByVal X As Long； ByVal Y As Long； ByVal cx As Long； ByVal cy As
Long； ByVal wFlags As Long） As Long
Private Declare Function FindWindow Lib 〃user32〃 Alias 〃FindWindowA