Excel精英培训网

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

[已解决]帮看段代码,我搞不定

[复制链接]
发表于 2010-2-5 09:40 | 显示全部楼层 |阅读模式

想在A列达到这样的功能:从上到上输入文字,但中间不能出现忘了填文字空格,可这段代码好象不行,帮我看看,谢谢!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim y As Integer
Dim x As Integer
x = Range("a65536").End(xlUp).Row
For y = 1 To x
  If Range("a" & y).Value = "" Then
     MsgBox "您有空的单元格存在,请补上数据!"
  End If
  y = y + 1
  Next y
End Sub

最佳答案
2010-2-5 10:15

如果不对的话,将Columns(1)改换成你指定的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Columns(1).SpecialCells (4)
    MsgBox "您有空的单元格存在,请补上数据!"
ErrorHandler:
End Sub

[em09]
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-2-5 10:15 | 显示全部楼层    本楼为最佳答案   

如果不对的话,将Columns(1)改换成你指定的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Columns(1).SpecialCells (4)
    MsgBox "您有空的单元格存在,请补上数据!"
ErrorHandler:
End Sub

[em09]
回复

使用道具 举报

发表于 2010-2-5 10:17 | 显示全部楼层
回复

使用道具 举报

发表于 2010-2-5 10:24 | 显示全部楼层

QUOTE:
以下是引用爱疯在2010-2-5 10:15:00的发言:

如果不对的话,将Columns(1)改换成你指定的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Columns(1).SpecialCells (4)
    MsgBox "您有空的单元格存在,请补上数据!"
ErrorHandler:
End Sub

[em09]

定位空值的方法,应该可以。

回复

使用道具 举报

 楼主| 发表于 2010-2-5 10:44 | 显示全部楼层

谢谢楼上的几位,祝新年快乐!

问题解决了,但我弄不明白我错在哪?

回复

使用道具 举报

发表于 2010-2-5 11:08 | 显示全部楼层

QUOTE:
以下是引用爱疯在2010-2-5 10:15:00的发言:

如果不对的话,将Columns(1)改换成你指定的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Columns(1).SpecialCells (4)
    MsgBox "您有空的单元格存在,请补上数据!"
ErrorHandler:
End Sub

[em09]

学习!!!!!!

回复

使用道具 举报

发表于 2010-2-5 11:20 | 显示全部楼层

QUOTE:
以下是引用yls1668在2010-2-5 10:44:00的发言:

谢谢楼上的几位,祝新年快乐!

问题解决了,但我弄不明白我错在哪?

我觉得你的代码也不算错,相当于有几个空单元格就提示几次(y=y+1是不需要的,因为每执行一次next,y就自动+1了)

回复

使用道具 举报

 楼主| 发表于 2010-2-5 11:39 | 显示全部楼层

谢谢爱疯,谢谢了
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 23:21 , Processed in 0.455915 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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