按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
解答：Private Sub Workbook_BeforePrint（Cancel As Boolean）
Cancel = True
End Sub
375
…………………………………………………………Page 376……………………………………………………………
（用法：打开 Excel；按 Alt＋F11；调出 VBE 后；按 Ctrl＋r 显示出工程资源管理器（默认此窗口应已
显示）；双击 ThisWorkbook；在模块中粘入代码即可！要想打印你表；用截图软件即可。无最保险办
法） 。
有无这样的函数
A1 为一定范围内的随机值，B1—B20 为一组数，有无这样的函数来确定 A2 的值？
当A1=1 时，A2=B1
当A1=2 时，A2=B2
当A1=3 时，A2=B3
〃〃〃〃
解答：=INDIRECT（ADDRESS（A1；2））（绝）
能实现两栏数据中按特定条件进行比较并做出相应记号吗
具体意思如下：有四栏数据。A 栏 B 栏 C 栏 D 栏 F 栏
对 A 栏及 C 栏数据进行查找对比，如果发现存在 A=C ，且B=D ，则在符合条件的F 栏显示已
找到，对于没有查到的的显示未找到。
解答：如果是一一对应查找则 f2=if（and（A2=C2；B2=D2）；〃OK〃；〃No〃）；复制。
如果整体查找：=IF（AND（COUNTIF（C2：C5；A2）》0；COUNTIF（D2：D5；B2）》0）；〃 找到〃；〃
没有〃）
如何对文本格式的数字进行筛选
如 80/24；73/56〃〃
解答：要对 A 列进行筛选，条件 1：符号〃/〃左边的数字》=50；条件 2：符号〃/〃右边的数字》=80；达
到 任 一 条 件 的 即 被 选 中 。 试 试 这 个 公 式 ：
B1=IF（OR（LEFT（A1；FIND（〃/〃；A1）…1）*1》=50；MID（A1；FIND（〃/〃；A1）＋1；LEN（A1）…FIND（〃/〃；A1））*
1》=80）；A1；〃〃）
我想再请教一个问题：在自动筛选中有〃包含、不包含〃之类的选项；这类选项在高级筛选中能否
实现？
提供以往一个函数公式；请你研究看是否有参考：
=｛SUM（（ISNUMBER（SEARCH（〃 广 东 〃；B3：B13）））*（A3：A13=〃 股 份 制
〃）*（C3：C13））｝
这是对 B 列单位名称中包含〃广东〃并且 A 列企业类型为〃股份制〃的；按 C 列汇总。
如何筛选出特定行
一份工作表，有几万行数据，现在想每隔 50 行打印一行，如何进行筛选
解答：插入一空列；输入=MOD（ROW（）；50）并复制到全数据列；再用筛选法把有“0 ”的单元格选
出。
Word 加启动密码
在 Word 模板中录制如下宏文件保存即可：
Sub autoexec（）
376
…………………………………………………………Page 377……………………………………………………………
Dim user
user = InputBox（〃请输入软件启动密码〃）
If user = 〃password〃 Then
Else
MsgBox （〃非法用户；将退出本程序。Wu〃）
Application。Quit
End If
End Sub
有关大小写的转换
在 EXCEL 单元格中有的单元格是小写字母，有的是大小写混在一起现在我想全部转为大写、
或全部转为小写，有哪些方法呢？
利用 upper（） 函数或还有 LOWER 。如：a1=aBcD，upper（a1）=ABCD
在 Excel 中打造自己的“公式保护”菜单
工作中经常用到 Excel 的计算功能，有时一张工作表中需要设置很多公式，为了防止误操作就
将工作表保护起来，但是如果将含有公式的单元格保护，而其它单元格不锁定，设置时需要一
个个单元格选定，很麻烦而且容易出错，就想到建立一个菜单项，将这项工作变成菜单 。有
幸的是这一切 Excel 都能完成，具体操作如下：
先将工作表保护，不必输入密码。
再录制一个宏。方法是：打开“工具”栏，单击“宏”“录制新宏”；将其命名为“公式保
护”，单击“保存在”的下拉箭头，将新宏保存到“个人宏工作簿”。单击“确定”录制开始。
（注意此后的每一动作都将被录制，直至“停止录制”。）
1。 将工作表取消保护；
2。 选定 a1 单元格，输入=〃测试〃 （注：黑体为实际输入内容，标点符号均为英文输入法
状态；下同）；
3。 单击工作表左上角的方框选定整个工作表；
4。 单击“格式”“单元格”“保护”项，将“锁定”和“隐藏”前的方框里的对号去
掉；
5。 单击“插入”“名称”“定义”，当前工作表名称输入：公式保护，引用位置输入：
=get。cell（4；indirect（〃rc〃；false））； 单击“添加”后“确定”；
6。 单击“格式”“条件格式”，在“单元格数值”下拉框选定“公式”，后面的框内
输入=公式保护 ，单击“格式〃”，在图案标签内选浅绿色或者其它颜色“确定”，再“确
定”；
7。 单击 “编辑”“定位”“定位条件〃”，选定“公式”项“确定”再“确定”；
8。 重复步骤 4，将“锁定”和“隐藏”前的方框里的对号选定；
9。 选定 a1 单元格，取消其内容，并重复步骤 4，取消 a1 的锁定和隐藏属性；
10。 单击工具…保护…保护工作表，将工作表保护（也不必设密码）。再单击“工具”“宏”
“停止录制”停止录制。再打开“工具”“自定义”项，再“命令”标签栏内“类别”
栏中找到“新菜单”并指定，在其右侧的命令框中的新菜单用鼠标按住拖到“工具栏”的
“保护”项中的“保护工作表”下面放开，并单击右键将其命名为“公式保护”，将刚才
录制名为“公式保护“的宏指定给它。至此，一个很有用的菜单项就作成了。 此后，只要
你将鼠标移动到“工具”“保护”“公式保护”的位置，工作表将执行其所指定的宏，
377
…………………………………………………………Page 378……………………………………………………………
只要你工作表中输入了公式（以=开头），含有公式的单元格将自动变为浅绿色，提醒你和
别人此处有公式，小心编辑，十分醒目。编辑完公式后再次运行该命令就可以此保护工作
表并锁定公式，禁止改动。
如何让 EXCEL 自动从头统计到当前单元格
情况如下： C 列要根据 A 列的内容来统计 B 列的数据，范围从 A1 ：An ，即当A 列中 An 有
数据时，Cn 自动根据An 的值，统计B1 ：Bn 的数据。
解答：=SUM（INDIRECT（〃B1：B〃 & LARGE（（A1：A65535〃〃）*（ROW（A1：A65535））；1））） ，按 Ct
rl＋Shift＋Enter 。
请问想要取当前单元格的列号，用什么函数
1、=CHAR（64＋COLUMN（））
2 、Private Sub Worksheet_SelectionChange（ByVal Target As Excel。Range）
If Selection。Columns。Column 》 26 Then
tt = Mid（ActiveCell。Address； 2； 2）
Else
tt = Mid（ActiveCell。Address； 2； 1）
End If
MsgBox （tt）
End Sub
3、1 的公式就变化一下：=IF（COLUMN（）》26；CHAR（64＋INT（COLUMN（）/26）） & CHAR（64＋
MOD（COLUMN（）；26））；CHAR（64＋COLUMN（）））
SUMIF 函数
a1 至 A4 是 10；24；30；12。B1 至 B4 是 8；15；25；35。D1 至 D4 是 25；4；3；5。用 SUMIF 第一参数选取 A
1：B4；第二参数是》20；第三参数选取 D1：D4。它得出是 7 。它判断的是A1：A4 。我的要求是 B1：
B4 也跟着判断 ； 也就要得出来得是 12
解答：｛=SUM（（A1：A4》20）*（B1：B4》20）*C1：C4）｝
378
…………………………………………………………Page 379……………………………………………………………
怎么能快速的将两个单元格的内容互换
1、
Sub ChangVal（）
my1value = ActiveCell。Value
For Each a In Selection
If a。Address ActiveCell。Address Then
my2value = a。Value
a。Value = my1value
ActiveCell。Value = my2value
End If
Next a
End Sub
2 、用鼠标先选定单元格，点住单元格边框，并按住 SHIFT 键，然后托拽到隔壁单元格的后面
一条边框处。你能看到被托拽部分会变成灰色的“工”字形，然后放手后，单元格就互换了。
如何能到两个时间段的 17：00…8：00 小时数？
1。已知〃E4〃为 08011500（为文本格式﹐开始时间﹐意思为 8 月 1 日 下午 15 ﹕00） ﹐〃G4〃为
08100900（为文本格式﹐结束时间﹐意思为 8 月 10 日 上午 9 点） 问﹕如何能得到开始时间到
结束时间（17：00…08：00 ）的总小时数？
2。 如何得到开始时间到结束时间的节假日时数？（如 5。1 ﹐10。1 ﹐星期六﹐星期天）
解答：方法 1：
=（DATE（YEAR（NOW（））；MIDB（AF4；1；2）；MIDB（AF4；3；2））…DATE（YEAR（NOW（））；MIDB（E4；1；2）；MI
DB（E4；3；2））…1）*15＋IF（MIDB（E4；5；2）＋MIDB（E4；7；2）/60=17；24（MIDB（E4；5；2）＋MIDB（E4；7；2）/60）；7））
＋IF（MIDB（AF4；5；2）＋MIDB（AF4；7；2）/60=17；MIDB（AF4；5；2）＋MIDB（AF4；7；2）/60…9；8））
方法 2 ：networkda