excel中编辑宏时编码字体大小怎么改?

With SelectionFont

Name = "宋体" '什么字体

Size = 22 '字体大小

End With

就是这样格式

以下是将 WPS Excel 文件转换为 Excel 格式的宏代码：

Sub SaveAsExcel()

Dim TargetFile As String

Dim objWkb As Workbook

Dim objApp As Object

Set objWkb = ActiveWorkbook

Set objApp = CreateObject("ExcelApplication")

If objWkb Is Nothing Or objApp Is Nothing Then

MsgBox "程序出错!"

Exit Sub

End If

With objApp

Visible = False

WorkbooksAdd

Set objWkb = WorkbooksOpen(objWkbFullName)

TargetFile = Replace(objWkbFullName, "et", "xlsx")

ApplicationDisplayAlerts = False

objWkbSaveAs TargetFile, FileFormat:=xlOpenXMLWorkbook

Quit

End With

MsgBox "保存成功!"

End Sub

使用方法：

1打开一个 WPS Excel 文件。

2按下 ALT + F11 进入 VBA 界面。

3在左侧 Project 窗口中找到当前文件所在的 VBAProject。

4右键单击 VBAProject，选择 Insert -> Module，即可打开一个新的 VBA 代码模块。

5将以上代码复制到新的模块中，并保存。

6返回 WPS Excel 界面，按下 Alt + F8 快捷键调出宏对话框，选择 "SaveAsExcel" 宏执行即可。

请注意，在执行宏代码前最好先备份一份原始文件，以防不测。

核心代码就一句话，前面添加SUB、后面添加END SUB共三行：

SUB 宏1()

SELECTIONVALUE=SHEET2RANGE("A1")VALUE

END SUB

按alt

+F11

列如

函数公式

C1=A1+B1

在VBA编缉器选一个sheet，点上面worksheet，默认是seletrionchang(单元格变动)

输入以下代码任一条，效果等同于上面的函数（当A1和B1填入数字，C1自动得到结果）。

Range("c1")

=

Range("a1")

+

Range("B1")

或

Cells(1,

3)

=

Cells(1,

1)

+

Cells(1,

2)

如果你是想只填箱号1，其余什么都不输还会自动填充，那么很遗憾，目前做不到。不过听说目前正在研发的EXCEL新版本可以实现“所想即为所得”，只要你用脑电波控制就可以了。

如果你愿意多敲几个键再填充或拉曳的话，只要几秒钟，你的表格也已经做好了。

试试下面的代码，工作表名用的Sheet1和Sheet2，根据实际修改即可

Sub 总进价计算()

Dim myDic As Object, myKey

Dim c, myVal

Dim i As Long

Set myDic = CreateObject("ScriptingDictionary")

For i = 2 To Worksheets("Sheet2")UsedRangeRowsCount

myDicAdd Worksheets("Sheet2")Cells(i, 1)Value, Worksheets("Sheet2")Cells(i, 2)Value

Next i

For i = 2 To Worksheets("Sheet1")UsedRangeRowsCount

Worksheets("Sheet1")Cells(i, 3) = myDicItem(Cells(i, 1)Value) Worksheets("Sheet1")Cells(i, 2)

Next i

Set myDic = Nothing

End Sub