[已解决]我自己尝试写了个VBA求大神 们指导，我门都还没入

釜底抽薪

Sub 11()
Dim i&
For i = 2 To [i65536].End(3).Row
  If Cells(i, 4) = "检修井" Then

   If Cells(i, 12)= <>"" Then

    Cells(i, 10) + Cells(i, 12)/1000 Else
      Cells(i, 10) + Cells(i, 14)/1000

     end if
    end if
  end sub
   

     还没写完，上面IF运行后在与Cells(i，9) 做比较，大于Cells(i，9)，Cells(i，9)就是黄色文本填充

最佳答案

月排行榜 / 总排行榜

AmoKat

2017-8-8 10:52

釜底抽薪 发表于 2017-8-8 09:54
我试了下 不行 我把表格 传上来了

我的VBA程式有繁體字，請修改為簡體字就可以


Sub 检修井管径检查()
    Dim i&
    For i = 2 To [i65536].End(3).Row
        If Cells(i, "D") = "检修井" And Cells(i, "L") <> "" Then
            If Cells(i, "I") < Cells(i, "J") + Cells(i, "L") / 1000 Or _
               Cells(i, "I") < Cells(i, "J") + Cells(i, "N") / 1000 Then
                Cells(i, "I").Interior.Color = vbYellow
            Else
                Cells(i, "I").Interior.Color = xlNone
            End If
        End If
    Next
End Sub


'色彩常数
'
'说明 常数
'黑　 vbBlack
'红　 vbRed
'绿　 vbGreen
'黄　 vbYellow
'蓝　 vbBlue
'紫红 vbMagenta
'蓝绿 vbCyan
'白　 vbWhite

跳转到最佳答案楼层

idnoidno

請問可以把檔案丟上來以便了解嗎

idnoidno

黃色的本文沒有看到，另外您的代碼有點問題，所以不是很清楚您的需求

AmoKat

Sub 檢修井管徑檢查()
    Dim i&
    For i = 2 To [i65536].End(3).Row
        If Cells(i, "D") = "檢修井" And Cells(i, "L") <> "" Then
            If Cells(i, "I") >= Cells(i, "J") + Cells(i, "L") * 2 / 1000 Or _
               Cells(i, "I") >= Cells(i, "J") + Cells(i, "N") / 1000 Then
                Cells(i, "I").Interior.Color = vbYellow
            Else
                Cells(i, "I").Interior.Color = xlNone
            End If
        End If
    Next
End Sub


'色彩常數
'
'說明 常數
'黑　 vbBlack
'紅　 vbRed
'綠　 vbGreen
'黃　 vbYellow
'藍　 vbBlue
'紫紅 vbMagenta
'藍綠 vbCyan
'白　 vbWhite

釜底抽薪

idnoidno 发表于 2017-8-7 21:00
請問可以把檔案丟上來以便了解嗎

我已经上传了。文本我设置了条件格式，  本来条件格式也行，就是设置了条件格式的话，在插入行，复制行，条件格式的范围有变化。

釜底抽薪

AmoKat 发表于 2017-8-8 07:15
Sub 檢修井管徑檢查()
    Dim i&
    For i = 2 To .End(3).Row

我试了下 不行 我把表格 传上来了

砂海

釜底抽薪 发表于 2017-8-8 09:54
我试了下 不行 我把表格 传上来了

Sub 井管()
    Dim i&
    For i = 2 To [i65536].End(3).Row
        If Cells(i, "D") = "检修井" Then    '注意简繁体
            If Cells(i, "I") >= Cells(i, "J") + Cells(i, IIf(Cells(i, 12) = "", 14, 12)) / 1000 Then
                Cells(i, "I").Interior.Color = vbYellow
            Else
                Cells(i, "I").Interior.Color = xlNone
            End If
        End If
    Next
End Sub

=======================
1.) 注意简繁体
2.) 疑似 颜色要调换一下

大灰狼1976

1. Sub aaa()
   
2. Dim i&, n#
   
3. For i = 2 To [a65536].End(3).Row
   
4.   Cells(i, 9).Interior.Pattern = xlNone
   
5.   If Cells(i, 4) = "检修井" Then
   
6.     If Cells(i, 12) <> "" Then n = Cells(i, 12) Else n = Cells(i, 13)
   
7.     If Cells(i, 9) < Cells(i, 10) + n / 1000 Then Cells(i, 9).Interior.Color = vbRed
   
8.   End If
   
9. Next i
   
10. End Sub

复制代码

砂海

If Cells(i, "D") Like "[检檢]修井" Then
这样 简繁体 都可以 , 但是从数据规范的角度 , 不推荐.

AmoKat

釜底抽薪 发表于 2017-8-8 09:54
我试了下 不行 我把表格 传上来了

我的VBA程式有繁體字，請修改為簡體字就可以


Sub 检修井管径检查()
    Dim i&
    For i = 2 To [i65536].End(3).Row
        If Cells(i, "D") = "检修井" And Cells(i, "L") <> "" Then
            If Cells(i, "I") < Cells(i, "J") + Cells(i, "L") / 1000 Or _
               Cells(i, "I") < Cells(i, "J") + Cells(i, "N") / 1000 Then
                Cells(i, "I").Interior.Color = vbYellow
            Else
                Cells(i, "I").Interior.Color = xlNone
            End If
        End If
    Next
End Sub


'色彩常数
'
'说明 常数
'黑　 vbBlack
'红　 vbRed
'绿　 vbGreen
'黄　 vbYellow
'蓝　 vbBlue
'紫红 vbMagenta
'蓝绿 vbCyan
'白　 vbWhite