2,503
社区成员




function qqq()
{
Dim aa(92) as integer
Dim cc(92) as integer
n = 2
i = 1
aa(1) = Sheet1.value("u2")
j = 1
Do While aa(j) <> ""
xi = Trim(Str(n))
a1 = "u" + xi
n = n + 1
j = j + 1
aa(j) = Sheet1.value(a1)
loop
p=1
for i =1 to 92
if aa(i)<=6
then cc(i)=100
elseif aa(i)<=19
then cc(i)=97
elseif aa(i)<=38
then cc(i)=94
elseif aa(i)<=63
then cc(i)=91
elseif aa(i)<=95
then cc(i)=88
elseif aa(i)<=132
then cc(i)=85
elseif aa(i)<=19
then cc(i)=82
elseif aa(i)<=19
then cc(i)=79
elseif aa(i)<=19
then cc(i)=76
elseif aa(i)<=19
then cc(i)=73
else
cc(i)=40
next i
n=2
for i =1 to 92
xi = Trim(Str(n))
a1 = "v" + xi
n = n + 1
Sheet1.value(a1)=cc(i)
next i
}
excel中宏