發帖 回復
返回列表
上一页1...8485868788...401下一页
到第
页
  • 109210閱讀
  • 6010回復

【成皇敗寇YFF™】重開有望，各老鬼請歸位!!!! [復制鏈接]

 上一主題 下一主題
離線六如
超級會員
發帖
5719
好友元
2
閱讀權限
26984
貢獻值
0
只看該作者 1275  發表于: 2010-08-30
三郎！
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1276  發表于: 2010-08-30
我未出分大家唔好派住~
回復
舉報
離線火鳳凰
資深會員
發帖
91264
好友元
54168
閱讀權限
91264
貢獻值
2
只看該作者 1277  發表于: 2010-08-30
引用第1276樓迪神於2010-08-30 13:30發表的“”:
我未出分大家唔好派住~ [表情]


我今次已經唔出分，費事搞亂你，不過結果都係有人出左分……
回復
舉報
離線jin
特級會員
發帖
5949
好友元
0
閱讀權限
20534
貢獻值
2
只看該作者 1278  發表于: 2010-08-30
引用第1277樓火鳳凰於2010-08-30 13:33發表的“”:
我今次已經唔出分，費事搞亂你，不過結果都係有人出左分…… [表情]



原來是這樣∼
難怪∼
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1279  發表于: 2010-08-30
引用第1277樓火鳳凰於2010-08-30 13:33發表的“”:
我今次已經唔出分，費事搞亂你，不過結果都係有人出左分…… [表情]

可唔可以整個英文version呀?個worksheet要英文名先可以係公司update到，宜家自己亂撞落去update到亂哂~
回復
舉報
離線火鳳凰
資深會員
發帖
91264
好友元
54168
閱讀權限
91264
貢獻值
2
只看該作者 1280  發表于: 2010-08-30
引用第1279樓迪神於2010-08-30 13:35發表的“”:
可唔可以整個英文version呀?個worksheet要英文名先可以係公司update到，宜家自己亂撞落去update到亂哂~ [表情] [表情] [表情]


遲下得閒先再整過……

唔想又要改住……
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1281  發表于: 2010-08-30
咁我今晚返屋企先update了~
回復
舉報
離線frankie
版主
發帖
9190
好友元
105326
閱讀權限
25717
貢獻值
0
只看該作者 1282  發表于: 2010-08-30
引用第1277樓火鳳凰於2010-08-30 13:33發表的“”:
我今次已經唔出分，費事搞亂你，不過結果都係有人出左分…… [表情]



但唔出分先
唔通下下要逐個按來看分嗎
寧願一生都不說話 都不想講假說話欺騙你
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1283  發表于: 2010-08-30
我估唔到呢個係邊張sheet，第一段來...

復制代碼
  1.   Sheets("‥C¶g¦‥ÁZ").Select
  2.   Range("A1").Select
  3.   Range(Selection, Selection.End(xlToRight)).Select
  4.   Range(Selection, Selection.End(xlDown)).Select
  5.   Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("E2") _
  6.     , Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, Header:= _
  7.     xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  8.     SortMethod:=xlStroke, DataOption1:=xlSortNormal, DataOption2:= _
  9.     xlSortNormal, DataOption3:=xlSortNormal
  10.   Range("A27").Select



仲有最長果段...

