Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6242|回复: 6

如何快速实现单元格内最后一个个字符自动加粗

[复制链接]
发表于 2013-5-22 22:46 | 显示全部楼层 |阅读模式
如何快速实现单元格内 首个字符或最后一个字符,或否个位置的字符 自动加粗。


手动谁都会,但单元格多了。肯定要自动的。
我在条件格式里 用 函数设置
=RIGTH(A1,1)
格式 选 加粗
不行。

意图是,单元格最后一个字符自动加粗。
请问如何实现呢?

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-5-22 22:50 | 显示全部楼层
回复

使用道具 举报

发表于 2013-5-22 23:13 | 显示全部楼层
Sub test()
    For i = 1 To 10
        Cells(i, 1).Characters(Start:=1, Length:=1).Font.FontStyle = "加粗"
    Next
End Sub
回复

使用道具 举报

发表于 2013-5-22 23:18 | 显示全部楼层
本帖最后由 1032446692 于 2013-5-22 23:19 编辑

上面那个代码  需要你运行才能达到效果   并且要根据你的数据修改代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Characters(Start:=1, Length:=1).Font.FontStyle = "加粗"
End Sub
你用这个  可以是的你每次填写的单元格实现你要的效果

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Characters(Start:=1, Length:=1).Font.FontStyle = "加粗"
End Sub

使用这个,你选择过的数据实现你要的效果
回复

使用道具 举报

 楼主| 发表于 2013-5-23 15:35 | 显示全部楼层
1032446692 发表于 2013-5-22 23:18
上面那个代码  需要你运行才能达到效果   并且要根据你的数据修改代码

Private Sub Worksheet_Change(By ...

好。回去我试试。谢谢各位老师了。
回复

使用道具 举报

发表于 2021-6-16 23:29 | 显示全部楼层
1032446692 发表于 2013-5-22 23:13
Sub test()
    For i = 1 To 10
        Cells(i, 1).Characters(Start:=1, Length:=1).Font.FontStyle  ...

请教一下 如何实现单元格内第一行字符加粗?和这个问题有点类似

回复

使用道具 举报

发表于 2022-1-23 17:56 | 显示全部楼层
Joker2020 发表于 2021-6-16 23:29
请教一下 如何实现单元格内第一行字符加粗?和这个问题有点类似

Sub test()

Dim I As Long, J As Long, K As Long, L As Long
'以下定义宏作用于第1列到第3列,可根据实际修改。
    For L = 2 To 2
'以下定义宏作用于第1行到第5行,可根据实际修改。
    For I = 1 To 10

Cells(I, 2).Select
J = Len(Cells(I, L))
K = InStr(Cells(I, L), Chr(10))


  With ActiveCell.Characters(Start:=1, Length:=K - 1).Font
  .FontStyle = "加粗"
  End With
    Next
        Next
End Sub


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:33 , Processed in 0.230366 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表