单元格格式的引用

4461

单元格格式的引用
需要引用一单元格中的数据及其单元格的格式(字体\字号\行高\列宽等)参数,不知如何才能做到.谢谢!

pureshadow

哦耶~~~~~~~~~~~~~
感谢欢欢支持！

欢欢

Sub text()
MsgBox "该单元格字体大小：" & ActiveCell.Font.Size & Chr(10) & _
"该单元格字体名：" & ActiveCell.Font.Name & Chr(10) & _
"该单元格字体颜色序号：" & ActiveCell.Font.ColorIndex & Chr(10) & _
"该单元格背景色序号：" & ActiveCell.Interior.ColorIndex & Chr(10) & _
"该单元格列宽：" & ActiveCell.Width & Chr(10) & _
"该单元格行高：" & ActiveCell.Height & Chr(10) & _
"该单元格的值：" & ActiveCell.Value & Chr(10) & _
"该单元格的对齐方式：" & ActiveCell.HorizontalAlignment & Chr(10) & _
"该单元格的数字类型：" & ActiveCell.NumberFormatLocal & Chr(10) & _
"该单元格的地址：" & ActiveCell.Address
  End Sub

4461

谢谢站长的帮助.
不过,如何使用啊!
我还是不会啊!
能否详细点啊!

tmtony

ActiveCell.Font.Size
ActiveCell.Font.Name
ActiveCell.Width
ActiveCell.Height
ActiveCell.Value