我有另一个问题,我希望在你的帮助下解决.
我想做什么 我使用Excel来跟踪我的工作,活动,联系人等等.在这样做的同时,我发现在一个名为"活动"的工作表末尾添加行时,我做了大量的重复工作.
我想要做的是: - 按一个按钮并添加一行. - 使用1增加trackingnumber - 插入默认值
代码. 为了自动执行此操作,我找到了(复制,粘贴,根据我的需要调整它)以下代码:
Sub AddRowActiviteiten_NewAtEnd()
'Add's a new row at the end of the sheet.
Dim wsActiviteiten As Worksheet
Set wsActiviteiten = Sheets("Activiteiten")
DefType = "Daily"
DefStatus = "Open"
DefIssue = "*****"
DefImpact = "*****"
DefPrio = "Laag"
MyDate = Date
wsActiviteiten.Range("A4").Value = "1"
'Copy the "One Row To Rule Them All"
wsActiviteiten.Range("A3:Q3").Copy
wsActiviteiten.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
'Stop the "copy-action"
Application.CutCopyMode = False
'Increase the tracking number with "one"
LastNumber …