[求助]：下拉菜单如何设置？输入数字后，在其后面直接加入单位？

huang961014

1、下拉菜单如何隐藏。
2、在输入数字后，在其后面直接加入单位，比如：在A1行内填入“22”，那么它显示的是“22m”，等等。
望不吝赐教！

adian2000

问题1，我不知道你的意思。可能你想在excel下定制编程，可以用VBA来控制系统菜单的显示。
问题2，设置单元格的格式，比如A1设置为“#"m"”，那么输入数字“123456.789”，显示为“123456.789m”

huang961014

“#"m"”，怎么设置，在“单元格的格式”栏中没有此项。

yi.gao

在单元格格式分类中有自定义一项

xcajcj

最初由 huang961014 发布
[B]1、下拉菜单如何隐藏。
2、在输入数字后，在其后面直接加入单位，比如：在A1行内填入“22”，那么它显示的是“22m”，等等。
望不吝赐教！ [/B]

问题1：

在宏模块中加入语句“Application.CommandBars("Worksheet Menu Bar").Enabled = False”即可隐藏Excel的菜单。
恢复菜单语句为“Application.CommandBars("Worksheet Menu Bar").Enabled = True”

问题2：见动画演示。

chenhang1203

楼上的不错，可是确无法设定带有上标的单位，比如“立方米/秒”应该怎样做呢

xcajcj

最初由 chenhang1203 发布
[B]楼上的不错，可是确无法设定带有上标的单位，比如“立方米/秒”应该怎样做呢 [/B]

你是要这样的吗？

chenhang1203

我是要"m3/s"那个3是上标

xcajcj

最初由 chenhang1203 发布
[B]我是要"m3/s"那个3是上标 [/B]

下来的后我做了一个宏，不知能不满足你这个要求，你先试试吧。

Sub 上标()
Dim selcell As Range
Dim seltextlen As Integer
For Each selcell In Selection
selcell.Activate
seltextlen = Len(ActiveCell)
selcell.Characters(Start:=seltextlen - 2, Length:=1).Font.Superscript = Not selcell.Characters(Start:=seltextlen - 2, Length:=1).Font.Superscript
Next
End Sub

具体操作见动画演示。

pzzjx

楼上的，谢谢了，搞的很不错！！1

xcajcj

最初由 pzzjx 发布
[B]楼上的，谢谢了，搞的很不错！！1 [/B]

这里还有：
http://www.xdcad.net/forum/showthread.php?s=&threadid=168601