shortail

摘要： request.setAttribute用法enctype="multipart/form-data" request.setAttribute("message", "上传文件的总的大小超出限制的最大值！！！");request.getRequestDispatcher("/message.jsp 阅读全文

摘要： Sub aa() Dim i As Integer i = 2 Dim j As Integer For j = 1 To 18 i = 2 Worksheets.Add after:=Worksheets("sheet1") ActiveSheet.Name = CStr(j) ... 阅读全文

摘要： Sub a() Worksheets("教师").Range("ap4:ap300").Value = 0 Worksheets("教师").Range("as4:as300").Value = 0 Worksheets("二线").Range("an3:an300").Value = 0 Worksheets("二线").Range("aq3:aq300").Value = 0 Dim i A... 阅读全文

摘要： Sub a() Worksheets("教师").Range("ap4:ap300").Value = 0 Worksheets("教师").Range("as4:as300").Value = 0 Worksheets("二线").Range("an3:an300").Value = 0 Worksheets("二线").Range("aq3:aq300").Value = 0 Dim i A... 阅读全文

摘要： VLOOKUP函数不是VBA函数，应写成Application.WorksheetFunction.VLookup()或者Application.VLookup() Application.是引用工作表函数的方法，非VBA函数的工作表函数必须用这种方法，不能直接被VBA引用。 下面是使用案例： Su 阅读全文

摘要： Sub lqxs() Dim Arr, i&, Sht As Worksheet, n& n = 1 For Each Sht In Sheets If Sht.Name "汇总" Then Arr = Sht.[b2:e2] n = n + 1 Cells(n, 1) = Sht.Name Cells(n, 2).Res... 阅读全文

摘要： Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim j As Integer Dim r As Integer r = 1000 For i = 1 To r If Cells(i, 6) = "" Or Cells(i, 6) = 0 Then ... 阅读全文

摘要： Sub aa() Dim arr As Variant Dim i As Integer Dim j As Integer Dim rng As Range Dim temp As Variant arr = Range("a1", [a65536].End(3)).Value j = 1 For i = 1 To UBo... 阅读全文

摘要： 最近做视频，各个目录里都有图片，无法统一导入到视频编辑软件 写了个小程序，可以将指定各级目录下的文件拷贝到指定目录，并以文件夹名字加数字命名 如果文件夹上都有日期，可以选择将日期放前面，做视频时好排序.import java.awt.BorderLayout;import java.awt.Co... 阅读全文

摘要： import java.io.File;import java.io.FileInputStream;import java.io.FileOutputStream;import java.io.IOException;import java.util.HashMap;import java.uti... 阅读全文