代码之家 › 专栏 › 技术社区 › johnashu

在数字格式vba后更新单元格

excel-vba excel

0

johnashu · 技术社区 · 8 年前

我有一个按列改变单元格格式的子程序

Sub format_columns()

Application.Union(Columns("i"), Columns("k"), Columns("m")).Select

Selection.NumberFormat = "0%"

End Sub

格式已更改,但我必须单击或 f2 and enter 每个单元格将其更改为公式工作。

我试过:

Application.EnableEvents = True

ScreenUpdating = True

如何将单元格自动更新为新格式?

1 回复 | 直到 8 年前

1

Slai 8 年前

在粘贴文本之前设置数字格式,或再次设置值以将其转换为数字:

Sub format_columns()
    For Each col In Range("I:I,K:K,M:M").Columns
        col.NumberFormat = "0%"
        col.Value = r.Value
    Next
End Sub