特定の列とセルからUserFormから値を追加します。

Question

VBA UserFormからの入力情報を専用セルに追加するフォームがあります。私はiRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Rowを使用して空の行を見つけ、行の特定の列に情報を追加しています。デフォルトでは、情報はB1に印刷されます。たとえば、G7に変更することは可能ですか？あなたの行がこれに数え

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 

Answer 1

変更：

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行目まで数え、あなたのセルが変更されますが、それは次の空の行に追加しますその後。