返回列表下一主題上一主題發帖

執行VBA上的問題(sorting不完全)

m09903020

中學生 Rank: 2

帖子: 40
主題: 13
精華: 0
積分: 69
點名: 0
作業系統: w7
軟體版本: office07
閱讀權限: 20
性別: 男
註冊時間: 2012-4-24
最後登錄: 2012-8-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-24 19:19 | 顯示全部帖子

執行VBA上的問題(sorting不完全)

問題: 執行時sorting不完全...必須按很多次執行才排序完成。邏輯上語法上都檢查過3便了，應該是沒問題!  所以現在我不知道是什麼問題...以往沒寫過VBA遇到這種問題..所以上來貴版求救

小的在下我今天寫了一個小sorting 排序三筆資料 5 4 3 2 1
                                                                                          5 4 3 2 1
                                                                                          5 4 3 2 1
由小排到大在某些特定cell中(也就是原本的15個格子)，以下是我的程式碼，
Sub sorting_order()
Dim temp As Integer

For i = 2 To 4
For j = 7 To 10

If (Worksheets("Sheet1").Cells(i, j).Value > Worksheets("Sheet1").Cells(i, j + 1).Value) Then

temp = Worksheets("Sheet1").Cells(i, j + 1).Value
Worksheets("Sheet1").Cells(i, j + 1).Value = Worksheets("Sheet1").Cells(i, j).Value
Worksheets("Sheet1").Cells(i, j).Value = temp

End If

Next
Next

End Sub

這只是小小的三筆排序測試，因為我需要幾千筆的排序若按完執行不知何時可完整完成排序則會無解= =。

請貴人高抬貴手，謝謝。