- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
- Sub Project1_Click()
- Dim rTar As Range, r&
- r = Cells(Rows.Count, 1).End(3).Row
- If Not r = 1 Then r = r + 1
- Randomize
- For Each rTar In Cells(r, 1).Resize(7)
- rTar = Int((21 - 1) * Rnd + 1) * 0.01
- Next
- End Sub
|
|
發表於 2018-8-13 11:32
| 