如何vba设置单元格中英文、数字、符号的字体

Sub 改字体()

Range("A1:B10")Select

With SelectionFont

Name = "Calibri"

FontStyle = "常规"

End With

End Sub

估计是你工作表引用出了问题，默认的工作表内部名称没有sheet的，都带有数字序号的。

如果只是加粗，用另一个属性更好：

sheet1Cells(sum_num + 3 + x, 14)FontBold = True

代码如下，详见附件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim Ra As Range

   For Each Ra In Target

      Randomize

      RaFontName = Choose(Int(Rnd()  9 + 1), "仿宋_GB2312", "Arial Unicode MS", "宋体", "黑体", "幼圆", "隶书", "Batang", "Dotum", "MS PGothic")

      RaFontSize = Int(48  Rnd() + 6)

   Next

End Sub

以下代码将A1单元格中的汉字设为宋体，其余为Arial字体。你可改为函数方便对其他单元格字体的设置。

For i = 1 To Len(Range("A1"))

   n = Asc(Mid(Range("A1"), i, 1))

   Range("A1")Characters(i, 1)FontName = IIf(n > 0 And n < 128, "Arial", "宋体")

Next

1 可以通过使用VBA编程实现将单元格内的数值随机手写字体

2 原因是VBA能够获取单元格中的文本内容，并且设置字体、颜色等属性。

通过使用随机数函数，可以实现每次生成不同的手写字体。

3 具体实现方法为：首先，通过VBA代码获取单元格中的文本内容；然后，使用随机数函数生成不同的参数（如字体、颜色等），并将其应用于文本内容；最后，将生成的手写文本替换原有的文本，并将其显示在单元格中即可。

以上就是关于如何vba设置单元格中英文、数字、符号的字体全部的内容，包括:如何vba设置单元格中英文、数字、符号的字体、VBA设置字体样式、excel中使用vba程序对某个区域的数据和文本随机进行字体和字号处理等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！