excel日常操作足以應付大量的數(shù)據(jù)處理需求？我告訴您，excel日常操作的數(shù)據(jù)處理能力的確很強大，但我個人認為，沒有學習vba，你的excel操作能力不算高手。學會vba 這真是excel的另一高度，而熟悉VBA窗體化編程才算excel的進階高手。下面介紹一下VBA窗體制作簡單的日記登記小程序。

工具/原料

方法/步驟

1. 1

   1，打開微軟excel2007，點擊紅圈打開

   
2. 2

   2、將宏全性設置為“啟用所有宏”。

   
3. 3

   3、點擊紅圈，打開VBA編程界面

   
4. 4

   4、插入—>用戶窗體，出現(xiàn)如下界面

   
5. 5

   5、按圖中caption 的Ｕserform1 修改為“日記賬登賬界面”

   
6. 6

   6、鼠標雙擊窗體紅圈位置

   
7. 7

   7、按圖中1步在框是選擇　Initialize　，出現(xiàn)第2這個過程代碼

   
8. 8

   8、在工程代碼中輸入下面的代碼

   Private Sub UserForm_Initialize()

   Application.WindowState = xlMaximized

   ActiveWindow.WindowState = xlMaximized

   UserForm1.Height = Application.Height

   UserForm1.Width = Application.Width

   Me.Left = 0

   Me.Top = 0

   End Sub

   下圖紅圈中的代碼

   
9. 9

   9、雙擊userform1，如圖紅圈，返回窗體

   
10. 10

    10、在窗體界面下，點擊工具箱中的標簽（如圖紅圈），再在窗體上生成“標簽”如圖藍色圈位置

    
11. 11

    11、點擊窗體中的“l(fā)abel1”,再在左邊屬性窗口中的caption的值“l(fā)abel1”修改為“日期：”，如此類推，生成“摘要：”、“收/付：”、“金額”，效果圖如下

    
12. 12

    12、再按照添加“標簽”的方法，添加4個文本框和1個“按鈕”鍵，效果如下圖：

    
13. 13

    13、按圖順序，1、點擊按鍵；2、在左邊屬性框輸入“確定”

    
14. 14

    14、點擊窗體中的“按鍵”，出現(xiàn)過程代碼，如圖

    
15. 15

    15、要過程中輸入如下代碼：

    Dim k As Integer

    With ThisWorkbook.Sheets("sheet1")

         If .Cells(1, 1) = "" Then

             .Cells(1, 1) = "日期"

             .Cells(1, 2) = "摘要"

             .Cells(1, 3) = "借方"

             .Cells(1, 4) = "貸方"

             .Cells(1, 5) = "余額"

         End If

    End With

    k = ThisWorkbook.Sheets("sheet1").End(xlUp).Row

    With ThisWorkbook.Sheets("sheet1")

         .Cells(k + 1, 1) = CDate(Me.TextBox1.Value)

         .Cells(k + 1, 2) = Me.TextBox2.Value

         If Me.TextBox3.Value = "收" Then

            .Cells(k + 1, 3) = Val(Me.TextBox4.Value)

         Else

            .Cells(k + 1, 4) = Val(Me.TextBox4.Value)

         End If

         If k = 1 Then

            .Cells(k + 1, 5) = Val(.Cells(k + 1, 3)) - Val(.Cells(k + 1, 4))

         Else

            .Cells(k + 1, 5) = Val(.Cells(k + 1, 3)) - Val(.Cells(k + 1, 4)) + Val(.Cells(k, 5))

         End If

    End With

    MsgBox "本筆已錄入"

    不容質(zhì)疑我的代碼是否正確，絕對運行正常（我編程14年以上，熟練）效果如下：

    
16. 16

    16、保存文件，文件后綴為選擇.xlsm格式，關閉文件再點擊打開這文件，看效果如何？日記賬程序可以運行了，你可以輸入數(shù)據(jù)了。