2017-10-05 11 views
0

ユーザーにフォームに行を追加できるようにしようとしていますが、新しい行に既にマクロが割り当てられているチェックボックスが含まれるように、プログラムで行を追加する必要があります。新しい行を作成してセルを選択する

解決策は、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 

も機能しません。役に立つヒントや解決策はありますか?

答えて

2

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 

+0

ありがとうございました! – ladymrt

関連する問題