2.其他列代码设计 操作同上,继续制作其他月份的隐藏代码,只要更改宏的名称为“二月”、“三月”……、“If Cells(1, i) =”后的代码也更改为对应月份,完成列隐藏代码的设置。 3.行隐藏和复原代码设计 操作同上,设置一个变量j,行隐藏属性代码为“Cells(j, 1).EntireRow.Hidden = True”)。最后再设置一个“...
If Cells(y, 1).Value = "" Then Cells(y, 1).Value = "无任何值" Cells(y, 1).Interior.ColorIndex = 6 End If Next End Sub 程序分析:首先,Cells可以表示单元格,Cell表示方法为Cells(行号,列标),“行号”参数表示纵向的位置,“列标”参数表示横向的位置,例如,Cells(1,2)的行号为1,列标为2,...
If Cells(y, 1).Value = "" Then Cells(y, 1).Value = "无任何值" Cells(y, 1).Interior.ColorIndex = 6 End If Next End Sub 程序分析:首先,Cells可以表示单元格,Cell表示方法为Cells(行号,列标),“行号”参数表示纵向的位置,“列标”参数表示横向的位置,例如,Cells(1,2)的行号为1,列标为2,...
Sub 循环删除空白行() Dim ws As Worksheet Dim lastRow As Integer Set ws = ThisWorkbook.Sheets("表3") With ws lastRow = .UsedRange.Rows.Count For i = lastRow To 1 Step -1 If .Cells(i, 1) = "" Then Rows(i).Delete End If Next End WithEnd Sub ...
根据学生分数，按照右边的判断标准来确定学生成绩，如果用Excel函数IF函数的话，需要嵌套4个if语句，繁琐且容易出错，这里我们用VBA里面的IF语句，逐句书写，条理清晰，一键判断。代码明细如图中所示，其中的for ...next是个循环语句，不是今天介绍的重点，感兴趣的小伙伴可以留意后面的教程；cells代表单个单元格的意思...
If Cells(1, i) = "" Then Cells(2, i) = "无数据" Else Cells(2, i) = "有数据" End If Next End Sub 二、Select…Case语句 1、概念介绍 在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“...
If Cells(j, i) < 50 Then Cells(j, i).EntireColumn.Hidden = True Next Next End Sub 代码解释: 先设置两个列、行的变量,然后在指定区域遍历,如果某个单元格的数值小于50,那么就将单元格所在的列属性设置为隐藏。 同上再插入一个名为“筛选”的形状并关联到“筛选”宏,这样点击一下“筛选”就可以完成...
if……then……end if结构 该结构用于单选择判断语句执行，具体用法看下面实例。实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。程序：Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" ...
If Cells(11, 1) <> "" Then Cells(11, 2) = "我是Excel,喜欢可以关注我" Exit For End If End Sub 其实这种写法才是IF-then-End IF语句的最官方的写法,最最标准的写法。聪明的你,肯定发现上面第一个语句就是这个语句就是缩写方法。此时相信你已经能够明白单条件的IF的语句的使用方法啦! Step-03 i...
End If Next End Sub 这次的代码，我们只是把上次的第二个If Cells(i, 4) >= 60执行的代码段，放到了Else的执行代码段中。这里的Else是不满足条件情况，就是不满足Cells(i, 4) < 60，等同于If Cells(i, 4) >= 60条件。一起来看看执行后能不能达到相同效果 依然是完美实现，你学会了没有？~如果你...