请教各位老师，函数怎么写？每次都要复制粘贴

413191246se · 发表于 2019-8-7 23:35

本帖最后由 413191246se 于 2019-8-10 20:09 编辑

* 请问各位老师，下面的语句怎么用函数来导出 FontFS 和 FontKT 的值呢？*
Dim i As Paragraph, FontFS As String, FontKT As String
If System.Version = "5.1" Then FontFS = "仿宋_GB2312" Else FontFS = "仿宋"
If System.Version = "5.1" Then FontKT = "楷体_GB2312" Else FontKT = "楷体"

413191246se · 发表于 2019-8-8 00:19

本帖最后由 413191246se 于 2019-8-8 14:28 编辑

略。。。。

413191246se · 发表于 2019-8-8 01:55

本帖最后由 413191246se 于 2019-8-8 14:27 编辑

略。。。。

413191246se · 发表于 2019-8-11 01:33

略。。。。

daibao88 · 发表于 2019-8-11 09:04

本帖最后由 daibao88 于 2019-8-11 09:16 编辑

Sub ft()
MsgBox FontKT()
End Sub
Public Function FontKT() As String
If System.Version >= 5.1 Then
FontKT = "楷体"
Else
FontKT = "楷体_GB2312"
End If
End Function

413191246se · 发表于 2019-8-11 10:19

本帖最后由 413191246se 于 2019-8-15 00:06 编辑

* daibao88 老师，谢谢您！代码运行 OK！大获成功！

413191246se · 发表于 2019-8-11 10:36

* 老师，最终代码如下，我太高兴了！函数好用！（如果这两个函数能合体，则更好。VBA.Cvar 不明白是什么意思，但不用也正常。）

Function FontFS() As String
If System.Version = 5.1 Then FontFS = "仿宋_GB2312" Else FontFS = "仿宋"
End Function
Function FontKT() As String
If System.Version = 5.1 Then FontKT = "楷体_GB2312" Else FontKT = "楷体"
End Function

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请教各位老师，函数怎么写？每次都要复制粘贴