Excel中提供了一個(gè)名為MID的函數(shù)，其作用就是返回文本串中從指定位置開始特定數(shù)目的字符，該數(shù)目由用戶指定（另有一個(gè)名為MIDB的函數(shù)，其作用與MID完全一樣，不過MID僅適用于單字節(jié)文字，而MIDB函數(shù)則可用于漢字等雙字節(jié)字符），利用該功能我們就能從身份證號(hào)碼中分別取出個(gè)人的出生年份、月份及日期，然后再加以適當(dāng)?shù)暮喜⑻幚砑纯傻贸鰝€(gè)人的出生年月日信息?！　√崾荆篗ID函數(shù)的格式為MID(text,start_num,num_chars)或MIDB(text,start_num,num_bytes)，其中Text是包含要提取字符的文本串；Start_num是文本中要提取的第一個(gè)字符的位置（文本中第一個(gè)字符的start_num為1，第二個(gè)為2……以此類推）；至于Num_chars則是指定希望MID從文本中返回字符的個(gè)數(shù)?！　〖俣硢挝蝗藛T管理希望通過身份證號(hào)碼自動(dòng)得出員工的出生年月日及性別，現(xiàn)以此為例，將有關(guān)步驟向廣大用戶作一簡(jiǎn)要介紹：　　1. 選中整個(gè)B列，然后執(zhí)行“格式”菜單中的“單元格”命令，打開“單元格格式”窗口?！　?. 選擇“數(shù)字”選項(xiàng)卡?！　?. 在“分類”欄中選擇“文本”選項(xiàng)，然后單擊“確定”按鈕，關(guān)閉“單元格格式”窗口，將所有包含有身份證號(hào)碼的單元格設(shè)置為文本格式?！　?.將光標(biāo)移至C3單元格中，然后輸入“="19"&MID(B3,7,2)&"年"&MID(B3,9,2)&"月"&MID(B3,11,2)&"日"”內(nèi)容。其中MID(B3,7,2)就是從身份證號(hào)碼的第7位開始取2位數(shù)，得出該員工的出生年份，MID(B3,9,2)就是得出該員工的出生月份，而MID(B3,11,2)則是該員工的出生日期，這些信息再加上年、月、日等文字就會(huì)組成該員工的準(zhǔn)確出生年月日“1970年1月1日”?！　?. 接下來我們應(yīng)將光標(biāo)移至D3單元格中，然后輸入“=IF(MID(B3,15,1)/2=TRUNC(MID(B3,15,1)/2),"女","男")”。這就表示取身份證號(hào)碼的第15位數(shù)，若能被2整除，這表明該員工為女性，否則為男性。　　6. 最后我們只需利用自動(dòng)填充功能對(duì)其他各個(gè)員工的出生年月日、性別進(jìn)行填充即可。　　上面都是以15位身份證為例進(jìn)行介紹的，18位身份證的操作方法與此類似，廣大用戶若使用的是18位身份證，只需對(duì)有關(guān)函數(shù)的取值位置進(jìn)行適當(dāng)調(diào)整即可（如將“="19"&MID(B3,7,2)&"年"&MID(B3,9,2)&"月"&MID(B3,11,2)&"日"”修改為“=MID(B3,7,4)&"年"&MID(B3,11,2)&"月"&MID(B3,13,2)&"日"”）?！　∵@樣就實(shí)現(xiàn)了由Excel自動(dòng)填充員工出生年月日、性別的功能，從而極大地減輕了用戶錄入數(shù)據(jù)時(shí)的工作量，有興趣的讀者不妨一試。在EXCEL中增加自動(dòng)填充序列　　　中文EXCEL97作為一種功能強(qiáng)大、技術(shù)先進(jìn)的電子表格軟件，給我們的辦公帶來了極大方便。　　在EXCEL中提供了自動(dòng)填充功能，我們?cè)谑褂脮r(shí)，可以通過拖動(dòng)“填充柄”來完成數(shù)據(jù)的自動(dòng)填充。例如要輸入甲、乙、丙、丁……，可以先在指定單元格輸入甲，然后將鼠標(biāo)移至單元格的右下角的小方塊處，直至出現(xiàn)“＋”字，按住鼠標(biāo)左鍵，向下（右）拖動(dòng)至目的單元格，然后松開即完成了自動(dòng)填充?？墒怯袝r(shí)我們會(huì)發(fā)現(xiàn)有一些數(shù)據(jù)序列不能自動(dòng)填充，例如車間一、車間二、車間三等，填充方法有兩種：　　第一種：?jiǎn)螕?#8220;菜單”欄上的“工具”，選“選項(xiàng)”→“自定義序列”，這時(shí)就可以在“輸入序列”欄輸入要定義的序列。需要注意的是每輸入完成一項(xiàng)就要回車一次，表示一項(xiàng)已經(jīng)輸入完畢，全部輸入完成以后單擊“添加”→“確定”，這樣我們自定義的序列就可以使用了?！　〉诙N：首先把你要添加的序列輸入到一片相臨的單元格內(nèi)，例如要定義一個(gè)序列：車間一、車間二、車間三，把這三項(xiàng)分別輸入到單元Ｈ１：Ｈ３，單擊“工具”→“選項(xiàng)”→“自定義序列”→“導(dǎo)入”，在“導(dǎo)入序列所在的單元格”所指的對(duì)話框中輸入Ｈ１：Ｈ３，單擊“導(dǎo)入”→“添加”→“確定”，這樣新序列就產(chǎn)生了。　　定義的序列如果不再使用，還可刪除，方法是：?jiǎn)螕?#8220;工具”→“選項(xiàng)”→“自定義序列”，在“自定義序列”框中，單擊要?jiǎng)h除的序列，再單擊“刪除”→“確定”。發(fā)掘Execl XP合并拆分技巧本人在用Excel XP管理教職工檔案時(shí)，經(jīng)常遇到合并或拆分單元格數(shù)據(jù)的情況，經(jīng)過一段時(shí)間的使用后摸索出了一套自己的“合并與拆分”理論，供同行們參考。所謂合并數(shù)據(jù)是指將兩列中的數(shù)據(jù)合并到一列中，拆分?jǐn)?shù)據(jù)是指將一列中的數(shù)據(jù)拆分到兩列中，圖1為“畢業(yè)院校”和“專業(yè)”兩列的拆分及合并的效果圖。合并數(shù)據(jù)要將“畢業(yè)院校”和“專業(yè)”兩列中數(shù)據(jù)合并為“畢業(yè)院校及專業(yè)”，有“真”、“假”兩種合并方法，所謂真合并就是將兩列數(shù)據(jù)真正合并到一列中，而假合并表面上看是合并為一列了，實(shí)際數(shù)據(jù)還是存在于兩列中，具體操作跟我一起來看看吧。1、真合并如果將一列中的數(shù)據(jù)通過再輸入合并到另一列中，那不是我們希望看到的解決辦法，快捷而準(zhǔn)確的操作方法是：(1)將需要合并的“畢業(yè)院校”和“專業(yè)”兩列數(shù)據(jù)通過“剪切”、“粘貼”移動(dòng)到一個(gè)新工作表中，如命名為“合并”工作表。(2)在“合并”工作表中將XLS文件另存為TXT文件，單擊“文件→另存為”，保存類型選擇“文本文件(制表符分隔)”，單擊[保存]按鈕后根據(jù)提示連續(xù)單擊兩次[確定]按鈕即可。(3)在Execl中單擊[打開]按鈕，重新打開TXT文件，在“文本導(dǎo)入向?qū)?#8594;步驟之1”中采用默認(rèn)設(shè)置，單擊[下一步]按鈕，在“步驟之2”分隔符號(hào)中，去掉“Tab鍵”前復(fù)選框的選擇，單擊[完成]按鈕，這時(shí)兩列中數(shù)據(jù)合并到一列中。(4)將合并后的數(shù)據(jù)再通過“剪切”、“粘貼”操作移動(dòng)到原工作表的原位置處，合并操作完成。提示：合并后的數(shù)據(jù)在原來兩列數(shù)據(jù)(如畢業(yè)院校和專業(yè))之間會(huì)有一個(gè)空格，而有時(shí)根據(jù)實(shí)際需要去掉或加寬空格，可采取如下措施：方法一：對(duì)TXT文件進(jìn)行編輯XLS文件中列與列之間數(shù)據(jù)轉(zhuǎn)換為TXT文件后是以制表符分隔的，此時(shí)合并后的數(shù)據(jù)在原來兩列數(shù)據(jù)之間會(huì)有一個(gè)空格，改變TXT文件中兩列之間距離(即改變空格的大小)，對(duì)應(yīng)的XLS文件中原兩列數(shù)據(jù)之間的距離也會(huì)隨之發(fā)生改變，若TXT文件中兩列數(shù)據(jù)之間距離增大或減小為零，則合并的XLS文件中兩列數(shù)據(jù)之間距離也會(huì)隨之增大或減小為零。如果你要將兩列數(shù)據(jù)無縫合并，建議應(yīng)用下面兩種方法。方法二：利用函數(shù)ConcateNameConcateName函數(shù)可以實(shí)現(xiàn)將幾個(gè)文本字符串合并為一個(gè)文本字符串，語法為：ConcateName (text1,text2, ……)，text1, text2, ……為1到30個(gè)將要合并成單個(gè)文本項(xiàng)的文本項(xiàng)，這些文本項(xiàng)可以為文本字符串、數(shù)字或?qū)蝹€(gè)單元格的引用，如圖2所示。方法三：利用“&”運(yùn)算符利用“&”運(yùn)算符也可將幾個(gè)文本字符串合并為一個(gè)文本字符串，“&”運(yùn)算方式同“+”、“-”等運(yùn)算方式一樣，如圖2所示。2、假合并我們也來一個(gè)“瞞天過海”吧，呵呵，在對(duì)單元格設(shè)置邊框時(shí)，利用工具欄中的“外部框線”將兩個(gè)單元格框在一起，這樣兩個(gè)單元格中數(shù)據(jù)就在一個(gè)表格中了，打印出來后保證不留一點(diǎn)“作假”痕跡。此招對(duì)付較少單元格效果不錯(cuò)，要應(yīng)付大量的單元格，奉勸你還是來點(diǎn)“真”的吧！否則夠你忙的了。拆分?jǐn)?shù)據(jù)合并方法掌握了，拆分也不難，拆分的方法與前面介紹的合并方法相似，先將XLS文件另存為TXT文件，再對(duì)TXT文件進(jìn)行編輯，將需要拆分的數(shù)據(jù)用“Tab”鍵或空格分開，然后再用Excel重新打開編輯后的TXT文件，這樣原來在一起的數(shù)據(jù)就被拆分開了。處理含有大量信息的表格時(shí)，以上合并與拆分的方法很有效，有興趣的朋友可以試一試。ExcelHome精華版整理（2003年11月14日）By 徒然客從身份證號(hào)碼中提取性別Q：A1單元格中是15位的身份證號(hào)碼，要在B1中顯示性別(這里忽略15位和18位身份證號(hào)碼的判別）B1=if(mod(right(A1,1),2)>0,"male","female")請(qǐng)問這個(gè)公式有無問題，我試過沒發(fā)現(xiàn)問題。但在某個(gè)網(wǎng)站看到作者所用的是如下公式：B1=if(mid(A1,15,1)/2=trunc(mid(A1,15,1)/2）,"female","male")A：leaf道理都是一樣的，不過你的公式比那個(gè)公式優(yōu)質(zhì)提取性別（無論是15位還是18位）=IF(LEN(A1)=15,IF(MOD(MID(A1,15,1),2)=1,"男","女"),IF(MOD(MID(A1,17,1),2)=1,"男","女"如果身份證號(hào)的輸入已是15或18位，用公式=IF(MOD(LEFT(RIGHT(A1,(LEN(A1)=18)+1)),2),"男","女"xls--->exe可以么？A：Kevin如果只是簡(jiǎn)單的轉(zhuǎn)換成EXE，當(dāng)然可以。如果你指的是脫離Excel也可以運(yùn)行，好像沒聽說過可以。當(dāng)然，通過DDE，是可以不運(yùn)行Excel但調(diào)用它的所有功能的，但前提仍然是你的計(jì)算機(jī)上已經(jīng)安裝了Excel列的跳躍求和Q:若有20列（只有一行），需沒間隔3列求和，該公式如何做？前面行跳躍求和的公式不管用。A:roof假設(shè)a1至t1為數(shù)據(jù)（共有20列），在任意單元格中輸入公式：=SUM(IF(MOD(TRANSPOSE(ROW(1:20)),3)=0,(a1:t1))按ctrl＋shift＋enter結(jié)束即可求出每隔三行之和。跳行設(shè)置：如有12行，需每隔3行求和=SUM(IF(MOD((ROW(1:12)),3)=0,(A1:A12)))能否象打支票軟件那樣輸入一串?dāng)?shù)字它自動(dòng)給拆分成單個(gè)數(shù)字？Q：如我輸入123456.52它自動(dòng)給拆成￥1 2 3 4 5 6 5 2 的形式并且隨我輸入的長(zhǎng)度改變而改變？A：Chiu我所知函數(shù)不多，我是這樣做的，如有更方便的方法，請(qǐng)指點(diǎn)例如：在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)網(wǎng)客公式中最后一個(gè)0改為""如何編這個(gè)公式Q：我想編的公式是： a/[84 - （b×4）]其中a是一個(gè)數(shù)值，小于或等于84；b是包含字符C的單元格的個(gè)數(shù)；C是一個(gè)符號(hào)。這個(gè)公式的關(guān)鍵是要統(tǒng)計(jì)出包含字符C的單元格的個(gè)數(shù)，可我不會(huì)。A：dongmu=a/(84-countif(b,"=c")*4)chwd我試了一下，不能運(yùn)行，我想是因?yàn)闆]有指定出現(xiàn)“c”的單元格的范圍。比如說“c”在D2-D30中隨機(jī)出現(xiàn)，在上述公式中要先統(tǒng)計(jì)出出現(xiàn)“c”的單元格的個(gè)數(shù)。這個(gè)公式如何做？再一次感謝！受dongmu朋友公式的啟發(fā)，我做出了需要的公式=a/(84-COUNTIF(D3:D30,"c")*4)skysea575 :其中a是一個(gè)數(shù)值，小于或等于84；b是包含字符C的單元格的個(gè)數(shù)；C是一個(gè)符號(hào)。"包含字符C"在這里的意思不清楚。你的公式中只可以計(jì)算僅含有“C”字符的單元格數(shù)?？赡苣愕南敕ㄊ怯?jì)算字符中凡是含有這個(gè)字或字母的詞。如“文章”和“文字”中都有一個(gè)“文”字，是否計(jì)算在內(nèi)？將文件保存為以某一單元格中的值為文件名的宏怎么寫A：lxxiu假設(shè)你要以Sheet1的A1單元格中的值為文件名保存，則應(yīng)用命令：ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls"EXCEL中求兩陳列的對(duì)應(yīng)元素乘積之和Q:即有簡(jiǎn)結(jié)一點(diǎn)的公式求如:a1*b1+a2*b2+b3*b3...的和.應(yīng)有一函數(shù)XXXX(A1:A3,B1:B3)或XXXX(A1:B3)A:roof在B4中輸入公式"=SUM(A1:A3*B1:B3)",按CTRL+SHIFT+ENTER結(jié)束.dongmu=SUMPRODUCT(A1:A10,B1:B10)求助日期轉(zhuǎn)換星期的問題Q:工作中須將表格中大量的日期同時(shí)轉(zhuǎn)換為中英文的星期幾請(qǐng)問如何處理英文的星期轉(zhuǎn)換，謝謝！A:Rowen1.用公式:=text(weekday(xx),"ddd")2.用VBA,weekday(),然后自定義轉(zhuǎn)換序列3.用"拼寫檢查",自定義一級(jí)轉(zhuǎn)換序列4....dongmu轉(zhuǎn)成英文： =TEXT(WEEKDAY(A1),"dddd")轉(zhuǎn)成中文： =TEXT(WEEKDAY(A1),"aaaa")研究彩票，從統(tǒng)計(jì)入手Q：我有一個(gè)VBA編程的問題向你請(qǐng)教。麻煩你幫助編一個(gè)。我一定厚謝。有一個(gè)數(shù)組列在EXCEL中如： 01 02 03 04 05 06 07和01 04 12 19 25 26 3202 08 15 16 18 24 2801 02 07 09 12 15 2209 15 17 20 22 29 32比較，如果有相同的數(shù)就在第八位記一個(gè)數(shù)。如01 04 12 19 25 26 32 202 08 15 16 18 24 28 101 02 07 09 12 15 22 209 15 17 20 22 29 32 0這個(gè)數(shù)列有幾千組，只要求比較出有幾位相同就行。我們主要研究彩票，從統(tǒng)計(jì)入手。如果你有興趣我會(huì)告訴你最好的方法。急盼。A：roof把“01 02 03 04 05 06 07 ”放在表格的第一行，“01 04 12 19 25 26 32 2”放第二行。把以下公式貼到第二行第八個(gè)單元格“A9”中，按F2,再按CTRL+SHIFT+ENTER.=COUNT(MATCH(A2:G2, $A $1: $G $1,0))如何自動(dòng)設(shè)置頁尾線條？Q：各位大蝦：菜鳥DD有一難題請(qǐng)教， 我的工作表通常都很長(zhǎng)，偏偏我這人以特愛美，所以會(huì)將表格的外框線和框內(nèi)線條設(shè)置為不同格式，但在打印時(shí)卻無法將每一頁的底部外框線自動(dòng)設(shè)為和其他三條邊線一致，每次都必須手工設(shè)置（那可是幾十頁哦?。?，而且如果換一臺(tái)打印機(jī)的話就會(huì)前功盡棄，不知哪位大俠可指教一兩招，好讓DD我終生受用，不勝感激！A：roof打印文件前試試運(yùn)行以下的代碼。打印后關(guān)閉文件時(shí)不要存盤，否則下次要把格式改回來就痛苦了。（當(dāng)然你也可以另寫代碼來恢復(fù)原來的格式）：Sub detectbreak()mycolumn = Range("A1").CurrentRegion.Columns.CountSet myrange = Range("A1").CurrentRegionFor Each mycell In myrangeSet myrow = mycell.EntireRowIf myrow.PageBreak = xlNone ThenGoTo NexElseSet arow = Range(Cells(myrow.Offset(-1).Row, 1), Cells(myrow.Offset(-1).Row,mycolumn))With arow.Borders(xlEdgeBottom)..LineStyle = xlDouble '把這一行改成自己喜歡的表線..Weight = xlThick..ColorIndex = xlAutomaticEnd WithEnd IfNex: Next mycellEnd Sub如何用excel求解聯(lián)立方程：Q：x-x(7/y)^z=68 x-x(20/y)^z=61 x-x(30/y)^z=38到底有人會(huì)嗎？不要只寫四個(gè)字，規(guī)劃求解，我想要具體的解法，A：wenou這是一個(gè)指數(shù)函數(shù)的聯(lián)列方程。步驟如下1、令X/Y=W 則有 X-(7W)^z=68 X-(20W)^Z=61 X-(30W)^Z=382、消去X(20^Z-7^Z)W^Z=7 (30^Z-20^Z)W^Z=233、消去W(30^Z-20^Z)/(20^Z-7^Z)=23/7由此求得Z=3.542899 x=68.173955 y=781.81960行高和列寬單位是什么? 如何換算到毫米?A：markxg在幫助中：“出現(xiàn)在“標(biāo)準(zhǔn)列寬”框中的數(shù)字是單元格中 0-9 號(hào)標(biāo)準(zhǔn)字體的平均數(shù)。”單位應(yīng)該不是毫米，可能和不同電腦的字體有關(guān)吧。Q：Rowen是這樣:行高/3=mm 列寬*2.97=mm魚之樂實(shí)際上最終打印結(jié)果是以點(diǎn)陣為單位的,而且excel中還隨著打印比例的變化而變化如果想用宏寫一個(gè)完全退出EXCEL的函數(shù)是什么？萬：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)網(wǎng)客公式中最后一個(gè)0改為""如何編這個(gè)公式Q：我想編的公式是： a/[84 - （b×4）]其中a是一個(gè)數(shù)值，小于或等于84；b是包含字符C的單元格的個(gè)數(shù)；C是一個(gè)符號(hào)。這個(gè)公式的關(guān)鍵是要統(tǒng)計(jì)出包含字符C的單元格的個(gè)數(shù)，可我不會(huì)。A：dongmu=a/(84-countif(b,"=c")*4)chwd我試了一下，不能運(yùn)行，我想是因?yàn)闆]有指定出現(xiàn)“c”的單元格的范圍。比如說“c”在D2-D30中隨機(jī)出現(xiàn)，在上述公式中要先統(tǒng)計(jì)出出現(xiàn)“c”的單元格的個(gè)數(shù)。這個(gè)公式如何做？再一次感謝！受dongmu朋友公式的啟發(fā)，我做出了需要的公式=a/(84-COUNTIF(D3:D30,"c")*4)skysea575 :其中a是一個(gè)數(shù)值，小于或等于84；b是包含字符C的單元格的個(gè)數(shù)；C是一個(gè)符號(hào)。"包含字符C"在這里的意思不清楚。你的公式中只可以計(jì)算僅含有“C”字符的單元格數(shù)。可能你的想法是計(jì)算字符中凡是含有這個(gè)字或字母的詞。如“文章”和“文字”中都有一個(gè)“文”字，是否計(jì)算在內(nèi)？將文件保存為以某一單元格中的值為文件名的宏怎么寫A：lxxiu假設(shè)你要以Sheet1的A1單元格中的值為文件名保存，則應(yīng)用命令：ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls"EXCEL中求兩陳列的對(duì)應(yīng)元素乘積之和Q:即有簡(jiǎn)結(jié)一點(diǎn)的公式求如:a1*b1+a2*b2+b3*b3...的和.應(yīng)有一函數(shù)XXXX(A1:A3,B1:B3)或XXXX(A1:B3)A:roof在B4中輸入公式"=SUM(A1:A3*B1:B3)",按CTRL+SHIFT+ENTER結(jié)束.dongmu=SUMPRODUCT(A1:A10,B1:B10)求助日期轉(zhuǎn)換星期的問題Q:工作中須將表格中大量的日期同時(shí)轉(zhuǎn)換為中英文的星期幾請(qǐng)問如何處理英文的星期轉(zhuǎn)換，謝謝！A:Rowen1.用公式:=text(weekday(xx),"ddd")2.用VBA,weekday(),然后自定義轉(zhuǎn)換序列3.用"拼寫檢查",自定義一級(jí)轉(zhuǎn)換序列4....dongmu轉(zhuǎn)成英文： =TEXT(WEEKDAY(A1),"dddd")轉(zhuǎn)成中文： =TEXT(WEEKDAY(A1),"aaaa")研究彩票，從統(tǒng)計(jì)入手Q：我有一個(gè)VBA編程的問題向你請(qǐng)教。麻煩你幫助編一個(gè)。我一定厚謝。有一個(gè)數(shù)組列在EXCEL中如： 01 02 03 04 05 06 07和01 04 12 19 25 26 3202 08 15 16 18 24 2801 02 07 09 12 15 2209 15 17 20 22 29 32比較，如果有相同的數(shù)就在第八位記一個(gè)數(shù)。如01 04 12 19 25 26 32 202 08 15 16 18 24 28 101 02 07 09 12 15 22 209 15 17 20 22 29 32 0這個(gè)數(shù)列有幾千組，只要求比較出有幾位相同就行。我們主要研究彩票，從統(tǒng)計(jì)入手。如果你有興趣我會(huì)告訴你最好的方法。急盼。A：roof把“01 02 03 04 05 06 07 ”放在表格的第一行，“01 04 12 19 25 26 32 2”放第二行。把以下公式貼到第二行第八個(gè)單元格“A9”中，按F2,再按CTRL+SHIFT+ENTER.=COUNT(MATCH(A2:G2, $A $1: $G $1,0))如何自動(dòng)設(shè)置頁尾線條？Q：各位大蝦：菜鳥DD有一難題請(qǐng)教， 我的工作表通常都很長(zhǎng)，偏偏我這人以特愛美，所以會(huì)將表格的外框線和框內(nèi)線條設(shè)置為不同格式，但在打印時(shí)卻無法將每一頁的底部外框線自動(dòng)設(shè)為和其他三條邊線一致，每次都必須手工設(shè)置（那可是幾十頁哦?。?，而且如果換一臺(tái)打印機(jī)的話就會(huì)前功盡棄，不知哪位大俠可指教一兩招，好讓DD我終生受用，不勝感激！A：roof打印文件前試試運(yùn)行以下的代碼。打印后關(guān)閉文件時(shí)不要存盤，否則下次要把格式改回來就痛苦了。（當(dāng)然你也可以另寫代碼來恢復(fù)原來的格式）：Sub detectbreak()mycolumn = Range("A1").CurrentRegion.Columns.CountSet myrange = Range("A1").CurrentRegionFor Each mycell In myrangeSet myrow = mycell.EntireRowIf myrow.PageBreak = xlNone ThenGoTo NexElseSet arow = Range(Cells(myrow.Offset(-1).Row, 1), Cells(myrow.Offset(-1).Row,mycolumn))With arow.Borders(xlEdgeBottom)..LineStyle = xlDouble '把這一行改成自己喜歡的表線..Weight = xlThick..ColorIndex = xlAutomaticEnd WithEnd IfNex: Next mycellEnd Sub如何用excel求解聯(lián)立方程：Q：x-x(7/y)^z=68 x-x(20/y)^z=61 x-x(30/y)^z=38到底有人會(huì)嗎？不要只寫四個(gè)字，規(guī)劃求解，我想要具體的解法，A：wenou這是一個(gè)指數(shù)函數(shù)的聯(lián)列方程。步驟如下1、令X/Y=W 則有 X-(7W)^z=68 X-(20W)^Z=61 X-(30W)^Z=382、消去X(20^Z-7^Z)W^Z=7 (30^Z-20^Z)W^Z=233、消去W(30^Z-20^Z)/(20^Z-7^Z)=23/7由此求得Z=3.542899 x=68.173955 y=781.81960行高和列寬單位是什么? 如何換算到毫米?A：markxg在幫助中：“出現(xiàn)在“標(biāo)準(zhǔn)列寬”框中的數(shù)字是單元格中 0-9 號(hào)標(biāo)準(zhǔn)字體的平均數(shù)。”單位應(yīng)該不是毫米，可能和不同電腦的字體有關(guān)吧。Q：Rowen是這樣:行高/3=mm 列寬*2.97=mm魚之樂實(shí)際上最終打印結(jié)果是以點(diǎn)陣為單位的,而且excel中還隨著打印比例的變化而變化如果想用宏寫一個(gè)完全退出EXCEL的函數(shù)是什么？Q:因?yàn)槲蚁朐陉P(guān)閉lock.frm窗口時(shí)就自動(dòng)退出EXCEL，請(qǐng)問用宏寫一個(gè)完全退出EXCEL的函數(shù)是什么？多謝！A:Application.quit請(qǐng)問如何編寫加載宏？把帶有VBA工程的工作簿保存為XLA文件即可成為加載宏。請(qǐng)問如何在點(diǎn)擊一個(gè)復(fù)選框后在后面的一個(gè)單元格內(nèi)自動(dòng)顯示當(dāng)前日期？如果是單元格用"=TODAY()"就可以了如果是文本框在默認(rèn)屬性中設(shè)置或在復(fù)選框的CLICK中設(shè)置文本框的內(nèi)容EXCEL2000中視面管理器如何具體運(yùn)用呀？請(qǐng)問高手EXCEL2000中視面管理器如何具體運(yùn)用呀？最好有例子和詳細(xì)說明。明確的功能。不然我還是不能深刻的理解他。markxg其實(shí)很簡(jiǎn)單呀，你把它想象成運(yùn)動(dòng)場(chǎng)上的一串照片（記錄不同時(shí)點(diǎn)的場(chǎng)景），一張照片記錄一個(gè)場(chǎng)景，選擇一張照片就把運(yùn)動(dòng)“拖”到照片上的時(shí)點(diǎn)。不同的是只是場(chǎng)景回復(fù)，而值和格式不回復(fù)。用VBA在自定義菜單中如何仿EXCEL的菜單做白色橫線？Q：我在做自定義菜單時(shí)，欲仿EXCEL菜單用橫線分隔各菜單項(xiàng)目，用VBA如何才能做到？A：Rowen那個(gè)東東也是一個(gè)部件,我想可以調(diào)用,不過沒試過.diyee把它的顯示內(nèi)容中設(shè)置為"-"即可。simen1.此部件叫什么名字，在控件箱里有嗎？2.用“-”我也試過，用它時(shí)單擊可以，但你要知道EXCEL自己的橫線是不可以單擊下去的kevin_168object.BeginGroup = True下面是我用到的代碼：Set mymenubar = CommandBars.ActiveMenuBarSet newmenu1 = mymenubar.Controls.Add(Type:=msoControlPopup, _Temporary:=True)newmenu1.Caption = "文件制作(&M)"newmenu1.BeginGroup = True '這就是你要的白色橫線simen你知道在窗體中也有這樣的分隔線的如何實(shí)現(xiàn)呢？kevin_168這,我可沒有試過,不過我做的時(shí)候使用一LABEL將其設(shè)為 能否在取消“運(yùn)行宏”時(shí)并不打開其它工作表！Q：我看見有些模塊（高手給的）能夠在取消“運(yùn)行宏”時(shí)并不打開其它工作表！不知是何辦法？ 但當(dāng)你啟動(dòng)宏后，工作表才被打開！這種方法是什么？A：Rowen這些工作表預(yù)先都是隱藏的,必須用宏命令打開,所以取消宏的情況下是看不到的.可以打開VBA編輯器,在工作表的屬性窗口中將其Visible 設(shè)為xlSheetVisible立體,看起來也夠美觀的,不妨一試.象版主所說的多查幫助文件,對(duì)你有幫助.如何去掉單元格中間兩個(gè)以上的空格？Q：?jiǎn)卧馎1中有“中　　心　　是”，如果用TRIM則變成“中　心　是”，我想將空格全去掉，用什么辦法，請(qǐng)指教??！A：用SUBSTITUDE（）函數(shù)，多少空格都能去掉。如A1中有：中 心 是 則在B1中使用=SUBSTITUTE(A1," ","")就可以了。注意：公式中的第一個(gè)“ ”中間要有一個(gè)空格，而第二個(gè)“”中是無空格的。打印表頭？Q：在Excel中如何實(shí)現(xiàn)一個(gè)表頭打印在多頁上？打印表尾？A：BY dongmu請(qǐng)選擇文件-頁面設(shè)置-工作表-打印標(biāo)題-頂端標(biāo)題行，然后選擇你要打印的行。打印表尾？通過Excel直接提供的功能應(yīng)該是無法實(shí)現(xiàn)的，需要用vba編制才行。提取性別（無論是15位還是18位）=IF(LEN(A1)=15,IF(MOD(MID(A1,15,1),2)=1,"男","女"),IF(MOD(MID(A1,17,1),2)=1,"男","女"))如果身份證號(hào)的輸入已是15或18位，用公式=IF(MOD(LEFT(RIGHT(A1,(LEN(A1)=18)+1)),2),"男","女")如何把這26個(gè)表格匯總求和成一個(gè)匯總表A：ACCESS數(shù)據(jù)--合并計(jì)算///來解決。魚之樂看來有很多朋友有這個(gè)方面的需求，說明這是個(gè)共性問題，于是我利用access+excel做了一個(gè)匯總查詢模板，如果您需要可來mail我發(fā)給你 0710@963.net實(shí)現(xiàn)驗(yàn)證先進(jìn)先出法,Q:我做了一個(gè)驗(yàn)證先進(jìn)先出法的表格,但想不出簡(jiǎn)潔的公式,請(qǐng)各位幫我改進(jìn)以下公式********************************************************=IF(B3range",(B3*C3+B4*C4+B5*C5+B6*C6+(C1-SUM(B3:B6))*C7)/C1),(B3*C3+B4*C4+B5*C5+(C1-SUM(B3:B5))*C6)/C1),(B3*C3+B4*C4+(C1-SUM(B3:B4))*C5)/C1),(B3*C3+(C1-B3)*C4)/C1),C4)B3至B7為輸入數(shù)量,C3至C7為輸入單價(jià),C1為輸入結(jié)余數(shù)量,E1為輸出平均單價(jià),即上面公式**********************************************************A:markxg公式太復(fù)雜，而且受限制。把A列利用起來，a3=SUM(B3: $B $7)，拖至7行（若為X行，則=SUM(B3: $B $X，下拖），A列數(shù)據(jù)為先進(jìn)先出的累計(jì)數(shù)量（待Match的結(jié)存數(shù)量），=MATCH(C1,A3:A7,-1)找到結(jié)存批次。然后計(jì)算結(jié)存平均單價(jià)及發(fā)出平均單價(jià)。能否象打支票軟件那樣輸入一串?dāng)?shù)字它自動(dòng)給拆分成單個(gè)數(shù)字？Q：如我輸入123456.52它自動(dòng)給拆成￥1 2 3 4 5 6 5 2 的形式并且隨我輸入的長(zhǎng)度改變而改變？A：Chiu我所知函數(shù)不多，我是這樣做的，如有更方便的方法，請(qǐng)指點(diǎn)例如：在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)網(wǎng)客公式中最后一個(gè)0改為""如下方法是否能夠達(dá)到所要求的：在A1輸入小寫金額，則B1為所要求的B1=WIDECHAR（A1*100） 將單字節(jié)字符轉(zhuǎn)換為雙字節(jié)字符或B1=WIDECHAR(TEXT(A1*100,"￥#"))。