打开网易新闻 查看更多视频
直接写,长度超过4自动换行,[name]是字段。
Function FindLabel ( [NAME] )n=len([NAME])if (n<5) thenFindLabel = [NAME]elseFindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)end ifEnd Function写成函数
Function myFind(NAME,wd)n=len(NAME)if (nmyFind = NAMEelsemyFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)end ifEnd Function
Function FindLabel([NAME])FindLabel= myFind([NAME],4)End Function字段是name,4,可以修改5等。
效果如下:
文章授权转载:gisoracle
版权归原作者所有
13个 最适合测绘人的证书
注册测绘师继续教育20学时
中国测绘网新媒体中心
cehui8@qq.com
热门跟贴