UC知道高手...关于Excel编程问题
来源：百度知道 编辑：UC知道 时间：2024/05/09 13:59:35
Public jian
Sub 一等奖()
zs = Sheets(1).Cells(14, 6)
Range("f2:f20").Select
For j0 = zs To 1 Step -1
If Worksheets(1).Cells(j0 + 1, 7) <= Worksheets(1).Cells(j0 + 1, 8) Then
If Worksheets(1).Cells(j0 + 1, 9) = 1 Then GoTo 10
MsgBox Sheets(1).Cells(j0 + 1, 6) & "完毕"
Worksheets(1).Cells(j0 + 1, 9) = 1
End
Else
GoTo 100
End If
10:
Next j0
100:
k = 2
Randomize
s1 = Rnd
s11 = Int(s1 * 1000)
For j1 = 1 To s11
Do
If Worksheets(1).Cells(k, 4) <> "" Then k = k + 1 Else Exit Do
Loop
If j1 = s11 Then
Worksheets(1).Cells(k, 4) = Sheets(1).Cells(j0 + 1, 6)
jian = k
Range("C" & k).Select
End If
k = k + 1
If k >= 167 Then k = 2
Next j1
End Sub
Sub 重新开始()
Range("D2:D2000&qu
Sub 一等奖()
zs = Sheets(1).Cells(14, 6)
Range("f2:f20").Select
For j0 = zs To 1 Step -1
If Worksheets(1).Cells(j0 + 1, 7) <= Worksheets(1).Cells(j0 + 1, 8) Then
If Worksheets(1).Cells(j0 + 1, 9) = 1 Then GoTo 10
MsgBox Sheets(1).Cells(j0 + 1, 6) & "完毕"
Worksheets(1).Cells(j0 + 1, 9) = 1
End
Else
GoTo 100
End If
10:
Next j0
100:
k = 2
Randomize
s1 = Rnd
s11 = Int(s1 * 1000)
For j1 = 1 To s11
Do
If Worksheets(1).Cells(k, 4) <> "" Then k = k + 1 Else Exit Do
Loop
If j1 = s11 Then
Worksheets(1).Cells(k, 4) = Sheets(1).Cells(j0 + 1, 6)
jian = k
Range("C" & k).Select
End If
k = k + 1
If k >= 167 Then k = 2
Next j1
End Sub
Sub 重新开始()
Range("D2:D2000&qu
己发至你邮箱。
下面给一小段加的内容。
'''''''''''''''''''''''''''''''''''
'内容由wacs5加
kkkk = Worksheets(2).UsedRange.Cells.Rows.Count
Debug.Print j0
Worksheets(2).Cells(kkkk + 1, 1) = Worksheets(1).Cells(k, 3) '姓名
Worksheets(2).Cells(kkkk + 1, 2) = Sheets(1).Cells(j0 + 1, 6) '奖项
Worksheets(1).Select
'加到此
'''''''''''''''''''''''''''''''''''
这样一段代码看到晕乎，SHEETS（2).range(x,y)试试吧