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

1、利用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(mén)不同，表格形式不同等因素，每一次都要重新建立。全礦4000多人，分配給每個(gè)單位來(lái)完成，有的單位人數(shù)就超過(guò)400人，如果一個(gè)個(gè)的建立表格，一個(gè)個(gè)的輸入或者粘帖內(nèi)容，工作量可想而知，相當(dāng)麻煩

2、。在工作實(shí)踐的多次摸索和應(yīng)用中發(fā)現(xiàn)，可以利用veb編輯器和公式快速批量建立excel表格及內(nèi)容，不管你是幾十個(gè)人還是幾百個(gè)人，甚至是上千個(gè)人，均可以在十分鐘內(nèi)把所需要人員的信息表及基本內(nèi)容建立并填寫(xiě)完畢，并建立超級(jí)鏈接目錄，方便查找。具體操作步驟如下：首先,我們要利用已有的人員信息總表做簡(jiǎn)單的處理，把重名的人名做一下區(qū)分，比如說(shuō)有兩個(gè)叫張三的，我們可以標(biāo)記為張三1，張三2。如圖例：其次，按姓名順序批復(fù)制個(gè)人信息表并以此人姓名命名工作表。這時(shí)我們就要利用veb編輯器了。先建立空表格sheet1如圖例：然后按ALT+F11打開(kāi)編輯器，單擊視圖代碼窗口：在窗口中輸入如下代碼：Sub Macro1(D

3、im i&Application.ScreenUpdating = FalseFor i = 1 To nSheets(Sheet1.Copy After:=Sheets(Sheets.CountActiveSheet.Name = Sheet2.Cells(i + 2, 2.ValueNext iApplication.ScreenUpdating = FalseEnd Sub其中 For i = 1 To n中的“n”替換成你所要建立的工作表數(shù)，如圖例：并單擊上面的三角符號(hào)運(yùn)行。運(yùn)行后結(jié)果如圖例：所有工作表建立完成。再次，建立批量超鏈接。把鼠標(biāo)點(diǎn)擊總表的第一個(gè)人名的單元格上，仍然是使用ve

4、b編輯器，鼠標(biāo)單擊插入模塊，輸入代碼：Option ExplicitSub AutoGenerateHyperlinks(Dim nIndex As IntegerDim oRange As RangeFor nIndex = 3 To Sheets.CountSet oRange = Cells(Selection.Row + nIndex - 3, Selection.ColumnoRange.Hyperlinks.Add Anchor:=oRange, Address:=, SubAddress:=Sheets(nIndex.Name & !A1, TextToDisplay:=Sheets(nIndex.NameNextEnd Sub注意，數(shù)字3指的是鼠標(biāo)所在的第三行，如果不是第三行，數(shù)字也要跟著相應(yīng)的變化。單擊三角符號(hào)運(yùn)行，結(jié)果如圖所示：這樣就完成了按照姓名順序的批量超鏈接。最后：輸入個(gè)人信息表的基本內(nèi)容。選中所有要填的工作表，在姓名欄中輸入公式=MID(CELL(filename,B2,FIND(,CELL(filename+1,255其作用是提取工作表的名稱(chēng)，也就是每個(gè)人的姓名。其他內(nèi)容，可以使用公式VLOO