简单VBA代码报错求指导

zxc554657357

运行就弹出这个错误窗口，不知道为什么？是代码格式不对吗？求教，

目的是用VBA计算出

如果 A1 等于某个 字 则复制 A3 单元格内容到 A2。

目前就卡在格式错误上了，

朝露孤烟

你的附件工作簿中代码竟然是空的？

wcj6376tcp

是不是漏了 end if

杨建营

wcj6376tcp 发表于 2024-4-17 17:25
是不是漏了 end if

不换行可以不用end if

cidanji

1. function U(){
   
2.         if(Range("A1").Value2==4){Range("B1").Value2="shi"};
   
3. }

复制代码

试试这个是不是

lxdexcel

Range("A1")前加表名字
sheet1.Range("A1") 试试

zxc554657357

cidanji 发表于 2024-4-17 17:50
试试这个是不是

您写的这段可以用耶，实在是感谢，我抄去研究研究

zxc554657357

lxdexcel 发表于 2024-4-17 18:44
Range("A1")前加表名字
sheet1.Range("A1") 试试

谢谢帮助，不过我加了之后，就提示我加的这段不对了，开始我也怀疑是不是检索不到工作表，不过加上也报错，5路老师写的可以，可能还是格式问题。