試談利用excel處理承租人融資租賃問題(編輯修改稿)
2025-04-21 12:04 本頁面
【文章內容簡介】 ＄B＄l0，0)))”，再選中單元格F3向下拖動填充柄到F22。最后，在單元格B18中輸入公式“=IF(＄t＄12=＄B＄13，＄B＄11，IRR(F2：F22))”，確認租賃資產(chǎn)的入賬價值并確認分攤率。 3．在單元格B19中輸入公式“=＄B＄14＄B＄18”，未確認融資費用=最低租賃付款額租賃資產(chǎn)的入賬價值。 4．下面通過添加“滾動條”與單元格值的綁定來實現(xiàn)數(shù)據(jù)的自動錄入，只要拖動“滾動條”單元格中的值隨之改變(但也可以手工輸入)，即可實現(xiàn)多因素同時改變的自動化。 (1)點擊菜單欄“視圖”選中“工具欄”中“控件工具箱”彈出“控件”工具箱界面，點擊“滾動條”按鈕并把滾動條BerollBarl拖放到單元格C3中，再點擊此滾動條將彈出編輯Ⅷ宏的窗口，如表3： 在代碼窗口中編寫代碼為： PrivateSubSerollBarl Change() ScrollBarl．Max=20’最大值為20年 =0’量小值為0年 ScrollBarl．SmallChange=1 ScrollBarl．LargeChange=5 Sheetl．Range(“b3”)．Value=ScrollBarl．Value’單元格B3的值等于滾動條的值 EndSub 代碼含義為：全新最大使用年限為20年，最小為0年，滾動條的值與單元格B3的值綁定。 (2)同理在C4單元格中添加一滾動條ScrollBar2其值與單元格B4綁定，且其最大值要等于單元格B3中的值，因為已使用年限不能超過全新使用年限，滾動條Scroll—Bar2中的代碼為： Private Sub ScrollBar2 Change() ScrollBar2．Max=Sheetl．Range(“b3”)．Value ScrollBar2．Min=0 ScrollBar2．SmallChange=1 ScrollBar2．LargeChange=5 Sheetl．Range(“b4”)．Value=ScrollBar2．Value EndSub (3)在單元格C6中添加一滾動條ScrollBar3，其值與單元裕B6綁定，其最大值小于單元格B5中的值，因為租賃的期限不能超過可使用年限。滾動條中的代碼如下： Private Sub ScrollBar3_Change() ScrollBar3．Max=Sheetl．Range(“b5”)．Value ScrollBar3．Min=0 ScrollBar3．SmallChange=1 ScrollBar3．LargeChange=5 Sheetl．Range(“b6”)．Value=Scro
畢業(yè)設計相關推薦
鄂ICP備17016276號-1