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

wei9133

計算總數並重新排序

鑒於我上次講的不夠清楚，並且發了誤導方向的圖片，所以我重發了一個帖子
如有得罪各位還請見諒。

這東西看是要用一般公式或VBA都可以
一開始要先計算總列數
再來給予重新計算參數，此數可能是9、12、15
以15為基準的話，且總數為45的狀態下的話
先除以15並重新排列
將原本2的位置放到16，3放到31
因為45/15=3
所以4是放到2的位置，5放到17，6在32
7在3
出來的結果如下

下載 (14.05 KB)

2018-7-29 01:58

1. 1
   
2. 4
   
3. 7
   
4. 10
   
5. 13
   
6. 16
   
7. 19
   
8. 22
   
9. 25
   
10. 28
    
11. 31
    
12. 34
    
13. 37
    
14. 40
    
15. 43
    
16. 2
    
17. 5
    
18. 8
    
19. 11
    
20. 14
    
21. 17
    
22. 20
    
23. 23
    
24. 26
    
25. 29
    
26. 32
    
27. 35
    
28. 38
    
29. 41
    
30. 44
    
31. 3
    
32. 6
    
33. 9
    
34. 12
    
35. 15
    
36. 18
    
37. 21
    
38. 24
    
39. 27
    
40. 30
    
41. 33
    
42. 36
    
43. 39
    
44. 42
    
45. 45

複製代碼

下載 (15.31 KB)

2018-7-29 01:58

數字為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

複製代碼

下載 (13.25 KB)

2018-7-29 01:58

90的狀態
[code]
1
7
13
19
25
31
37
43
49
55
61
67
73
79
85
2
8
14
20
26
32
38
44
50
56
62
68
74
80
86
3
9
15
21
27
33
39
45
51
57
63
69
75
81
87
4
10
16
22
28
34
40
46
52
58
64
70
76
82
88
5
11
17
23
29
35
41
47
53
59
65
71
77
83
89
6
12
18
24
30
36
42
48
54
60
66
72
78
84
90
[\code]

下載 (15.56 KB)

2018-7-29 01:58

總數為255的狀態
[ocde]
1
18
35
52
69
86
103
120
137
154
171
188
205
222
239
2
19
36
53
70
87
104
121
138
155
172
189
206
223
240
3
20
37
54
71
88
105
122
139
156
173
190
207
224
241
4
21
38
55
72
89
106
123
140
157
174
191
208
225
242
5
22
39
56
73
90
107
124
141
158
175
192
209
226
243
6
23
40
57
74
91
108
125
142
159
176
193
210
227
244
7
24
41
58
75
92
109
126
143
160
177
194
211
228
245
8
25
42
59
76
93
110
127
144
161
178
195
212
229
246
9
26
43
60
77
94
111
128
145
162
179
196
213
230
247
10
27
44
61
78
95
112
129
146
163
180
197
214
231
248
11
28
45
62
79
96
113
130
147
164
181
198
215
232
249
12
29
46
63
80
97
114
131
148
165
182
199
216
233
250
13
30
47
64
81
98
115
132
149
166
183
200
217
234
251
14
31
48
65
82
99
116
133
150
167
184
201
218
235
252
15
32
49
66
83
100
117
134
151
168
185
202
219
236
253
16
33
50
67
84
101
118
135
152
169
186
203
220
237
254
17
34
51
68
85
102
119
136
153
170
187
204
221
238
255
[\code]

在此先感謝於上一帖中協助的 hcm19522 與 a5007185
若沒有a5007185提供的vba腳本，這帖裡的重新排序數自我應該要算很久...
感謝各位 m(_ _)m

wei9133

回復  wei9133


1.關於選項按鈕的設置：
請點選右鍵 >> 控制項格式 >> 控制 >> 儲存格連結 >> $D$6
...
a5007185 發表於 2018-8-11 00:27

    你好，東西用轉存成2003後2013開啟是正常的
打開來看路徑也是對的，只是.xlsm改成了.xls

下載 (61.65 KB)

2018-8-11 01:44

下載 (70.13 KB)

2018-8-11 01:44

可能是該指令在2003版本中不存在吧?
不過這沒甚麼大礙的，能夠記算順序就很優秀易用了
感謝你再次抽空回覆
m(_ _)m

a5007185

回復 28# wei9133


1.關於選項按鈕的設置：
請點選右鍵 >> 控制項格式 >> 控制 >> 儲存格連結 >> $D$6

下載 (94.13 KB)

2018-8-11 00:25

下載 (16.05 KB)

2018-8-11 00:25

下載 (8.19 KB)

2018-8-11 00:26

下載 (8.57 KB)

2018-8-11 00:27

2.關於指令按鈕 執行/排列

下載 (21.25 KB)

2018-8-11 00:27

下載 (20.94 KB)

2018-8-11 00:27

wei9133

回復  wei9133


排序, 可以用錄製取得
選項按鈕, 可試著自行重新建立

接觸VBA, 這些都免不了要用 ...
准提部林 發表於 2018-8-10 10:17

下載 (49.75 KB)

2018-8-10 23:26

下載 (55.08 KB)

2018-8-10 23:26

我光看程式碼那邊的快沒看到哪裡有寫按鈕的...
後來才發現直接在按鍵那按右鍵就可以移走了...
不過第二個的物件不支援此屬性或方法我就無法解決了
好在計算功能是正常的就可以了。
感謝提點...


   

回復  wei9133


   我已經加你了
a5007185 發表於 2018-8-10 17:09

    我看到了，感謝你
待我整理一下要問的問題再行詢問
m(_ _)m

a5007185

回復 24# 准提部林

謝謝大大肯定！

過去有使用過你的金千里會計帳，
當時幫助很大，謝謝！

a5007185

回復 23# wei9133


   我已經加你了

准提部林

回復 23# wei9133


排序, 可以用錄製取得
選項按鈕, 可試著自行重新建立

接觸VBA, 這些都免不了要用到

准提部林

回復 22# a5007185


這檔案做得很完整好用, GOOD+++

wei9133

回復  wei9133

若陣列的中數字即表示你欲填進資料的順序，
則A欄會計算陣列中由左至右、由上至下的相對 ...
a5007185 發表於 2018-8-8 15:00

    你好,真的萬分抱歉我先前講的不夠清楚明白
目前看起來已經正確了 (我用轉置貼上看過結果應該無誤)
效果如下圖

下載 (35.69 KB)

2018-8-9 01:26

另外因為excel版本的不同,有一點小問題,但不影響使用
(公司只有office2003,所已在家測試也是用2003)
第一點為

下載 (28.94 KB)

2018-8-9 01:26

縱向優先與橫向優先字樣有重疊到字
第二點為排序部分無法使用

下載 (47.14 KB)

2018-8-9 01:26

此點沒有也沒關係,誠如你說這些數字是排序用的引子
實際上我要放到另外一個檔案中當輔助列,並不會在這個檔案中排序

這些部分不修正,其實也不會影響使用
在此向你致上十二萬分的謝意

p.s.
我有另外發短信息給你,我有另外別的部分想請教你
還請撥冗協助
感謝 m(_ _)m

a5007185

回復 19# wei9133

若陣列的中數字即表示你欲填進資料的順序，
則A欄會計算陣列中由左至右、由上至下的相對應序列，
將資料按順序填入B欄，
再按下「排序」即可獲得按以上規律產生的資料順序。
表格排序.zip (88.53 KB)

下載次數: 4

2018-8-8 14:55

若還有什麼意外，
再麻煩你私訊我你的Line，
我們電話上討論。