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

但是我有一段时间在 new 行中插入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

等

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

1 个答案: