哪个老师能给优化一下

A全屋定制工厂

     If Target.Row > 7 And Target.Column = 3 Then

         If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) < 500 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 68

                Cells(Target.Row, 11).Value = "=RC[-1]"   'RC[-1] 对当前单元格的行不变,列向左移动一列的单元格,,那么RC[-1]表示的就是C5单元格

           End If

       End If

       End If

             If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 500 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 78

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

      If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 600 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 88

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

            If Target.Row > 7 And Target.Column = 3 Then

           If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 700 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 98

                Cells(Target.Row, 11).Value = "=RC[-1]"

            End If

       End If

  End If

          If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 800 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 108

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If
           End If
           End If

        If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 900 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 118

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

     If Target.Row > 7 And Target.Column = 3 Then

         If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) < 500 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 98

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

       End If

       End If

             If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 500 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 108

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

      If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 600 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 118

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

            If Target.Row > 7 And Target.Column = 3 Then

           If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 700 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 128

                Cells(Target.Row, 11).Value = "=RC[-1]"

            End If

       End If

  End If

          If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 800 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 138

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

        If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 900 And InStr(Cells(Target.Row, 4).Value, "颗粒板") Then

                Cells(Target.Row, 9).Value = 148

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If         
     If Target.Row > 7 And Target.Column = 3 Then

         If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) < 500 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 78

                Cells(Target.Row, 11).Value = "=RC[-1]"   'RC[-1] 对当前单元格的行不变,列向左移动一列的单元格,,那么RC[-1]表示的就是C5单元格

           End If

       End If

       End If

             If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 500 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 88

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

      If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 600 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 98

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

            If Target.Row > 7 And Target.Column = 3 Then

           If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 700 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 108

                Cells(Target.Row, 11).Value = "=RC[-1]"

            End If

       End If

  End If

          If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 800 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 118

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

         If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "普通抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 900 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 128

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If      

     If Target.Row > 7 And Target.Column = 3 Then

         If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) < 500 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 108

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

       End If

       End If

             If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 500 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 118

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

      If Target.Row > 7 And Target.Column = 3 Then

            If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 600 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 128

                Cells(Target.Row, 11).Value = "=RC[-1]"

           End If

           End If

           End If

            If Target.Row > 7 And Target.Column = 3 Then

           If InStr(Target.Value, "托底抽屉") Then

            If Val(Cells(Target.Row, 6).Value) >= 700 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 138

                Cells(Target.Row, 11).Value = "=RC[-1]"
            End If
       End If
  End If
          If Target.Row > 7 And Target.Column = 3 Then
            If InStr(Target.Value, "托底抽屉") Then
            If Val(Cells(Target.Row, 6).Value) >= 800 And InStr(Cells(Target.Row, 4).Value, "多层板") Then
                Cells(Target.Row, 9).Value = 148
                Cells(Target.Row, 11).Value = "=RC[-1]"
           End If
           End If
           End If
         If Target.Row > 7 And Target.Column = 3 Then
            If InStr(Target.Value, "托底抽屉") Then
            If Val(Cells(Target.Row, 6).Value) >= 900 And InStr(Cells(Target.Row, 4).Value, "多层板") Then

                Cells(Target.Row, 9).Value = 158
                Cells(Target.Row, 11).Value = "=RC[-1]"
           End If
           End If
           End If      

半百

A全屋定制工厂

半百 发表于 2023-2-12 21:06

感谢感谢    我先试试

mmwwdd

最好上附件

A全屋定制工厂

mmwwdd 发表于 2023-2-13 14:46
最好上附件

这是文件  判断三列名称   四列材质   六列尺寸    然后9列出价格    11列面积=10列的数   老师给优化一下  我这个太复杂了

A全屋定制工厂

mmwwdd 发表于 2023-2-13 14:46
最好上附件

老师 能优化么