|
Sub channel()
If Sheets("短信").Range("F3").Value > -0.01 And Sheets("短信").Range("F3").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G3").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H3").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I3").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J3").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K3").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F4").Value > -0.01 And Sheets("短信").Range("F4").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G4").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H4").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I4").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J4").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K4").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F5").Value > -0.01 And Sheets("短信").Range("F5").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G5").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H5").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I5").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J5").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K5").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F6").Value > -0.01 And Sheets("短信").Range("F6").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G6").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H6").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I6").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J6").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K6").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F7").Value > -0.01 And Sheets("短信").Range("F7").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G7").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H7").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I7").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J7").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K7").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F8").Value > -0.01 And Sheets("短信").Range("F8").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G8").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H8").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I8").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J8").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K8").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F9").Value > -0.01 And Sheets("短信").Range("F9").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G9").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H9").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I9").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J9").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K9").Value
Application.Run "mail126"
ElseIf Sheets("短信").Range("F10").Value > -0.01 And Sheets("短信").Range("F10").Value < 0.01 Then
Sheets("短信").Range("G2") = Sheets("短信").Range("G10").Value '等号前是写入位置,等号后是写出位置
Sheets("短信").Range("H2") = Sheets("短信").Range("H10").Value
Sheets("短信").Range("I2") = Sheets("短信").Range("I10").Value
Sheets("短信").Range("J2") = Sheets("短信").Range("J10").Value
Sheets("短信").Range("K2") = Sheets("短信").Range("K10").Value
Application.Run "mail126"
End If
Application.OnTime Now + TimeValue("00:01:00"), "channel"
End Sub
回复 759857387 的帖子
- Sub channel()
- Dim i As Long
- With Sheets("短信")
- For i = 3 To 10
- If .Range("F" & i) > -0.01 And .Range("F" & i) < 0.01 Then
- Exit For
- End If
- Next i
- .Range(.Range("G2"), .Range("K2")) = .Range(.Range("G" & i), .Range("K" & i)).Value
- Application.Run "mail126"
- Application.OnTime Now + TimeValue("00:01:00"), "channel"
- End With
- End Sub
复制代码你没有附件,没办法测试。。根据你的代码只能改成这样了
|
|