我正在尝试将一些单元格值插入到要发送的命令中以控制一台设备。
命令必须作为字符串发送到设备,并用单元格值替换下面的两个变量。有没有办法将这些插入到字符串中,然后将字符串发送到设备?
Private Sub Move_text_Click()
Dim receive_response As String
Dim jobNumber As Integer
Dim oFfset As Double
jobNumber = Range("G12").Value
oFfset = Range("AH10").Value
receive_response = MBActX1.Comm.SendAndReceive("WX,JOB=jobNumber,OnTheFlyTriggerDelay=119.5, oFfset ")
Debug.Print receive_response
示例:
如果单元格值如下所示 jobNumber = 6 且 oFfset = 2.0,则结果字符串应为
receive_response = MBActX1.Comm.SendAndReceive("WX,JOB=6,OnTheFlyTriggerDelay=119.5,2.0")
命令将被发送到设备,以调整该作业的变量。
这看起来像 Excel 的 VBA。
在 VBA 中,您可以使用“&”运算符连接字符串,如下例所示:
Range("A10").Value = "WX,JOB=" & jobNumber & ",OnTheFlyTriggerDelay=119.5," & oFfset
我刚刚尝试使用整数和双精度,并在 A10 单元格中得到以下值
WX,JOB=6,OnTheFlyTriggerDelay=119.5,2.5
有关更多 VBA 语法以及提示和技巧,我的首选: https://www.excel-easy.com/vba.html
希望能解决这个问题。