Question

我有非常基本的VBA技能，希望你能帮助我。当用户点击“添加记录”按钮时，我试图在工作表上插入用户excel表单中的值。我已经在我的工作表中将几个单元格命名为城市，基于此我想首先在我的组合（cboCities）中选择特定城市后添加一个空列，然后在该列中插入我的三个文本框的值。

    Private Sub cmdbtnSave_Click()
Dim vNewCol As Long
Worksheets("DataEntry").Range(Me.cboCities.value).EntireColumn.Offset(0, 1).Insert

   vNewCol = Worksheets("DataEntry").Cells(Columns.Count, "P").End(xlUp).Column
    ' Input the data
    If Me.cboCities.value <> "" Then
       Worksheets("DataEntry").Cells(7, vNewCol).value = Me.Indic.value
       Worksheets("DataEntry").Cells(11, vNewCol).value = Me.Option1.value
    End If

End Sub

问题是，如何知道上面插入的列的“数字”或“引用”，然后输入文本框的值？在下面的代码中，我需要一些动态的方法来知道上面插入的新列的ID或引用，而不是硬编码的“P”。

 vNewCol = Worksheets("DataEntry").Cells(Columns.Count, "P").End(xlUp).Column

感谢您指导我。

Answer 1

你想知道这个吗？

vNewCol=Worksheets("DataEntry").Range(Me.cboCities.value).Offset(0, 1).Column

通过添加列在Excel工作表中插入表单数据

1 个答案: