[已解决]讨教if语句的用法

qingzhen322

    我学习vba时间不长，对if语句的使用理解的不透，使用起来老出错。恳请老师指教。一个表的a列为品名；b列为性质；c列为数量，我的问题是：第一步，判断在sheet1的a列中查找和sheet2的a2单元格的字符串相同的单元格，如果有则，查出此单元格的行号。第二步，判断该行的b列的性质，如果性质是“正”则，sheet2的b2单元格的值，就等于sheet1表中相对应的c列单元格的值；如果性质是“负”则，sheet2的b2单元格的值，就等于sheet1表中相对应的c列单元格的负值。
    请老师更正一下我写的代码，并指出我的错误在哪里，谢谢！ if语句.rar (12.52 KB, 下载次数: 4)

2013-12-2 06:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-2 07:12

你的if语句是对的，只是 cells(),和range()都必须加上工作表名 。改成这样的对了。
cells(),和range()都必须加上工作表名，VBA才能判断用哪一个工作表中的range或cells相比较。
如果不加工作表名，excel就默认当前活动工作表中的range或cells的数据。
if判断.zip (9.65 KB, 下载次数: 0)

2013-12-2 07:15 上传

点击文件名下载附件

1. Sub k()
   
2.     Dim c%, k%
   
3.     c = Application.CountIf(Sheets("sheet1").[a:a], "wxw")
   
4.     If c > 0 Then
   
5.        k = Sheets("sheet1").Range("a:a").Find("wxw", LookIn:=xlValues).Row
   
6.       If Sheets("sheet1").Cells(k, 2) = "正" Then
   
7.         Sheet2.Range("b2") = Sheets("sheet1").Cells(k, 3)
   
8.       ElseIf Sheets("sheet1").Cells(k, 2) = "负" Then
   
9.         Sheet2.Range("b2") = Sheets("sheet1").Cells(k, 3) * -1
   
10.       End If
    
11.     End If
    
12. End Sub

复制代码

跳转到最佳答案楼层

yyyydddd8888

你的if语句是对的，只是 cells(),和range()都必须加上工作表名 。改成这样的对了。
cells(),和range()都必须加上工作表名，VBA才能判断用哪一个工作表中的range或cells相比较。
如果不加工作表名，excel就默认当前活动工作表中的range或cells的数据。
if判断.zip (9.65 KB, 下载次数: 0)

2013-12-2 07:15 上传

点击文件名下载附件

1. Sub k()
   
2.     Dim c%, k%
   
3.     c = Application.CountIf(Sheets("sheet1").[a:a], "wxw")
   
4.     If c > 0 Then
   
5.        k = Sheets("sheet1").Range("a:a").Find("wxw", LookIn:=xlValues).Row
   
6.       If Sheets("sheet1").Cells(k, 2) = "正" Then
   
7.         Sheet2.Range("b2") = Sheets("sheet1").Cells(k, 3)
   
8.       ElseIf Sheets("sheet1").Cells(k, 2) = "负" Then
   
9.         Sheet2.Range("b2") = Sheets("sheet1").Cells(k, 3) * -1
   
10.       End If
    
11.     End If
    
12. End Sub

复制代码

yyyydddd8888

如果要操作两个或两个以上的工作表，就必须给range和cells加上工作表名。如果是操作两个或两个以上的工作簿，就还得再加上工作簿名，excel才知道你要从哪一个工作簿的哪一个工作表中取数据。
如果要精简代码，可以加上with 语句。比如你这段代码可以加上with，改成这样：
if判断.zip (9.68 KB, 下载次数: 2)

2013-12-2 07:42 上传

点击文件名下载附件

1. Sub k()
   
2.     Dim c%, k%
   
3.     With Sheets("sheet1")
   
4.         c = Application.CountIf(.[a:a], "wxw")
   
5.         If c > 0 Then
   
6.            k = .Range("a:a").Find("wxw", LookIn:=xlValues).Row
   
7.           If .Cells(k, 2) = "正" Then
   
8.             Sheet2.Range("b2") = .Cells(k, 3)
   
9.           ElseIf .Cells(k, 2) = "负" Then
   
10.             Sheet2.Range("b2") = -.Cells(k, 3)
    
11.           End If
    
12.         End If
    
13.    End With
    
14. End Sub
    

复制代码

zjdh

只要将Cells("k, 2")改成Cells(k, 2)
如果在sheet1激活状态下运行你的宏没有问题。
当前工作表不用加工作表名。