Excel收支理财管理与财务知识分析系统方案

.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年