Excel VBA: 如何将所有数字格式设置为仿宋字体
Sub SetFont() '设置字体 Dim cell As Range For Each cell In Selection If IsNumeric(cell.Value) Then cell.Font.Name = '仿宋' End If Next cell End Sub
原文地址: https://www.cveoy.top/t/topic/nHdQ 著作权归作者所有。请勿转载和采集!
安全问答是一个知识全球问答,包含丰富的问答知识
Sub SetFont() '设置字体 Dim cell As Range For Each cell In Selection If IsNumeric(cell.Value) Then cell.Font.Name = '仿宋' End If Next cell End Sub
原文地址: https://www.cveoy.top/t/topic/nHdQ 著作权归作者所有。请勿转载和采集!