[已解决]在宏里面怎么套用AND函数，麻烦各位老师给看下

976190982

=AND($A662<>"",$B662<>"",$C662<>"",$D662="")   应用到=$H$662:$H$666    填充红色
已上这个AND函数   用宏怎么写   。麻烦各位老师给个解决方案

Tiaoxingma.zip (482.44 KB, 下载次数: 1)

2017-4-29 12:39 上传

点击文件名下载附件

用条件格式    要求如下 ：判断C列有值时PQR列填充红色或者不允许输入，判断CD列有值时OQR列填充红色或者不允许输入，判断CDE有值时OPR列填充红色或者不允许输入，判断CDEF有值时OPQ列填充红色或者不允许输入
条件格式参照  ：

工作簿1.rar (12.97 KB, 下载次数: 1)

2017-4-29 12:41 上传

点击文件名下载附件

只是列改变了            同时  

Private Sub Workbook_open()
    Worksheets("Tiaoxingma").Range("O2:R50000").Select
Selection.Clear
End Sub

清楚指定区域的单元格 。

清空内容使用 range("a1:a100").clearcontents 清空内容与格式使用 range("a1:a100").clear 改为以上方式启动表格就太慢

最佳答案

月排行榜 / 总排行榜

327718098

2017-4-29 15:50

976190982 发表于 2017-4-29 12:48
已经上传   谢谢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents=False
If Target.Count > 1 Then
    MsgBox "不能选中多个单元格"
    Cells(Target.Row, 1).Select
    End
    End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And _
Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" Then
    If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
        MsgBox "当abcd列不为空时，EFG列不能输入"
        Cells(Target.Row, 1).Select
        End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And _
Cells(Target.Row, 3) <> "" Then
    If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 8 Then
    MsgBox "当abc列不为空时，EFH列不能输入"
    Cells(Target.Row, 1).Select
    End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" Then
    If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 8 Then
    MsgBox "当ab列不为空时，EGH列不能输入"
    End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" Then
    If Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then
     MsgBox "当a列不为空时，FGH列不能输入"
    Cells(Target.Row, 1).Select
    End If
End If
Application.EnableEvents=True
End Sub

跳转到最佳答案楼层

327718098

上附件，说清楚要求

976190982

327718098 发表于 2017-4-27 18:18
上附件，说清楚要求

因为特殊性，表格打开就要对指定区域清除内容，但是我对要清除的单元格区域做了条件格式。每一次打开条件格式就没有 。

因此我想问问怎么把条件格式用宏来编写 ，这样每一次打开清除内容后再执行条件格式就好

可惜我对vba不了解  所以求救各位大咖

327718098

976190982 发表于 2017-4-27 19:27
因为特殊性，表格打开就要对指定区域清除内容，但是我对要清除的单元格区域做了条件格式。每一次打开条件 ...

没附件谁知道要怎么写。range("A662")<>"" and range("B662")<>"" and range("C662") <>"" and range("D662") =""
这就是你要大and 格式

金樽空对月

代码如下：

1. Sub myfill()
   
2. If [a662] <> "" And [b662] <> "" And [c662] <> "" And [d662] = "" Then
   
3.     [h662:h666].Interior.ColorIndex = 3
   
4. End If
   
5. End Sub

复制代码

976190982

327718098 发表于 2017-4-27 19:43
没附件谁知道要怎么写。range("A662")"" and range("B662")"" and range("C662") "" and range("D662") = ...

好 吧     谢谢   我稍后上传

976190982

金樽空对月 发表于 2017-4-27 21:44
代码如下：

谢谢  我试试

976190982

327718098 发表于 2017-4-27 19:43
没附件谁知道要怎么写。range("A662")"" and range("B662")"" and range("C662") "" and range("D662") = ...

已上传附件

976190982

976190982 发表于 2017-4-29 12:35
好 吧     谢谢   我稍后上传

已经上传   谢谢

327718098

976190982 发表于 2017-4-29 12:48
已经上传   谢谢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents=False
If Target.Count > 1 Then
    MsgBox "不能选中多个单元格"
    Cells(Target.Row, 1).Select
    End
    End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And _
Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" Then
    If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
        MsgBox "当abcd列不为空时，EFG列不能输入"
        Cells(Target.Row, 1).Select
        End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" And _
Cells(Target.Row, 3) <> "" Then
    If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 8 Then
    MsgBox "当abc列不为空时，EFH列不能输入"
    Cells(Target.Row, 1).Select
    End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" Then
    If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 8 Then
    MsgBox "当ab列不为空时，EGH列不能输入"
    End
    Else
    End
    End If
End If
If Cells(Target.Row, 1) <> "" Then
    If Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then
     MsgBox "当a列不为空时，FGH列不能输入"
    Cells(Target.Row, 1).Select
    End If
End If
Application.EnableEvents=True
End Sub