復制代碼
  1.   Sheets("²y­û¦Cªí").Select
  2.   Range("A1:D1").Select
  3.   Range(Selection, Selection.End(xlDown)).Select
  4.   Range("A1:E25").Select
  5.   Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _
  6.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  7.     :=xlStroke, DataOption1:=xlSortNormal
  8.   Range("A27:E27").Select
  9.   Range(Selection, Selection.End(xlDown)).Select
  10.   Selection.Sort Key1:=Range("A28"), Order1:=xlDescending, Header:=xlYes, _
  11.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  12.     :=xlStroke, DataOption1:=xlSortNormal
  13.   Range("A29").Select
  14.   Selection.End(xlDown).Select
  15.   Range("A125:E125").Select
  16.   Range(Selection, Selection.End(xlDown)).Select
  17.   Selection.Sort Key1:=Range("A126"), Order1:=xlDescending, Header:=xlYes, _
  18.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  19.     :=xlStroke, DataOption1:=xlSortNormal
  20.   Range("C142").Select
  21.   ActiveWindow.LargeScroll Down:=1
  22.   Range("C186").Select
  23.   ActiveWindow.LargeScroll Down:=1
  24.   Range("C230").Select
  25.   ActiveWindow.LargeScroll Down:=1
  26.   Range("A247:E247").Select
  27.   Range(Selection, Selection.End(xlDown)).Select
  28.   Selection.Sort Key1:=Range("A248"), Order1:=xlDescending, Header:=xlYes, _
  29.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  30.     :=xlStroke, DataOption1:=xlSortNormal
  31.   Range("I239").Select
  32.   Selection.End(xlUp).Select
  33.   Selection.End(xlUp).Select
  34.   Selection.End(xlUp).Select
  35.   Selection.End(xlUp).Select
  36.   Selection.End(xlUp).Select
  37.   Selection.End(xlUp).Select
  38.   Selection.End(xlUp).Select
  39.   Selection.End(xlUp).Select
  40.   Selection.End(xlUp).Select
  41.   Selection.End(xlUp).Select
  42.   Columns("D:E").Select
  43.   Selection.Copy
  44.   Range("H1").Select
  45.   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  46.     :=False, Transpose:=False
  47.   Range("H2").Select
  48.   Range(Selection, Selection.End(xlToRight)).Select
  49.   Range(Selection, Selection.End(xlDown)).Select
  50.   Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
  51.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  52.     :=xlStroke, DataOption1:=xlSortNormal
  53.   Range("H28:I28").Select
  54.   Range(Selection, Selection.End(xlDown)).Select
  55.   Selection.Sort Key1:=Range("I28"), Order1:=xlDescending, Header:=xlGuess _
  56.     , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  57.     SortMethod:=xlStroke, DataOption1:=xlSortNormal
  58.   Range("H45").Select
  59.   ActiveWindow.LargeScroll Down:=1
  60.   Range("H89").Select
  61.   ActiveWindow.LargeScroll Down:=1
  62.   Range("H126:I126").Select
  63.   Range(Selection, Selection.End(xlDown)).Select
  64.   Selection.Sort Key1:=Range("I126"), Order1:=xlDescending, Header:=xlGuess _
  65.     , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  66.     SortMethod:=xlStroke, DataOption1:=xlSortNormal
  67.   Range("H139").Select
  68.   ActiveWindow.LargeScroll Down:=1
  69.   Range("H183").Select
  70.   ActiveWindow.LargeScroll Down:=1
  71.   Range("H227").Select
  72.   ActiveWindow.LargeScroll Down:=1
  73.   Range("H248:I248").Select
  74.   Range(Selection, Selection.End(xlDown)).Select
  75.   Selection.Sort Key1:=Range("I248"), Order1:=xlDescending, Header:=xlGuess _
  76.     , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  77.     SortMethod:=xlStroke, DataOption1:=xlSortNormal
  78.   Range("K233").Select
  79.   Selection.End(xlUp).Select
  80.   Selection.End(xlUp).Select
  81.   Range("O1").Select
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1284  發表于: 2010-08-30
引用第1282樓frankie於2010-08-30 13:39發表的“”:
但唔出分先
唔通下下要逐個按來看分嗎 [表情] [表情]

你好心急派片咩?
回復
舉報
離線ecko
技支版主
發帖
623
好友元
7839
閱讀權限
3034
貢獻值
0
只看該作者 1285  發表于: 2010-08-30
引用第1274樓迪神於2010-08-30 12:54發表的“”:
終於知點解係公司update唔到了，唔係ie問題，係中文問題，d worksheet用中文，開番visual basic睇亂哂碼~ [表情]


識唔識set locale?
識就轉一轉 locale 去big5 la....
回復
舉報
離線迪神
總版主
發帖
122165
好友元
385
閱讀權限
122165
貢獻值
5
只看該作者 1286  發表于: 2010-08-30
引用第1285樓ecko於2010-08-30 13:56發表的“”:
識唔識set locale?
識就轉一轉 locale 去big5 la....

緊係唔識啦~
回復
舉報
離線sakura_3212004
榮譽會員
發帖
35706
好友元
9895
閱讀權限
35710
貢獻值
13
只看該作者 1287  發表于: 2010-08-30
引用第1259樓jin於2010-08-30 10:41發表的“”:
[表情]非官方的∼[表情]
没事∼ [表情]   [表情] [表情]


我應該跌入派片區了吧？
∼縱使我們選擇不了出生的環境，決定不了生命的長度，卻能憑著一顆虔誠向善的心，讓自己活出了生命的深度。∼

回復
舉報
離線國球旗
榮譽會員
發帖
206387
好友元
80
閱讀權限
206387
貢獻值
13
只看該作者 1288  發表于: 2010-08-30
引用第1287樓sakura_3212004於2010-08-30 14:48發表的“”:
我應該跌入派片區了吧？ [表情]

櫻花兄竟失身了
回復
舉報
離線sakura_3212004
榮譽會員
發帖
35706
好友元
9895
閱讀權限
35710
貢獻值
13
只看該作者 1289  發表于: 2010-08-30
引用第1288樓國球旗於2010-08-30 14:54發表的“”:
櫻花兄竟失身了 [表情]


遲早的事
∼縱使我們選擇不了出生的環境，決定不了生命的長度，卻能憑著一顆虔誠向善的心，讓自己活出了生命的深度。∼

回復
舉報
發帖 回復
返回列表
上一页1...8485868788...401下一页
到第
页