excel 100内加减法自动出题及评分

Sub Macro5() ' ' Macro5 Macro ' qunxingw  2016/5/21  全部录制。 '     Sheets("Sheet3").Select     Range("E1").Select     Application.CutCopyMode = False     Selection.AutoFill Destinati...
2016-05-30 21:39 | 12735次阅读 | 0评

vba 日历

Sub abc() Dim dm As Variant Dim m, w, d, r As Integer y = InputBox("putyear") m = InputBox("putmonth") d = DateSerial(y, m, 1) w = Weekday(d) r = 3 Range("3:10").ClearContents Cells(1, 1) = y & "-year," & m & "-month" dm = Array(31,...
2016-02-24 20:03 | 11080次阅读 | 0评

多表汇总目录指引

Set rng = Sheets("洗沫汇总表").Range("a1:e50") rng.Select Selection.Clear Sheets("洗沫汇总表").Cells(1, 1) = "部门" Sheets("洗沫汇总表").Cells(1, 2) = "金质" Sheets("洗沫汇总表").Cells(1, 3) = "金重" Sheets("洗沫汇总表").Cells(1, 4) = "报表编号" Sheets("洗沫汇总表").Cel...
2015-12-23 20:33 | 859次阅读 | 0评

vba处理excel的确高效

Private Sub formjpsto過度表復制() ' ' Macro2 Macro 111,22222,3333 ' qunxingw 在 2015/11/21 錄製的巨集 ' ' Application.Run "'複製 -實驗.xls'!copyjpstemp" Application.Run "'複製 -實驗.xls'!deletemprow" Application.Run "...
2015-11-24 22:49 | 1051次阅读 | 0评
浏览152295次