把表格中的时间转化为分钟进行求和

代劲

塔机对外使用签证单统计表1.zip (13 KB, 下载次数: 4)

2019-9-6 19:06 上传

点击文件名下载附件

代劲

如果台时列中出现“一吊”，则赋值为0.5，代码怎么写

代劲

最好 能使用自定义函数，在合计栏中输入自定义函数就可以进行计算

opel-wong

代劲 发表于 2019-9-6 19:09
如果台时列中出现“一吊”，则赋值为0.5，代码怎么写

触发事件，输入时自动变化，

opel-wong

代码如下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Value = "" Then Exit Sub
   
4.     If Target.Row < 3 Or Target.Column <> 6 Then Exit Sub
   
5.     ' -------------------
   
6.     With Target
   
7.         If .Value = "一吊" Or .Value = "1吊" Then
   
8.             .NumberFormatLocal = "G/通用格式"
   
9.             .Value = 0.5
   
10.             .Select
    
11.             Exit Sub
    
12.         End If
    
13.     End With
    
14. End Sub
    
15. 
    

复制代码

代劲

opel-wong 发表于 2019-9-7 08:31
代码如下：

谢谢你。