excel公式转化成VBA代码

ndll333

将F列excel公式转化成VBA代码，谢谢大神

于箱长

这一大堆if给我if迷糊了

longming3

最简单就是录制宏，把公式录制一遍

gwjkkkkk

可以说 一下实现的目标。。。

EH2003

用vba写也是一大堆if语句。

EH2003

1. Dim lastRow As Long
   
2. Dim i As Long
   
3. Private Sub CommandButton1_Click()
   
4. lastRow = Cells(Rows.Count, 2).End(xlUp).Row
   
5. For i = 2 To lastRow
   
6.   Cells(i, 6).ClearContents
   
7.   Cells(i, 6).Interior.ColorIndex = xlNone
   
8. Next i
   
9. End Sub
   
10. 
    
11. Private Sub CommandButton2_Click()
    
12.    
    
13.     lastRow = Cells(Rows.Count, 2).End(xlUp).Row
    
14.    
    
15.     For i = 2 To lastRow
    
16.         If Left(Cells(i, 2).Value, 3) = "LHD" Then
    
17.             If Cells(i, 8).Value = "-" Then
    
18.                 If Cells(i, 10).Value = "-" Then
    
19.                     Cells(i, 6).Interior.Color = RGB(255, 192, 203) ' 浅粉色
    
20.                     Cells(i, 6).Value = "浅粉色"
    
21.                 Else
    
22.                     Cells(i, 6).Interior.Color = RGB(255, 255, 255) ' 白色
    
23.                     Cells(i, 6).Value = "白色"
    
24.                 End If
    
25.             Else
    
26.                 If Cells(i, 10).Value = "-" Then
    
27.                     Cells(i, 6).Interior.Color = RGB(144, 238, 144) ' 浅绿色
    
28.                     Cells(i, 6).Value = "浅绿色"
    
29.                 Else
    
30.                     Cells(i, 6).Interior.Color = RGB(128, 0, 128) ' 紫色
    
31.                     Cells(i, 6).Value = "紫色"
    
32.                 End If
    
33.             End If
    
34.         ElseIf Left(Cells(i, 2).Value, 3) = "RHD" Then
    
35.             If Cells(i, 8).Value = "-" Then
    
36.                 If Cells(i, 10).Value = "-" Then
    
37.                     Cells(i, 6).Interior.Color = RGB(255, 255, 0) ' 黄色
    
38.                     Cells(i, 6).Value = "黄色"
    
39.                 Else
    
40.                     Cells(i, 6).Interior.Color = RGB(255, 20, 147) ' 深粉色
    
41.                     Cells(i, 6).Value = "深粉色"
    
42.                 End If
    
43.             Else
    
44.                 If Cells(i, 10).Value = "-" Then
    
45.                     Cells(i, 6).Interior.Color = RGB(0, 0, 255) ' 蓝色
    
46.                     Cells(i, 6).Value = "蓝色"
    
47.                 Else
    
48.                     Cells(i, 6).Interior.Color = RGB(0, 100, 0) ' 深绿色
    
49.                     Cells(i, 6).Value = "深绿色"
    
50.                 End If
    
51.             End If
    
52.         ElseIf Cells(i, 3).Value = "825D9-38820" Then
    
53.             Cells(i, 6).Interior.Color = RGB(255, 0, 0) ' 红色
    
54.             Cells(i, 6).Value = "红色"
    
55.         Else
    
56.             Cells(i, 6).Interior.ColorIndex = xlNone
    
57.             Cells(i, 6).Value = ""
    
58.         End If
    
59.     Next i
    
60. End Sub

复制代码

汉唐

楼主把函数公式写复杂了，请参考附件