[已解决]如何在excle单元格中编写的vba语言当插入一列的时候公式也自动改变？

wangkaiwei · 发表于 2012-4-13 10:18

我们用excle函数编辑的时候，例如在a1中编辑公式：a1=b1+c1,当在a列后面插入一列后，公式自动变成a1=c1+d1，但是用vba编写的时候，插入一列后，公式仍然是a1=b1+c1，但是我要的是和上面函数一样的情况，即：a1=c1+d1，这个功能可以实现吗？我用vba编程的时候要插入一列，发现，后面所有的数据都要改，这个好麻烦啊！请高手指导，谢谢~

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-4-13 10:27

提供具体的附件来说明你的情况！！

一般来说，这种情况直接使用公式就行了的，就没必要非得把问题搞那么复杂！！

VBA是好，但是并不是体现在处理简单的问题上面！！

跳转到最佳答案楼层

无聊的疯子 · 发表于 2012-4-13 10:27

提供具体的附件来说明你的情况！！

一般来说，这种情况直接使用公式就行了的，就没必要非得把问题搞那么复杂！！

VBA是好，但是并不是体现在处理简单的问题上面！！

wangkaiwei · 发表于 2012-4-13 10:47

无聊的疯子发表于 2012-4-13 10:27
提供具体的附件来说明你的情况！！

一般来说，这种情况直接使用公式就行了的，就没必要非得把问题搞那么 ...

例如：这条程序：简单介绍是，我要做一个文件收发窗口，在收发窗口的表格sheet1中将（5,6）、（5,7）、（5、8）……（5、12)单元格中的信息，输入到sheet2文件收发记录表格中（x，1）、（x,2）……（x,8）中去（x是判断这条记录是否是空的，当这条记录为空的时候填写进去，不为空的时候自动跳到下一行去），在文件收发窗口中，我要在（5,6）和（5,7）间插入一列，补充信息，后面的所有信息都要加1，如Sheet1.Cells(5, 6)，变成Sheet1.Cells(5, 7)，程序如下所示，已经调试成功了。
但是很麻烦呀？请老师指点~
Sub 文件发出()
Dim x As Integer
Sheet1.Cells(11, 10).ClearContents

If Sheet1.Cells(5, 6) = "" Or Sheet1.Cells(5, 7) = "" Or Sheet1.Cells(5, 8) = "" Or Sheet1.Cells(5, 9) = "" Or Sheet1.Cells(5, 10) = "" Or Sheet1.Cells(5, 11) = "" Or Sheet1.Cells(5, 12) = "" Then
Sheet1.Cells(11, 10) = "请输入完整信息"

End If
x = 1
Do
x = x + 1
If Sheet1.Cells(11, 10) <> "请输入完整信息" And Sheet2.Cells(x, 1) = "" And Sheet2.Cells(x, 2) = "" And Sheet2.Cells(x, 3) = "" And Sheet2.Cells(x, 4) = "" And Sheet2.Cells(x, 5) = "" And Sheet2.Cells(x, 6) = "" And Sheet2.Cells(x, 7) = "" And Sheet2.Cells(x, 8) = "" Then
   Sheet2.Cells(x, 1) = Sheet1.Cells(5, 6)
   Sheet2.Cells(x, 2) = Sheet1.Cells(5, 7)
   Sheet2.Cells(x, 3) = Sheet1.Cells(5, 8)
   Sheet2.Cells(x, 4) = Sheet1.Cells(5, 9)
   Sheet2.Cells(x, 5) = Sheet1.Cells(5, 10)
   Sheet2.Cells(x, 6) = Sheet1.Cells(5, 11)
   Sheet2.Cells(x, 7) = Sheet1.Cells(5, 12)
   Sheet2.Cells(x, 8) = Sheet1.Cells(5, 13)
   Exit Do
End If
Loop Until x = 10000

If Sheet1.Cells(11, 10) = "" Then
Sheet1.Cells(11, 10) = "输入成功"
End If

If Sheet1.Cells(11, 10) <> "请输入完整信息" Then

Sheet1.Cells(5, 6).ClearContents
Sheet1.Cells(5, 7).ClearContents
Sheet1.Cells(5, 8).ClearContents
Sheet1.Cells(5, 9).ClearContents
Sheet1.Cells(5, 10).ClearContents
Sheet1.Cells(5, 11).ClearContents
Sheet1.Cells(5, 12).ClearContents
Sheet1.Cells(5, 13).ClearContents
End If

End Sub

无聊的疯子 · 发表于 2012-4-13 10:49

wangkaiwei 发表于 2012-4-13 10:47
例如：这条程序：简单介绍是，我要做一个文件收发窗口，在收发窗口的表格sheet1中将（5,6）、（5,7）、（ ...

请提供你的附件，只须代码，作用不大的！！

无聊的疯子 · 发表于 2012-4-13 11:21

wangkaiwei 发表于 2012-4-13 10:47
例如：这条程序：简单介绍是，我要做一个文件收发窗口，在收发窗口的表格sheet1中将（5,6）、（5,7）、（ ...

只看代码，并无公式！！

但是代码具有很大的优化空间！！所以，附件很重要！！

梅一枝 · 发表于 2012-4-13 11:51

个人感觉列号设置个变量，代码会简单的多。不知道行不行

fjmxwrs · 发表于 2012-4-13 11:56

wangkaiwei 发表于 2012-4-13 10:47
例如：这条程序：简单介绍是，我要做一个文件收发窗口，在收发窗口的表格sheet1中将（5,6）、（5,7）、（ ...

你又不是时时需要插入的，应该是设置好固定的样式后用的，你只需要设置好固定的样式后，修改好代码即可。没有附件，理解有点抽象

libenwen2011 · 发表于 2012-4-15 21:35

学习学习

wangkaiwei · 发表于 2012-4-14 08:03

无聊的疯子发表于 2012-4-13 11:21
只看代码，并无公式！！

但是代码具有很大的优化空间！！所以，附件很重要！！

文件收发程序（编辑中）.rar (440.52 KB, 下载次数: 18)

wangkaiwei · 发表于 2012-4-14 08:48

fjmxwrs 发表于 2012-4-13 11:56
你又不是时时需要插入的，应该是设置好固定的样式后用的，你只需要设置好固定的样式后，修改好代码即可。 ...

已经上传例子了，里面的宏的计算式是有规律的，若没有规律可以像excle中编辑公式那样自动变换吗？

例子.rar (6.9 KB, 下载次数: 6)

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

[已解决]如何在excle单元格中编写的vba语言当插入一列的时候公式也自动改变？

相关帖子