貨號(hào)46vbavba微軟office.vba excel技巧收集

1、Excel精華版整理從號(hào)碼中提取Q：A1單元格中是15位的號(hào)碼，要在B1中顯示(這里忽略15位和18位號(hào)碼的判別）B1=if(mod(right(A1,1),2)0,male,female)請問這個(gè)公式有無問題，我試過沒發(fā)現(xiàn)問題。但在某個(gè)看到作者所用的是如下公式：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,男,女如果號(hào)的輸入已是15或18位，用公式=IF(MOD

2、(LEFT(RIGHT(A1,(LEN(A1)=18)+1),2),男,女xls-exe可以么？如果只是簡單的轉(zhuǎn)換成EXE，當(dāng)然可以。如果你指的是脫離Excel也可以運(yùn)行，好像沒聽說過可以。當(dāng)然，通過DDE，是可以不運(yùn)行Excel但調(diào)用它的所有功能的，但前提仍然是你的計(jì)算機(jī)上已經(jīng)安裝了Excel列的跳躍求和若有20列（只有一行），需沒間隔3列求和，該公式如何做？前面行跳躍求和的公式不管用。假設(shè)a1至t1為數(shù)據(jù)（共有20列），在任意單元格中輸入公式：=SUM(IF(MOD(TRANSE(ROW(1:20),3)=0,(a1:t1)按ctrlshiftenter結(jié)束即可求出每隔三行之和。跳行設(shè)置：

3、12行，需每隔3行求和=SUM(IF(MOD(ROW(1:12),3)=0,(A1:A12)能否象打支票軟件那樣輸入一串?dāng)?shù)字它自動(dòng)給拆分成單個(gè)數(shù)字？如我輸入123456.52它自動(dòng)給拆成￥1 2 3 4 5 6 5 2 的形式并且隨我輸入的長度改變而改變？我所知函數(shù)不多，我是這樣做的，例如：在A1輸入小寫金額，則：更方便的方法，請指點(diǎn)千萬：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)公式中最后一個(gè)0改為如何編這個(gè)公式編的公式是： a/84 - （b4）其中a是一個(gè)數(shù)值，小于或等于84；b是包含字符C的單元格的個(gè)數(shù)；C是一個(gè)符號(hào)。這個(gè)公式的關(guān)鍵是要統(tǒng)計(jì)出包含字符C的單元格的個(gè)數(shù)，可我不會(huì)。dongmu=a/(84-countif(b,=c)*4)我試了一下，不能運(yùn)行是因?yàn)闆]有指定出現(xiàn)“c”的單元格的范圍。比如說“c”在D2-D30中

6、隨機(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)？將文件保存為以某一單元格中的值為文件名的宏怎么寫假設(shè)你要以Sheet1的A1單元格中的值為文件名保存，則應(yīng)用命令：ActiveW

7、orkbook.SaveCopyAs Str(Range(Sheet1!A1) + .xlsIE中實(shí)現(xiàn)EXCEL表在IE中實(shí)現(xiàn)共享更新），EXCEL表并打開后可填寫數(shù)據(jù)，而且可以實(shí)現(xiàn)數(shù)據(jù)的保存（在局域網(wǎng)內(nèi)的數(shù)據(jù)設(shè)想是在NT中上提供電子表格服務(wù)， 各位局域網(wǎng)內(nèi)用戶在IE瀏覽器享修改數(shù)據(jù)，請問我該如何操作才能實(shí)現(xiàn)這能。我是初學(xué)者，請盡量講得詳細(xì)一點(diǎn)。 mm.xls桌面*貼到計(jì)事本- 存為Home.htm擺桌面上- 設(shè)為共享- 區(qū)域網(wǎng)路其他電腦設(shè)捷徑連結(jié)Home.htm懂這三行字的結(jié)構(gòu),即可寫出網(wǎng)頁資料庫系統(tǒng)其中每個(gè)字都是物件名稱 檔案多了改用這個(gè)元件要設(shè)幾個(gè)框隨便您EXCEL中求兩陳列的對應(yīng)元素乘

8、積之和Q:即有簡結(jié)一點(diǎn)的公式求如:a1*b1+a2*b2+b3*b3.的和.應(yīng)有一函數(shù) X(A1:B3)A:roof在B4中輸入公式=SUM(A1:A3*B1:B3),按CTRL+SHIFT+ENTER結(jié)束.dongmu=SUMPRODUCT(A1:A10,B1:B10)X(A1:A3,B1:B3)或求助日期轉(zhuǎn)換的問題Q:工作中須將表格中大量的日期同時(shí)轉(zhuǎn)換為中英文的幾請問如何處理英文的A:Rowen1.用公式:=text(轉(zhuǎn)換，！kday(xx),ddd)2.用VBA,kday(),然后自定義轉(zhuǎn)換序列3.用拼寫檢查,自定義一級(jí)轉(zhuǎn)換序列4.dongmu轉(zhuǎn)成英文： =TEXT(轉(zhuǎn)成中文： =TEX

9、T(KDAY(A1),dddd)KDAY(A1),aaaa)，從統(tǒng)計(jì)入手Q：我有一個(gè)VBA編程的問題向你請教。麻煩你幫助編一個(gè)。我一定厚謝。有一個(gè)數(shù)組列在EXCEL中如： 01 02 03 04 05 06 07和01 04 12 19 25 26 3202010908021515 1607 0917 2018 2412 1522 29282232比較，如果有相同的數(shù)就在第八位記一個(gè)數(shù)。如01 04 120801 02 07 09 1220 22 29 32 0這個(gè)數(shù)列有幾千組，只要求比較出有幾位相同就行。主要，從統(tǒng)計(jì)入手。如果你有我會(huì)告訴你最好的方法。急盼。A：roof把“01 02 03

10、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有一難題請教，工作表通常都很長，偏偏我這人以特愛美，所以會(huì)將表格的外框線和框內(nèi)線條設(shè)置為不同格式，但在打印時(shí)卻無法將每一頁的底部外框線自動(dòng)設(shè)為和其他三條邊線一致，每次都必須手工設(shè)置（那幾十頁哦！），而且如果換一臺(tái)打印機(jī)的話就會(huì)前功盡棄，不知哪位大俠可指教一兩招，好讓DD我終生受用，不勝感激！A：roo

11、f打印文件前試試運(yùn)行以下的代碼。打印后關(guān)閉文件時(shí)不要存盤，否則下次要把格式改回來就痛苦了。（當(dāng)然你也可以另寫代碼來恢復(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 沒有說明 是個(gè)暗槓函數(shù)如何用excel求解聯(lián)立方程：Q：x-x(7/y)z=68x-x(20/y)z=61x-x(30/y)z=38要具體的解法，到底有人會(huì)嗎？不要只寫A：wenou，規(guī)劃求解，這是一個(gè)指數(shù)函數(shù)的聯(lián)列方程。步驟如下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在幫助中：是什么? 如何換算到毫米?“出現(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中還隨著打印比例的變化而變化如果想 Q:因?yàn)槎嘀x！寫一個(gè)完全退出EXCEL的函數(shù)是什么？在關(guān)閉lock.frm窗口時(shí)就自動(dòng)退出EXCEL，請問寫一個(gè)完全退出EXCEL的函數(shù)是什么？A:Application.quit請問如何編寫加載宏？把帶有VBA工程的工作簿保

15、存為XLA文件即可成為加載宏。請問如何在點(diǎn)擊一個(gè)復(fù)選框后在后面的一個(gè)單元格內(nèi)自動(dòng)顯示當(dāng)前日期？如果是單元格用=TODAY()就可以了如果是文本框在默認(rèn)屬性中設(shè)置或在復(fù)選框的CLICK中設(shè)置文本框的內(nèi)容EXCEL2000中視面管理器如何具體運(yùn)用呀？請問高手EXCEL2000中視面管理器如何具體運(yùn)用呀？最好有例子和詳細(xì)說明。明確的功能。不然我還是不能深刻的理解他。markxg其實(shí)很簡單呀，你把它想象成運(yùn)動(dòng)場上的一串（不同時(shí)點(diǎn)的場景），一張一個(gè)場景，選擇一張就把運(yùn)動(dòng)“拖”到上的時(shí)點(diǎn)。不同的是只是場景回復(fù)，而值和格式不回復(fù)。用VBA在自定義菜單中如何仿EXCEL的菜單做白色橫線？Q：我在做自定義菜單時(shí)

16、，欲仿EXCEL菜單用橫線分隔各菜單項(xiàng)目，用VBA如何才能做到？ A：Rowen那個(gè)東東也是一個(gè)部件,diyee可以調(diào)用,不過沒試過.把它的顯示內(nèi)容中設(shè)置為-即可。simen此部件叫什么名字，在控件箱里有嗎？用“-”我也試過，用它時(shí)單擊可以，但你要知道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你知道在窗體中也有這樣的分隔線的如何實(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,看起來也夠美觀的,不妨一試.象版主所說

18、的多查幫助文件,對你有幫助.如何去掉單元格中間兩個(gè)以上的空格？Q：單元格A1中有“中法，請指教！心是”，如果用TRIM則變成“中 心 是”，將空格全去掉，用什么辦A：用SUBSTITUDE（）函數(shù)，多少空格都能去掉。如A1中有：中 心 是 則在B1中使用=SUBSTITUTE(A1, ,)就可以了。注意：公式中的第一個(gè)“ ”中間要有一個(gè)空格，而第二個(gè)“”中是無空格的。打印表頭？Q：在Excel中如何實(shí)現(xiàn)一個(gè)表頭打印在多頁上？打印表尾？A：BY dongmu請選擇文件頁面設(shè)置工作表打印標(biāo)題頂端標(biāo)題行，然后選擇你要打印的行。打印表尾？通過Excel直接提供的功能應(yīng)該是無法實(shí)現(xiàn)的，需要用vba編制才行。如何將工段Sheet1 B2：B10的