创建一个新行并选择一个单元

Question

我想让用户能够将行添加到窗体，但是我需要他们以编程方式执行它，以便新行包含一个复选框，其中已经分配了一个宏。

我的解决方案是用一个InputBox插入一行，这很好用。

Dim rowloc As String 

rowloc = InputBox("Location to Insert Row", "What row do you want to insert 
the new row ABOVE?") 

Rows(rowloc).Select 
Selection.Insert Shift:=xlDown 

，但我有一个时间赫克在新行要列B和插入复选框。我在VBA中创建一个新按钮时没有问题，它只是进入其他单元而已。

Rows(rowloc).Offset(0, 1).Select 

也不起作用。任何有用的提示或解决方案？

Answer 1

thw Rows(rowloc)是一个范围，包括行rowloc中的所有单元格。如果你需要在这个范围内识别小区（此行）然后，例如，

Rows(rowloc).Cells(2).Select ' in column 2 ("B") 

，或者等价地，

Rows(rowloc).Parent.Cells(rowloc,2).Select ' in column 2 ("B") 

或

ActiveSheet.Cells(rowloc,2).Select ' in column 2 ("B") 
    ' might not be the same worksheet though, depending on your setup 

等