货号46vbavba微软office.vba excel技巧收集

1、Excel精华版整理从号码中提取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)提取（无论是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

2、(LEFT(RIGHT(A1,(LEN(A1)=18)+1),2),男,女xls-exe可以么？如果只是简单的转换成EXE，当然可以。如果你指的是脱离Excel也可以运行，好像没听说过可以。当然，通过DDE，是可以不运行Excel但调用它的所有功能的，但前提仍然是你的计算机上已经安装了Excel列的跳跃求和若有20列（只有一行），需没间隔3列求和，该公式如何做？前面行跳跃求和的公式不管用。假设a1至t1为数据（共有20列），在任意单元格中输入公式：=SUM(IF(MOD(TRANSE(ROW(1:20),3)=0,(a1:t1)按ctrlshiftenter结束即可求出每隔三行之和。跳行设置：

3、12行，需每隔3行求和=SUM(IF(MOD(ROW(1:12),3)=0,(A1:A12)能否象打支票软件那样输入一串数字它自动给拆分成单个数字？如我输入123456.52它自动给拆成￥1 2 3 4 5 6 5 2 的形式并且随我输入的长度改变而改变？我所知函数不多，我是这样做的，例如：在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)十万：

4、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(RIGH

5、TB(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改为如何编这个公式编的公式是： a/84 - （b4）其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。这个公式的关键是要统计出包含字符C的单元格的个数，可我不会。dongmu=a/(84-countif(b,=c)*4)我试了一下，不能运行是因为没有指定出现“c”的单元格的范围。比如说“c”在D2-D30中

6、随机出现，在上述公式中要先统计出出现“c”的单元格的个数。这个公式如何做？再一次感谢！受dongmu朋友公式的启发，我做出了需要的公式=a/(84-COUNTIF(D3:D30,c)*4)skysea575 :其中a是一个数值，小于或等于84；b是包含字符C的单元格的个数；C是一个符号。 包含字符C在这里的意思不清楚。你的公式中只可以计算仅含有“C”字符的单元格数。可能你的想法是计算字符中凡是含有这个字或字母的词。如“文章”和“文字”中都有一个“文”字，是否计算在内？将文件保存为以某一单元格中的值为文件名的宏怎么写假设你要以Sheet1的A1单元格中的值为文件名保存，则应用命令：ActiveW

7、orkbook.SaveCopyAs Str(Range(Sheet1!A1) + .xlsIE中实现EXCEL表在IE中实现共享更新），EXCEL表并打开后可填写数据，而且可以实现数据的保存（在局域网内的数据设想是在NT中上提供电子表格服务， 各位局域网内用户在IE浏览器享修改数据，请问我该如何操作才能实现这能。我是初学者，请尽量讲得详细一点。 mm.xls桌面*貼到計事本- 存為Home.htm擺桌面上- 設為共享- 區域網路其他電腦設捷徑連結Home.htm懂這三行字的結構,即可寫出網頁資料庫系統其中每個字都是物件名稱 檔案多了改用這個元件要設幾個框隨便您EXCEL中求两陈列的对应元素乘

8、积之和Q:即有简结一点的公式求如:a1*b1+a2*b2+b3*b3.的和.应有一函数 X(A1:B3)A:roof在B4中输入公式=SUM(A1:A3*B1:B3),按CTRL+SHIFT+ENTER结束.dongmu=SUMPRODUCT(A1:A10,B1:B10)X(A1:A3,B1:B3)或求助日期转换的问题Q:工作中须将表格中大量的日期同时转换为中英文的几请问如何处理英文的A:Rowen1.用公式:=text(转换，！kday(xx),ddd)2.用VBA,kday(),然后自定义转换序列3.用拼写检查,自定义一级转换序列4.dongmu转成英文： =TEXT(转成中文： =TEX

9、T(KDAY(A1),dddd)KDAY(A1),aaaa)，从统计入手Q：我有一个VBA编程的问题向你请教。麻烦你帮助编一个。我一定厚谢。有一个数组列在EXCEL中如： 01 02 03 04 05 06 07和01 04 12 19 25 26 3202010908021515 1607 0917 2018 2412 1522 29282232比较，如果有相同的数就在第八位记一个数。如01 04 120801 02 07 09 1220 22 29 32 0这个数列有几千组，只要求比较出有几位相同就行。主要，从统计入手。如果你有我会告诉你最好的方法。急盼。A：roof把“01 02 03

10、04 05 06 07 ”放在表格的第一行，“01 04 12 19 25 26 32 2”放第二行。把以下公式贴到第二行第八个单元格“A9”中，按F2,再按CTRL+SHIFT+ENTER.=COUNT(MATCH(A2:G2,$A$1:$G$1,0)如何自动设置页尾线条？Q：各位大虾：菜鸟DD有一难题请教，工作表通常都很长，偏偏我这人以特爱美，所以会将表格的外框线和框内线条设置为不同格式，但在打印时却无法将每一页的底部外框线自动设为和其他三条边线一致，每次都必须手工设置（那几十页哦！），而且如果换一台打印机的话就会前功尽弃，不知哪位大侠可指教一两招，好让DD我终生受用，不胜感激！A：roo

11、f打印文件前试试运行以下的代码。打印后关闭文件时不要存盘，否则下次要把格式改回来就痛苦了。（当然你也可以另写代码来恢复原来的格式）：Sub detectbreak()mycolumn = Range(A1).CurrentRegion.Columns.CountSet For Setmyrange = Range(A1).CurrentRegionEa myrowycellyrange= mycell.EntireRow geBreak = xlNone ThenIf myro GoTo Nex ElseSet arow = Range(Cells(myrow.Offset(-1).Row,

12、1), Cells(myrow.Offset(-1).Row, mycolumn)Wirow.Borders(xlEdgeBottom).LineStyle = xlDouble 把这一行改成自己喜欢的表线.Weight = xlThick.ColorIndex = xlAutomatic End WithEnd IfNex: Next mycellEnd Sub求工齡A：=DATEDIF(B2,TODAY(),y)=DATEDIF(B2,TODAY(),ym)=DATEDIF(B2,TODAY(),md)=DATEDIF(B2,TODAY(),y)&年&DATEDIF(B2,TODAY(),

13、ym)&月&DATEDIF(B2,TODAY(),md)&日 * DATEDIF() Excel 2000 可以找到說明 Excel 97 沒有說明 是個暗槓函數如何用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=68 X-(20W)Z=612、消去XX-(30W)Z=38(20Z-7Z)WZ=73、消去W(30Z-20Z)WZ=23(30Z-20Z)/(20Z-7Z)=23/7由此求得Z=3.542

14、899 x=68.173955 y=781.81960行高和列宽 A：markxg在帮助中：是什么? 如何换算到毫米?“出现在“标准列宽”框中的数字是单元格中 0-9 号标准字体的平均数。”应该不是毫米，可能和不脑的字体有关吧。Q：Rowen是这样:行高/3=mm 列宽*2.97=mm鱼之乐实际上最终打印结果是以点阵为的,而且excel中还随着打印比例的变化而变化如果想 Q:因为多谢！写一个完全退出EXCEL的函数是什么？在关闭lock.frm窗口时就自动退出EXCEL，请问写一个完全退出EXCEL的函数是什么？A:Application.quit请问如何编写加载宏？把带有VBA工程的工作簿保

15、存为XLA文件即可成为加载宏。请问如何在点击一个复选框后在后面的一个单元格内自动显示当前日期？如果是单元格用=TODAY()就可以了如果是文本框在默认属性中设置或在复选框的CLICK中设置文本框的内容EXCEL2000中视面管理器如何具体运用呀？请问高手EXCEL2000中视面管理器如何具体运用呀？最好有例子和详细说明。明确的功能。不然我还是不能深刻的理解他。markxg其实很简单呀，你把它想象成运动场上的一串（不同时点的场景），一张一个场景，选择一张就把运动“拖”到上的时点。不同的是只是场景回复，而值和格式不回复。用VBA在自定义菜单中如何仿EXCEL的菜单做白色横线？Q：我在做自定义菜单时

16、，欲仿EXCEL菜单用横线分隔各菜单项目，用VBA如何才能做到？ A：Rowen那个东东也是一个部件,diyee可以调用,不过没试过.把它的显示内容中设置为-即可。simen此部件叫什么名字，在控件箱里有吗？用“-”我也试过，用它时单击可以，但你要知道EXCEL自己的横线是不可以单击下去的kevin_168 object.BeginGroup = True下面是我用到的代码：Set my Set newbar =1 = mydBariveBarbar.Controls.Add(Type:=msoControlPopup, _Temporary:=True)new1.Caption = 文件制作

17、(&M)new1.BeginGroup = True 这就是你要的白色横线simen你知道在窗体中也有这样的分隔线的如何实现呢？kevin_168这,我可没有试过,不过我做的时候使用一LABEL将其设为 能否在取消“运行宏”时并不打开其它工作表！Q：我看见有些模块（高手给的）能够在取消“运行宏”时并不打开其它工作表！不知是何办法？ 但当你启动宏后，工作表才被打开！这种方法是什么？A：Rowen这些工作表预先都是隐藏的,必须命令打开,所以取消宏的情况下是看不到的.可以打开VBA编辑器,在工作表的属性窗口中将其Visible 设为xlSheetVisible,看起来也够美观的,不妨一试.象版主所说

18、的多查帮助文件,对你有帮助.如何去掉单元格中间两个以上的空格？Q：单元格A1中有“中法，请指教！心是”，如果用TRIM则变成“中 心 是”，将空格全去掉，用什么办A：用SUBSTITUDE（）函数，多少空格都能去掉。如A1中有：中 心 是 则在B1中使用=SUBSTITUTE(A1, ,)就可以了。注意：公式中的第一个“ ”中间要有一个空格，而第二个“”中是无空格的。打印表头？Q：在Excel中如何实现一个表头打印在多页上？打印表尾？A：BY dongmu请选择文件页面设置工作表打印标题顶端标题行，然后选择你要打印的行。打印表尾？通过Excel直接提供的功能应该是无法实现的，需要用vba编制才行。如何将工段Sheet1 B2：B10的