首页 文章

如何按列名引用表中的新单元格

提问于
浏览
0

我有一个工作子例程,它将值插入单元格,作为表的新行的一部分 . 我正在引用单元格以按列号插入数据 . 但是,我希望能够使用表中的列/ Headers 名称,而不是数字,以便可以移动表列而不会破坏宏中的单元格引用 . 有谁知道如何做到这一点?

这是我的示例代码 .

Sub InsertValue(ByRef iTargetCell As Integer, ByRef CellData As String, ByRef strType As String)

  Select Case strType
    ' Define the data as Text
      Case "T"
      ' Specify the number format to be used for a particular column in the new row
        NewRow.Range.Cells(1, iTargetCell).NumberFormat = "@"
      ' Insert the data for a particular column into the new row
        NewRow.Range.Cells(1, iTargetCell).Value = CellData
    ' Define the data as a number
      Case "N"
        NewRow.Range.Cells(1, iTargetCell).NumberFormat = "0"
        NewRow.Range.Cells(1, iTargetCell).Value = CellData
  End Select
End Sub

变量NewRow已经公开定义 .

Public NewRow As ListRow

它设置在另一个子程序中 .

Set NewRow = Range(strTableName).ListObject.ListRows.Add(AlwaysInsert:=True)

1 回答

  • 1
    ActiveSheet.ListObjects("Table1").ListColumns("ColName").Index
    

    将返回表中带有 Headers “ColName”的列的位置

相关问题