[已解决]单元格格式自定义后还是按原来数字计算

砂海

huangxuejin 发表于 2016-10-21 14:49

搜一下 甘特图 也许对你有帮助

huangxuejin

感谢砂海提示，现在完全完善所需的要求，谢谢谢谢

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 3 Or Target.Column = 7 Then '3表示3列、7表示7列
            If Target.Value <= 24 Then
                If Target.Value > 12 Then
                    Target.NumberFormatLocal = Application.Substitute(Target.Value - 12, "0", "!0") & ""
                     Else
                    Target.NumberFormatLocal = "G/通用格式"   '12以下 都是显示常规
                End If
            End If
        End If
    End If
End Sub