返回列表 上一主題 發帖

[發問] 簡單加減算

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-7-10 14:38 | 只看該作者

[發問] 簡單加減算

因為以函數取得的答案，需要人工依序填入N百次的參數及按Enter鍵，
且手動填入二個區域(參數和號碼)的紀錄常有手誤，
所以想改為以程式取得答案~以利其正確和快速。
煩請各位大大指導。謝謝!

備註：
參數= I = 0 To 38,    B2︰F26= I；
U2：Y26= B2︰F26的往右間隔18欄之對應儲存格數字。
O2：S26 = B2︰F26的往右間隔12欄之對應儲存格數字。
H2：L26 = O2：S26的往左間隔6欄)或=B2︰F26的往右間隔5欄之對應儲存格數字。
如U2：Y26和其往右每間隔5欄的各對應儲存格數字(<>"")，有2個(含)以上的參數同時符合運算邏輯時，
則該B2︰F26和H2：L26儲存格的2個(含)以上的數字以","符號區隔。

需求_1︰
先取U2及U2往右每間隔5欄的各對應儲存格數字(<>"")~各+B2，再/39後；取其餘數；
當上述的各餘數(如餘數=0時，則視為=39)都有顯示在各段落的第27列之5個儲存格中時~
則B2= I；H2=IF(MOD(O2+B2,39),MOD(O2+B2,39),39)。
其餘………類推
請詳見Sheet2~Sheet5的實例說明︰。

需求_2︰
將有符合邏輯的U2：Y26及其往右每間隔5欄的各對應儲存格 (<>"")標示黃色。
將上述有符合邏輯的U2：Y26往左間隔5欄的O2：S26之對應儲存格標示藍色。

需求_3︰
將4個效果工作表A︰BC的欄寬設定為"自動欄寬"並轉出成1個檔案~
檔案名稱=Sheets("準6進7")的A1日期
請詳見附件︰2021-7-7(效果檔)。

2021-0710 -簡單加減算(VBA).rar (61.56 KB)
收藏 分享

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
2#
發表於 2021-7-11 00:20 | 只看該作者
需求_1~再作補充說明︰
運算主邏輯：
先取U2及U2往右每間隔5欄的各對應儲存格數字(<>"")~各+ I，再/39後；取其餘數；
即如準6進7!(U2+I)/39,(AA2)/39+I,(AG2+I)/39,(AM2+I)/39,(AS2+I)/39,(AY2+I)/39
當上述的各餘數(如餘數=0時，則視為=39)都有顯示在各段落的第27列之5個儲存格中時~
則B2= I；H2=IF(MOD(O2+B2,39),MOD(O2+B2,39),39)。

又如準6進7!(V2+I)/39,(AB2+I)/39,(AH2+I)/39,(AN2+I)/39,(AT2+I)/39,(AZ2+I)/39
當上述的各餘數都有顯示在各段落的第27列之5個儲存格中時~
則C2= I；I2=IF(MOD(P2+C2,39),MOD(P2+C2,39),39)。

再如準6進7!(X20+I)/39,(AD20+I)/39,(AJ20+I)/39,(AP20+I)/39,(AV20+I)/39,(BB20+I)/39
當上述的各餘數都有顯示在各段落的第27列之5個儲存格中時~
則E20= I；K20=IF(MOD(R20+E20,39),MOD(R20+E20,39),39)。
其餘………類推

其餘…準5進6!, 準4進5!, 準3進4! …類推

請詳見Sheet2~Sheet5的實例說明。
2021-0711 -簡單加減算(V1).rar (64.05 KB)

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題