[發問] 請問是否可以用儲存格的資料來排序工作表

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-29 15:36 | 顯示全部帖子

[發問] 請問是否可以用儲存格的資料來排序工作表

本帖最後由 luffyzoro 於 2011-11-29 15:42 編輯

各位高手
不好意思,又要來請教

假設A檔案中有多個工作表,但其格式都一樣
如果要用每個工作表的B2儲存格替工作表排序
B2儲存格是數值
工作表則由B2儲存格的大小,由左到右依序為由小到大

請問是否可能完成

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

2^#

發表於 2011-11-29 16:30 | 顯示全部帖子

回復 2# GBKEE

版大您好,

Sh.Move Sheets(Sh.[b2])執行到這一行時出現執行階段錯誤"13" 型態不符
請教版大
Sh.Move Sheets(Sh.[b2])這行的意思是? Sheets(sh.[b2])是指worksheets中的每一sheet的儲存格b2嗎?

感謝版大的迅速回覆

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

3^#

發表於 2011-11-29 16:55 | 顯示全部帖子

本帖最後由 luffyzoro 於 2011-11-29 17:04 編輯

回復 4# Hsieh

版大您好,

雖然您寫的我幾乎看不懂.......
但是程式試run的結果是ok的.......因為我將儲存格內容改為數字
才發現我的提問是錯的
請問如果儲存格b2的內容若是 '0753333 這種格式的話
需要如何做修改
抱歉,連問題都寫的不清楚

謝謝

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

4^#

發表於 2011-11-29 16:57 | 顯示全部帖子

回復 5# GBKEE

是的,版大

我發現儲存格是 '0753333 這種資料

真是抱歉,問題都問的不清楚

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

5^#

發表於 2011-11-30 10:48 | 顯示全部帖子

回復 8# Hsieh

Dim sCount%, i%, j%
   sCount = Worksheets.Count
      If sCount = 1 Then Exit Sub
      For i = 1 To sCount - 1
      For j = i + 1 To sCount
         If Worksheets(j).Range("b2").Value < Worksheets(i).Range("b2") Then
               Worksheets(j).Move before:=Worksheets(i)
         End If
      Next
      Next
請問版大這樣寫與您寫的是否有差異?

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

6^#

發表於 2011-11-30 10:49 | 顯示全部帖子

回復 9# GBKEE

Dim sCount%, i%, j%
   sCount = Worksheets.Count
      If sCount = 1 Then Exit Sub
      For i = 1 To sCount - 1
      For j = i + 1 To sCount
         If Worksheets(j).Range("b2").Value < Worksheets(i).Range("b2") Then
               Worksheets(j).Move before:=Worksheets(i)
         End If
      Next
      Next
請問版大這樣寫與您寫的是否有差異?