以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现单元格数据自动转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127292)

--  作者:zyxhx
--  发布时间:2018/11/10 11:03:00
--  如何实现单元格数据自动转换

老师您好!

 

想实现在年龄单元格输入字符如:1s , 1s2y ,1s2y3t .回车后自动转换成1岁,1岁2月,1岁2月3天。

总之就是想将字符后输入的s,y,t字母转换成岁,月,天。(如果只输入了1s 就显示1岁,后面的y,t没有输入就不显示。)

 

另外根据年龄列输入的内容在出生日期列生成对应的出生日期。

 

且如果在出生日期列直接输入后,年龄列自动根据出生日期列内容转换成某岁某月某天。

 

请老师指点一下,该如何写代码?

 

谢谢老师。

[此贴子已经被作者于2018/11/10 11:06:03编辑过]

--  作者:有点蓝
--  发布时间:2018/11/10 11:24:00
--  
参考:http://www.foxtable.com/webhelp/scr/0620.htm

例如

If e.Col.name = "年龄" Then  \'如果正在年龄
    If e.KeyChar = "s" Then \'如果输入的是s
        e.Cancel = True
        e.SelectedText = "岁"
    ElseIf e.KeyChar = "y" Then \'如果输入的是y
        e.Cancel = True
        e.SelectedText = "月"
    ElseIf e.KeyChar = "t" Then \'如果输入的是t
        e.Cancel = True
        e.SelectedText = "天"
    End If
End If

--  作者:zyxhx
--  发布时间:2018/11/10 12:46:00
--  

谢谢老师指点!