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

ziv976688

取得指定範圍內的各k值.rar (80.05 KB)

下載次數: 6

2021-7-20 23:03

備註：當餘數=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

回復 20# 准提部林
版主 :
測試成功
謝謝您的幫忙和指導~感恩

准提部林

回復 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

ziv976688

回復 12# 准提部林
取得指定範圍內的各x值_(減法).rar (88.66 KB)

下載次數: 3

2021-7-28 01:06

  =>可按清除鍵~重新測試。
版主 : 您好!
請教您~
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  

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

ziv976688

回復 16# samwang
測試成功
謝謝您的耐心指導和幫忙

samwang

回復 12# 准提部林


准大寫的很太精簡，只用了一個數組和字典就搞定多個工作表資料，之前已有看過字典同時裝入不一樣的資料
這次又學到數組也可以這樣使用，真的是一個很好的範例學習了，感謝分享。

samwang

回復 15# ziv976688


請再測試看看，謝謝

ziv976688

回復 11# samwang
取得指定範圍內的各k值_samwang.rar (82.83 KB)

下載次數: 3

2021-7-22 20:47

我把二個貴解程式碼分別放在Module1和Module3
整理後，Module1還是顯示不出V2:AB26的答案；Module3的A4:A52的答案就OK了!
可否煩請您再賜正?
謝謝您

ziv976688

回復 12# 准提部林
測試成功
謝謝您一再的幫忙和指導。
感恩

ziv976688

回復 11# samwang
2016版打不開
不好意思~給您添麻煩^^"