返回列表 上一主題 發帖

[發問] 簡單加減算

[發問] 簡單加減算

因為以函數取得的答案,需要人工依序填入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)

需求_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

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題