Sub 錄入憑照() Dim X憑證行數 As Integer Dim X數據庫行數 As Integer X憑證行數 = Worksheets(\"憑證輸入\").Range(\"憑證行數\") X數據庫行數 = Worksheets(\"憑證輸入\").Range(\"數據庫行數\") If Worksheets(\"憑證輸入\").Range(\"借貸平衡\") <> \"OK\" Then MsgBox Worksheets(\"憑證輸入\").Range(\"借貸平衡\") Exit Sub End If If Worksheets(\"憑證輸入\").Range(\"編碼重復\") <> \"OK\" Then MsgBox Worksheets(\"憑證輸入\").Range(\"編碼重復\") Exit Sub End If MsgBox \"新增數據庫行數\" & X數據庫行數 + 1 For i = 1 To X憑證行數 For j = 1 To 13 Worksheets(\"憑證數據庫\").Cells(X數據庫行數 + i, j) = Worksheets(\"憑證輸入\").Range(\"數據文件\").Cells(i, j) Next j Next i End Sub
浪蕩不羈2019-06-17
很有用
浪蕩不羈2019-06-15
我也想要進群
東海岸的春天2019-04-04
Sub 錄入憑照() Dim X憑證行數 As Integer Dim X數據庫行數 As Integer X憑證行數 = Worksheets(\"憑證輸入\").Range(\"憑證行數\") X數據庫行數 = Worksheets(\"憑證輸入\").Range(\"數據庫行數\") If Worksheets(\"憑證輸入\").Range(\"借貸平衡\") <> \"OK\" Then MsgBox Worksheets(\"憑證輸入\").Range(\"借貸平衡\") Exit Sub End If If Worksheets(\"憑證輸入\").Range(\"編碼重復\") <> \"OK\" Then MsgBox Worksheets(\"憑證輸入\").Range(\"編碼重復\") Exit Sub End If MsgBox \"新增數據庫行數\" & X數據庫行數 + 1 For i = 1 To X憑證行數 For j = 1 To 13 Worksheets(\"憑證數據庫\").Cells(X數據庫行數 + i, j) = Worksheets(\"憑證輸入\").Range(\"數據文件\").Cells(i, j) Next j Next i End Sub
miss喬布斯也拿我沒轍君2019-03-30
想要實操講解(4)里面的宏的代碼,課件里下載的文件沒有知道代碼文件。。。。
凱2019-03-19
在哪找練習啊
貓街シ2018-09-10
老師,能傳我一份你做的賬務系統嗎,我加的表格群里面沒有
宗2018-06-03
很實用
小小的感動2017-07-01
其實老師之后定義的題目,有更簡單的函數寫法=IF(C2="女",IF(D2="本科",G2+200,G2+100),G2+150)