05 2016 档案

vba应用
摘要：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... 阅读全文

posted @ 2016-05-18 22:28 shortail 阅读(226) 评论(0) 推荐(0)

pichuli
摘要：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... 阅读全文

posted @ 2016-05-18 20:15 shortail 阅读(179) 评论(0) 推荐(0)

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

posted @ 2016-05-18 15:26 shortail 阅读(2882) 评论(0) 推荐(0)

从多个sheet里提取指定数据到某一sheet
摘要：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... 阅读全文

posted @ 2016-05-18 15:17 shortail 阅读(2308) 评论(0) 推荐(0)

exel 单元格数值变化，及时改变另一列显示背景颜色
摘要：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 ... 阅读全文

posted @ 2016-05-09 10:40 shortail 阅读(368) 评论(0) 推荐(0)