[算表] vba 清除表格不乾淨

看板Office作者icecreamgirl (冰淇淋少女)時間11年前 (2013/04/22 01:50)推噓0(0推 0噓 4→)

留言4則, 2人參與討論串1/1

軟體:excel 版本:2010 我設計一套賽務系統，想要能重複使用連結如下 https://dl.dropboxusercontent.com/u/25757777/test.xlsm 操作流程是這樣，在List這工作表新增比賽選手然後按"Update the List"後這個賽務系統會先清掉之前"Total Score"工作簿的紀錄再把選手名單複製到"Total Score"上人數變多，系統沒有bug 人數變少，系統有bug 第一支隊伍的名單刪不掉請問一下要怎樣解決這問題呢? 附一下我刪作業簿內容的語法 Sub clean_content() Worksheets("Total Score").Select Sheets("Total Score").Range(Cells(6, 1), Cells(600, 75)).ClearContents Range(Cells(6, 1), Cells(600, 75)).Interior.ColorIndex = 0 Range(Cells(4, 6), Cells(5, 75)).ClearContents Range(Cells(4, 6), Cells(5, 75)).Interior.ColorIndex = 0 Worksheets("Ranking").Select Sheets("Ranking").Range(Cells(2, 1), Cells(600, 75)).ClearContents Range(Cells(2, 1), Cells(600, 75)).Interior.ColorIndex = 0 Worksheets("Room").Select Sheets("Room").Range(Cells(2, 1), Cells(600, 12)).ClearContents Range(Cells(2, 1), Cells(600, 12)).Interior.ColorIndex = 0 Range(Cells(3, 13), Cells(600, 13)).ClearContents Range(Cells(3, 13), Cells(600, 13)).Interior.ColorIndex = 0 Worksheets("Randomize Room").Select Sheets("Randomize Room").Range(Cells(2, 1), Cells(60, 2)).ClearContents End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.36.122.111

→

icecreamgirl

04/22 01:51, , 1^F

04/22 01:51, 1^F

→

soyoso

04/22 08:53, , 2^F

04/22 08:53, 2^F

→

icecreamgirl

04/22 11:35, , 3^F

04/22 11:35, 3^F