2009年12月2日 星期三

比對誰有電腦(EXCEL VBA 程式)

Private Sub cmdRUN_Click()
Dim i As Integer, j As Integer
Dim 所有人 As Integer
Dim 有電腦的人 As Integer

所有人 = 30
有電腦的人 = 20

For i = 2 To 所有人
Cells(i, 4) = ""
For j = 2 To 有電腦的人
If Cells(i, 3) = Cells(j, 1) Then Cells(i, 4) = "有電腦": Exit For
Next j
Next i
MsgBox "OK"
End Sub

沒有留言:

Search Google

Google

熱門文章