半小时教你成为excel高手-第5节
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Sub detectbreak（）
mycolumn = Range（〃A1〃）。CurrentRegionlumnsunt
Set myrange = Range（〃A1〃）。CurrentRegion
For Each mycell In myrange
Set myrow = mycell。EntireRow
If myrow。PageBreak = xlNone Then
GoTo Nex
Else
Set arow = Range（Cells（myrow。Offset（…1）。Row； 1）； Cells（myrow。Offset（…1）。Row；
mycolumn））
With arow。Borders（xlEdgeBottom）
。。LineStyle = xlDouble '把这一行改成自己喜欢的表线
。。Weight = xlThick
。lorIndex = xlAutomatic
End With
End If
Nex： Next mycell
End Sub
求工齡
A：老夏
=DATEDIF（B2；TODAY（）；〃y〃）
=DATEDIF（B2；TODAY（）；〃ym〃）
=DATEDIF（B2；TODAY（）；〃md〃）
=DATEDIF（B2；TODAY（）；〃y〃）&〃年〃&DATEDIF（B2；TODAY（）；〃ym〃）&〃月
〃&DATEDIF（B2；TODAY（）；〃md〃）&〃日〃
********************************************************
DATEDIF（） Excel 2000 可以找到說明 Excel 97 》＇有說明 是；？暗~惡？？
如何用excel求解联立方程：
Q：x…x（7/y）^z=68 x…x（20/y）^z=61 x…x（30/y）^z=38
到底有人会吗？不要只写四个字，规划求解，我想要具体的解法，
A：wenou
这是一个指数函数的联列方程。步骤如下
1、令X/Y=W 则有 X…（7W）^z=68 X…（20W）^Z=61 X…（30W）^Z=38
2、消去X
（20^Z…7^Z）W^Z=7 （30^Z…20^Z）W^Z=23
3、消去W
（30^Z…20^Z）/（20^Z…7^Z）=23/7
由此求得Z=3。542899 x=68。173955 y=781。81960
行高和列宽单位是什么？ 如何换算到毫米？
A：markxg
在帮助中：
“出现在“标准列宽”框中的数字是单元格中 0…9 号标准字体的平均数。”
单位应该不是毫米，可能和不同电脑的字体有关吧。
Q：Rowen
是这样：
行高/3=mm 列宽*2。97=mm
鱼之乐
实际上最终打印结果是以点阵为单位的；而且excel中还随着打印比例的变化而变化
如果想用宏写一个完全退出EXCEL的函数是什么？
Q：因为我想在关闭lock。frm窗口时就自动退出EXCEL，请问用宏写一个完全退出EXCEL的
函数是什么？多谢！
A：Application。quit
请问如何编写加载宏？
把带有VBA工程的工作簿保存为XLA文件即可成为加载宏。
请问如何在点击一个复选框后在后面的一个单元格内自动显示当前日期？
如果是单元格用〃=TODAY（）〃就可以了
如果是文本框在默认属性中设置或在复选框的CLICK中设置文本框的内容
EXCEL2000中视面管理器如何具体运用呀？
请问高手EXCEL2000中视面管理器如何具体运用呀？最好有例子和详细说明。明确的功
能。不然我还是不能深刻的理解他。
markxg
其实很简单呀，你把它想象成运动场上的一串照片（记录不同时点的场景），一张照片
记录一个场景，选择一张照片就把运动“拖”到照片上的时点。不同的是只是场景回
复，而值和格式不回复。
用VBA在自定义菜单中如何仿EXCEL的菜单做白色横线？
Q：我在做自定义菜单时，欲仿EXCEL菜单用横线分隔各菜单项目，用VBA如何才能做到
？
A：Rowen
那个东东也是一个部件；我想可以调用；不过没试过。
diyee
把它的显示内容中设置为〃…〃即可。
simen
1。此部件叫什么名字，在控件箱里有吗？
2。用“…”我也试过，用它时单击可以，但你要知道EXCEL自己的横线是不可以单击下去
的
kevin_168
object。BeginGroup = True
下面是我用到的代码：
Set mymenubar = mandBars。ActiveMenuBar
Set newmenu1 = mymenubarntrols。Add（Type：=msoControlPopup； _
Temporary：=True）
newmenu1。Caption = 〃文件制作（&M）〃
newmenu1。BeginGroup = True '这就是你要的白色横线
simen
你知道在窗体中也有这样的分隔线的如何实现呢？
kevin_168
这；我可没有试过；不过我做的时候使用一LABEL将其设为 能否在取消“运行宏”时并不
打开其它工作表！
Q：我看见有些模块（高手给的）能够在取消“运行宏”时并不打开其它工作表！不知
是何办法？ 但当你启动宏后，工作表才被打开！这种方法是什么？
A：Rowen
这些工作表预先都是隐藏的；必须用宏命令打开；所以取消宏的情况下是看不到的。可以
打开VBA编辑器；在工作表的属性窗口中将其Visible 设为xlSheetVisible
立体；看起来也够美观的；不妨一试。象版主所说的多查帮助文件；对你有帮助。
如何去掉单元格中间两个以上的空格？
Q：单元格A1中有“中 心 是”，如果用TRIM则变成“中 心 是”，我想将空
格全去掉，用什么办法，请指教！！
A：用SUBSTITUDE（）函数，多少空格都能去掉。如A1中有：中 心 是 则在B1中使用
=SUBSTITUTE（A1；〃 〃；〃〃）就可以了。注意：公式中的第一个“ ”中间要有一个空格，
而第二个“”中是无空格的。
打印表头？
Q：在Excel中如何实现一个表头打印在多页上？
打印表尾？
A：BY dongmu
请选择文件…页面设置…工作表…打印标题…顶端标题行，然后选择你要打印的行。
打印表尾？
通过Excel直接提供的功能应该是无法实现的，需要用vba编制才行。
提取性别（无论是15位还是18位）
=IF（LEN（A1）=15；IF（MOD（MID（A1；15；1）；2）=1；〃男〃；〃女
〃）；IF（MOD（MID（A1；17；1）；2）=1；〃男〃；〃女〃））
如果身份证号的输入已是15或18位，用公式
=IF（MOD（LEFT（RIGHT（A1；（LEN（A1）=18）＋1））；2）；〃男〃；〃女〃）
如何把这26个表格汇总求和成一个汇总表
A：
ACCESS
数据合并计算///来解决。
鱼之乐
看来有很多朋友有这个方面的需求，说明这是个共性问题，于是我利用access＋excel做
了一个汇总查询模板，如果您需要可来mail我发给你 0710@963
excelhelp
假設。R？的工作表叫Sheet1，而存放資料的工作表叫Sheet2； Sheet3； 。。。； Sheet27，
你可以這~釉O置公式，把各工作表A1的〃抵导悠饋恚？
=SUM（Sheet2：Sheet27！A1）
要注意的是，Sheet1不能在Sheet2和Sheet27中間，Excel不。芄ぷ鞅淼拿郑？？
Sheet2和Sheet27中間的＊所有＊工作表中相關的fΥ娓瘢呐轮虚g有一；？工作表叫
Sheet99）加起來。
葡萄
excelhelp的方案是正确的
1、在汇总表单元格内选择“Σ”
2、选择需要叠加的第一个工作表
3、按住shift同时用鼠标选择需要叠加的最后一个工作表
4、选择需要叠加的单元格
5、Enter
实现验证先进先出法；
Q：
我做了一个验证先进先出法的表格；但想不出简洁的公式；请各位帮我改进以下公式
********************************************************
=IF（B3语音 中有选项的。
能否象打支票软件那样输入一串数字它自动给拆分成单个数字？
Q：
如我输入123456。52它自动给拆成￥1 2 3 4 5 6 5 2 的形式并且随我输入的长度改变
而改变？
A：
Chiu
我所知函数不多，我是这样做的，如有更方便的方法，请指点
例如：
在A1输入小写金额，则：
千万：B1=IF（A1》=10000000；MID（RIGHTB（A1*100；10）；1；1）；IF（A1》=1000000；〃￥〃；0））
百万：C1=IF（A1》=1000000；MID（RIGHTB（A1*100；9）；1；1）；IF（A1》=100000；〃￥〃；0））
十万：D1=IF（A1》=100000；MID（RIGHTB（A1*100；8）；1；1）；IF（A1》=10000；〃￥〃；0））
万：E1=IF（A1》=10000；MID（RIGHTB（A1*100；7）；1；1）；IF（A1》=1000；〃￥〃；0））
千：F1=IF（A1》=1000；MID（RIGHTB（A1*100；6）；1；1）；IF（A1》=100；〃￥〃；0））
百：G1=IF（A1》=100；MID（RIGHTB（A1*100；5）；1；1）；IF（A1》=10；〃￥〃；0））
十：H1=IF（A1》=10；MID（RIGHTB（A1*100；4）；1；1）；IF（A1》=1；〃￥〃；0））
元：I1=IF（A1》=1；MID（RIGHTB（A1*100；3）；1；1）；IF（A1》=0。1；〃￥〃；0））
角：J1=IF（A1》=0。1；MID（RIGHTB（A1*100；2）；1；1）；IF（A1》=0。01；〃￥〃；0））
分：K1=IF（A1》=0。01；RIGHTB（A1*100；1）；0）
网客
公式中最后一个0改为〃〃
如下方法是否能够达到所要求的：
在A1输入小写金额，则B1为所要求的
B1=WIDECHAR（A1*100） 将单字节字符转换为双字节字符
或
B1=WIDECHAR（TEXT（A1*100；〃￥#〃））
officeXP提供了这样的服务
office2002中提供了繁简互换功能，可以到以下网址下载，officeXP的所有程序都可以
用
office。microsoft/offi 。。。 igin=EC790020112052
要去掉其中两个最大值和两个最小值，不知道怎样运用公式
Q：
我要将一行数据进行处理。要去掉其中两个最大值和两个最小值，不知道怎样运用公
式，请帮助。
A：
Rowen
可参阅：large（） 及 Small（） 函数
simen
在excel中用max（） 和 min（）也可；
Rowen
我想先排序；再去头尾应更实用些。
markxg
是个办法，不过次序打乱了。
最简单的就用MAX（）和MIN（）工作表函数，也不用编程，帮助里讲的很明白。
另设的二个数据列，在其中一个数据列中对应的单元格中加入带MIN，MIX的IF判断语
句，即如果MAX或MIN得出的结果与源数据相符则，显示为空，如此这样在另一列中在做
一次相同的公式即可将源数据转化为你所要求的数据列。
以a1~a50为例
=sum（a1：a50）…max（a1：a50）…min（a1：a50）
应该是：
=SUM（A1：A50）…MAX（A1：A50）…LARGE（A1：A50；2）…MIN（A1：A50）…SMALL（A1：A50；2）
这个只能减去1个最大和1个最小值，不符合楼主的题意。也可用下面的公式。
=SUM（A1：A20）…SUM（LARGE（A1：A20；｛1；2｝））…SUM（SMALL（A1：A20；｛1；2｝））
C1、C2、C3、C4中的公式如何设置？
Q：
前日本人提出如下一个问题请诸位大虾帮助指点迷津。
如下表：
A B C
1 50 采购 （采购汇总）
2 60 工程 （工程汇总）
3 80 工资 （工资汇总）
4 100 税 （税汇总）
5 70 采购
6 50 工资
7 60 工程
。 。 。
。 。 。
请问：C1、C2、C3、C4中的公式如何设置？
可能本人没有说清楚，实际上C1、C2、C3、C4是B列的采购合计数、工程汇合计数、
工资合计数等，这里烦请诸位高手再指迷津。
A：
dick
C1=｛SUM（IF（MOD（ROW（data）；4）=1；data））｝
C2=｛SUM（IF（MOD（ROW（data）；4）=2；data））｝
C3=｛SUM（IF（MOD（ROW（data）；4）=3；data））｝
C4=｛SUM（IF（MOD（ROW（data）；4）=0；data））｝
使用？列公式
data：z橘Y料範？？
dongmu
无需数组公式：
sumif（条件区域；条件；求和区域）
c1=sumif（b1：b7；〃采购〃；a1：a7）
c2=sumif（b1：b7；〃工程〃；a1：a7）
c3=sumif（b1：b7；〃工资〃；a1：a7）
c4=sumif（b1：b7；〃税〃；a1：a7）
取满足条件的记录
