Excel应用-术语管理模板（记录单新建记录功能的VBA实现）

来源：互联网发布：linux查看当前进程编辑：程序博客网时间：2024/05/17 05:15

1. 界面如下，

2. 术语列表

3. VBA代码：

Public Sub saveTerm()Dim iCount As Integer    Application.ScreenUpdating = False    '把工作表的记录数赋予iCount    iCount = Sheets("Term").[A1].CurrentRegion.Rows.Count    '选择UI工作表    Sheets("UI").Select    '选择保存数据的区域，然后Copy    Range("C5:C13").Copy    '激活Term工作表    Sheets("Term").Activate    '选择Term工作表最后一条记录的下一行区域    Cells(iCount + 1, 2).Select    '复制数据    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=True    '实现记录自动编号    Cells(iCount + 1, 1).Value = Cells(iCount, 1).Value + 1    '再次选择UI工作表    Sheets("UI").Select    '把选Copy的区域释放    Application.CutCopyMode = False    Application.ScreenUpdating = TrueEnd Sub

彩蛋（2017年6月14日追记）：

Excel提供了一个内置功能：记录单，可以实现记录的增删改，直接上图。

有没有发现，还是自制的Excel模板看着舒服吧。不过，这个功能总的来说比较鸡肋。

直接在Excel内完成数据的增删改查最方便了。

阅读全文

0 0