[已解决]请论坛老师帮忙写段代码

yslvictor

录制了一段宏，现在要加个条件，不会写代码了，就是：
工作薄"成绩"里的工作表"7年1班"的A5,与工作薄"排榜"里的工作表"名次"的C2不同时，则退出。
请论坛老师帮忙写段代码，谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-7 22:09

1.     Dim wbCj As Workbook
   
2.     Dim wbPb As Workbook
   
3.     Dim rga5, rgc2
   
4.     On Error Resume Next
   
5.     Set wbCj = Workbooks("成绩.xls")
   
6.     Set wbPb = workbooks("排榜.xls")
   
7.     If wbCj Is Nothing Or wbPb Is Nothing Then
   
8.         MsgBox "指定工作簿未打开"
   
9.         Exit Sub
   
10.     End If
    
11.     With wbCj.Worksheets("7年1班")
    
12.         rga5 = .Range("a5").Value
    
13.     End With
    
14.     With wbPb.Worksheets("名次")
    
15.         rgc2 = .Range("c2").Value
    
16.     End With
    
17.     If rga5 <> rgc2 Then Exit Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     Dim wbCj As Workbook
   
2.     Dim wbPb As Workbook
   
3.     Dim rga5, rgc2
   
4.     On Error Resume Next
   
5.     Set wbCj = Workbook("成绩")
   
6.     Set wbPb = worksook("排榜")
   
7.     If wbCj Is Nothing Or wbPb Is Nothing Then
   
8.         MsgBox "指定工作簿未打开"
   
9.         Exit Sub
   
10.     End If
    
11.     With wbCj.Worksheets("7年1班")
    
12.         rga5 = .Range("a5").Value
    
13.     End With
    
14.     With wbPb.Worksheets("名次")
    
15.         rgc2 = .Range("c2").Value
    
16.     End With
    
17.     If rga5 <> rgc2 Then Exit Sub

复制代码

fjmxwrs

你直接上个附件说明问题和结果，就很好解决了呀

yslvictor

hwc2ycy

1.     Dim wbCj As Workbook
   
2.     Dim wbPb As Workbook
   
3.     Dim rga5, rgc2
   
4.     On Error Resume Next
   
5.     Set wbCj = Workbooks("成绩.xls")
   
6.     Set wbPb = workbooks("排榜.xls")
   
7.     If wbCj Is Nothing Or wbPb Is Nothing Then
   
8.         MsgBox "指定工作簿未打开"
   
9.         Exit Sub
   
10.     End If
    
11.     With wbCj.Worksheets("7年1班")
    
12.         rga5 = .Range("a5").Value
    
13.     End With
    
14.     With wbPb.Worksheets("名次")
    
15.         rgc2 = .Range("c2").Value
    
16.     End With
    
17.     If rga5 <> rgc2 Then Exit Sub

复制代码

hwc2ycy

1. Sub test()
   
2.     Dim wbCj As Workbook
   
3.     Dim wbPb As Workbook
   
4.     Dim rga5, rgc2
   
5.     On Error Resume Next
   
6.     Set wbCj = Workbooks("成绩.xls")
   
7.     Set wbPb = Workbooks("排榜.xls")
   
8.     If wbCj Is Nothing Or wbPb Is Nothing Then
   
9.         MsgBox "指定工作簿未打开"
   
10.         Exit Sub
    
11.     End If
    
12.     With wbCj.Worksheets("7年1班")
    
13.         rga5 = .Range("a5").Value
    
14.     End With
    
15.     With wbPb.Worksheets("名次")
    
16.         rgc2 = .Range("c2").Value
    
17.     End With
    
18.     If rga5 <> rgc2 Then Exit Sub
    
19.     MsgBox "运行完成"
    
20. End Sub
    

复制代码

之前是只看你的要求写的，没有验证，workbooks写错了。
这个刚测试了，如果能提示“运行完在",就证明A5,C2是相等的。

yslvictor

解决了。谢谢hwc2ycy论坛老师！！！