Excel 按钮自动生成表格条目
我正在尝试创建一个按钮,该按钮在excel中分配了一个宏,可以自动生成一个带有UID的新条目 比如说, 当前表 用户单击按钮“新建条目” 更新表 这能做到吗? 当前代码只能添加新的空白条目Excel 按钮自动生成表格条目,excel,vba,Excel,Vba,我正在尝试创建一个按钮,该按钮在excel中分配了一个宏,可以自动生成一个带有UID的新条目 比如说, 当前表 用户单击按钮“新建条目” 更新表 这能做到吗? 当前代码只能添加新的空白条目 Sheets("Sheet1").Range("A3").Select ActiveCell.EntireRow.Insert Shift:=xlUp 任何建议都将不胜感激。有一些小问题,因为时间晚了,我很累,但这是有效的。根据需要更改图纸和表格名称 Option Explicit Sub fillN
Sheets("Sheet1").Range("A3").Select
ActiveCell.EntireRow.Insert Shift:=xlUp
任何建议都将不胜感激。有一些小问题,因为时间晚了,我很累,但这是有效的。根据需要更改图纸和表格名称
Option Explicit
Sub fillNext()
Dim myTable As ListObject
Set myTable = Worksheets("Sheet1").ListObjects("Table1")
Dim myColumn As ListColumn
Set myColumn = myTable.ListColumns("UID")
With myColumn.DataBodyRange
Dim order As String
order = .Cells(.Rows.Count, 1)
order = Mid(order, InStr(InStr(order, "-") + 1, order, "-") + 1, 255)
myTable.ListRows.Add
.Cells(.Rows.Count + 1, 1).Value = "ID-YEAR-" & Format(CStr(CLng(order) + 1), "000")
End With
End Sub
是的,这是可以做到的。你的UID背后的逻辑是什么?到目前为止你尝试了什么?@BigBen到目前为止,我能够创建一个新条目,但此代码将其添加到表的顶部。。工作表(“Sheet1”)。范围(“A3”)。选择ActiveCell.EntireRow.Insert Shift:=xlUp关于我的逻辑,我需要“ID-CURRENTYEAR-001”,但通过查看最后一个条目的最后3位数字,新条目将增加1。此表是实际的Excel表吗?ListObject在VBA语言中。@ScottHoltzman当然是。@Daimen-我将在下面发布答案。whi@ScottHoltman,我如何生成输出“ID-UID-2020-”?我更改为添加一个额外的“-”,这会导致运行时错误。