自动生成带上标的数值

随缘。。。。 · 发表于 2012-4-19 20:57

怎么样能自动生成带上标的数值

随缘。。。。 · 发表于 2012-4-20 17:33

哪位高手帮帮忙，谢谢了

shuyee · 发表于 2012-4-24 14:43

用vba吧,用在你流程表的工作表事件上.思路:当Z列转成值时,根据+ - 号确定上下标的起始位置和长度.
由于上下标是对单元格内的字符串直接作用,因此用公式无法实现,从微软的命名来看,似乎在excel系统内使用了script.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Columns.Count > 1 Then
Exit Sub
ElseIf Target.HasFormula Or Target.Column <> 26 Then
Exit Sub
End If
Dim tmpC As Range
Application.EnableEvents = False
For Each tmpC In Target
i = Application.Min(Format(InStr(1, tmpC, "+"), "0;999;999"), Format(InStr(1, tmpC, "-"), "0;999;999"))
If i < 999 Then
      j = Application.Max(InStr(i + 1, tmpC, "+"), InStr(i + 1, tmpC, "-"))
      If j = 0 Then
         j = Len(tmpC) + 1
      Else
         tmpC.Characters(j, Len(tmpC) - j + 1).Font.Subscript = True
      End If
      tmpC.Characters(i, j - i).Font.Superscript = True
End If
Next
Application.EnableEvents = True
End Sub

换心情1 · 发表于 2012-4-25 23:22

设置自动更正就好了，不过要是太多这样的格式就不好用了

忘得快 · 发表于 2012-5-3 10:31

shuyee 发表于 2012-4-24 14:43
用vba吧,用在你流程表的工作表事件上.思路:当Z列转成值时,根据+ - 号确定上下标的起始位置和长度.
由于上下 ...

自动生成带上标的数值（厂家样本）.rar (22.08 KB, 下载次数: 17)

版主你好！用你的代码还是不能解决问题啊，请指点，谢谢！

shuyee · 发表于 2012-5-3 20:27

我刚才测试正常啊。用公式获取模具情况后，把它转成值，程序会自动转换上下标啊。
或者你直接在Z列输入RZ1.0+0.2-0.2,代码会把+0.2转成上标，-0.2转成下标啊。
你上个数值，我测试一下，或者上个动画。

随缘。。。。 · 发表于 2012-5-6 21:08

shuyee 发表于 2012-5-3 20:27
我刚才测试正常啊。用公式获取模具情况后，把它转成值，程序会自动转换上下标啊。
或者你直接在Z列输入RZ1 ...

你这个是挺好的，能不能不用转成值，自动生成上下标的啊。

shuyee · 发表于 2012-5-7 16:37

目前来看,无法实现,excel中,上下标,不允许用公式之类的实现.
它是通过select character实现的.这是公式所做不到的.
顶多,给你做个按钮,用代码去执行查找,转值,和置上下标,但要保留公式,无法实现.

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

[求助] 自动生成带上标的数值