我是VBA的新手和初学者。我正在尝试测试一些热数据。我已经硬编码了满足参数所需的上限和下限。我需要从工作表中调用数据,将其通过循环传递以及将新数据输出到新工作表的帮助。我希望输出为“太热”或“太冷”。
最终,我想添加更多代码来计算温度差异,并将其输出到第二个工作表中。
我有大约4000行数据。 20列乘4000行。
非常感谢您的帮助和建议!
我尝试使用一个消息框作为输出,但是测试数据太多。
Sub SelectCaseBoomThermal()
'Check dwell temperature in case statement. Loops through rows and columns from sheet 1 in workbook.
SelectCaseBoomThermal (Temp)
Dim ramptemp As Long
'Create a counter
Dim i As Integer
i = 1
'Loop while the counter is less than 100
Do While i < 3453
MsgBox i
For i = 29 To dataCol
Select Case Temp
Case Is >= 107
'Check if rampTemp is too hot
MsgBox "Ramp temp is too hot (+)"
Case Is >= 97
'Check if rampTemp is too cold
MsgBox "Ramp temp is too cold (+)"
'Case Is <= -137
'Check if rampTemp is too hot
MsgBox "Ramp temp is too hot (+)"
Case Is >= -127
'Check if rampTemp is too cold
MsgBox "Ramp temp is too cold (+)"
End Select
Next i
Exit Do
End If
'Add 1 to the counter
i = i + 1
Loop
End Sub
我希望我的输出数据在新的工作表中。