[求助]两个功能的VBA如何处理

初学工作者 · 发表于 2007-9-19 18:48

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 3 Then If [b2] = "" Or [f2] = "" Then MsgBox "B2单元格或F2单元格没有内容，请检查！" [b2].Select End If End If End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 10 And Target.Column <> 12 And Target.Column <> 13 And Target.Column <> 14 Then '    If Target.Offset(-1) = "" Then Target.Offset(-1).SelectEnd IfEnd Sub

老申 · 发表于 2007-9-19 18:58

你要实现什么功能啊？

初学工作者 · 发表于 2007-9-19 19:46

代码能在工作表中正常运行

初学工作者 · 发表于 2007-9-19 20:02

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用老申在2007-9-19 18:58:56的发言： 你要实现什么功能啊？</div>在表一的B2和F2不输入规定值时提示先输入,另外用户在输入表时不能有空行.我用了上边的代码运行不了请指导.

老申 · 发表于 2007-9-19 20:39

在表一的B2和F2不输入规定值时提示先输入：把下列代码放在sheet1中Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 3 Then If [b2] = "" Or [f2] = "" Then MsgBox "请先输入B2和F2单元格的内容！" [b2].Select End If End If End Sub下面代码是从楼主的代码修改来的，仅供参考，请根据实际情况进行修改：Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Columns.Count < 2 Or Target.Rows.Count < 2 Then     '如果选择的范围行数小于2，列数小于2就执行下列语句。  If (Target.Row >= 3 And Target.Row <= 10) _  And (Target.Column < 12 Or Target.Column > 14) Then '如果所选择的单元格行号大于等于3且小于等于10，列号小于12或大于14就执行下面语句。   If Target.Offset(-1) = "" Then Target.Offset(-1).Select  '如果所选择的单元格的同列上一行内容为空，就选择上一单元格。 End If End If End Sub

老申 · 发表于 2007-9-19 21:00

你的意思是要让这两个代码在同一个sheet中运行吗？Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If Target.Row > 2 Then         If [b2] = "" Or [f2] = "" Then             MsgBox "请先输入B2单元格和F2单元格的内容"             [b2].Select             Exit Sub         End If         If Target.Columns.Count < 2 And Target.Rows.Count < 2 Then              If (Target.Row > 3 And Target.Row <= 10) _                And (Target.Column < 12 Or Target.Column > 14) Then                 If Target.Offset(-1) = "" Then Target.Offset(-1).Select             End If         End If     End If End Sub

初学工作者 · 发表于 2007-9-20 06:55

这个可以解决我的问了,多谢!

		自动登录	找回密码
密码			免费注册

[求助] [求助]两个功能的VBA如何处理