ExcelHome精华版.docx
《ExcelHome精华版.docx》由会员分享，可在线阅读，更多相关《ExcelHome精华版.docx（9页珍藏版）》请在冰点文库上搜索。
ExcelHome精华版
ExcelHome精华版
从身份证号码中提取性别
Q：
A1单元格中是15位的身份证号码，要在B1中显示性别（这里忽略15位和18位身份证号码的判别）
B1=if（mod（right（A1,1）,2）>0,"male","female"）
如下公式：
B1=if（mid（A1,15,1）/2=trunc（mid（A1,15,1）/2）,"female","male"）
A：
leaf
道理都是一样的，不过你的公式比那个公式优质
提取性别（无论是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）,"男","女"
xls--->exe可以么？
A：
Kevin
如果只是简单的转换成EXE，当然可以。
如果你指的是脱离Excel也可以运行，好像没听说过可以。
当然，通过DDE，是可以不运行Excel但调用它的所有功能的，但前提仍然是你的计算机上已经安装了Excel
列的跳跃求和
Q:
若有20列（只有一行），需没间隔3列求和，该公式如何做？
前面行跳跃求和的公式不管用。
A:
roof
假设a1至t1为数据（共有20列），在任意单元格中输入公式：
=SUM（IF（MOD（TRANSPOSE（ROW（1:
20））,3）=0,（a1:
t1））
按ctrl＋shift＋enter结束即可求出每隔三行之和。
跳行设置：
如有12行，需每隔3行求和
=SUM（IF（MOD（（ROW（1:
12））,3）=0,（A1:
A12）））
能否象打支票软件那样输入一串数字它自动给拆分成单个数字？
Q：
如我输入123456.52它自动给拆成￥12345652的形式并且随我输入的长度改变而改变？
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改为""
如何编这个公式
Q：
我想编的公式是：
a/[84-（b×4）]
其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。
这个公式的关键是要统计出包含字符C的单元格的个数，可我不会。
A：
dongmu
=a/（84-countif（b,"=c"）*4）
chwd
我试了一下，不能运行，我想是因为没有指定出现“c”的单元格的范围。
比如说“c”在D2-D30中随机出现，在上述公式中要先统计出出现“c”的单元格的个数。
这个公式如何做？
再一次感谢！
受dongmu朋友公式的启发，我做出了需要的公式
=a/（84-COUNTIF（D3:
D30,"c"）*4）
skysea575:
其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。
"包含字符C"在这里的意思不清楚。
你的公式中只可以计算仅含有“C”字符的单元格数。
可能你的想法是计算字符中凡是含有这个字或字母的词。
如“文章”和“文字”中都有一个“文”字，是否计算在内？
将文件保存为以某一单元格中的值为文件名的宏怎么写
A：
lxxiu
假设你要以Sheet1的A1单元格中的值为文件名保存，则应用命令：
ActiveWorkbook.SaveCopyAsStr（Range（"Sheet1!
A1"））+".xls"
IE中实现链接EXCEL表
Q:
我想在IE中实现链接EXCEL表并打开后可填写数据，而且可以实现数据的远程保存（在局域网内的数据共享更新），我的设想是在NT中上提供电子表格服务，各位局域网内用户在IE浏览器中共享修改数据，请问我该如何操作才能实现这一功能。
我是初学者，请尽量讲得详细一点。
A:
老夏
\mm.xls"target="x">mm.xls
桌面
**************************************************************
貼到計事本-存為Home.htm擺桌面上-設為共享-區域網路其他電腦設捷徑連結Home.htm
懂這三行字的結構,即可寫出網頁資料庫系統
其中每個字都是[物件名稱]
檔案多了改用這個元件
要設幾個框隨便您
EXCEL中求两陈列的对应元素乘积之和
Q:
即有简结一点的公式求如:
a1*b1+a2*b2+b3*b3...的和.应有一函数XXXX（A1:
A3,B1:
B3）或XXXX（A1:
B3）
A:
roof
在B4中输入公式"=SUM（A1:
A3*B1:
B3）",按CTRL+SHIFT+ENTER结束.
dongmu
=SUMPRODUCT（A1:
A10,B1:
B10）
求助日期转换星期的问题
Q:
工作中须将表格中大量的日期同时转换为中英文的星期几
请问如何处理英文的星期转换，谢谢！
A:
Rowen
1.用公式:
=text（weekday（xx）,"ddd"）
2.用VBA,weekday（）,然后自定义转换序列
3.用"拼写检查",自定义一级转换序列
4....
dongmu
转成英文：
=TEXT（WEEKDAY（A1）,"dddd"）
转成中文：
=TEXT（WEEKDAY（A1）,"aaaa"）
研究彩票，从统计入手
Q：
我有一个VBA编程的问题向你请教。
麻烦你帮助编一个。
我一定厚谢。
有一个数组列在EXCEL中如：
01020304050607
和01041219252632
02081516182428
01020709121522
09151720222932
比较，如果有相同的数就在第八位记一个数。
如
010412192526322
020815161824281
010207091215222
091517202229320
这个数列有几千组，只要求比较出有几位相同就行。
我们主要研究彩票，从统计入手。
如果你有兴趣我会告诉你最好的方法。
急盼。
A：
roof
把“01020304050607”放在表格的第一行，“010412192526322”放第二行。
把以下公式贴到第二行第八个单元格“A9”中，按F2,再按CTRL+SHIFT+ENTER.
=COUNT（MATCH（A2:
G2,$A$1:
$G$1,0））
如何自动设置页尾线条？
Q：
各位大虾：
菜鸟DD有一难题请教，我的工作表通常都很长，偏偏我这人以特爱美，所以会将表格的外框线和框内线条设置为不同格式，但在打印时却无法将每一页的底部外框线自动设为和其他三条边线一致，每次都必须手工设置（那可是几十页哦！
），而且如果换一台打印机的话就会前功尽弃，不知哪位大侠可指教一两招，好让DD我终生受用，不胜感激！
A：
roof
打印文件前试试运行以下的代码。
打印后关闭文件时不要存盘，否则下次要把格式改回来就痛苦了。
（当然你也可以另写代码来恢复原来的格式）：
Subdetectbreak（）
mycolumn=Range（"A1"）.CurrentRegion.Columns.Count
Setmyrange=Range（"A1"）.CurrentRegion
ForEachmycellInmyrange
Setmyrow=mycell.EntireRow
Ifmyrow.PageBreak=xlNoneThen
GoToNex
Else
Setarow=Range（Cells（myrow.Offset（-1）.Row,1）,Cells（myrow.Offset（-1）.Row,mycolumn））
Witharow.Borders（xlEdgeBottom）
.LineStyle=xlDouble'把这一行改成自己喜欢的表线
.Weight=xlThick
.ColorIndex=xlAutomatic
EndWith
EndIf
Nex:
Nextmycell
EndSub
求工齡
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（）Excel2000可以找到說明Excel97沒有說明是個暗槓函數
如何用excel求解联立方程：
Q：
x-x（7/y）^z=68x-x（20/y）^z=61x-x（30/y）^z=38
到底有人会吗？
不要只写四个字，规划求解，我想要具体的解法，
A：
wenou
这是一个指数函数的联列方程。
步骤如下
1、令X/Y=W则有X-（7W）^z=68X-（20W）^Z=61X-（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.542899x=68.173955y=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
下面是我用到的代码：
Setmymenubar=CommandBars.ActiveMenuBar
Setnewmenu1=mymenubar.Controls.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：
BYdongmu
请选择文件—页面设置—工作表—打印标题—顶端标题行，然后选择你要打印的行。
打印表尾？
通过Excel直接提供的功能应该是无法实现的，需要用vba编制才行。
升级会员 