在文本框中使用VBA返回答案

我正在创建一个相当简单的用户表单。用户必须输入我要计算的2个值，并将其输入Excel电子表格中的一列

我不知道如何格式化VBA，让它计算这些值，然后将其保存在电子表格中

以下是我所拥有的：

Private Sub txtRecruitPct_Change()
    Dim A As Integer
    Dim B As Integer

    A = txtApprovedAffs.Value
    B = txtEmailsSent.Value

    Answer = A / B    
End Sub

---

我需要知道如何获取该值以计算并保存在Excel的特定列中。

如果要将所有答案转储到列“A”中，则：

如果要将所有数据放在单独的列中：

Private Sub txtRecruitPct_Change()
    Dim A As Integer
    Dim B As Integer
    Dim LastRow As Long

    A = txtApprovedAffs.Value
    B = txtEmailsSent.Value

    Answer = A / B
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & LastRow + 1).Value = A
    Range("B" & LastRow + 1).Value = B
    Range("C" & LastRow + 1).Value = Answer

End Sub

---

您需要检查并确保用户正在输入数字。您的用户表单的代码在哪里？然后您需要目标单元格

范围（“单元格地址”）。Value=Answer

您要求的语法是写入

范围（“A1”）。Value=A

，

范围（“A2”）。Value=B

和

范围（“A3”）。Value=Answer

，说你的列是

A

？谢谢你这么说…所以如果我说把它添加到G列，我会把它改为LastRow=Range（“A”&Rows.Count）。End（xlUP）。Row Range（“A”&LastRow+6）。Value=Answer？我会修改我的代码。基本上将所有的“A”改为“G”

LastRow=Range（“G”和Rows.Count）。End（xlUp）。Row Range（“G”&LastRow+1）。Value=Answer

Private Sub txtRecruitPct_Change()
    Dim A As Integer
    Dim B As Integer
    Dim LastRow As Long

    A = txtApprovedAffs.Value
    B = txtEmailsSent.Value

    Answer = A / B
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & LastRow + 1).Value = A
    Range("B" & LastRow + 1).Value = B
    Range("C" & LastRow + 1).Value = Answer

End Sub