[求助]单元格数据自动加部分下划线，如何实现？

wangming1984 · 发表于 2008-6-16 00:37

如题，想在数据输入时自动在指定位置添加下划线（在单元格内部分数据下添加），批量添加如何实现？尚不熟悉VBA，特此请教，请高手相助，多谢！！

bzfhl · 发表于 2008-6-16 00:43

请上传附件

wangming1984 · 发表于 2008-6-16 00:43

u3AuuTZZ.rar (1.82 KB, 下载次数: 65)

yuanzhuping · 发表于 2008-6-16 00:54

QUOTE:

以下是引用wangming1984在2008-6-16 0:37:09的发言：
如题，想在数据输入时自动在指定位置添加下划线（在单元格内部分数据下添加），批量添加如何实现？尚不熟悉VBA，特此请教，请高手相助，多谢！！

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Characters(1, 11).Font.Underline = xlUnderlineStyleSingle
    End If
End Sub

BiqcBnu4.rar (6.35 KB, 下载次数: 201)

wangming1984 · 发表于 2008-6-16 01:39

多谢yuanzhuping，但是表格中A列再次输入数据时，就会全部加上下划线，如何实现每次输入均可部分加下划线？

zldccmx · 发表于 2008-6-16 07:41

QUOTE:

以下是引用wangming1984在2008-6-16 1:39:10的发言：
多谢yuanzhuping，但是表格中A列再次输入数据时，就会全部加上下划线，如何实现每次输入均可部分加下划线？

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Target.Font.Underline = xlUnderlineStyleNone'先取消下划线
        Target.Characters(1, 11).Font.Underline = xlUnderlineStyleSingle
    End If
End Sub

或者：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Characters(1, 11).Font.Underline = xlUnderlineStyleSingle'只对前11个字符加下划线
        Target.Characters(12, Len(Target)).Font.Underline = xlUnderlineStyleNone'从第12字符至最后，不使用下划线
    End If
End Sub

fengyong322 · 发表于 2008-6-20 00:09

如何实现单元格部分特定字符不加下划线，而其他字符加下划线，比如下列数据："1996年7月毕业于重庆大学建筑工程专业，学制4年"要求显示为"1996年7月毕业于重庆大学建筑工程专业，学制4年",请问如何实现,特此请教，请高手相助，多谢！

wangming1984 · 发表于 2008-6-21 20:45

多谢zldccmx相助，问题已经解决！！

raymondfong · 发表于 2008-6-22 11:40

可以将你“已经解决”的问题和大家分享？

wangming1984 · 发表于 2008-6-24 11:37

问题目的就是实现：A列各单元格数据输入时自动在前11个字符加下划线。

问题解决参见上面回复。

见附件。

NOrTlwj3.rar (7.42 KB, 下载次数: 337)

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

[求助]单元格数据自动加部分下划线，如何实现？

附件忘了上传,请大家帮忙!多谢

多谢yuanzhuping！