赵丽颖称感情空白公布择偶条件：首先是个男的

dhldhldhl7 · 发表于 2025-8-1 11:10

Excel文字上划线且水平居中，求代码，在线等

dhldhldhl7 · 发表于 2025-8-1 11:15

Sub AddOverline()
Dim rng As Range
Set rng = Selection
For Each cell In rng
cell.Value = cell.Value & ChrW(773) '加上划线字符
Next cell
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:16

dhldhldhl7 发表于 2025-8-1 11:15
Sub AddOverline()
Dim rng As Range
Set rng = Selection

不居中，求高人指点

dhldhldhl7 · 发表于 2025-8-1 11:17

Sub FormatCellWithStrikethroughAndTopCenter()
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你需要的目标单元格

With targetCell
      .HorizontalAlignment = xlCenter ' 水平居中
      .VerticalAlignment = xlTop ' 垂直居顶
      .Font.Strikethrough = True ' 上划横线

      ' 调整行高以适应文字顶部对齐
      .RowHeight = .Font.Size * 1.5 ' 根据需要调整倍数
End With
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:17

Sub FormatCellWithStrikethroughAndTopCenter()
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你需要的目标单元格

With targetCell
      .HorizontalAlignment = xlCenter ' 水平居中
      .VerticalAlignment = xlTop ' 垂直居顶
      .Font.Strikethrough = True ' 上划横线

      ' 调整行高以适应文字顶部对齐
      .RowHeight = .Font.Size * 1.5 ' 根据需要调整倍数
End With
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:18

Sub FormatCellWithStrikethroughAndTopCenter()
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你需要的目标单元格

With targetCell
      .HorizontalAlignment = xlCenter ' 水平居中
      .VerticalAlignment = xlTop ' 垂直居顶
      .Font.Strikethrough = True ' 上划横线

      ' 调整行高以适应文字顶部对齐
      .RowHeight = .Font.Size * 1.5 ' 根据需要调整倍数
End With
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:22

Sub FormatCellWithStrikethroughAndTopCenter()
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你需要的目标单元格

With targetCell
      .HorizontalAlignment = xlCenter ' 水平居中
      .VerticalAlignment = xlTop ' 垂直居顶
      .Font.Strikethrough = True ' 上划横线

      ' 调整行高以适应文字顶部对齐
      .RowHeight = .Font.Size * 1.5 ' 根据需要调整倍数
End With
End Sub

运行时错误
'9'：
下标越界

求高人指点

demonimissyou · 发表于 2025-8-1 11:40

Sub AddOverline()
Dim rng As Range
Set rng = Selection
For Each cell In rng
      cell.Value = cell.Value & ChrW(773)
      cell.HorizontalAlignment = xlCenter
      cell.VerticalAlignment = xlCenter
Next cell
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:50

求高人指点

Sub FormatCellWithStrikethroughAndTopCenter()
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你需要的目标单元格

With targetCell
      .HorizontalAlignment = xlCenter ' 水平居中
      .VerticalAlignment = xlTop ' 垂直居顶
      .Font.Strikethrough = True ' 上划横线

      ' 调整行高以适应文字顶部对齐
      .RowHeight = .Font.Size * 1.5 ' 根据需要调整倍数
End With
End Sub

dhldhldhl7 · 发表于 2025-8-1 11:54

demonimissyou 发表于 2025-8-1 11:40
Sub AddOverline()
Dim rng As Range
Set rng = Selection

没用，实现不了文字顶部居中

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

nb什么牌子	自言自语是什么意思	螺蛳粉为什么叫螺蛳粉	孕酮低什么原因造成的	乡镇党委书记是什么级别
每天吃维生素c有什么好处	急性胰腺炎是什么病	附件炎是什么	封闭抗体是什么意思	皮损是什么意思
肾虚对男生意味着什么	大胯疼是什么原因引起	梦见诈尸预示什么	竖中指代表什么意思	七月份有什么节日
为什么不敢挖雍正陵墓	什么动物是站着睡觉的	吃过榴莲不能吃什么	假性宫缩是什么感觉	高血脂看什么科

奥利奥是什么意思hcv9jop2ns9r.cn	重字五行属什么tiangongnft.com	血红蛋白偏低是什么原因hcv8jop1ns0r.cn	三道鳞是什么鱼hcv8jop1ns9r.cn	脚裂口子是什么原因hcv8jop2ns5r.cn
双月刊什么意思hcv9jop1ns8r.cn	什么什么不周shenchushe.com	大三阳是什么意思hcv7jop5ns2r.cn	贫血是什么cj623037.com	琼林是什么意思hcv7jop9ns8r.cn
布帛是什么意思hcv9jop2ns3r.cn	孕妇上火什么降火最快hcv8jop0ns4r.cn	碧玺五行属什么hcv7jop5ns1r.cn	什么不安hcv9jop5ns8r.cn	今日是什么生肖日hcv7jop5ns3r.cn
孕妇口腔溃疡能用什么药fenrenren.com	老心慌是什么原因hcv9jop1ns1r.cn	道理是什么意思hcv8jop7ns9r.cn	咳嗽喝什么hcv9jop7ns5r.cn	四月23日是什么星座hcv9jop3ns8r.cn

赵丽颖称感情空白 公布择偶条件：首先是个男的

赵丽颖称感情空白公布择偶条件：首先是个男的