首页 › 实战技术 › 两列相乘从第四行开始，录入和结果显示会计专用格式

nnsea 发表于 2023-11-19 09:52:35

两列相乘从第四行开始，录入和结果显示会计专用格式

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    Dim accountingFormat As String
      
    ' 设置会计专用格式字符串（你可以根据需要修改这个格式）
    accountingFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
      
    ' 检查更改是否发生在E列或F列以及是否在前三行之后
    If Not Intersect(Target, Me.Range("E4:F" & Me.Rows.Count)) Is Nothing Then
      ' 查找E列和F列的最后一行
      lastRow = Me.Cells(Me.Rows.Count, "E").End(xlUp).row
         
      ' 如果更改发生在最后一行之前，并且不在前三行，则重新计算G列对应行的值
      If Target.row <= lastRow And Target.row > 3 Then
            Me.Cells(Target.row, "G").Value = Me.Cells(Target.row, "E").Value * Me.Cells(Target.row, "F").Value
            
            ' 将G列的格式设置为会计专用格式
            Me.Cells(Target.row, "G").NumberFormat = accountingFormat
            
            ' 也可以将E列和F列的格式设置为会计专用格式（如果需要）
            Me.Cells(Target.row, "E").NumberFormat = accountingFormat
            Me.Cells(Target.row, "F").NumberFormat = accountingFormat
      End If
    End If
End Sub

查看完整版本: 两列相乘从第四行开始，录入和结果显示会计专用格式