使用命令buttonexcel vba将数据放在多个单元格中

我最近连接了两个体重秤到我的电脑，并使用VBA教程和XMComm创buildExcel用户表单，从秤中收集体重数据并将其放置在单元格中。 我已经设法连接每个比例，我可以从一个单独的命令button中检索每个比例的重量。 我想要做的是将两个比例组合成一个命令button。 我试图通过将ActiveCell.Offset（0,1）。在两个Userforms中的命令button之间进行select。 但是，当我使用这个命令button时，活动单元立即右移，并且只放置两个权重值中的一个。

编辑：我认为这可能是个人自己的问题。 当我尝试从一个命令button绑定到一个用户窗体时发出一个单独的等待，重量有时不放置。

这是用户forms的代码：

Private Sub XMCommCRC1_OnComm() Static sInput As String Dim sTerminator As String Dim Buffer As Variant ' Branch according to the CommEvent property Select Case XMCommCRC1.CommEvent Case XMCOMM_EV_RECEIVE Buffer = XMCommCRC1.InputData ' Use Input property for MSComm sInput = sInput & Buffer If Worksheets("Settings").Range("Terminator") = "CR/LF" Then sTerminator = vbCrLf Else sTerminaotr = vbCr End If If Right$(sInput, Len(sTerminator)) = sTerminator Then XMCommCRC1.PortOpen = False sInput = Left$(sInput, Len(sInput) - Len(sTerminator)) Select Case Left$(sInput, 2) Case "ST", "S " ActiveCell.Value = CDbl(Mid$(sInput, 7, 8)) ActiveCell.Activate Case "US", "SD" MsgBox "The balance is unstable." Case "OL", "SI" MsgBox "The balance is showing an eror value." End Select sInput = "" End If End Select End Sub Public Sub RequestBalanceData() With Worksheets("Settings") ' Configure and open the COM port If Not XMCommCRC1.PortOpen Then XMCommCRC1.RThreshold = 1 XMCommCRC1.RTSEnable = True XMCommCRC1.CommPort = .Range("COM_Port") XMCommCRC1.Settings = .Range("Baud_Rate") & "," & _ .Range("Parity") & "," & _ .Range("Data_Bits") & "," & _ .Range("Stop_Bits") XMCommCRC1.PortOpen = True End If ' Send balance's "SI" (Send Immediate) command ' to request weighing data immediately If .Range("Terminator") = "CR/LF" Then XMCommCRC1.Output = "R" & vbCrLf Else XMCommCRC1.Output = "R" & vbCr End If End With End Sub 

我正在使用Excel 2007.他是我使用的VBA教程的链接 – http://www.msclims.com/lims/diybalance.html

这里是XMCOMM的链接 – http://www.hardandsoftware.net/xmcomm.htm

如果有人能帮我解决这个问题，我将不胜感激。