level 1
难点在于AB的字体和下面箱号不同。要做到只调整1/300 的分子
2021年04月01日 03点04分
level 10
![[汗]](/static/emoticons/u6c57.png)
level 10
Sub 不知干啥的()
Dim i As Integer
Dim Cot As Integer, Str As String, n As Integer
Dim FontSize1 As Byte, FontSize2 As Byte
'设置区域
Str = "AB" '第一行文字
Cot = 30 '总数
FontSize1 = 33 '第一行文字大小
FontSize2 = 11 '第二行文字大小
n = Len(Str)
[A:A].Clear
For i = 1 To Cot
With Cells(i, 1)
.Value = Str & Chr(10) & i & "/" & Cot
.Characters(1, n).Font.FontStyle = "加粗"
.Characters(1, n).Font.Size = FontSize1
.Characters(n + 1).Font.FontStyle = "常规"
.Characters(n + 1).Font.Size = FontSize2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Next
End Sub
2021年04月01日 06点04分
7
Dim i As Integer
Dim Cot As Integer, Str As String, n As Integer
Dim FontSize1 As Byte, FontSize2 As Byte
'设置区域
Str = "AB" '第一行文字
Cot = 30 '总数
FontSize1 = 33 '第一行文字大小
FontSize2 = 11 '第二行文字大小
n = Len(Str)
[A:A].Clear
For i = 1 To Cot
With Cells(i, 1)
.Value = Str & Chr(10) & i & "/" & Cot
.Characters(1, n).Font.FontStyle = "加粗"
.Characters(1, n).Font.Size = FontSize1
.Characters(n + 1).Font.FontStyle = "常规"
.Characters(n + 1).Font.Size = FontSize2
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Next
End Sub
level 12