Excel VBA : format to percentage without percentage sign

Question

为了使问题尽可能简单:

在 Excel 单元格 A1 中有一个数值:0.11

我想将单元格格式设置为百分比值，但不带 % 符号。我想要:11；不是 11%

我不是在问如何在常规 Excel 中执行此操作；而是在问如何在常规 Excel 中执行此操作；它必须是 VBA。.

我想 Range("A1").NumberFormat = .... 是正确的选择；但使用此方法时，% 符号总是出现。

有没有办法在没有百分号的情况下格式化它？请注意，该值无法更改，必须保持 0.11 。

Answer 1

另一种解决方法是将单元格内容显示 x 100。

Sub Macro1()

    Dim cell As Range
    For Each cell In Range("A:A")   ' Change with your Range
        If cell.Value > 0 Then
            cell.NumberFormat = Str(cell.Value * 100)
        End If
    Next cell

End Sub

这可以工作，但每次更改都必须重新运行。例如，在工作表中使用以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("A:A")) Is Nothing Then 
       Call Macro1            
   End If

End Sub

Sub Macro1()

        Dim cell As Range
        For Each cell In Range("A:A")   ' Change with your Range
            If cell.Value > 0 Then
                cell.NumberFormat = Str(cell.Value * 100)
            End If
        Next cell

    End Sub