浪荡不羁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)