|
本帖最后由 zjcat35 于 2012-8-15 09:33 编辑
第一题- Sub 第一题()
- Dim i%
- For i = 6 To Cells(Rows.Count, 2).End(3).Row
- If Application.Sum(Range("b" & i - 4 & ":b" & i)) > 14 Then
- Cells(i - 4, 1).Resize(5, 2).Interior.ColorIndex = 6
- i = i + 5
- End If
- Next i
- End Sub
复制代码 第二题- Function WLOOKUP(rg As Range, rng As Range, i%, Optional j%)
- Dim arr, k%, brr, m%
- brr = rng
- If rng.Column + i < 1 Or i > rng.Columns.Count Then WLOOKUP = "不存在": Exit Function
- If i <= 0 Then
- arr = rng.Offset(, i).Resize(, 1)
- Else
- arr = rng.Offset(, i - 1).Resize(, 1)
- End If
- If j = -1 Then
- For k = UBound(brr) To 1 Step -1
- If rg.Value = brr(k, 1) Then
- If IsDate(arr(k, 1)) Then
- WLOOKUP = Format(arr(k, 1), "yyyy-m-d")
- Else
- WLOOKUP = arr(k, 1)
- End If
- Exit Function
- End If
- Next k
- WLOOKUP = "不存在"
- ElseIf j > -1 Then
- For k = 1 To UBound(brr)
- If rg.Value = brr(k, 1) Then
- m = m + 1
- If m >= j Then
- If IsDate(arr(k, 1)) Then
- WLOOKUP = Format(arr(k, 1), "yyyy-m-d")
- Else
- WLOOKUP = arr(k, 1)
- End If
- Exit Function
- End If
- End If
- Next k
- WLOOKUP = "不存在"
- Else
- WLOOKUP = "不存在"
- End If
- End Function
复制代码 第三题- Sub 第三题()
- Dim arr, str$
- arr = Array(13, 2, 3, 4, 6, 7, 8, 9, 22, 32)
- str = Join(arr, ",")
- str = Application.Substitute(str, ",", ",100,", 5)
- arr = Split(str, ",")
- End Sub
复制代码 |
|