[已解决]关于VBA判断语句的请教

Arvin_wm

大家好：

       我是VBA的初学者，请大家多多关照！

       今天我学了是VBA判断语句，主要针对的是单元格，我想，如果整列的判断，编程语句怎么写呢！


        比如：

               A列             B列                     C列
              类别            数值                    结果

               O                1000                   1000              1行
               R                 900                     -900               2行
               R                 300                     -300               3行
               O                 235                     235                4行
               B                  300                    300
               D                  249                    -249
               。
               。
               。

目的：主要是对A列的类别进行判断，如果是O或B    C列返回结果=B列值，否则为-B值！请大家多多关照！

最佳答案

月排行榜 / 总排行榜

爱疯

2011-7-6 23:07

1. Sub test()
   
2.     Dim i As Integer
   
3.     For i = 1 To Cells(i, 1).End(xlDown).Row
   
4.         If Cells(i, 1) = "O" Then Cells(i, 3) = Cells(i, 2)
   
5.         If Cells(i, 1) = "R" Then Cells(i, 3) = Cells(i, 2) * -1
   
6.     Next i
   
7. End Sub

复制代码

虽然这样写不很妥当，但容易理解些
建议：

• 楼主上传附件，会更方便大家为你解答
• VBA的问题在VBA版块提问，会更快被解决。
  

跳转到最佳答案楼层

爱疯

1. Sub test()
   
2.     Dim i As Integer
   
3.     For i = 1 To Cells(i, 1).End(xlDown).Row
   
4.         If Cells(i, 1) = "O" Then Cells(i, 3) = Cells(i, 2)
   
5.         If Cells(i, 1) = "R" Then Cells(i, 3) = Cells(i, 2) * -1
   
6.     Next i
   
7. End Sub

复制代码

虽然这样写不很妥当，但容易理解些
建议：

• 楼主上传附件，会更方便大家为你解答
• VBA的问题在VBA版块提问，会更快被解决。