Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim iRow, iCol As Integer
Dim j As Integer
Dim jili(50) As String '定义“激励提醒”数组
jili(1) = "我们满怀热情和信心，为达成自己的希望而努力"
jili(2) = "对自己的服务灌注深切的爱心，不忘服务至上，相信就有回报"
jili(3) = "今天我要掌控我的情绪，而且一定有冲劲和快乐的完成工作"
jili(4) = "哇，今天完成的不错，先恭喜一下吧！"
jili(5) = "哪怕前面的路很崎岖，哪怕客户都是魔鬼之躯，我也要让他带有上帝的微笑"
jili(6) = "忍受煎熬，艰苦的岁月就难长久，坚韧之人必能出头"
jili(7) = "少给自己泄气，多给自己鼓励，加油！"
jili(8) = "我很健康，我很快乐，我充满活力！"
jili(9) = "喝口水吧！再接再厉！"
jili(10) = "进步是一次次尝试得来的，只要多尝试一定会进步！"
jili(11) = "只要能收获甜蜜，荆棘丛中也会有蜜蜂忙碌的身影"
jili(12) = "成功者绝不放弃，放弃者绝对不会成功"
jili(13) = "用心观察成功者，别老关注失败者"
jili(14) = "客户不是买产品，他更买你服务的态度"
jili(15) = "向你的美好的希冀和追求撒开网吧，九百九十九次落空了，还有一千次呢......"
jili(16) = "再冷的石头，坐上三年也会暖，再难搞定的客户，我也让他变成乖乖的绵羊"
jili(17) = "成功的最高法则是—行动！行动！行动！！"
jili(18) = "没有口水与汗水，就没有成功的泪水"
jili(19) = "以诚感人者，人亦诚而应"
Dim mubiao(10) As Integer '定义“目标”数组
mubiao(1) = 5
mubiao(2) = 10
mubiao(3) = 15
mubiao(4) = 20
mubiao(5) = 25
mubiao(6) = 30
iRow = ActiveCell.Row
iCol = ActiveCell.Column
If Target.Column = 7 Then
Target.Offset(0, -2) = Now
If ActiveCell.Value = "成功" Then
CGGS = 0
For i = 2 To 10000
If Sheets("外呼数据").Cells(i, 5).Value - Date > 0 And Sheets("外呼数据").Cells(i, 7).Value = "成功" Then
CGGS = CGGS + 1
End If
Next i
j = Int((19 * Rnd) + 1) ' 生成 1 到 19 之间的随机数值。
k = Int(CGGS / 20) + 1
MsgBox ("恭喜你，你今天成功 " & CGGS & " 个了，还差 " & (mubiao(4) - CGGS) & " 个就完成第【" _
& k & "】目标了！" & Chr(13) & Chr(13) & "请在“成功清单”里填写完整的客户需求和信息！记得保存！" & Chr(13) & Chr(13) & "↖(^ω^)↗" & jili(j) & "↖(^ω^)↗")
End If
If ActiveCell.Value = "未接通" Then
WJTZT = ""
WJTZT = InputBox("请选择未接通状态： " & Chr(13) & "1、无人接听" & Chr(13) & "2、关机" & Chr(13) _
& "3、停机" & Chr(13) & "4、无法接通")
Do Until InStr("1|2|3|4", WJTZT) > 0 And WJTZT <> ""
MsgBox ("请选择正确的未接通状态！")
WJTZT = InputBox("请选择未接通状态： " & Chr(13) & "1、无人接听" & Chr(13) & "2、关机" _
& Chr(13) & "3、停机" & Chr(13) & "4、无法接通")
Loop
Select Case WJTZT
Case Is = 1
cj = "无人接听"
Case Is = 2
cj = "关机"
Case Is = 3
cj = "停机"
Case Is = 4
cj = "无法接通"
End Select
Target.Offset(0, 1) = "【" & cj & "】"
End If
If ActiveCell.Value = "被拒绝" Then
JJLY = ""
JJLY = InputBox("请选择被拒绝理由：" & Chr(13) & "1、非负责人" & Chr(13) & "2、无需求" & Chr(13) _
& "3、已有同类产品" & Chr(13) & "4、直接挂机" & Chr(13) & "5、不适合非目标客户")
Do Until InStr("1|2|3|4|5", JJLY) > 0 And JJLY <> ""
MsgBox ("请选择正确的被拒绝理由！")
JJLY = InputBox("请选择被拒绝理由：" & Chr(13) & "1、非负责人" & Chr(13) & "2、无需求" & Chr(13) _
& "3、已有同类产品" & Chr(13) & "4、直接挂机" & Chr(13) & "5、不适合非目标客户")
Loop
Select Case JJLY
Case Is = 1
cj = "非负责人"
Case Is = 2
cj = "无需求"
Case Is = 3
cj = "已有同类产品"
Case Is = 4
cj = "直接挂机"
Case Is = 5
cj = "不适合非目标客户"
End Select
Target.Offset(0, 1) = "★" & cj & "★"
End If
If ActiveCell.Value = "稍后联系" Then
SHLX = InputBox("请输入再次联系的时间：如 2011-6-1 12:00:00 ")
Target.Offset(0, 1) = SHLX
End If
End If
End Sub
