excel中输入数字如何在同一单元格自动生成其倍数

Question

例如在A1中输入6后自动显示24，输入8自动显示32
ps：我不想要那种B1=A1*4之类（不在同一单元格）的，有没有什么函数或公式编码可以实现？

Answer 1

可以使用VBA事件完成该操作。

复制如下代码到该sheet下的模块中，回到本sheet操作即可完成。

依次点击如下按钮：菜单栏>开发工具>VB>sheet

如下代码是乘以100倍，其他倍数可替换相关参数

如下代码只针对数值生效，其他无效。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim myValue As Single
If VBA.IsNumeric(Target.Value) Then
myValue = Target.Value
Application.EnableEvents = False
Target.Value = myValue * 100
End If
Application.EnableEvents = True
End Sub

Answer 2

右键SHEET1 查看代码
复制代码 下列代码

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False ' 防止自动变化后重复激发事件，导致循环溢出..

Target.Value = Val(Target.Value) * 4

Application.EnableEvents = True
End Sub

关闭窗口
返回EXECL ,在单元格里输入4 ，结果为16
分你看着给吧！

追问

谢谢！试过了，挺有用的。
不过这样的编程会让整个sheet都是这个公式，再次请教，如果我只想要某一列是输入数字的4倍，另一列是另一输入数字的7倍...呢？又该怎么做？

追答

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 1 Then .Value = .Value * 4 '判断是否在第1列(a列)输入数据.
End With
Next
Application.EnableEvents = True
End Sub