这个公式怎么用VBA输入到单元格？

debaozeng · 发表于 2018-9-7 09:30

请帮忙看看红色字体公式如何用VBA 格式表达？

Private Function dcpath()
dcpath = ThisWorkbook.path
End Function

Sub GS()
Dim r As Integer
r = Selection.Row
ActiveCell.Value= HYPERLINK(dcpath()&"\"&“E”&R&"\"&$M$3,"点击")

End Sub

向東 · 发表于 2018-9-7 09:44

本帖最后由向東于 2018-9-7 09:48 编辑

ActiveCell.Formula="=HYPERLINK(dcpath()&""\""&""E""&R&""\""&$M$3,""点击"")"

debaozeng · 发表于 2018-9-7 13:29

显示应用程序或对象定义错误，请帮忙看看是什么原因。谢谢！

蓝桥玄霜 · 发表于 2018-9-7 13:51

建议用录制宏的方法获得代码。

qj_xiele · 发表于 2018-9-7 15:17

翻译如下：
"=HYPERLINK(" & dcpath() & "\" & chr(34) & “E” & Chr(34) & R & "\" & "$M$3" , & chr(34) & "点击" & Chr(34) & ")"

debaozeng · 发表于 2018-9-8 08:46

谢谢各位老师，特别是蓝版，问题解决！录制宏好方法！

		自动登录	找回密码
密码			免费注册

[求助] 这个公式怎么用VBA输入到单元格？