提示 Dim aa(92) as integer 出错,请指教

zhouzbg168168168 2022-02-21 18:38:43

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
}

...全文
37 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复

excel中宏

  • 打赏
  • 举报
回复
发帖
VBA
加入

2167

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
申请成为版主
帖子事件
创建了帖子
2022-02-21 18:38
社区公告
暂无公告