[算表] 巨集濃縮

[ljuber (美少婦與女兒同學的故事)]

軟體: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://www.ptt.cc/bbs/Office/M.1485311153.A.D2D.html
→ soyoso: 可個別查詢各屬性所要調整的部分，如superscript為上標
→ soyoso: 如所選取的儲存格本身無要取消上標的話，這列可取消
→ soyoso: false為預設；subscript為下標，同上。
→ soyoso: 如果所選儲存格是尚無設定任一font和interior格式的話
→ soyoso: 那刪除看這樣是否已可符合https://i.imgur.com/aZMT1JW
→ ljuber: 感謝大大 我發現從size=12下面全刪也是我要的結果
→ soyoso: 了解，另外沒附interior的部分是因為全刪了，這方面也可刪
→ soyoso: 除試試