EXCLE中VBA程序录入相关信息对不到表里,在线等
发布网友
发布时间：2024-09-27 16:03
共2个回答
热心网友
时间：2024-10-04 16:09
Sub 跳转到下一个工作表()
Dim z, m, n, CS
m = ActiveSheet.Index
n = m + 1
z = ActiveSheet.Range("A100").Value
With ActiveSheet.Cells
Set CS = .Find(z, LookIn:=xlValues, lookat:=xlPart)
If Not CS Is Nothing Then
Sheets(n).Select
End If
End With
End Sub
试运行可行
热心网友
时间：2024-10-04 16:02
热心网友
时间：2024-10-04 16:07
Sub 跳转到下一个工作表()
Dim z, m, n, CS
m = ActiveSheet.Index
n = m + 1
z = ActiveSheet.Range("A100").Value
With ActiveSheet.Cells
Set CS = .Find(z, LookIn:=xlValues, lookat:=xlPart)
If Not CS Is Nothing Then
Sheets(n).Select
End If
End With
End Sub
试运行可行
热心网友
时间：2024-10-04 16:07
