vba中 公式的书写规则始终没有搞清楚啊

fanatone

这个公式老出错，不知怎么回事？到底该如何加“”？ 求朋友帮个忙。先谢谢了。


  Cells(1, 9) = "=MID(H1,IFERROR(FIND(" / ",H1),)+1,100)"



同时，有哪位朋友知道 vba 里，公式编辑书写规则啊，我在论坛里找了半天，没有发现书写规则。


提取邮箱号.zip (17.93 KB, 下载次数: 2)

2021-9-9 13:59 上传

点击文件名下载附件

homedotue

录制宏，看一下就明白了。

homedotue

Sub 宏1()
   Range("A1").FormulaR1C1 = "=MID(R[1]C[1],IFERROR(FIND("" / "",R[1]C[1]),)+1,100)"
End Sub

会在A1单元格显示公式：=MID(B2,IFERROR(FIND(" / ",B2),)+1,100)

消灭零公里

既然用VBA了，就用VBA的方法解决啊，为什么还要在代码里写公式呢？

1. Sub text()
   
2. 
   
3. For i = 1 To 10
   
4.     If InStr(Range("h" & i), "/") Then
   
5.         Range("i" & i) = Split(Range("H" & i), "/")(1)
   
6.     Else
   
7.         Range("i" & i) = Range("h" & i)
   
8.     End If
   
9. Next
   
10. 
    
11. End Sub

复制代码

fanatone

homedotue 发表于 2021-9-9 14:06
Sub 宏1()
   Range("A1").FormulaR1C1 = "=MID(R[1]C[1],IFERROR(FIND("" / "",R[1]C[1]),)+1,100)"
End ...

感谢提醒，这也是解决问题好办法。不过有没有公式书写规则方面的资料，可否发一下。谢谢您。

fanatone

消灭零公里 发表于 2021-9-9 14:19
既然用VBA了，就用VBA的方法解决啊，为什么还要在代码里写公式呢？

感谢这位老师，你的回答，正是我想要的。我就是想搞一个按钮，解决问题呢。十分感谢。