Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2423|回复: 11

[已解决]怎么写请老师们看看,这个判断用VBA该怎么写。

[复制链接]
发表于 2013-3-16 20:42 | 显示全部楼层 |阅读模式
请老师们看看,这个判断用VBA该怎么写。
先写过老师们!
A、B列已有数据,无空格。C列有部分数据,数据不连续。单独对D列或E列输入数据时,遇到C列单元格为空,则禁止录入并跳出提示窗。
最佳答案
2013-3-16 20:54
判断前一列单元格空格.rar (13.37 KB, 下载次数: 7)
QQ截图002.jpg

判断前一列单元格空格.rar

7.05 KB, 下载次数: 3

发表于 2013-3-16 20:49 | 显示全部楼层
本帖最后由 hwc2ycy 于 2013-3-16 20:52 编辑
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Count > 1 Then Exit Sub
  3.     If Target.Address Like "$[DE]$*" Then
  4.         Dim lRow As Long
  5.         lRow = Target.Row
  6.         Application.EnableEvents = False
  7.         If Len(Cells(lRow, 1)) = 0 Or Len(Cells(lRow, 2)) = 0 Or Cells(lRow, 1) Like "* *" Or Cells(lRow, 2) Like "* *" Then
  8.             Target = ""
  9.             MsgBox "请先在A,B列输入完整的内容后再操作D,E列"
  10.         End If
  11.         Application.EnableEvents = True
  12.     End If
  13. End Sub
复制代码
回复

使用道具 举报

发表于 2013-3-16 20:51 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-16 20:51 | 显示全部楼层
代谢放到SHEET1模块里。
回复

使用道具 举报

发表于 2013-3-16 20:53 | 显示全部楼层
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Count > 1 Then Exit Sub
  3.     If Target.Address Like "$[DE]$*" Then
  4.         Dim lRow As Long
  5.         lRow = Target.Row
  6.         Application.EnableEvents = False
  7.         If Len(Cells(lRow, 1)) = 0 Or Len(Cells(lRow, 2)) = 0 Or Cells(lRow, 1) & Cells(lRow, 2) Like "* *" Then
  8.             Target = ""
  9.             MsgBox "请先在A,B列输入完整的内容后再操作D,E列"
  10.         End If
  11.         Application.EnableEvents = True
  12.     End If
  13. End Sub
复制代码
刚上面B列的写错了。
回复

使用道具 举报

发表于 2013-3-16 20:54 | 显示全部楼层    本楼为最佳答案   
判断前一列单元格空格.rar (13.37 KB, 下载次数: 7)
回复

使用道具 举报

 楼主| 发表于 2013-3-16 21:00 | 显示全部楼层
hwc2ycy 发表于 2013-3-16 20:54

先谢谢老师!
好像是有点问题,不懂,说不上来。
在D、E列还是输入数据,也不跳提示。
QQ截图004.jpg
QQ截图003.jpg
回复

使用道具 举报

 楼主| 发表于 2013-3-16 21:03 | 显示全部楼层
图片上C列黄色则D、E列禁止输入并提示,蓝色区域因对应的C列有数据,则可以输入。
回复

使用道具 举报

 楼主| 发表于 2013-3-16 21:09 | 显示全部楼层
hwc2ycy 发表于 2013-3-16 20:54

谢谢老师,明白了。只要改下要判断的列数就好了。
感谢老师!
回复

使用道具 举报

发表于 2013-3-16 21:25 | 显示全部楼层
我忘了C列的事了。你在判断条件里再加一个就行了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:20 , Processed in 0.492118 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表