查看: 1377|回复: 16
如何用VB 直接写公式 D1=Sheet2!A1
阅读权限10
在线时间 小时
本帖最后由
16:27 编辑
求助指点！！
如何用VB 直接 写公式 D1=Sheet2!A1
D1=Sheet2!A1
如何用VB 直接 写公式 D1=Sheet2!A1（不使用宏）
也就是在&Sheet2!A1&中输入内容直接显示在D1中
(录制的宏代码如下
Sub Macro1()
' Macro1 Macro
& & ActiveCell.FormulaR1C1 = &=Sheet2!R[-24]C[-9]&
& & Range(&K25&).Select
(6.08 KB, 下载次数: 15)
13:11 上传
点击文件名下载附件
补充内容 ( 15:16):
11楼给了答案，是我想要的理想公式!!!
感谢11楼无私地奉献。
补充内容 ( 12:42):
Private Sub Worksheet_Activate()
11楼给了答案，
Sheets(&sheet1&).Cells(1, 4) = Sheets(&sheet2&).Cells(1, 1)
补充内容 ( 10:13):
作者：coby001（5、7、8楼）的公式都可以用！！！人间高手无处不在！！！归纳coby001的模块公式如下：
补充内容 ( 10:13):
Sub Macro1()
With xlApp.Range(&D1&)
.Formula = Sheet2!A1 '
.Calculate
.Value = .Value
补充内容 ( 10:14):
Sub Macro1()
xlApp.Range(&D1&).Formula = &=Sheet2!A1&
补充内容 ( 10:14):
Sub Macro1()
' Macro1 Macro
' 宏由 微软用户 录制，时间:
xlApp.Range(&D1&).Formula = Sheet2!A1 '
xlApp.Range(&D1&).Calculate
xlApp.Range(&D1&).Value = xlApp.Range(&D1&).Value
阅读权限20
在线时间 小时
Range(&D1&)=&=Sheet2!A1&
阅读权限10
在线时间 小时
<font color="#850817zgh 发表于
Range(&D1&)=&=Sheet2!A1&
能上传附件吗？
按上面方法不知道怎么加入。
阅读权限20
在线时间 小时
& & & & & & & &
试试看& && && && && && && && &
17:18 上传
点击文件名下载附件
6.91 KB, 下载次数: 28
阅读权限90
在线时间 小时
xlApp.Range(&D1&).Formula=&=Sheet2!A1&
阅读权限10
在线时间 小时
<font color="#850817zgh 发表于
不是用公式 D1=Sheet2!A1
能否在工程代码里面直接用VB写？
不想再D1上显示公式
阅读权限90
在线时间 小时
本帖最后由 coby001 于
18:24 编辑
xlApp.Range(&D1&).Formula= 你的公式'
xlApp.Range(&D1&).calculate
xlApp.Range(&D1&).value=xlApp.Range(&D1&).value
阅读权限90
在线时间 小时
with xlApp.Range(&D1&)
.Formula= 你的公式'
.calculate
.value=.value
阅读权限10
在线时间 小时
coby001 发表于
with xlApp.Range(&D1&)
.Formula= 你的公式'
.calculate
(4.74 KB, 下载次数: 8)
19:13 上传
点击文件名下载附件
帮忙在上面的附件上写入。谢谢
阅读权限10
在线时间 小时
哪位高手帮我解决
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师苹果/安卓/wp
积分 1121, 距离下一级还需 254 积分
权限: 自定义头衔, 签名中使用图片, 隐身
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡, 抢沙发下一级可获得
权限: 设置帖子权限道具: 提升卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
本帖最后由 wzbfuture 于
10:59 编辑
感觉用公式编辑器输入字母组合,很难看
比如第i个因素,这个字母i究竟是字母输入,还是用公式编辑器输入呢
还有i=1,2,3,…,n,是用公式编辑器,还是直接用键盘输入字母数字呢
载入中......
公式编辑器可以选择字体的。。。兄台
mathtype 即可，当然使用latex更好，不过难度要大很多
microhard_lmj 发表于
公式编辑器可以选择字体的。。。兄台请问在哪里选择字体啊,我用公式编辑器输入的公式,都是斜体,而且只要有公式的那一行就间距特别大了
linhaii 发表于
mathtype 即可，当然使用latex更好，不过难度要大很多我就是用mathtype编辑的公式
但编辑的公式在word中都是斜体,而且只要有个编辑的公式,那一行的间距就很大,很难看
随便选择的
wzbfuture 发表于
我就是用mathtype编辑的公式
但编辑的公式在word中都是斜体,而且只要有个编辑的公式,那一行的间距就很大 ...间距可以通过拉伸获缩小那个公式来调整
字体用type 里面的math 就挺好看的啊，不知道你的斜体字体是什么样的
我的数学公式除了latex外，很多时候也是用mathtype排版的
linhaii 发表于
间距可以通过拉伸获缩小那个公式来调整
字体用type 里面的math 就挺好看的啊，不知道你的斜体字体是什么 ...谢谢,我去摸索下
再次感谢,我基本上知道了
呵呵 了解就好
初级热心勋章
初级热心勋章
初级信用勋章
初级信用勋章
初级学术勋章
初级学术勋章
中级热心勋章
中级热心勋章
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师工作票自动填写公式_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
工作票自动填写公式
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢}