利用veb編輯器和公式快速批量建excel表格內(nèi)容剖析

1、利用veb編寫器和公式快速批量建excel表格及內(nèi)容分析利用veb編寫器和公式快速批量建excel表格及內(nèi)容分析3/3利用veb編寫器和公式快速批量建excel表格及內(nèi)容分析利用veb編寫器和公式快速批量建excel表格及內(nèi)容現(xiàn)代化辦公，excel已經(jīng)是不可以缺少的辦公軟件。在平常工作中，為了方便管理經(jīng)常要建立每一個(gè)人的電子信息檔案，像工會(huì)需要建立每一個(gè)人的基本情況信息，勞資科需要建立每一個(gè)人的身體健康情況信息，培訓(xùn)中心要建立每一個(gè)人的培訓(xùn)檔案信息，計(jì)生辦需要單建立每一個(gè)人的計(jì)劃生育信息等等。在這么多信息表中，針對(duì)一個(gè)人的基本信息情況都是相同的，比方說(shuō)姓名，性別，身份證號(hào)等等，但是因?yàn)樗鶎俨块T

2、不相同，表格形式不相同樣因素，每一次都要重新建立。全礦4000多人，分配給每個(gè)單位來(lái)達(dá)成，有的單位人數(shù)就高出400人，若是一個(gè)個(gè)的建立表格，一個(gè)個(gè)的輸入也許粘帖內(nèi)容，工作量可想而知，相當(dāng)麻煩。在工作實(shí)踐的多次探究和應(yīng)用中發(fā)現(xiàn)，可以利用veb編寫器和公式快速批量建立excel表格及內(nèi)容，無(wú)論你是幾十個(gè)人還是幾百個(gè)人，甚至是上千個(gè)人，均可以在十分鐘內(nèi)把所需要人員的信息表及基本內(nèi)容建立并填寫達(dá)成，并建立超級(jí)鏈接目錄，方便查找。詳盡操作步驟以下：第一,我們要利用已有的人員信息總表做簡(jiǎn)單的辦理，把重名的人名做一下區(qū)分，比方說(shuō)有兩個(gè)叫張三的，我們可以標(biāo)記為張三1，張三2。如圖例：其次，按姓名序次批復(fù)制個(gè)人

3、信息表并以此人姓名命名工作表。這時(shí)我們就要利用veb編寫器了。先建立空表格sheet1如圖例：爾后按ALT+F11打開編寫器，單擊視圖代碼窗口：在窗口中輸入以下代碼：SubMacro1(Dimi&Application.ScreenUpdating=FalseFori=1TonSheets(Sheet1.CopyAfter:=Sheets(Sheets.CountActiveSheet.Name=Sheet2.Cells(i+2,2.ValueNextiApplication.ScreenUpdating=FalseEndSub其中Fori=1Ton中的“n”代替成你所要建立的工作表數(shù)，如圖例

4、：并單擊上面的三角符號(hào)運(yùn)行。運(yùn)行后結(jié)果如圖例：所有工作表建立達(dá)成。再次，建立批量超鏈接。把鼠標(biāo)點(diǎn)擊總表的第一個(gè)人名的單元格上，依舊是使用插入模塊，輸入代碼：veb編寫器，鼠標(biāo)單擊OptionExplicitSubAutoGenerateHyperlinks(DimnIndexAsIntegerDimoRangeAsRangeFornIndex=3ToSheets.CountSetoRange=Cells(Selection.Row+nIndex-3,Selection.ColumnoRange.Hyperlinks.AddAnchor:=oRange,Address:=,SubAddress:=Sheets(nIndex.Name&!A1,TextToDisplay:=Sheets(nIndex.NameNextEndSub注意，數(shù)字3指的是鼠標(biāo)所在的第三行，若是不是第三行，數(shù)字也要跟著相應(yīng)的變化。單擊三角符號(hào)運(yùn)行，結(jié)果以下列圖：這樣就達(dá)成了依照姓名序次的批量超鏈接。最后：輸入個(gè)人信息表的基本內(nèi)容。選中所有要填的工作表，在姓名欄中輸入公式=MID(CELL(filename,B2,FIND(,CELL(filename+1,255其作用是提取工作表的名稱，也就是每一個(gè)人的姓名。其他內(nèi)容，可以使用公式V