通過在每一行中使用循環來創建具有條件的數字格式

Question

如果 USD = 4 位數字，IDR = 0 位數字，JPY = 2 位數字，我想使用 excel 中的宏制作一個帶標准的數字格式，因為有很多行

謝謝您的幫助

我用過這個模塊，但它不起作用

Sub LoopRange()
    Dim rng As Range
    Set rng = Range("A1:A100")
    For Each cell In rng
        If Range("a1").Value = "IDR" Then
        Range("b:b").NumberFormat = "#,##0"
    ElseIf Range("a1").Value = "JPY" Then
        Range("b:b").NumberFormat = "#,##0.00"
    Else: Range("b:b").NumberFormat = "#,##0.0000"
    End If
    Next cell
End Sub

Answer 1

For Each cell In rng已經通過特定單元格循環，不需要稍后指定Range("a1") 。 此外，你只通過 A1 循環，我認為你是指cell

此外， Range("b:b").NumberFormat將更改整個列的格式。 我想你想要cell.Offset(0,1).NumberFormat或Range("B" & cell.row)

可能你想要這樣的東西：

Sub LoopRange()
Dim rng As Range
Dim cell As Range
Set rng = Range("A1:A100")

For Each cell In rng
    If cell.Value = "IDR" Then
        cell.Offset(0, 1).NumberFormat = "#,##0"
    ElseIf cell.Value = "JPY" Then
        cell.Offset(0, 1).NumberFormat = "#,##0.00"
    Else
        cell.Offset(0, 1).NumberFormat = "#,##0.0000"
    End If
Next cell

Set rng = Nothing

End Sub

Answer 2

您也可以使用條件格式：