作者ljuber (美少妇与女儿同学的故事)
看板Office
标题[算表] 巨集浓缩
时间Wed Jan 25 10:25:51 2017
软体:excel
版本:任何版本
录制一段巨集
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Name = "标楷体"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
不知道怎麽浓缩成更短
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.252.11
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1485311153.A.D2D.html
1F：→ soyoso: 可个别查询各属性所要调整的部分，如superscript为上标 01/25 10:41
2F：→ soyoso: 如所选取的储存格本身无要取消上标的话，这列可取消 01/25 10:42
3F：→ soyoso: false为预设；subscript为下标，同上。 01/25 10:44
4F：→ soyoso: 如果所选储存格是尚无设定任一font和interior格式的话 01/25 10:55
6F：→ ljuber: 感谢大大 我发现从size=12下面全删也是我要的结果 01/25 10:58
7F：→ soyoso: 了解，另外没附interior的部分是因为全删了，这方面也可删 01/25 11:00
8F：→ soyoso: 除试试 01/25 11:00