找出最小的数字

发布时间:2019年8月29日         浏览次数:37次

源代码:

Private Sub CommandButton1_Click()  '开始

Dim i, j, yanben As Integer

Dim duibi As Range

Range("a1:f10").Interior.Color = RGB(255, 255, 0)

For i = 1 To 10

For j = 1 To 6

yangben = Cells(i, j).Value

For Each duibi In Range("a1:f10")

'If duibi < yangben Then  '找出最大数

If duibi > yangben Then  '找出最小数

duibi.Interior.Color = RGB(255, 255, 255)

End If

Next

Next

Next

End Sub

Private Sub CommandButton2_Click()  '刷新

Range("a1:f10").Interior.Color = RGB(255, 255, 255)

End Sub


源文件:
点击下载文件:找最大数1.rar