VBA 求助《俩个单元格，其中一个填写，另外一个必须填写，负责不可以保存》

xiaocc3422

求改为大神帮忙修改下 VBA代码：
附件需要 反馈的有俩个内容J、K列，当J列有数据时 K列 不可以为空；
我下面这个只可以在第二行 进行判断，无法在J列判断，求助，帮忙修改下，谢谢；

（还有下面的是 对J判断，K不得为空；希望能帮忙，再添加个对K判断, J不得为空的）


Q.rar (46.99 KB, 下载次数: 8)

2014-10-28 16:46 上传

点击文件名下载附件
我再此，谢谢！

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Worksheets("未入库").Range("J2") <> "" And Worksheets("未入库").Range("K2") = "" Then
    MsgBox "在途原因未填写，不可以保存,，糊涂了吧？", , "提醒"
    Worksheets("未入库").Activate
    ActiveSheet.Range("J2").Select
    Cancel = True
    End If
    End Sub





再次，感谢！

再再次，感谢！

jpj123

帮你修改了下代码，请测试是不是你要的效果。

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. Dim m%, n%
   
3. m = ActiveSheet.Range("J65536").End(xlUp).Row
   
4.     For n = 2 To m
   
5.     If Worksheets("未入库").Range("J" & n) <> "" And Worksheets("未入库").Range("K" & n) = "" Then
   
6.     MsgBox "在途原因未填写，不可以保存,，糊涂了吧？", , "提醒"
   
7.     Worksheets("未入库").Activate
   
8.     ActiveSheet.Range("J" & n).Select
   
9.     Cancel = True
   
10.     End If
    
11.     Next
    
12.     End Sub

复制代码

xiaocc3422

jpj123 发表于 2014-10-28 17:30
帮你修改了下代码，请测试是不是你要的效果。

谢谢了，是这个效果；

现在是对J列判断的，怎么修改才可以同时对K列判断呢，就是确保只要这一行有内容填写，俩个单元格都不得为空；

麻烦了