Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 按钮自动生成表格条目_Excel_Vba - Fatal编程技术网

Excel 按钮自动生成表格条目

Excel 按钮自动生成表格条目,excel,vba,Excel,Vba,我正在尝试创建一个按钮,该按钮在excel中分配了一个宏,可以自动生成一个带有UID的新条目 比如说, 当前表 用户单击按钮“新建条目” 更新表 这能做到吗? 当前代码只能添加新的空白条目 Sheets("Sheet1").Range("A3").Select ActiveCell.EntireRow.Insert Shift:=xlUp 任何建议都将不胜感激。有一些小问题,因为时间晚了,我很累,但这是有效的。根据需要更改图纸和表格名称 Option Explicit Sub fillN

我正在尝试创建一个按钮,该按钮在excel中分配了一个宏,可以自动生成一个带有UID的新条目

比如说,

当前表

用户单击按钮“新建条目”

更新表

这能做到吗? 当前代码只能添加新的空白条目

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-”?我更改为添加一个额外的“-”,这会导致运行时错误。