看上面的gif动画可以看出,对A1单元格的内容进行了设置之后,通过ExcelVBA代码的运行,就可以在指定的单元格内容中显示出来它的字体,字号等信息,同样的,还可以是颜色等等。
静态的截图如下:
把VBA代码复制出来如下:
Sub 向某个单元格录入数据()'' 向某个单元格录入数据 宏' 向某个单元格录入数据'x2 = Range("a1").Characters(5, 1).Font.Name Range("a6").Select ActiveCell.FormulaR1C1 = x2x1 = Range("a1").Characters(3, 1).Font.Size Range("a5").Select ActiveCell.FormulaR1C1 = x1End Sub
解释为:
第三个字符大小:x1 = Range("a1").Characters(3, 1).Font.size第五个字符字体名称:x2 = Range("a1").Characters(5, 1).Font.name第六个字符颜色:x3 = Range("a1").Characters(5, 1).Font.colorindex
如果我们现在要把A1单元格的字体,字号相同的显示到其他的单元格中,可以使用下面的代码。先上gif动画。
我们重新设置一下A1单元格的字体和字号后,运行vba,A3单元格的字体,字号就和A1相同了。
静态图片如下:
代码如下:
Sub 向某个单元格录入数据()'' 向某个单元格录入数据 宏' 向某个单元格录入数据'x2 = Range("a1").Characters(5, 1).Font.Name Range("a6").Select ActiveCell.FormulaR1C1 = x2x1 = Range("a1").Characters(3, 1).Font.Size Range("a5").Select ActiveCell.FormulaR1C1 = x1Range("a3").Font.Size = x1Range("a3").Font.Name = x2End Sub
Range("a3").Font.Size = x1
就是把A1单元格中获取到的字号,重新赋值给了A3这个单元格。同理的,下面那一句就是把A1单元格的字体,赋值给了A3
用Excel公式(mid函数和文本连接符&)处理银行卡卡号,按每4位用空格进行排版显示效果
使用excel表格中的if函数{1,0}来实现序列调整
制作表格有难题扫码来帮你 长按咨询客服↓