从特定列和单元格开始添加UserForm的值
问题描述:
我有一种将来自VBA UserForm的输入信息添加到专用单元格的表单。名字,姓氏,我使用iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
查找空行,并在行的特定列中添加信息。默认情况下,信息打印在B1上,可以将其更改为G7吗?从特定列和单元格开始添加UserForm的值
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.Cells(iRow, 2).Value = Me.txt_firstname
ws.Cells(iRow, 3).Value = Me.txt_lastname
答
更改您的行数到这一点:
iRow = ws.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row
If iRow<7 then
iRow =7
End if
ws.Cells(iRow, 7).Value = Me.txt_firstname
这将改变你的细胞数至少排7,如果第一个单元是晚于后,将其添加到下一个空行之后。
谢谢皮特! :) –