Excel制作小结.doc

1）根据颜色求和：Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icellEnd Function2）去除下拉列表框的小箭头Sub HideAutoFilterDropdowns() Dim Rng As Range Set Rng = ActiveSheet.Range(A3:D3) With Rng .AutoFilter Field:=1, VisibleDropDown:=False .AutoFilter Field:=2, VisibleDropDown:=True .AutoFilter Field:=3, VisibleDropDown:=False .AutoFilter Field:=4, VisibleDropDown:=False End WithEnd Sub3）两张表相同内容合并For I = 1 To 44 For J = 1 To 50 If Sheet2.Cells(I + 1, 1) = Sheet1.Cells(J + 2, 3) Then Sheet2.Cells(I + 1, 11) = Sheet1.Cells(J + 2, 12) Sheet2.Cells(I + 1, 12) = Sheet1.Cells(J + 2, 13) Sheet2.Cells(I + 1, 13) = Sheet1.Cells(J + 2, 14) End If Next JNext I4）SUM函数 SUMIF函数 Sumif（求和对象，条件，求和的范围） SUMIF(A1:A10,四川,E1:E10)， SUM(A2:A75=山东)*(B2:B75=青岛)*(E2:E75) 最后公式写完后，要同时按下Ctrl+Shift+Enter快捷键，出现大括号5）Excel查找函数三剑客之Vlookup函数的用法 Vlookup（查找对象，查找区域，列数，查找类别） 需要注意的是：Vlookup函数需要输入四个参数，第二个参数表示在哪个区域查找，注意查找的对象必须在该区域的第一列； 第三个参数表示函数最终得出的结果在查找区域中的列数是多少； 第四个参数表示精确查找还是模糊查找，0或者False表示精确查找，1或者true表示模糊查找 6）Vlookup（查找对象，查找区域，列数，查找类别） 第二个参数表示在哪个区域查找，注意查找的对象必须在该区域的第一列； 第三个参数表示函数最终得出的结果在查找区域中的列数是多少； 第四个参数表示精确查找还是模糊查找，0或者False表示精确查找，1或者true表示模糊查找 Vlookup（(A2,Sheet1!B:D,3,0)），然后下拉就可以全部自动套用该公式了7）冻结窗口 ActiveWindow.SplitRow = 2 ActiveWindow.SplitColumn = 1 ActiveWindow.FreezePanes = True8）在A1数字前面全部加上233 方法1：用函数“233”&A1 方法2：单元格自定义23363712010这个格式，双击即可9）如何将WORD文档转换成EXCEL文档？ 比如下面这组楼据，我希望进入到EXCEL里后，是分别对应到A、B、C三列里去，而不是全部Copy到A列？ 1 姓名 班级 2 小明 1班 3 小陈 2班 4 小夏 3班 5 小美 1班 6 小东 2班 STEP1：复制内容到A列 STEP2：到复制过来的内容里面复制一个空格 STEP3：数据/分列/分隔符号/下一步/勾选“空格”/完成10）如何得到空格前面/后面的内容 =LEFT(A1,FIND( ,A1)-1) =RIGHT(A1,LEN(A1)-FIND( ,A1)11）破解Excel工作表Option Private ModuleSUB（）。Dimw1AsWorksheet,w2AsWorksheet DimiAsInteger,jAsInteger,kAsInteger,lAsInteger DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger DimPWord1AsString DimShTagAsBoolean,WinTagAsBoolean Application.ScreenUpdating=False WithActiveWorkbook WinTag=.ProtectStructureOr.ProtectWindows EndWith ShTag=False ForEachw1InWorksheets ShTag=ShTagOrw1.ProtectContents Nextw1 IfNotShTagAndNotWinTagThen MsgBoxMSGNOPWORDS1,vbInformation,HEADER ExitSub EndIf MsgBoxMSGTAKETIME,vbInformation,HEADER IfNotWinTagThen MsgBoxMSGNOPWORDS2,vbInformation,HEADER Else OnErrorResumeNext Dodummydoloop Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 WithActiveWorkbook .UnprotectChr(i)&Chr(j)&Chr(k)&_ Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_ Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) If.ProtectStructure=FalseAnd_ .ProtectWindows=FalseThen PWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_ Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) MsgBoxApplication.Substitute(MSGPWORDFOUND1,_ $,PWord1),vbInformation,HEADER ExitDoBypassallfor.nexts EndIf EndWith Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next LoopUntilTrue OnErrorGoTo0 EndIf IfWinTagAndNotShTagThen MsgBoxMSGONLYONE,vbInformation,HEADER ExitSub EndIf OnErrorResumeNext ForEachw1InWorksheets AttemptclearancewithPWord1 w1.UnprotectPWord1 Nextw1 OnErrorGoTo0 ShTag=False ForEachw1InWorksheets ChecksforallclearShTagtriggeredto1ifnot. ShTag=ShTagOrw1.ProtectContents Nextw1 IfShTagThen ForEachw1InWorksheets Withw1 If.ProtectContentsThen OnErrorResumeNext DoDummydoloop Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 .UnprotectChr(i)&Chr(j)&Chr(k)&_ Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) IfNot.ProtectContentsThen PWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_ Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) MsgBoxApplication.Substitute(MSGPWORDFOUND2,_ $,PWord1),vbInformation,HEADER leveragefindingPwordbytryingonothersheets ForEachw2InWorksheets w2.UnprotectPWord1 Nextw2 ExitDoBypassallfor.nexts EndIf Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next LoopUntilTrue OnErrorGoTo0 EndIf EndWith Nextw1 EndIf MsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREnd Sub12) Excel查找一列相同数据 0