excel vba中if then语句中then后面加goto,程序如下:tjn = 1For tjm = 16 To 45For tjl = 6 To 230If Sheets("sheet1").Cells(tjl,2) = tjx(tjn) ThenSheets("sheet1").Cells(5,tjm) = tjx(tjn),GoTo tjlifendNexttjlifend:tjm = tjm + 1tjn = tjn + 1Next
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/29 21:47:06
![excel vba中if then语句中then后面加goto,程序如下:tjn = 1For tjm = 16 To 45For tjl = 6 To 230If Sheets(](/uploads/image/z/3811757-5-7.jpg?t=excel+vba%E4%B8%ADif+then%E8%AF%AD%E5%8F%A5%E4%B8%ADthen%E5%90%8E%E9%9D%A2%E5%8A%A0goto%2C%E7%A8%8B%E5%BA%8F%E5%A6%82%E4%B8%8B%EF%BC%9Atjn+%3D+1For+tjm+%3D+16+To+45For+tjl+%3D+6+To+230If+Sheets%28%22sheet1%22%29.Cells%28tjl%2C2%29+%3D+tjx%28tjn%29+ThenSheets%28%22sheet1%22%29.Cells%285%2Ctjm%29+%3D+tjx%28tjn%29%2CGoTo+tjlifendNexttjlifend%3Atjm+%3D+tjm+%2B+1tjn+%3D+tjn+%2B+1Next)
excel vba中if then语句中then后面加goto,程序如下:tjn = 1For tjm = 16 To 45For tjl = 6 To 230If Sheets("sheet1").Cells(tjl,2) = tjx(tjn) ThenSheets("sheet1").Cells(5,tjm) = tjx(tjn),GoTo tjlifendNexttjlifend:tjm = tjm + 1tjn = tjn + 1Next
excel vba中if then语句中then后面加goto,
程序如下:tjn = 1
For tjm = 16 To 45
For tjl = 6 To 230
If Sheets("sheet1").Cells(tjl,2) = tjx(tjn) Then
Sheets("sheet1").Cells(5,tjm) = tjx(tjn),GoTo tjlifend
Next
tjlifend:
tjm = tjm + 1
tjn = tjn + 1
Next
我想if then 的then后面同时执行Sheets("sheet1").Cells(5,tjm) = tjx(tjn),
GoTo tjlifend,但是跟在后面的话不属于IF?逗号连接报错.高手们感激不尽
excel vba中if then语句中then后面加goto,程序如下:tjn = 1For tjm = 16 To 45For tjl = 6 To 230If Sheets("sheet1").Cells(tjl,2) = tjx(tjn) ThenSheets("sheet1").Cells(5,tjm) = tjx(tjn),GoTo tjlifendNexttjlifend:tjm = tjm + 1tjn = tjn + 1Next
Sheets("sheet1").Cells(5,tjm) = tjx(tjn)
GoTo tjlifend
分两行就行