- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 257
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-27
              
|
2#
發表於 2010-5-24 15:47
| 只看該作者
其實用公式就能解決
要用vba的話- Private Sub Workbook_Open()
- Dim Ay(3, 2)
- Ay(0, 0) = 0: Ay(0, 1) = "忠誠客": Ay(1, 0) = 9.1: Ay(1, 1) = "久未回客": Ay(2, 0) = 12.1: Ay(2, 1) = "流失客"
- With Sheet1
- Set rng = .Range(.[E2], .[E65536].End(xlUp))
- For Each a In rng
- If IsDate(a) Then
- m = Round((Date - a) / 30, 2)
- k = Application.VLookup(m, Ay, 2)
- a.Offset(, 11).Resize(, 3) = Array(m, k, a.Offset(, -3) & "-" & k)
- End If
- Next
- End With
- End Sub
|
|
發表於 2010-5-25 14:03
| 
