[已解决]怎么用VBA只对可见的单元格区域操作？

TCY

怎么用VBA只对可见的单元格区域操作？，详情看附件，谢谢高手们！{:091:}

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-7-30 14:16

代码如下：

1. 
   
2. Public i As Long
   
3. '声明全局变量i
   
4. Sub Input_()
   
5.     If Selection.Column = 1 And Selection.Count = 3 Then
   
6.     '判断选取的是不是第1列并且单元格个数为3
   
7.         If Cells(Selection.Row, "B") <> "" Then
   
8.         '判断所选的B列中是不是有数据
   
9.             If MsgBox("B" & Selection.Row & "中有数据，是否输入？", vbYesNo, "提示") = vbYes Then
   
10.             '判断弹出的提示框所选择是：“yes 还是 no”
    
11.                 i = i + 1
    
12.                 '变量每运行一次则就在自身上加1
    
13.                 Cells(Selection.Row, "A") = i
    
14.                 '所选的A列中输入值i
    
15.                 Cells(Selection.Row, "C") = i
    
16.                 '所选的C列中输入值i
    
17.             End If
    
18.         Else
    
19.             i = i + 1
    
20.             Cells(Selection.Row, "A") = i
    
21.             Cells(Selection.Row, "C") = i
    
22.         End If
    
23.     End If
    
24. End Sub
    

复制代码

附件：
问题.rar (7.7 KB, 下载次数: 71)

2011-7-30 14:15 上传

点击文件名下载附件

跳转到最佳答案楼层

EXCEL-YQ

代码如下：

1. 
   
2. Public i As Long
   
3. '声明全局变量i
   
4. Sub Input_()
   
5.     If Selection.Column = 1 And Selection.Count = 3 Then
   
6.     '判断选取的是不是第1列并且单元格个数为3
   
7.         If Cells(Selection.Row, "B") <> "" Then
   
8.         '判断所选的B列中是不是有数据
   
9.             If MsgBox("B" & Selection.Row & "中有数据，是否输入？", vbYesNo, "提示") = vbYes Then
   
10.             '判断弹出的提示框所选择是：“yes 还是 no”
    
11.                 i = i + 1
    
12.                 '变量每运行一次则就在自身上加1
    
13.                 Cells(Selection.Row, "A") = i
    
14.                 '所选的A列中输入值i
    
15.                 Cells(Selection.Row, "C") = i
    
16.                 '所选的C列中输入值i
    
17.             End If
    
18.         Else
    
19.             i = i + 1
    
20.             Cells(Selection.Row, "A") = i
    
21.             Cells(Selection.Row, "C") = i
    
22.         End If
    
23.     End If
    
24. End Sub
    

复制代码

附件：
问题.rar (7.7 KB, 下载次数: 71)

2011-7-30 14:15 上传

点击文件名下载附件

TCY

那是因为每天都要做很多次这样的工作，我想用VBA解决它，不用老是重复一个动作

TCY

回复 EXCEL-YQ 的帖子

我还想说一下的就是，我隐藏的可能是多列，而且不不固定的，这次可能是隐藏B列，下次可能隐藏C列了，区域也可能不只A1：B1，这么大，当区域很大时，这种代码 是不是就不好写了了

EXCEL-YQ

其实根本就用不到VBA来操作的。直接用F5定位-定位条件-可以见单元格-再输入值按Ctrl+Enter回车，你可以先试一下，了解下这个功能，不过就是不能判断被隐藏的那行有没有值，不过可以做个辅助列来看