好用ㄉ桌球循環賽自動排名在府城桌球協會

文章數 : 6 注冊日期 : 2012-11-02 來自 : 南師

參加府城桌球賽發現他們使用一套以EXCEL應用在桌球循環賽自動排名!好用哦!網址:
http://tw.myblog.yahoo.com/fu-cherng/article?mid=1589&prev=1618&next=1584

文章數 : 6 注冊日期 : 2012-11-02 來自 : 南師

excel高手的傑作(程式碼很高深)

文章數 : 3 注冊日期 : 2012-11-19 來自 : 師大

下載測試ok，下個月主辦比賽應可派上場。

文章數 : 3 注冊日期 : 2012-11-19 來自 : 師大

請問我們公司要辦6隊循環賽要如何更改呀?

文章數 : 6 注冊日期 : 2012-11-02 來自 : 南師

排名程式碼是通用ㄉ不用更改, 只更改excel表格公式內範圍即可~

文章數 : 3 注冊日期 : 2012-11-19 來自 : 師大

6隊循環賽更改後排名ok!謝謝!另外亂數重置數據又要如何修改才能使用?

文章數 : 6 注冊日期 : 2012-11-02 來自 : 南師

將原程式碼:Sub 亂數重置3()
Application.ScreenUpdating = False
[Sheet2!C11:G12].Copy
With Sheets("５隊１０場").Range("C8:G27")
.PasteSpecial xlPasteFormulas
.Value = .Value
.Item(1).Select
End With
Application.CutCopyMode = xlCut
If Application.CountIf([J8:J27], "*＝*") > 0 Then Call 亂數重置3
Beep
End Sub

另外複製在其下方貼上，
Sub 亂數重置數據3()　改　Sub 亂數重置數據4()

Sheets("５隊１０場").Range("C8:G27")
只要改〔工作表名稱〕及〔Range範圍〕即可！