公式自动改变

brain1992 · 发表于 2017-5-28 16:10

比如说原来的公式是：=sheet1!A1,我想做一个VBA，点一下公式就变成了：=sheet1!A2。有高手可以指导一下吗？

joise-zhang · 发表于 2017-5-28 16:41

你这个直接弄个滚动条还简单一些。

hldycc · 发表于 2017-5-28 19:04

你是干什么用，感觉意义不大。

hldycc · 发表于 2017-5-28 19:10

可以弄个鼠标单击事件处理就可以了。

excelvlookup · 发表于 2017-5-28 19:49

这个问题有难度，难点在于如何提取参与公式计算的单元。

凯哥003 · 发表于 2017-5-28 19:56

自个录个宏就行了

excelvlookup · 发表于 2017-5-28 22:14

楼主说的是比如“=sheet1!A1”，并没有说他具体的公式。因此应写一个应对所有公式都能提取参与运算的单元格的代码。说明确点在公式=sheet1!A1”中，人脑知道A1代表单元格，电脑就不知道了

cflood · 发表于 2017-5-28 22:28

Range("A1").AutoFill Range("A1:A2"), xlFillDefault
Range("A1").Formula = Range("A2").Formula

宝贝万岁 · 发表于 2017-5-28 23:46

想法有点怪，把公式的值赋过去一样的，如果要保留公式，直接把公式内容切过去就是了。。。，好奇，什么情况下有用？？

好难注册 · 发表于 2017-5-29 01:39

Sub 公式()
Rows(Range("a1") + 1).Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
End Sub

没有附件随便弄得

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

[求助] 公式自动改变

最新热点 /1