123
返回列表 上一主題 發帖

[發問] 計算總數並重新排序

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
21# 跳轉到 »
發表於 2018-8-8 13:44 | 只看該作者
我只能說當文字說明已經無法構成有效溝通的時候，
請嘗試其他表示需求的方法，e.g,電話或整個操作過程截圖

我一直到現在才知道我列出來的數字只是個引子，
如果你有注意我的結果中第九行的資料是33，
剛好對應你第三十三行的資料是9，
請盡可能地以文字外的語言輔助說明，
要不然這樣花了這麼多時間我現在才搞懂你的需求，
我覺得這樣對雙方都很費時。

我有空我會再調整表格，
若之後再有問題，
請麻煩你私訊我你的Line。

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
20#
發表於 2018-8-8 01:34 | 只看該作者
回復 19# wei9133


    超過15分鐘不給我改了...


總之真的不是要重新畫陣列，而是要重新計算資料列應該要在哪個位置
再將計算出來的資料當做輔助列重新排序並丟入系統

我畫陣列式因為我不畫出來我不知道怎麼重新排序才是對的位置Orz

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
19#
發表於 2018-8-8 01:16 | 只看該作者
本帖最後由 wei9133 於 2018-8-8 01:22 編輯
回復  wei9133

再不行，我們私下喬
a5007185 發表於 2018-8-7 11:32


你好，看橫向部分就知道不對
現在60算出來是
  1. 1
  2. 5
  3. 9
  4. 13
  5. 17
  6. 21
  7. 25
  8. 29
  9. 33
  10. 37
  11. 41
  12. 45
  13. 49
  14. 53
  15. 57
  16. 2
  17. 6
  18. 10
  19. 14
  20. 18
  21. 22
  22. 26
  23. 30
  24. 34
  25. 38
  26. 42
  27. 46
  28. 50
  29. 54
  30. 58
  31. 3
  32. 7
  33. 11
  34. 15
  35. 19
  36. 23
  37. 27
  38. 31
  39. 35
  40. 39
  41. 43
  42. 47
  43. 51
  44. 55
  45. 59
  46. 4
  47. 8
  48. 12
  49. 16
  50. 20
  51. 24
  52. 28
  53. 32
  54. 36
  55. 40
  56. 44
  57. 48
  58. 52
  59. 56
  60. 60
複製代碼
正確的應該是
  1. 1
  2. 16
  3. 31
  4. 46
  5. 2
  6. 17
  7. 32
  8. 47
  9. 3
  10. 18
  11. 33
  12. 48
  13. 4
  14. 19
  15. 34
  16. 49
  17. 5
  18. 20
  19. 35
  20. 50
  21. 6
  22. 21
  23. 36
  24. 51
  25. 7
  26. 22
  27. 37
  28. 52
  29. 8
  30. 23
  31. 38
  32. 53
  33. 9
  34. 24
  35. 39
  36. 54
  37. 10
  38. 25
  39. 40
  40. 55
  41. 11
  42. 26
  43. 41
  44. 56
  45. 12
  46. 27
  47. 42
  48. 57
  49. 13
  50. 28
  51. 43
  52. 58
  53. 14
  54. 29
  55. 44
  56. 59
  57. 15
  58. 30
  59. 45
  60. 60
複製代碼
我想我們卡在陣列這裡了...
實際上不是要你重排陣列，因為我這是重新排序的輔助列
系統永遠是15為1張紙照順序吃入(頂多就是最下面那幾排撕掉變成12或9)
請看下圖



東西丟進系統
它的順序是
第一張紙01~15
第二張紙16~30
第三張紙31~45
第四張紙46~60
依此類推

它的順序並不是我能改變的
所以我必須改變丟進去的順序
把原本應該放在2位置的排到16的位置去
  1. 1        A1
  2. 16        A2
  3. 31        A3
  4. 46        A4
  5. 2        A5
  6. 17        A6
  7. 32        A7
  8. 47        A8
  9. 3        B1
  10. 18        B2
  11. 33        B3
  12. 48        B4
  13. 4        B5
  14. 19        B6
  15. 34        B7
  16. 49        B8
  17. 5        B9
  18. 20        C1
  19. 35        C2
  20. 50        C3
  21. 6        C4
  22. 21        C5
  23. 36        C6
  24. 51        C7
  25. 7        C8
  26. 22        C9
  27. 37        C10
  28. 52        D1
  29. 8        D2
  30. 23        D3
  31. 38        D4
  32. 53        D5
  33. 9        D6
  34. 24        D7
  35. 39        D8
  36. 54        D9
  37. 10        D10
  38. 25        D11
  39. 40        D12
  40. 55        D13
  41. 11        D14
  42. 26        E1
  43. 41        E2
  44. 56        E3
  45. 12        E4
  46. 27        E5
  47. 42        E6
  48. 57        E7
  49. 13        E8
  50. 28        E9
  51. 43        E10
  52. 58        E11
  53. 14        E12
  54. 29        E13
  55. 44        E14
  56. 59        E15
  57. 15        F1
  58. 30        F2
  59. 45        F3
  60. 60        F4
複製代碼
必須要是這個順序才能將原本在2位置的A2放到第2張的第一格(16)
而左邊的那列是輔助列，右邊的A1是資料列
需要對輔助列做重新排序，再將輔助列刪除，並將重排過後的資料丟進系統
  1. 1        A1
  2. 2        A5
  3. 3        B1
  4. 4        B5
  5. 5        B9
  6. 6        C4
  7. 7        C8
  8. 8        D2
  9. 9        D6
  10. 10        D10
  11. 11        D14
  12. 12        E4
  13. 13        E8
  14. 14        E12
  15. 15        F1
  16. 16        A2
  17. 17        A6
  18. 18        B2
  19. 19        B6
  20. 20        C1
  21. 21        C5
  22. 22        C9
  23. 23        D3
  24. 24        D7
  25. 25        D11
  26. 26        E1
  27. 27        E5
  28. 28        E9
  29. 29        E13
  30. 30        F2
  31. 31        A3
  32. 32        A7
  33. 33        B3
  34. 34        B7
  35. 35        C2
  36. 36        C6
  37. 37        C10
  38. 38        D4
  39. 39        D8
  40. 40        D12
  41. 41        E2
  42. 42        E6
  43. 43        E10
  44. 44        E14
  45. 45        F3
  46. 46        A4
  47. 47        A8
  48. 48        B4
  49. 49        B8
  50. 50        C3
  51. 51        C7
  52. 52        D1
  53. 53        D5
  54. 54        D9
  55. 55        D13
  56. 56        E3
  57. 57        E7
  58. 58        E11
  59. 59        E15
  60. 60        F4
複製代碼
印出來就會變成


表格排序(說明).rar (31.58 KB)
排序vba版(正確).rar (12.48 KB)
這裡還有附件的部分先全以橫向為基準
畢竟先前有過橫向正確的VBA，縱向的可能要我解釋夠清楚讓你理解之後才有辦法做

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
18#
發表於 2018-8-7 11:32 | 只看該作者
回復 17# wei9133

再不行，我們私下喬
    表格排序.zip (87.43 KB)

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
17#
發表於 2018-8-7 03:50 | 只看該作者
或許是我用vba畫格子才會一次一次誤導各位的思路
不過不畫出來我不會解釋我所需要的東西(也不知道順序該怎麼擺)

縱向的部分應該長這樣



不明白的部分可以看附件
我大概排了一下，應該是這樣子沒錯
你的陣列格子是對的，但結果跟我畫出來的不一樣
應該是因為我沒有提到系統是固定順序吃15格進去然後印出
(沒有辦法指定他吃的是縱還是橫，所以我才需要重排後丟入)
我需要的是重新排序後讓系統15格15格的吃進去
在我撕的時候出來的結果才是陣列的圖

