一键判定数字大小,结果显示在固定单元格

发布时间:2019年8月28日         浏览次数:48次

源代码:

Private Sub CommandButton1_Click()  '按钮控件

For i = 1 To 10   'for 循环语句 开始

Select Case Cells(i, "b")  ' 选定 b行第一列 单元格 数值 ,其中 i 是变量

Case Is <= 4  '判断 此数值是否 小于5

Cells(i, "c") = "<=5"  '如果小于5,那么 在c行第一列显示 “<=5”,其中i是变量

Case Else     '其他情况

Cells(i, "c") = "大于等于5"  '在c行第一列显示“大于等于5”,其中i是变量

End Select '结束 选定

Next   'for 循环语句 对应

End Sub '按钮控件 对应


源文件下载:
点击下载文件:一键判别数字大小.rar