在TextBox中使用VBA返回答案

我正在创build一个相当简单的用户表单。 用户必须input我想要计算的两个值，并在Excel中的电子表格中input一列。

我不知道如何格式化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的特定列中。

Answer 1

如果你打算将所有的答案转储到“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("G" & Rows.Count).End(xlUp).Row Range("G" & LastRow + 1).Value = Answer End Sub 

如果你想要所有的数据在单独的列：

 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