VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 53|回复: 2

一个关于excel vba的问题

[复制链接]

1

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-2-11 23:00:01 | 显示全部楼层 |阅读模式
excel的一列存放着这样的数据5:00,6:00,7:20,12:30等等这样的数据,其实是表示时间的,现在想把所有这些数据转化成秒,比如7:20就是7小时20分钟,也就是7*3600+20*60,请给出vba代码,多谢!不知道取子串用什么函数
回复

使用道具 举报

0

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-4-11 14:30:01 | 显示全部楼层
Dim a
a = Split(Cells(1, 1), ":")
secondtime = 3600 * a(0) + 60 * a(1)
MsgBox secondtime
回复

使用道具 举报

0

主题

3

帖子

3

积分

新手上路

Rank: 1

积分
3
发表于 2020-4-15 18:45:01 | 显示全部楼层
假如A列存放上述数据:
Sub Zhuanhua()
    Dim i As Integer
    For i = 1 To [a1].End(xlDown).Row
        Cells(i, 1).Offset(0, 1) = Hour(Cells(i, 1)) * 3600 + Minute(Cells(i, 1)) * 60 + Second(Cells(i, 1))
    Next
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2020|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表