當前位置:成語大全網 - 書法字典 - VBA詞典容量不足。

VBA詞典容量不足。

使用這個:

次級AAA級

我長,N長,M長

將最大值調成單壹值,Ar,Br

列(“I:M”)。清除內容

ar = Range(“A2:F“【A65536】。結束(三)。排)

br = Range(“G2:M6“)

對於I = 1至下界(Ar)

選擇案例Ar(I,1)

案例Br(1,1)到Br(1,2)

N = 1

案例Br(2,1)至Br(2,2)

N = 2

案例Br(3,1)至Br(3,2)

N = 3

案例Br(4,1)至Br(4,2)

N = 4

案例Br(5,1)至Br(5,2)

N = 5

其他情況

N = 0

結束選擇

如果N & lt& gt那就0

Br(N,3)= Ar(I,2)+Br(N,3)

Br(N,4)= Ar(I,3)+Br(N,4)

Br(N,5)= Ar(I,4)+Br(N,5)

Br(N,6)= Ar(I,5)+Br(N,6)

Br(N,7)= Ar(I,6)+Br(N,7)

如果…就會結束

然後

For I = 1到5

最大值= 0

對於N = 3到7

if Br(I,N)》Max然後Max = Br(I,N)

然後

br(I,3)= Max

然後

range(“G2:I6“)= Br

末端接頭

不要用下面這個。

次級AAA級

& ampnbsp& ampnbsp& ampnbsp& ampnbsp我長,N長,M長

& ampnbsp& ampnbsp& ampnbsp& ampnbsp將最大值調成單壹值,Ar,Br

& ampnbsp& ampnbsp& ampnbsp& ampnbsp列(“I”)。清除內容

& ampnbsp& ampnbsp& ampnbsp& ampnbspar = Range(“A2:F“amp【A65536】。結束(三)。排)

& ampnbsp& ampnbsp& ampnbsp& ampnbspbr = Range(“G2:M6“)

& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 1

& ampnbsp& ampnbsp& ampnbsp& ampnbsp對於I = 1至下界(Ar)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp選擇案例Ar(I,1)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(1,1)到Br(1,2)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 1

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(2,1)至Br(2,2)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 2

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(3,1)至Br(3,2)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 3

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(4,1)至Br(4,2)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 4

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(5,1)至Br(5,2)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 5

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp其他情況

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 0

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp結束選擇

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp如果N & amplt;& ampgt;那就0

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N,3)= Ar(I,2)+Br(N,3)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N,4)= Ar(I,3)+Br(N,4)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N,5)= Ar(I,4)+Br(N,5)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N,6)= Ar(I,5)+Br(N,6)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N,7)= Ar(I,6)+Br(N,7)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp如果…就會結束

& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後

& ampnbsp& ampnbsp& ampnbsp& ampnbspFor I = 1到5

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp最大值= 0

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp對於N = 3到7

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspif Br(I,N)& amp;gt;Max然後Max = Br(I,N)

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後

& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspbr(I,3)= Max

& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後

& ampnbsp& ampnbsp& ampnbsp& ampnbsprange(“G2:I6“)= Br

末端接頭