excel，，請大家幫我編壹個時時對比數值是否相等的小程序，，用VBA什麽都可以

在需要此功能的那個工作表標簽上點右鍵，選擇“查看代碼”打開宏編輯器，在右邊的空白處貼上如下代碼，就可以實現。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not (Target.Row() = 2 And Target.Column() = 1) Then Exit Sub

If Left(Range("A1"), Len(Target.Text)) = Target.Text Then

Target.Interior.Color = 65280

Else

Target.Interior.Color = 255

End If

Range("A1").Value = Int(Rnd() * 10 ^ 9)

Target.Select

End Sub

有疑問，請Hi我或給我發百度消息

GoodLuck!