资料表格代码.docxVIP

资料表格代码 　　篇一：EXCEL自动匹配表格数据的代码 　　Function mymatch(SourceSheet As String, KeyRange As String, DataFromSheet As String, SeekRange As String, ColFromto As String)  　　本函数用来匹配两个工作表，即从另一个表中找出与本表中匹配的数据填入本表中 参数说明：  　　SourceSheet 原表名，即需要处理的表格名  　　KeyRange 原表中的关键数据范围,一般在另一个表的SeekRange可以查找到本 范围内的这些数据  　　DataFromSheet 需要返回数据的表，返回的数据与在SeekRange中找到的KeyRange 范围数据在同一行  　　SeekRange查找的范围，这个范围应在DataFromSheet中  　　ColFromTo数据源中的列标与需要写入的列标组合字符串，  　　格式如BU,UV,OQ,表示DataFromSheet中B列数据写入SourceSheet中U列，表示DataFromSheet中U列数据写入SourceSheet中V列，  　　表示DataFromSheet中O列数据写入SourceSheet中Q列.  　　调用示例 ：  　　MsgBox mymatch(Sheet2, $T$4:$T$415, Sheet1, $A$4:$C$3098, BU,UV,OQ) For Each sCell In Sheets(SourceSheet).Range(KeyRange)  　　CurrentValue =  　　Set tCell = Sheets(DataFromSheet).Range(SeekRange).Find(CurrentValue, , , xlWhole)  　　If Not tCell Is Nothing Then  　　 from where to where  　　Fromto = ColFromto  　　While Len(Fromto) 0  　　ColPos = InStr(Fromto, ,)  　　If ColPos 0 Then  　　CurFromTo = Left(Fromto, ColPos - 1)  　　Fromto = Mid(Fromto, ColPos + 1)  　　Else  　　CurFromTo = Fromto  　　Fromto =  　　End If  　　For i = 1 To Len(CurFromTo)  　　If Not (Mid(CurFromTo, i, 1) = A And Mid(CurFromTo, i, 1) = a And Mid(CurFromTo, i, 1) 　　Pos_Op = i  　　Exit For  　　End If  　　Next i  　　If Mid(CurFromTo, Pos_Op, 1) = 　　FromCol = Mid(CurFromTo, Pos_Op + 1)  　　ToCol = Left(CurFromTo, Pos_Op - 1)  　　Else  　　FromCol = Left(CurFromTo, Pos_Op - 1)  　　ToCol = Mid(CurFromTo, Pos_Op + 1)  　　End If  　　Fill Columns with Found Data  　　Sheets(SourceSheet).Cells(, ToCol).Value Sheets(DataFromSheet).Cells(, FromCol).Value  　　Wend  　　End If  　　Next sCell  　　mymatch = OK  　　End Function = 　　篇二：HTML5表格制作源代码 　　HTML5表格制作源代码  　　（姬岚洋）  　　代码：  　　  　　  　　  　　th  　　{  　　font-size:18px;  　　text-align:center;  　　padding-top:3px;  　　background-color:#BDB76B;  　　colot:#;  　　}  　　caption  　　{  　　font-size:18px;  　　color:Black;  　　}  　　td{  　　fomt-size:15px;  　　border:1px solid #0