提示 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
}

...全文
97 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhouzbg168168168 2022-02-21
  • 打赏
  • 举报
回复

excel中宏

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