创建一个新行和 Select 个单元格

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

等等

创建一个新行和 Select 个单元格

Create A New Row and Select A Cell

excel

vba

rows

offset