主页 / computer / 问题 / 1486915
Accepted
PeterH
Asked: 2019-09-28 02:31:42 +0800 CST

EXCEL VBA：根据另一个单元格的值更改数字格式

  • 772

C7:K35我想根据 Cell 中的值更改一系列单元格的格式A1。

当A1= 1 时，数字格式应为"_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

<> 1时A1，数字格式应为"_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"

我知道这需要在 VBA 中使用 来完成case，就像我之前在其他论坛上提问时所做的那样，但我再也找不到问题了。

我猜它会是这样的：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
       case when Range("A1").value = 1 then
       Range("C7:K32").Select
       Selection.NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
       Else
       Range("C7:K32").Select
       Selection.NumberFormat = "_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"
    End If

End Sub
microsoft-excel vba

1 个回答

  1. Best Answer

    Select除了Select Case声明之外，不需要任何东西。

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
       select case Range("A1").value
           case 1
               Range("C7:K32").NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
           case Else
               Range("C7:K32").NumberFormat = "_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"
        end select
    End If

End Sub
    • 3

相关问题