所以以45為例，正確的縱向排序應該是這樣
  1. 01 | A01
  2. 16 | A02
  3. 31 | A03
  4. 04 | A04
  5. 19 | A05
  6. 34 | A06
  7. 07 | A07
  8. 22 | A08
  9. 37 | A09
  10. 10 | A10
  11. 25 | B01
  12. 40 | B02
  13. 13 | B03
  14. 28 | B04
  15. 43 | B05
  16. 02 | B06
  17. 17 | B07
  18. 32 | B08
  19. 05 | B09
  20. 20 | B10
  21. 35 | B11
  22. 08 | C01
  23. 23 | C02
  24. 38 | C03
  25. 11 | C04
  26. 26 | C05
  27. 41 | C06
  28. 14 | C07
  29. 29 | C08
  30. 44 | C09
  31. 03 | C10
  32. 18 | D01
  33. 33 | D02
  34. 06 | D03
  35. 21 | D04
  36. 36 | D05
  37. 09 | D06
  38. 24 | D07
  39. 39 | D08
  40. 12 | E01
  41. 27 | E02
  42. 42 | E03
  43. 15 | E04
  44. 30 | E05
  45. 45 | E06
複製代碼
表格縱向排序.rar (24.63 KB)

抱歉我不知道要怎樣解釋才能夠讓你清楚明白我的需求
導致你多花了那麼時間
在此再次拜謝你的幫忙 m(_ _)m

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
16#
發表於 2018-8-7 02:59 | 只看該作者
你好，我拿舊的正確版本比對發現好像東西不對...

先前正確的vba版本(橫向)
  1. 1
  2. 16
  3. 31
  4. 46
  5. 61
  6. 76
  7. 91
  8. 106
  9. 121
  10. 2
  11. 17
  12. 32
  13. 47
  14. 62
  15. 77
  16. 92
  17. 107
  18. 122
  19. 3
  20. 18
  21. 33
  22. 48
  23. 63
  24. 78
  25. 93
  26. 108
  27. 123
  28. 4
  29. 19
  30. 34
  31. 49
  32. 64
  33. 79
  34. 94
  35. 109
  36. 124
  37. 5
  38. 20
  39. 35
  40. 50
  41. 65
  42. 80
  43. 95
  44. 110
  45. 125
  46. 6
  47. 21
  48. 36
  49. 51
  50. 66
  51. 81
  52. 96
  53. 111

  55. 7
  56. 22
  57. 37
  58. 52
  59. 67
  60. 82
  61. 97
  62. 112

  64. 8
  65. 23
  66. 38
  67. 53
  68. 68
  69. 83
  70. 98
  71. 113

  73. 9
  74. 24
  75. 39
  76. 54
  77. 69
  78. 84
  79. 99
  80. 114

  82. 10
  83. 25
  84. 40
  85. 55
  86. 70
  87. 85
  88. 100
  89. 115

  91. 11
  92. 26
  93. 41
  94. 56
  95. 71
  96. 86
  97. 101
  98. 116

  100. 12
  101. 27
  102. 42
  103. 57
  104. 72
  105. 87
  106. 102
  107. 117

  109. 13
  110. 28
  111. 43
  112. 58
  113. 73
  114. 88
  115. 103
  116. 118

  118. 14
  119. 29
  120. 44
  121. 59
  122. 74
  123. 89
  124. 104
  125. 119

  127. 15
  128. 30
  129. 45
  130. 60
  131. 75
  132. 90
  133. 105
  134. 120
