如何用VBA代码来控制字体的大小 比如在A1单元格中写入一个文字和写入10个文字用代码控制，让一个

Question

如何用VBA代码来控制字体的大小
比如在A1单元格中写入一个文字和写入10个文字用代码控制，让一个文字的占满整个格子，让10个文字也能在格子中全部显示出来

Answer 1

先设置单元格字号为最大，然后再设置单元格格式“缩小字体填充”即可。

追问

最大怎样没设置，多大为最大

可否用VBA代码来实现

追答

比如1个字时，你希望多大（系统默认最大为72，但其实你可以改为更大的值）

追问

缩小字体填充，可不可以同时钩选自动换行

追答

自动换行会屏蔽“缩小字体填充”

刚才摸索了一下，用VBA来实现：
Sub t()
n = Len(Range("A1"))
Range("A1").Font.Size = Range("A1").Width * 0.96 / n
End Sub
其中乘0.96是我摸索的一个值，用于进一步缩小字号以适应单元格宽度，可适当修改。

追问

Range可以表达单元格区域，而Cells为什么不能?

Answer 2

当出现笔记本无法启动的情况时，建议按照以下方法排除：
1.核实电源指示灯是否亮起。
2.观察屏幕是否亮起，是否可以看到蓝色背景的三星logo画面。
3.若可以看到三星logo画面，建议恢复BIOS默认设置，即开机出现三星logo画面按F2进入BIOS，然后按F9，选择Yes，然后按F10保存退出。
4.若恢复BIOS无效，尝试是否可以进入安全模式，即开机出现三星logo画面按F8，选择安全模式进入。
5.若可以进入安全模式，建议在安全模式下将近期安装的软件程序卸载，并且对系统进行病毒的查杀后观察。
6.如果以上操作无效，建议将操作系统重新安装后观察（重装系统前请先将自己重要的资料备份）。
7.若无法重装系统或者重装系统无效，建议联系三星指定授权的售后服务中心检测。

若按下开机键后笔记本的电源指示灯不会亮起，那么需要检查插座和电源适配器是否都已经开启并插好，若确认无问题，那么需要直接联系三星指定授权的售后服务中心检测。