在EXCEL表格中，如何让公制自动自动转换成英制

lisa800810

如题，在表格中，如何让输进去的公制自动转换成英制，譬如：我输入公制数值25.4,怎么样样能让它自动转换成英制数值1,

zzmxy

用VBA吧~~~很容易，具体可以搜索一下相关的内容。

最简单的即如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Application.IsNonText(Target.Value) Then
Target.Value = Target.Value / 2.54

Application.EnableEvents = True

End If

End Sub


不过，自己在前面最好是根据你需要输入的位置、及输入的内容作一下判断！！

[ 本帖最后由 zzmxy 于 2010-7-5 14:27 编辑 ]

lisa800810

我对VBA是一点都不懂的，能否请楼上的给我具体说明一下啊，谢谢

zzmxy

原帖由 lisa800810 于 2010-7-5 14:12 发表
我对VBA是一点都不懂的，能否请楼上的给我具体说明一下啊，谢谢

参考下面的附件，作了一点点修改，你自己可以按Alt+F11调出源代码，可以自己尝试根据自己的要求修改。
工作表内黄色区域输入时，会自动作变化。

lisa800810

还是不明白，黄色区域内我随便输入一个公制的数字，好象没有发生任何变化

zzmxy

要不你把你的文件传上来给我们看一下吧~~~我们帮你把代码写进去~~
另外你自己也看一下是不是把宏的安全等级设为最高了~~

eng5000

zzmxy 发表于 2010-7-5 15:34
要不你把你的文件传上来给我们看一下吧~~~我们帮你把代码写进去~~
另外你自己也看一下是不是把宏的安全等 ...

帅哥，能辛苦下，把这个详细步骤说明下吗？
我是这样的，你看看；
1.工具-控件-查看代码，进入后将你代码复制；
2.打开我的excel，工具-控件-查看代码-粘贴代码，修改行和列的数值，关闭，进入excel单元格，在指定的行和列中输入可以看到看到公制直接变成英制了，但是，我删除单元格内容直接就出现调试窗口，或者要我保存xlsm格式，你看看，帮帮忙，不能让你搞，要不然永远都不会。

eng5000

zzmxy 发表于 2010-7-5 15:34
要不你把你的文件传上来给我们看一下吧~~~我们帮你把代码写进去~~
另外你自己也看一下是不是把宏的安全等 ...

你这个可以的，搞出来了，就是xls和xlsx的关系，保存xls就没有关系了，问题解决，类似此种问题就ok了，非常感谢。