麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 計算總數並重新排序 [打印本頁]

作者: wei9133 時間: 2018-7-29 02:02 標題: 計算總數並重新排序

計算總數並重新排序

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

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

複製代碼

[attach]29079[/attach]
數字為60則是長這樣

複製代碼

[attach]29078[/attach]
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]

[attach]29081[/attach]
總數為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

作者: hcm19522 時間: 2018-7-29 10:37

http://blog.xuite.net/hcm19522/twblog/585085986

作者: a5007185 時間: 2018-7-29 11:34

回復 1# wei9133

哈，
如果按照你現在僅列出單行的方式，
你也可以參考看看這個~

[attach]29085[/attach]

Option Explicit
Sub PrintList()
Dim PT As Range
Dim i%, iM%, j%, jM%
Call Reset
iM = Range("C2")
jM = Range("C3")
Set PT = Range("E3")
For j = 1 To jM
For i = 1 To iM
PT = j + (i - 1) * jM
Set PT = PT.Offset(1)
Next
Next
Range("C4") = iM * jM
End Sub
Sub Reset()
Dim PT As Range
Set PT = Cells(Cells.Rows.Count, 5).End(xlUp)
If PT.Row = 2 Then Set PT = Range("E3")
Range("E3:E" & PT.Row).ClearContents
Range("C4").ClearContents
End Sub

複製代碼

作者: wei9133 時間: 2018-8-1 22:46

hcm19522 發表於 2018-7-29 10:37

你好，參照你的部落格提供的公式結果出不來
我忘了先聲明我的版本為2003，是否因為這樣公式失效?

[attach]29104[/attach]

