[已解决]怎么设置若前个单元格没完成，后面的单元格则无法选中或被隐藏

wlstc3

小弟初来乍到，请各位大哥指教 如附件A15，B15，C15，D15，E15其中任何一项没有填写，G15就无法选定或者不会出现该怎么做？

最佳答案

月排行榜 / 总排行榜

1091126096

2015-3-19 18:37

vba

跳转到最佳答案楼层

1091126096

vba

wlstc3

1091126096 发表于 2015-3-19 18:37
vba

谢谢！~不过我是菜鸟。。不会使用VBA。。有教程可以学习如何做一整套VBA的东西么

文轩馨婷

................
看看是不是你要的...

1. G15=IF(COUNTA($A$15:$E$15)<5,"",IF(F15="不合格","不通过","通过"))

复制代码

1091126096

wlstc3 发表于 2015-3-20 09:44
谢谢！~不过我是菜鸟。。不会使用VBA。。有教程可以学习如何做一整套VBA的东西么

我楼上的文件，打开时需启用宏
资料：
http://www.excelpx.com/thread-313247-1-1.html

wlstc3

1091126096 发表于 2015-3-20 12:29
我楼上的文件，打开时需启用宏
资料：
http://www.excelpx.com/thread-313247-1-1.html

好的谢谢~好多阿。。你给我的那个文件做了哪几个步骤啊我想对照着学习下

wlstc3

文轩馨婷 发表于 2015-3-20 10:46
................
看看是不是你要的...

这个和我自己做的效果一样 不过还是谢谢你{:171:}

1091126096

wlstc3 发表于 2015-3-20 17:23
好的谢谢~好多阿。。你给我的那个文件做了哪几个步骤啊我想对照着学习下

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim I
   
3. I = ActiveCell.Row
   
4. If Application.WorksheetFunction.CountBlank(Range("A" & I & ":F" & I)) >= 1 And ActiveCell.Column = 7 Then
   
5. Cells(I, 1).Select
   
6. End If
   
7. End Sub

复制代码

wlstc3

1091126096 发表于 2015-3-20 19:14

我看了下这个代码选定的是行和列的，那如何设置成指定的区域比如A15：G16。 且在If Application.WorksheetFunction.CountBlank(Range("A" & I & ":F" & I)) >= 1 And ActiveCell.Column = 7 Then
Cells(I, 1).Select 中前面6个单元格不只是数字，还有文字。所以是否可以改成前面几个单元格不等于空值

1091126096

1. If Application.WorksheetFunction.CountBlank(Range("A" & I & ":g" & I)) >= 1 And ActiveCell.Column = 8 Then
   
2. Cells(I, 1).Select   

复制代码

意思是如果当前行的A：G列有一个空值，不能将光标定位在第8列即H列。