複製代碼
你這次所提供的vab橫向版本
  1. 1
  2. 28
  3. 55
  4. 82
  5. 109
  6. 2
  7. 29
  8. 56
  9. 83
  10. 110
  11. 3
  12. 30
  13. 57
  14. 84
  15. 111
  16. 4
  17. 31
  18. 58
  19. 85
  20. 112
  21. 5
  22. 32
  23. 59
  24. 86
  25. 113
  26. 6
  27. 33
  28. 60
  29. 87
  30. 114
  31. 7
  32. 34
  33. 61
  34. 88
  35. 115
  36. 8
  37. 35
  38. 62
  39. 89
  40. 116
  41. 9
  42. 36
  43. 63
  44. 90
  45. 117
  46. 10
  47. 37
  48. 64
  49. 91
  50. 118
  51. 11
  52. 38
  53. 65
  54. 92
  55. 119
  56. 12
  57. 39
  58. 66
  59. 93
  60. 120
  61. 13
  62. 40
  63. 67
  64. 94
  65. 121
  66. 14
  67. 41
  68. 68
  69. 95
  70. 122
  71. 15
  72. 42
  73. 69
  74. 96
  75. 123
  76. 16
  77. 43
  78. 70
  79. 97
  80. 124
  81. 17
  82. 44
  83. 71
  84. 98
  85. 125
  86. 18
  87. 45
  88. 72
  89. 99

  91. 19
  92. 46
  93. 73
  94. 100

  96. 20
  97. 47
  98. 74
  99. 101

  101. 21
  102. 48
  103. 75
  104. 102

  106. 22
  107. 49
  108. 76
  109. 103

  111. 23
  112. 50
  113. 77
  114. 104

  116. 24
  117. 51
  118. 78
  119. 105

  121. 25
  122. 52
  123. 79
  124. 106

  126. 26
  127. 53
  128. 80
  129. 107

  131. 27
  132. 54
  133. 81
  134. 108
複製代碼
我再解釋一遍整體的需求 (以橫向為例)
原本的系統為數據若干行，依照1~N依次丟入
長下圖這樣
  1. 01  |  A1
  2. 16  |  A2
  3. 02  |  A3
  4. 17  |  A4
  5. 03  |  A5
  6. 18  |  B1
  7. 04  |  B2
  8. 19  |  B3
  9. 05  |  B4
  10. 20  |  B5
  11. 06  |  B6
  12. 21  |  B7
  13. 07  |  B8
  14. 22  |  B9
  15. 08  |  B10
  16. 23  |  B11
  17. 09  |  B12
  18. 24  |  B13
  19. 10  |  B14
  20. 25  |  B15
  21. 11  |  C1
  22. 26  |  C2
  23. 12  |  C3
  24. 27  |  C4
  25. 13  |  C5
  26. 28  |  C6
  27. 14  |  C7
  28. 29  |  C8
  29. 15  |  C9
  30. 30  |  C10
複製代碼



附件為你原本提供的vba版本
排序vba版.rar (14.88 KB)
原本在2順位的要擺到16去才會在第二張的第一格
所以這次的版本好像是錯的
至於縱向的部分，我先整理一下，等會po上來

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
15#
發表於 2018-8-7 01:56 | 只看該作者
回復  wei9133

弄好囉
a5007185 發表於 2018-8-5 00:13



    感謝你，目前看右方陣列應該是我要的東西了
   待找天有空的時候測試，萬分感謝 m(_ _)m

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
14#
發表於 2018-8-5 00:13 | 只看該作者
回復 13# wei9133

弄好囉

180804_表格排序.rar (27.42 KB)

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
13#
發表於 2018-8-4 02:01 | 只看該作者
回復  wei9133


抱歉，
我自己實際調整過後，
有了解你的問題了。

我調整好兩個版本給你參考，
...
a5007185 發表於 2018-8-1 23:44


你好，昨天測試了一下應該是無誤了
非常感謝你
實際上在撕的時候發現還有可以改進的地方
(這個是我一開始沒想到的部分，並不是你提供的東西有誤)
鑒於你大概懂我的需求是甚麼了，所以我簡單的用圖表示一下
(我連上面你解決的原理都不懂，所以也可能說不太清楚)
你先參考一下我的附件


麻煩一樣要直的結果，可能的話幫我把算出來的陣列放在後方
目前的東西一定是3*3 3*4 3*5 如果畫陣列麻煩就不用畫了
有直的結果就萬分感激了

縱向排序.rar (3.56 KB)
至於實際成果我要丟進系統印出來才知道對不對
m(_ _)m

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
12#
發表於 2018-8-2 17:07 | 只看該作者
=INT((ROW(A1)-1)/總數) + MOD((ROW(A1)-1)*(總數/基準數),總數) + 1

總數及基準數 可以自行定義名稱或改為儲存格名稱
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
123
返回列表 上一主題