不過依照你所給的公式會產生循環參照
因為在原圖內
[attachimg]29105[/attachimg
[attach]29106[/attach]

原圖D2是總數，D6是基數
但你的第二句是
D2 下拉=IF(INT(F$2/F$6)+D1>F$2,INT(ROW(A2)/F$6)+1,INT(F$2/F$6)+D1)
這裡應該已經相衝突了

我換到另一個活頁簿中也不太對，還麻煩你看一下
[attach]29107[/attach]
出來的只有F的部分沒有報錯

然後，我真的丟進系統中發現我錯了
需要的公式好像不是這樣
450的狀態下我土法煉鋼的填入後應該要這樣
我的計算方式是
450/15=30
所以A1=1的狀況下
A2=1+15
A3=A2+15
一路到A29=A28+15
然後A30內放入2
A31=A30+15
A32=A31+15
詳情請看附件內的正確活頁簿

下面是450格我填完的結果

複製代碼

至於為甚麼A30是2我也不是很清楚
然後雖然出來結果應該大致上是對了，但還是有跳號發生
不過應該是因為實際應該是415，結果我用450去硬套的結果

然後可以的話麻煩下拉的起始點用1，這樣我貼過去比較方便
m(_ _)m

作者: a5007185 時間: 2018-8-1 23:05

[attach]29109[/attach]回復 4# wei9133

[attach]29109[/attach]
函數如果改成這樣呢？
有符合你的需求嗎？
還是你必須要由另一個數列進行置換？

作者: wei9133 時間: 2018-8-1 23:09

回復 wei9133

哈，
如果按照你現在僅列出單行的方式，
你也可以參考看看這個~
a5007185 發表於 2018-7-29 11:34

你好，vba的部分因為公司用的是2003，所以開啟會有問題
[attach]29108[/attach]

直接用Alt+F11去啟動倒是可以的
p.s.我一開始都傻傻去改總數，結果出來的值永遠是255...
我要的是我填總數(變數)跟參數(參數一般都是15)，然後他除倍數出來計算(直接無條件進位為參數整除的值)
ex.428/15=28.53就用29下去算
15*29=435 用435下去排序
(理論上429~435都是空值，而且護集中在第15落那個集落中)

不過我今天因為試不出來，所以用土法煉鋼的方式弄了排序

複製代碼

出來的結果跟VBA算出來的不一樣

450的狀態下我土法煉鋼的填入後應該要這樣
我的計算方式是
450/15=30
所以A1=1的狀況下
A2=1+15
A3=A2+15
一路到A29=A28+15
然後A30內放入2
A31=A30+15
A32=A31+15
詳情請看附件內的正確活頁簿

至於為甚麼A30是2我也不是很清楚
然後雖然出來結果應該大致上是對了，但還是有跳號發生
不過應該是因為實際應該是415，結果我用450去硬套的結果

結果到底哪邊才是對的我也搞不清楚，必須用相符的數字丟入系統印出來我才知道...
上面那個415格應該要用420格去排序再丟入系統，這樣印出來的我才能確認
我用450去套的有跳位置的有空格，我也不知道到底對不對，不過整體順序是大致對的

然後可以的話麻煩算出的起始點用第一格，這樣我貼過去比較方便 (整列複製，插入貼上)
m(_ _)m

[attach]29110[/attach]

作者: a5007185 時間: 2018-8-1 23:20

本帖最後由 a5007185 於 2018-8-1 23:22 編輯

想釐清一個問題，

如果總數是428，
則理論上429~435都是空值，
而且會集中在第15落那個集落中。

依據你提出的條件，
應該是第8至15的集合各缺少一個元素吧？
因為你排列是十五個集合分開分配的。

另外如果需要連整列複製這個都做起來是可行的。

作者: wei9133 時間: 2018-8-1 23:35

回復 6# wei9133

我想我一開始應該給錯條件了...
經過驗正，我今天土法煉鋼的東西才比較接近的樣子
[attach]29112[/attach]

[attach]29113[/attach]

[attach]29114[/attach]

[attach]29115[/attach]

作者: a5007185 時間: 2018-8-1 23:44

回復 6# wei9133

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

我調整好兩個版本給你參考，
一個是用函數的方式，(公式套用到第4000不夠可以自己繼續拉)
另一個是用VBA的方式。

[attach]29116[/attach]

作者: wei9133 時間: 2018-8-2 01:29

回復 wei9133

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

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

你好，感謝你的回覆
這兩個版本我找時間試看看，目前看起來應該是正確的
不過要實際做測試印出來才知道是否正確
在次感謝你的幫助

作者: hcm19522 時間: 2018-8-2 13:35

回復 4# wei9133

作者: ML089 時間: 2018-8-2 17:07

=INT((ROW(A1)-1)/總數) + MOD((ROW(A1)-1)*(總數/基準數),總數) + 1

總數及基準數可以自行定義名稱或改為儲存格名稱

作者: wei9133 時間: 2018-8-4 02:01

回復 wei9133

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

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

你好，昨天測試了一下應該是無誤了
非常感謝你
實際上在撕的時候發現還有可以改進的地方
(這個是我一開始沒想到的部分，並不是你提供的東西有誤)
鑒於你大概懂我的需求是甚麼了，所以我簡單的用圖表示一下
(我連上面你解決的原理都不懂，所以也可能說不太清楚)
你先參考一下我的附件
[attach]29135[/attach]
[attach]29134[/attach]
麻煩一樣要直的結果，可能的話幫我把算出來的陣列放在後方
目前的東西一定是3*3 3*4 3*5 如果畫陣列麻煩就不用畫了
有直的結果就萬分感激了

[attach]29133[/attach]
至於實際成果我要丟進系統印出來才知道對不對
m(_ _)m

作者: a5007185 時間: 2018-8-5 00:13

回復 13# wei9133

弄好囉

[attach]29140[/attach]

作者: wei9133 時間: 2018-8-7 01:56

回復 wei9133

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

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

作者: wei9133 時間: 2018-8-7 02:59

你好，我拿舊的正確版本比對發現好像東西不對...

先前正確的vba版本(橫向)

複製代碼

你這次所提供的vab橫向版本
[attach]29147[/attach]

複製代碼

我再解釋一遍整體的需求 (以橫向為例)
原本的系統為數據若干行，依照1~N依次丟入
長下圖這樣
[attach]29148[/attach]

01 | A1
16 | A2
02 | A3
17 | A4
03 | A5
18 | B1
04 | B2
19 | B3
05 | B4
20 | B5
06 | B6
21 | B7
07 | B8
22 | B9
08 | B10
23 | B11
09 | B12
24 | B13
10 | B14
25 | B15
11 | C1
26 | C2
12 | C3
27 | C4
13 | C5
28 | C6
14 | C7
29 | C8
15 | C9
30 | C10

複製代碼

[attach]29149[/attach]
[attach]29150[/attach]

附件為你原本提供的vba版本
[attach]29146[/attach]
原本在2順位的要擺到16去才會在第二張的第一格
所以這次的版本好像是錯的
至於縱向的部分，我先整理一下，等會po上來

作者: wei9133 時間: 2018-8-7 03:50

或許是我用vba畫格子才會一次一次誤導各位的思路
不過不畫出來我不會解釋我所需要的東西(也不知道順序該怎麼擺)

縱向的部分應該長這樣
[attach]29152[/attach]
[attach]29153[/attach]

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

所以以45為例，正確的縱向排序應該是這樣

01 | A01
16 | A02
31 | A03
04 | A04
19 | A05
34 | A06
07 | A07
22 | A08
37 | A09
10 | A10
25 | B01
40 | B02
13 | B03
28 | B04
43 | B05
02 | B06
17 | B07
32 | B08
05 | B09
20 | B10
35 | B11
08 | C01
23 | C02
38 | C03
11 | C04
26 | C05
41 | C06
14 | C07
29 | C08
44 | C09
03 | C10
18 | D01
33 | D02
06 | D03
21 | D04
36 | D05
09 | D06
24 | D07
39 | D08
12 | E01
27 | E02
42 | E03
15 | E04
30 | E05
45 | E06

複製代碼

[attach]29151[/attach]

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

作者: a5007185 時間: 2018-8-7 11:32

回復 17# wei9133

再不行，我們私下喬
[attach]29158[/attach]

作者: wei9133 時間: 2018-8-8 01:16

本帖最後由 wei9133 於 2018-8-8 01:22 編輯

回復 wei9133

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

你好，看橫向部分就知道不對
現在60算出來是

複製代碼

正確的應該是

複製代碼

我想我們卡在陣列這裡了...
實際上不是要你重排陣列，因為我這是重新排序的輔助列
系統永遠是15為1張紙照順序吃入(頂多就是最下面那幾排撕掉變成12或9)
請看下圖
[attach]29161[/attach]
[attach]29162[/attach]

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

它的順序並不是我能改變的
所以我必須改變丟進去的順序
把原本應該放在2位置的排到16的位置去

1 A1
16 A2
31 A3
46 A4
2 A5
17 A6
32 A7
47 A8
3 B1
18 B2
33 B3
48 B4
4 B5
19 B6
34 B7
49 B8
5 B9
20 C1
35 C2
50 C3
6 C4
21 C5
36 C6
51 C7
7 C8
22 C9
37 C10
52 D1
8 D2
23 D3
38 D4
53 D5
9 D6
24 D7
39 D8
54 D9
10 D10
25 D11
40 D12
55 D13
11 D14
26 E1
41 E2
56 E3
12 E4
27 E5
42 E6
57 E7
13 E8
28 E9
43 E10
58 E11
14 E12
29 E13
44 E14
59 E15
15 F1
30 F2
45 F3
60 F4

複製代碼

必須要是這個順序才能將原本在2位置的A2放到第2張的第一格(16)
而左邊的那列是輔助列，右邊的A1是資料列
需要對輔助列做重新排序，再將輔助列刪除，並將重排過後的資料丟進系統

1 A1
2 A5
3 B1
4 B5
5 B9
6 C4
7 C8
8 D2
9 D6
10 D10
11 D14
12 E4
13 E8
14 E12
15 F1
16 A2
17 A6
18 B2
19 B6
20 C1
21 C5
22 C9
23 D3
24 D7
25 D11
26 E1
27 E5
28 E9
29 E13
30 F2
31 A3
32 A7
33 B3
34 B7
35 C2
36 C6
37 C10
38 D4
39 D8
40 D12
41 E2
42 E6
43 E10
44 E14
45 F3
46 A4
47 A8
48 B4
49 B8
50 C3
51 C7
52 D1
53 D5
54 D9
55 D13
56 E3
57 E7
58 E11
59 E15
60 F4

複製代碼

印出來就會變成
[attach]29165[/attach]

[attach]29163[/attach]
[attach]29164[/attach]
這裡還有附件的部分先全以橫向為基準
畢竟先前有過橫向正確的VBA，縱向的可能要我解釋夠清楚讓你理解之後才有辦法做

作者: wei9133 時間: 2018-8-8 01:34

回復 19# wei9133

超過15分鐘不給我改了...
[attach]29166[/attach]

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

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

作者: a5007185 時間: 2018-8-8 13:44

我只能說當文字說明已經無法構成有效溝通的時候，
請嘗試其他表示需求的方法，e.g,電話或整個操作過程截圖

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

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

作者: a5007185 時間: 2018-8-8 15:00

回復 19# wei9133

若陣列的中數字即表示你欲填進資料的順序，
則A欄會計算陣列中由左至右、由上至下的相對應序列，
將資料按順序填入B欄，
再按下「排序」即可獲得按以上規律產生的資料順序。
[attach]29170[/attach]
若還有什麼意外，
再麻煩你私訊我你的Line，
我們電話上討論。

作者: wei9133 時間: 2018-8-9 01:36

回復 wei9133

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

你好,真的萬分抱歉我先前講的不夠清楚明白
目前看起來已經正確了 (我用轉置貼上看過結果應該無誤)
效果如下圖
[attach]29179[/attach]
另外因為excel版本的不同,有一點小問題,但不影響使用
(公司只有office2003,所已在家測試也是用2003)
第一點為
[attach]29180[/attach]
縱向優先與橫向優先字樣有重疊到字
第二點為排序部分無法使用
[attach]29181[/attach]
此點沒有也沒關係,誠如你說這些數字是排序用的引子
實際上我要放到另外一個檔案中當輔助列,並不會在這個檔案中排序

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

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

作者: 准提部林 時間: 2018-8-10 10:15

回復 22# a5007185

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

作者: 准提部林 時間: 2018-8-10 10:17

回復 23# wei9133

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

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

作者: a5007185 時間: 2018-8-10 17:09

回復 23# wei9133

我已經加你了

作者: a5007185 時間: 2018-8-10 17:11

回復 24# 准提部林

謝謝大大肯定！

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

作者: wei9133 時間: 2018-8-10 23:30

回復 wei9133

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

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

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

回復 wei9133

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

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

作者: a5007185 時間: 2018-8-11 00:27

回復 28# wei9133

1.關於選項按鈕的設置：
請點選右鍵 >> 控制項格式 >> 控制 >> 儲存格連結 >> $D$6
[attach]29189[/attach][attach]29190[/attach]
[attach]29191[/attach][attach]29192[/attach]
2.關於指令按鈕執行/排列
[attach]29193[/attach][attach]29194[/attach]

作者: wei9133 時間: 2018-8-11 01:46

回復 wei9133

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

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

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)