会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 模块函数VBA > 正文

化学分子式输入函数(数字下标输入方式)

时间:2004-06-15 22:19 来源:本站原创 作者:swo 阅读:

<P>常常在网上看到有人询问类似化学分子式的数字下标(也有上标)的输入方式,当时回答一是不可能,二是想到拼凑的办法在报表里处理。今天在论坛上逛时看到了goodidea的提示平方和立方的输入方法得到启示,最后悟出一个办法,经多方寻找,原来在Windows的造字程序里的代码表里就有数字下标的代码,不过给的是16进制的代码而不是access认识的ASCI的十进制代码,感谢cg1整理了一个十六进制转十进制的函数,这下就方便了,直接将取得的10个数字下标的代码转换成十进制的代码,代码为8320……8329。

 

Private Function Myjm(strA As String) As String

    Dim A, B As Long
    Dim C, E, jm As String

    A = Len(strA)

    For B = 1 To A
        jm = ""
        C = Mid(strA, B, 1)


        If C >= 0 And C <= 9 Then

            If C = 0 Then jm = ChrW(8320)
            If C = 1 Then jm = ChrW(8321)
            If C = 2 Then jm = ChrW(8322)
            If C = 3 Then jm = ChrW(8323)
            If C = 4 Then jm = ChrW(8324)
            If C = 5 Then jm = ChrW(8325)
            If C = 6 Then jm = ChrW(8326)
            If C = 7 Then jm = ChrW(8327)
            If C = 8 Then jm = ChrW(8328)
            If C = 9 Then jm = ChrW(8329)

        Else
            E = E & C
        End If
        E = E & jm

    Next B
   
    Myjm = E
'    Debug.Print E
End Function

(责任编辑:admin)

顶一下
(1)
50%
踩一下
(1)
50%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: