[發問] 取得指定範圍內的各k值

本帖最後由 ziv976688 於 2021-7-20 23:17 編輯

取得指定範圍內的各k值.rar (80.05 KB)
備註：當餘數=0時，視同=49；當同1個儲存格有>1個k值時，則以","符號區隔。
指定範圍=.Range("V2:AB" & .[AC1].End(xldown).row - 1)

For k = 0 To 48 '列37
Sheets("準2進3")
當MOD(AE2+k,49)的餘數，有顯示在.Range("AE"& .[AC1].End(xldown).row, " AK"& .[AC1].End(xldown).row)
且MOD(AN2+k,49)的餘數也有顯示在.Range("AN"& .[AC1].End(xldown).row, " AT" & .[AC1].End(xldown).row)
則V2= k；否則V2= ""
右拉下拉到 .Range("AB" & .[AC1].end(xldown).row - 1) 填滿

Sheets("準3進4")
當MOD(AE2+k,49)的餘數，有顯示在.Range("AE"& .[AC1].End(xldown).row, " AK"& .[AC1].End(xldown).row)
且MOD(AN2+k,49)的餘數也有顯示在.Range("AN"& .[AC1].End(xldown).row, " AT" & .[AC1].End(xldown).row)
且MOD(AW2+k,49)的餘數也有顯示在.Range("AW"& .[AC1].End(xldown).row, " BC" & .[AC1].End(xldown).row)
則V2= k；否則V2= ""
右拉下拉到 .Range("AB" & .[AC1].End(xldown).row - 1) 填滿

其餘…Sheets("準4進5")~ Sheets("準7進8")...同理類推。
Next

詳如範例附件Sheets(Shrr(s - 1))

請賜教以上需求的程式碼。
謝謝！

樓主熱帖

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

21^#

發表於 2021-7-28 12:42 | 只看該作者

回復 20# 准提部林
版主 :
測試成功

謝謝您的幫忙和指導~感恩

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

20^#

發表於 2021-7-28 11:02 | 只看該作者

回復 19# ziv976688

1)
T = ABS((Arr(k)(i, j) - x) Mod 49) & "|" & k

2)
V=(Arr(k)(i, j) - x) Mod 49
IF V<0 THEN V=V+49
T=V & "|" & K

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

19^#

發表於 2021-7-28 00:53 | 只看該作者

本帖最後由 ziv976688 於 2021-7-28 01:07 編輯

回復 12# 准提部林

取得指定範圍內的各x值_(減法).rar (88.66 KB)   =>可按清除鍵~重新測試。
版主 : 您好!
請教您~
Module 2
如果要把列20  T = (Arr(k)(i, j) + x) Mod 49 & "|" & k
改為 -x
然後有二種方式的計算狀況 :
A式 : 當 -x之後的差值為負數時，則T自動轉為正數(即如=絕對值)
EX : 準2進3!V2=
IF(OR(IF(MOD(ABS(AE2-x),49),MOD(ABS(AE2-x),49),49)=($AE$27:$AK$27))*OR(IF(MOD(ABS(AN2-x),49),MOD(ABS(AN2-x),49),49)=($AN$27:$AT$27)),x,"")
右拉再下拉填滿
EX :  W2=11；X2=37

B式 : 當 -x之後的差值為負數時，則b]T自動再+49轉為正數(即如=一般的函數計算)
EX : 準2進3!V2=
IF(OR(IF(MOD(AE2-x,49),MOD(AE2-x,49),49)=($AE$27:$AK$27))*OR(IF(MOD(AN2-x,49),MOD(AN2-x,49),49)=($AN$27:$AT$27)),x,"")
右拉再下拉填滿
EX :  V2=23；X2=48

以上二種的計算方式之程式碼~懇請指導。
謝謝您^^

TOP

ziv976688