Excel VBA課金ユーザーフォームの入力データの質問

Question

私はExcel VBAの請求書アーカイブ/トラッカーフォームを自分の作品にコーディングしようとしています。どんな助けでも大歓迎です。基本的に、私は自分のユーザーフォームにボトムテーブルの請求日を入力し、選択した部品の合計（A1-A19）を入力して、入力請求日付の最も近い空のセルに合計を入力します。それが最初の請求サイクルであれば、総額取引でドル金額を呼び出して、その金額を入力請求日の右側に置くだけです。添付されているのは、Excelシートのスニペット、およびuserformです。本当にありがとうコミュニティ！

Excel Sheet

BillingArchiveUserform

'Creates "LastRow" variable 
If Range("D47").Value = "" Then 
LastRow = 47 
Else 
Main.Range("D46").Select 
LastRow = Selection.End(xlDown).Row 
End If 

i = 47 
Do While i <= LastRow 
If BillingDate.Value = Range("D" & i).Value Then 
If CmBBill.Value = "Yes" Then 
'Range("D" & i).Offset('resume from here and figure it out, but I want to choose the nearest empty cell to the right of date 
'Input project specific information (i.e. the sum of the parts that need to be billed) 
Else 
i = i + 1 
End If 
Loop 

Cells(LastRow + 1, 4).Value = BillingDate.Value 'Inputs Billing Date 

'2. Choose column of ProjectToBill based on value in textbox 
Main.Range("E5").Select 
LastCol = Selection.End(xlToRight).Column 

Answer 1

1）あなたはこの 2のループを必要としない）ユーザーフォームのチェックボックスをtrueまたはfalse、その後に設定されているかどうかを確認する任意のロジックを持っていません彼らが真実/偽であれば何をするか。 3）オフセットプロパティは、次の利用可能な行にローテーブルに情報を入れる必要があります。オフセットは、あなたの基準に基づいて左または右に基づいて調整することができます。最も可能性が高いのはIFです 4）最初の請求サイクルでは、入力を下側領域の最初の場所に向けることができます。 5）これらをスプレッドシートにダンプする方法を見て、userformsのテキストボックスから変数を宣言する必要はありません。しかし、VBAでその情報を操作する必要がある場合は、そうする必要があるかもしれないので、私はそれを言及します。そして、それは簡単な数学の必要性がなくなっているように見えるので、あなたが問題であるかもしれない問題にぶつかるならば。

これは、あなたは、上記のサンプルコードでは、私の細胞方向の一部が正しくない正しい場所に

Private Sub commandbutton_click() 

    If CheckBox1.Value = True Then Sheet1.Range("E4").Value = "Wherever you hid the predetermined value" 
    If Sheet1.Range("d47").Value = vbNullString Then 
     Sheet1.Range("d47").Value = BillingDateTextBox.Value 
    Else 
     Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = BillingDateTextBox.Value 
     Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Offset(0, 1).Value = "Wherever you hid the predetermined value" 
    End If 
End Sub