![]() |
||
|
*停權中*
加入日期: Dec 2010
文章: 341
|
現在遇到2個問題
1. 目前查詢的資料庫來源是其他的xls檔案 (A與B檔案要寫入C檔案) A檔案中有 物品編號 & 物品製作時間 & 物品重量 B檔案中有 物品編號 & 物品包裝時間 & 物品體積 現在已經可以在C檔案中列表出 物品編號 & 物品製作時間 & 物品體積 只是 在C檔案中的 物品編號是撈取後系統自己重新排列的 不是原始A檔案中的依據時間的排列 請問這部分該如何指定查詢後寫入C檔案的排列方式 2. 要在某colum寫入運算式 目前作法是這樣寫 ActiveSheet.Range("O2").Select ActiveCell.FormulaR1C1 = "=MIN(RC[-9]:RC[-1])" ActiveSheet.Range("O2").Select ActiveSheet.Columns("O:O").Select ActiveSheet.PasteSelection.Copy 有比較快的方式嗎 謝謝 |
|||||||
|
|
|
*停權中*
加入日期: Dec 2010
文章: 341
|
說明一下
本來在A檔案是這樣 T21AJ038N 20111119 173518 T21AN060N 20111119 193322 T21AN060N 20111119 193322 T21AM120N 20111208 140226 T21AJ038N 20111119 173518 在B檔案是 T21AJ038N 20111118 173518 T21AM120N 20111218 140226 T21AN060N 20111129 193322 T21AN060N 20111129 193322 T21AJ038N 20111129 173518 在C檔案 可以明顯發現 物品順序自動依據英文字母排列了 T21AJ038N 2011-11-19 17:35-18 T21AJ038N 2011-11-19 17:35-18 T21AM120N 2011-12-08 14:02-26 T21AN060N 2011-11-19 19:33-22 T21AN060N 2011-11-19 19:33-22 請問該如何取消依據字母排列 而是原始查詢狀態排列 謝謝 |
||
|
|
|
*停權中*
加入日期: Jan 2008
文章: 3
|
引用:
With Worksheets("(你工作表的名稱)").Sort .SortFields.Clear .SortFields.add key:=Range("b1"), Order:=xlAscending '這裡看是要遞增還是遞減 xlDescending .SetRange Range("a1").CurrentRegion .Header = xlYes .Apply End With |
|
|
|
|
*停權中*
加入日期: Dec 2010
文章: 341
|
引用:
如果不是要遞增遞減排序 而是原始資料排列 要使用哪種語法呢 謝謝 |
|
|
|