濡精濮抽懡锟�.InCellDropdown = True .InputTitle = \ .ErrorTitle = \ .InputMessage = \ .ErrorMessage = \
.IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With '项目列表
With Range(\ .Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=\活期,整存整取,整存零取,零存整取,存本取息,定活两便\
.IgnoreBlank = True .InCellDropdown = True .InputTitle = \ .ErrorTitle = \ .InputMessage = \ .ErrorMessage = \
.IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With
'-----------------------
'年利率
If Sheet1.Cells(Z, 3) = \活期\ lv = lv_huo(Z)
Sheet1.Cells(Z, 6) = lv End If
If Sheet1.Cells(Z, 3) = \整存整取\ If Sheet1.Cells(Z, 5) < 6 Then lv = lv_ding1_3(Z) '3个月 End If
If Sheet1.Cells(Z, 5) >= 6 And Sheet1.Cells(Z, 5) < 12 Then lv = lv_ding1_6(Z) '半年 End If
If Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 24 Then lv = lv_ding1_12(Z) '1年 End If
If Sheet1.Cells(Z, 5) >= 24 And Sheet1.Cells(Z, 5) < 36 Then
lv = lv_ding1_24(Z) '2年 End If
If Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Then lv = lv_ding1_36(Z) '3年 End If
If Sheet1.Cells(Z, 5) >= 60 Then lv = lv_ding1_60(Z) '5年 End If
Sheet1.Cells(Z, 6) = lv End If
If Sheet1.Cells(Z, 3) = \零存整取\Sheet1.Cells(Z, 3) = \整存零取\存本取息\ If Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 36 Then lv = lv_ding2_12(Z) '1年 End If
If Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Then lv = lv_ding2_36(Z) '3年 End If
If Sheet1.Cells(Z, 5) >= 60 Then lv = lv_ding2_60(Z) '5年 End If
Sheet1.Cells(Z, 6) = lv End If
If Sheet1.Cells(Z, 3) = \定活两便\
If Sheet1.Cells(Z, 4) = \ dh = MsgBox(\未区分各家银行计算方法，结果不一定准确，按利率60%计算？\提示\
If dh = vbYes Then
If Sheet1.Cells(Z, 5) < 6 Then lv = lv_ding1_3(Z) '3个月 End If
If Sheet1.Cells(Z, 5) >= 6 And Sheet1.Cells(Z, 5) < 12 Then lv = lv_ding1_6(Z) '半年 End If
If Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 24 Then lv = lv_ding1_12(Z) '1年 End If
If Sheet1.Cells(Z, 5) >= 24 And Sheet1.Cells(Z, 5) < 36 Then lv = lv_ding1_24(Z) '2年 End If
If Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Then lv = lv_ding1_36(Z) '3年