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

huangxuejin

再次求助！单元格格式自定义后还是按原来数字计算。

最佳答案

月排行榜 / 总排行榜

砂海

2016-10-21 11:10

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then
        If Target.Column = 2 Or Target.Column = 5 Then

            If Target.Value <= 24 Then
                If Target.Value > 12 Then
                    Target.NumberFormatLocal = Application.Substitute(Target.Value - 12, "0", "!0") & ""
                End If
            End If

        End If
    End If
------------------------------
红色 为 B , E 的列序号
R2.单元格格式自定义后还是按原来数字计算.rar (36.52 KB, 下载次数: 3)

2016-10-21 11:10 上传

点击文件名下载附件

跳转到最佳答案楼层

huangxuejin

请问老师们，是不是VBA没有可能实现这个难题啊？这个难题对我白痴来讲确实是天大的幻想，也许对老师们来说只不过是个一般难题，哪位老师行行好帮帮我！！！

苏子龙

用mod函数就好了d3输入=(mod(b3-1,12)+1)*c3

砂海

R.单元格格式自定义后还是按原来数字计算.rar (38.15 KB, 下载次数: 4)

2016-10-21 08:23 上传

点击文件名下载附件
输入小数没处理

huangxuejin

砂海 发表于 2016-10-21 08:24
输入小数没处理

谢谢您的帮助，老师能不能设置一整列 比如 B列和E列整列，再次麻烦您帮我好吗？

砂海

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then
        If Target.Column = 2 Or Target.Column = 5 Then

            If Target.Value <= 24 Then
                If Target.Value > 12 Then
                    Target.NumberFormatLocal = Application.Substitute(Target.Value - 12, "0", "!0") & ""
                End If
            End If

        End If
    End If
------------------------------
红色 为 B , E 的列序号
R2.单元格格式自定义后还是按原来数字计算.rar (36.52 KB, 下载次数: 3)

2016-10-21 11:10 上传

点击文件名下载附件

huangxuejin

砂海 发表于 2016-10-21 11:10
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then

再次感谢老师您在百忙之中抽出宝贵时间帮了我，祝您工作愉快！事事如意。

huangxuejin

砂海 发表于 2016-10-21 11:10
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then

砂海老师好，还有个小小请求，输入大于13的都会显示相应的数值，就是比如输入13显示1 若想改为小于13时输入12或11或10时 它还是显示1，不能显示输入的12或11或10，有空能帮我完善一下最好，实在没空也没事，我也不好意思再占用你宝贵时间 那我就只能把格式设置回常规格式后再次输入也行。

huangxuejin

砂海 发表于 2016-10-21 11:10
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then
分享一下您的成果

砂海

                If Target.Value > 12.1 Then
                    Target.NumberFormatLocal = Application.Substitute(Target.Value - 12, "0", "!0") & ""
                Else
                    Target.NumberFormatLocal = "1"   '12.1 以下 都是1
                End If